#!/usr/local/bin/perl
#!/usr/perl/perl5/bin/perl

#$indexdir = $ENV{'DOMA_ROOT'}."glossarindex";
$doma_url_root = $ENV{'DOMA_URL_ROOT'};
$html_dest = "${doma_url_root}glossarindex";

print $html_dest, "\n";
while(<*.index>){
  $letter = substr($_, 0, 1);
  print "$letter ...\n";
  system "./i.pl $letter >$html_dest/$letter.html";
}

open(top, ">$html_dest/top.html");

print top <<EOF
<head>
<title>CSLIB2000-Glossar: Alphabetischer Index</title>
<body>
<h1>Alphabetischer Glossarindex</h1>

Dies ist das alphabetische Verzeichnis der CSLIB2000-Glossareintr&auml;ge. Die Eintr&auml;ge sind in der Regel permutiert, d.h. z.B.,
da&szlig; 'systematischer Katalog' zus&auml;tzlich auch unter
'Katalog, systematischer'
verzeichnet ist oder 'Fachbibliothek' zus&auml;tzlich unter
'bibliothek, Fach-'.
<p>

In den Glossareintr&auml;gen werden folgende Pictogramme verwendet:<br>

<img src="../gifs/glossarr.gif">: Verweis auf anderen Glossareintrag.<br>
<img src="../gifs/cite.gif">: Verweis auf Referat oder anderen Hypertext.<br>
<img src="../gifs/index.gif">: Verweis auf einen (automatischen) Index.<br>
<img src="../gifs/literature.gif">: Verweis auf Literatur.<br>
<img src="../gifs/mail.gif">: Mail an den Autor des Dokuments senden.<br>

<hr>
<blockquote>
EOF
;

while(<*.index>){
  $letter = substr($_, 0, 1);
  print top <<EOF
<a href=\"$letter.html\">\u$letter</a> <br>
EOF
;
}

print top <<EOF
</blockquote>
<hr>
<ADDRESS>
Index wurde automatisch erstellt. Betreuung: 
<img src="../gifs/mail.gif">
<a href="http://www.cs.tu-berlin.de/cgi/sendmail?pumuckel@cs.tu-berlin.de&fixed=to,subject&subject=CSLIB2000-Glossarindex:+top.html">pumuckel@cs.tu-berlin.de</A>
</ADDRESS>
</body>
EOF
;

close top;

