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

$letter=$ARGV[0];

system "sort -t	 +1 -1 ${letter}.index >${letter}.sorted";

unless (open (sind, "<${letter}.sorted")){
  print STDERR "Can't open indexfile for $letter\n";
  die;
};

print <<EOF
<head>
<title>CSLIB2000: Glossarindex Teil \u$letter</title>
<body>
<h1>\u$letter</h1>

<p>
<img src="../gifs/index.gif">
<a href="top.html">Zur&uuml;ck</a> zum Hauptindex.

<hr>
<p>
EOF
;
while (<sind>) {
    chop;
#    print $_, "\n";
    ($1,$text,$file)=split('\t', $_, 9999);
    print <<EOF
<a href="$file">$text</a><br>
EOF
}

close sind;

print <<EOF
<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:+\u$letter">pumuckel@cs.tu-berlin.de</A>
</ADDRESS>
</body>
EOF
