|
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ät für Mathematik und Wirtschaftswissenschaften der Universitä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.
|
Copyright © 1996, 1998, 1999, 2000 Andreas Borchert, in HTML konvertiert am 07.02.2000 |