#!/msrc/apps/bin/perl5 ########################### # latex2HTML wrapper script # Pawel Wolinski # pwolinsk@comp.uark.edu # 5/21/97 ########################### # # This script takes the output of htmlize (munged latex2html) # and adds the frame based indexing # $input_dir ="."; $output_dir="."; $title="NWChem User Documentation"; if ($ARGV[0] eq "") {&print_usage;exit(0);} else {$start_file=$ARGV[0];} if ($ARGV[1] ne "") {$title=$ARGV[1];} &make_contents_cover($input_dir,$output_dir,$start_file); &make_manuals($output_dir,$title); #-----------------------subroutines------------------- sub make_contents_cover { local ($in_dir,$out_dir,$start_f)=@_; $r1=<.*Next:.* .*Up:.* .*Previous:.**. EOT $r2=< var ontop=true; function focus_me() { if (ontop) {self.focus();} } function toggle_ontop() { if (ontop==true) ontop=false; else ontop=true; focus_me(); } function index() { if (self.name=="contentsWin") { self.opener.location="index.html"; self.close(); } } function windows_man() { if (self.name=="contents_frame") { top.location="windows_man.html"; } } EOT2 $r3=< EOT5 if (!(open(F,"$in_dir/node2.html"))) { print stderr "make_manual: Cannot find the contents file \"node2.html\" - terminating!\n\n"; exit(0); } close(F); if (!(open(F,"$in_dir/$start_f"))) { print stderr "make_manual: Cannot find the start file \"$start_f\" - terminating!\n\n"; exit(0); } close(F); $contents=`cat $in_dir/node2.html`; $cover =`cat $in_dir/$start_f`; $contents=~s/$r1//g; $contents=~s/
//g; $contents=~s/

//ig; $cover =~s/

*.<\/H2>//g; $cover =~s/