Das suchende CGI-Skript II

 [Vorheriges Kapitel]  [Vorherige Seite]  [Inhaltsverzeichnis]  [Nächste Seite]  [Nächstes Kapitel]

email.pl
my $p = new CGI;

if ($p->param && $p->param('keys')) {
   # Suche durchfuehren und Ergebnis ausgeben
} else {
   print_header("Suche nach einer E-Mail-Adresse");
   print $hinweise;
}
print_form();
print "<HR>\n";
print qq(<ADDRESS><A HREF="/">Fakult&auml;t f&uuml;r
Mathematik und Wirtschaftswissenschaften der
Universit&auml;t Ulm</A>,
<A HREF="mailto:$admin">$admin</A></ADDRESS>\n);
print $p->end_html;

*new CGI liefert ein Objekt, über das die CGI-Methoden zur Verfügung stehen.
 
*$p->param liefert eine Liste der Parameternamen aus der URL oder dem ausgefüllten Formular. Wenn noch nichts vorliegt, ist diese Liste leer.
 
*$p->param('keys') liefert den Wert des Parameter keys. Dies ist der einzige Parameter in diesem Beispiel.
 
*In jedem Falle wird ein Formular mit print_form erzeugt.
 

 [Vorheriges Kapitel]  [Vorherige Seite]  [Inhaltsverzeichnis]  [Nächste Seite]  [Nächstes Kapitel]
Copyright © 1996, 1998, 1999, 2000 Andreas Borchert, in HTML konvertiert am 07.02.2000