#!/opt/bin/perl print "TEX2WEB v1.2a by: Duane J. May\n", "===============================\n\n"; ( $file = shift ) || die "Base Filename Needed\n"; if ( $file =~ m#/# ) { ( ( $dir, $file ) = ( $file =~ m#^(.*)/([^/]*)$#)); ( -d $dir ) || die "No DIR $dir\n"; chdir ( $dir ); } ( -f "$file.tex" ) || die "No FILE $file\n"; print "\n", "*" x 40, "\n", "LATEXING $file.tex\n", "*" x 40, "\n\n"; system("latex $file"); print "\n", "*" x 40, "\n", "POSTSCRIPTING $file.dvi\n", "*" x 40, "\n\n"; system("dvips $file > ${file}.ps"); print "\n", "*" x 40, "\n", "HTML-IFYING $file.tex\n", "*" x 40, "\n\n"; (-d $file) && system("/bin/rm -R $file"); system("latex2html -split 0 -link 0 $file"); system("mv $file/index.html $file/index.html.bak"); $DeleteBlock = 0; print "\n", "*" x 40, "\n", "MODIFYING HTML $file/index.html\n", "*" x 40, "\n\n"; open( IN, "$file/index.html.bak" ) || die "couldn't open htmlfile\n"; open( OUT, ">$file/index.html" ) || die "couldn't open htmlfile\n"; while ( ) { if ( $DeleteBlock ) { if ( /