#! /usr/bin/perl # Erzeugt den html-Teil fuer einen Inhalt # Als Argument den Basisnamen des Inhats z.B. aussage1 # Grundpfad fuer das Projekt $pfad="/afs/.mathematik.uni-stuttgart.de/project/math-online/"; # Pfad fuer LaTeX-Dateien $lpfad=$pfad."latex/"; # Parameter aufsplitten $name=shift (@ARGV); $name =~ s/\.dat//; # Daten-Datei lesen open(DATEN,"./".$name.".dat"); while () { $daten .= $_; } close(DATEN); $_=$daten; # Dateinamen feststellen if (/\[Beschreibung:([^\[\]]*)\]/is) { $beschreibung = $1;} if (/\[Typ:([^\[\]]*)\]/is) { $typ = $1;} $daten =~ /\[Dateien:\s*([^\[\]]*)\s*\]/si; ($dateien=$1)=~ s/\n/ /g; @dateien=split(" ",$dateien); # Erste Datei ist Hauptdatei $hauptdatei=@dateien[0]; $tmpname=time(); $localdir=$ENV{"PWD"}; mkdir ($name."_html",0755); # Dateien kopieren system("cp -f ".$lpfad."misc/.latex2html-init ."); system("cp -f ".$lpfad."misc/mohead.tex ."); #open(IN,"< ".$lpfad."misc/mohead.tex"); #open(OUT,"> mohead.tex"); #while () #{ # $_ =~ s/(\\newcommand{\\moVariablenName}{)[^{}]*}/$1$name}/; # print OUT $_; #} #close(OUT); #close(IN); # Temporaeres LaTeX-File erzeugen open(OUT,"> ".$tmpname.".tex"); print OUT "\\documentclass[12pt]{article}\n"; print OUT "\\input{mohead}\n"; print OUT "\\begin{document}\n"; print OUT "\\input{".$hauptdatei."}\n"; print OUT "\\end{document}\n"; close(OUT); # Latex2Html aufrufen print "Wandle Inhalt mit latex2html:\n"; $command= "latex2html -no_navigation -no_math -html_version 3.2 ". "-verbosity 0 -split 0 -address \"\" -info \"\" ".$tmpname.".tex > /dev/null"; #$command= "latex2html -no_navigation -no_math -html_version 3.2 ". # "-verbosity 0 -split 0 -address \"\" -info \"\" -debug -verbosity 9 tmp.tex "; system($command); # Dateiinhalt herauslesen, Bilder kopieren open(IN,"< ".$tmpname."/index.html"); open(OUT,"> ".$name."_html/index.html"); print OUT "\n"; print OUT "\n\n"; print OUT "\n"; print OUT "Mathematik-Online-Testseite: ".$name.": ". $beschreibung."\n"; print OUT "\n\n"; print OUT ""; print OUT "\n"; print OUT "

Mathematik-Online-Testseite (".$name."):

". $beschreibung."

\n"; print OUT "

\n"; if ($typ =~ /interaufg/i) { print OUT "

\n"; } $in_body=0; while () { if ($in_body){ if (!(/.*\/BODY.*>/)) { s/

//; # s/SRC=\"(.*)\"/SRC=\"$wpfad$name\/$name$nummer\/\1\"/g; s/A HREF=\"tmp.html/A HREF=\"/g; s//<\/TD>/g; s//<\/TD><\/TR>/g; print OUT $_; } else { $in_body=0; } } else { if (/<.*BODY.*>/){ $in_body=1; } } } if ($typ =~ /interaufg/i) { print OUT "
\n \n"; print OUT "\n"; } print OUT "

\n\n\n"; close(OUT); close(IN); system("cp ".$tmpname."/*.{gif,png} ".$name."_html/ 2> /dev/null"); # Download-Daeteinamen feststellen und kopieren if ($daten =~ /\[Downloaddateien:\s*([^\[\]]*)\s*\]/si) { ($ddateien=$1)=~ s/\n/ /g; @ddateien=split(" ",$ddateien); foreach $datei (@ddateien) { system("cp ".$datei." ".$name."_html/ 2> /dev/null"); } } chdir $localdir; # Erzeugte Dateien wieder entfernen system("\\rm -rf ".$tmpname); system("\\rm -f ".$tmpname.".tex"); system("\\rm -f .latex2html-init"); #system("\\rm -f mohead.tex");