#!/usr/bin/perl ############################################################################### # # Usage: generate_html.pl # # Recursively searches for any *.png files and uses text in corresponding # *.net file to create html documentation. # # R.S. Weigel 02/17/2005. ############################################################################### use File::Find; use Cwd; $num = scalar(@ARGV); $dir1 = "."; if (1) { ####################################################################### # top of html file ####################################################################### print "\n"; print "\n"; print "CISM_DX Demos\n"; print "\n"; print ""; print ""; print ""; ####################################################################### } @directory = ($dir1); open(DATA_out,">index.txt"); find(\&wanted, @directory); close(DATA_out); ####################################################################### # end of html file ####################################################################### print "\n"; print "\n"; ####################################################################### sub wanted { ########################################################################## # If a file with a .net extension is found ########################################################################## if ( ($_ =~ m/\.net/) ) { $network = $_; $image = $_; # If in macros directory, don't generate html if "Demo" is # not in name. $curr_dir = getcwd(); if ($curr_dir =~ m/macros/) { if ($_ !~ m/Demo/) { return; } } $BASE_URI = "cismdx://"; $BASE_DIR = $curr_dir; $BASE_DIR =~ s/.*(OpenDX.*)/$1/; open(DATA_in,"$network"); $image =~ s/\.net/\.png/; # replace string .net with .png open(DATA_in,"$network"); #################################################################### # html stuff ##################################################################### print "\n"; $i = 0; print "
"; print "You need CISM_DX installed "; print "to execute networks from this page. "; print "If, after selecting \"Execute Network\""; print " for the first time you are prompted with an \"Open With\""; print " dialog box, select the file cismdx_opendx_webcall,\n"; print " which is located in /usr/local/CISM_DX.\n"; print " Note that all browsers may not prompt you with an \"Open With\"\n"; print " dialog box.
"; print "Konqueror right click on Execute Network line, select Open With, Other, and /usr/local/CISM_DX/cismdx_opendx_webcall.
"; print "Other browsers: You may need to define a mime type."; print "
\n"; # Deal with case of .png but not _[0-9].png if (-e "$image") { print ""; # print ""; print "\n\n"; #print DATA_out "\n"; #print "\n"; } close(DATA_in); } ########################################################################### }
\n"; print "\n"; $i = 1; } $image =~ s/\.png/_1\.png/; while (-e "$image") { if ($i == 0) { # Case of no .png but _[0-9].png print "\n"; } else { print "\n"; } $i = $i + 1; $image =~ s/(.*)_[0-9].png/$1_$i\.png/; if ($i == 10) { print "Warning from generate_html.pl: "; print "Only 9 images are used but more than 9 found.\n"; last; # exit loop } } if ($i == 0) { # Why is 850 needed for alignment needed if there is no image? print "\n"; } print "\n"; print "$network\n"; print "

\n"; print "Execute Network\n"; print "

\n"; print "Edit Network\n"; print "

\n"; #################################################################### ################################################################ # Grab comments and annotation from network file ################################################################ while ($line = ){ # Assumes string _Author_ is on the first line of the README page if ($line =~ m/annotation.*Author/) { # Remove leading .net markup text $line =~ s/.*\/\/ annotation user: (.*)$/
$1/; # Color key words $line =~ s/Author\:/Author\:<\/font>/; print $line; # $line =~ s/.*\/\/ comment: (.*)$/
$1/; while ( ($line = ) && ($line !~ m/user_end/) ){ # Remove string $line =~ s//

/; $line =~ s/.*\/\/ annotation user: (.*)$/$1/; # Color key words $line =~ s/Category\:/Category\:<\/font>/; $line =~ s/Date\:/Date\:<\/font>/; $line =~ s/Modified\:/Modified\:<\/font>/; $line =~ s/Function\:/Function\:<\/font>/; $line =~ s/To Do\:/To Do\:<\/font>/i; $line =~ s/See also\:/See also\:<\/font>/i; print $line; } } } ################################################################ if (1){ print "