#![]{perl}[]
#
# Huuh, we are perl!
#
# Copyright (c) 1994 by Hochschulrechenzentrum der Universit"at Gie"sen
# All rights reserved.
#
# Author: Markus Porto
#         Markus Porto@physik.uni-giessen.de
#
# This software may be freely copied, modified, and redistributed
# provided that this copyright notice is preserved on all copies.
#
# You may not distribute this software, in whole or in part, as part of
# any commercial product without the express consent of the author.
#
# There is no warranty or other guarantee of fitness of this software
# for any purpose. It is provided solely "as is".
#
# Dieses Skript gibt eine Meldung aus beim Reload einer Seite.
#
# Revision: 30. September 1994
#

# Datum
$date= `[]{cgibin}[]/tex/germandate`;

# der Typ des Textes
print "Content-type: text/html\n\n";

# Zerlegen der Eingabe in einzelne Zeilen
read( STDIN, $content, $ENV{"CONTENT_LENGTH"});
@items= split( /&/, $content);
foreach $item ( @items)
{
  local( $name, $value)= split( /=/, $item);
  
  $value =~ tr/\+/ /;
  $value =~ s/%([\da-f][\da-f])/pack("C",hex($1))/gei;
  $values{$name}= $value;
}
@items= split( /&/, $ENV{"QUERY_STRING"});
foreach $item ( @items)
{
  local( $name, $value)= split( /=/, $item);
  
  $value =~ tr/\+/ /;
  $value =~ s/%([\da-f][\da-f])/pack("C",hex($1))/gei;
  $values{$name}= $value;
}

# Text erzeugen
print "<HTML>\n";
print "<HEAD>\n";
print "<TITLE>Kein Neuladen m&ouml;glich!</title>\n";
print "</HEAD>\n";

print "<BODY>\n";
print "<H1>";
if( $values{"icon"} ne "")
{
  print "<IMG ALT=\"\" SRC=\"$values{'icon'}\"><BR>\n";
}
print "Kein Neuladen m&ouml;glich!</H1>\n";

print "Leider ist ein Neuladen der vorangegangenen Seite nicht m&ouml;glich.<P>\n";
  
print "<HR><EM>WWW-Server []{server_institution}[], Revision ";
print $date, "</EM>\n";
  
print "</BODY>\n";
print "</HTML>\n";
