#! /usr/bin/perl # Ed Hill # Tue Dec 2 20:17:27 EST 2003 # Assemble the web pages from XML files. $topdir = "."; $file_list = $topdir . "/order.txt"; open(ORDER,$file_list) or die "ERROR: can't open \"$file_list\"\n"; $_ = join(" ", ); s/\n//s; @flist = split(" ", $_); open(TEMPL,"; system("rm -rf html"); system("mkdir html"); print "Parsing files ... "; foreach $file (@flist) { $fname = $topdir . "/" . $file; open(INF,$fname) or die "ERROR: can't open \"$fname\"\n"; $all = join "", ; $_ = $all; /; close(INF); # Get the body $_ = $f_all; /(.*)<\/body>/s and $body = $1; # Get the title $_ = $f_all; /" # . "Documentation
\n"; # $menu = join "", $menu, $tmp; # next; # } if (length($name1{$fm}) > 0) { $ind = " "; $name = $name1{$fm}; } if (length($ind) > 0 and ($name0{$fm} ne $cname)) { next; } if ($fm ne $file) { $_ = $fm; s/.xml/.html/; $tmp = $ind . "" . $name . "
\n"; } else { $tmp = $ind . "" . $name . "
\n"; } $menu = join "", $menu, $tmp; } # $tmp = "Search
\n"; # $menu = join "", $menu, $tmp; # Create the output $_ = $template; s//$title/s; s//$menu/s; s//$body/s; $content = $_; $_ = $file; s/.xml/.html/; $out_name = ">./html/" . $_; open(OUT,$out_name) or die "ERROR: can't open \"$out_name\"\n"; print OUT $content; close(OUT); } print " done\n";