Leser: 1
![]() |
|< 1 2 3 >| | ![]() |
29 Einträge, 3 Seiten |
Quoteauf!./frontl.cgi neu=Neu
1
2
3
4
5
6
7
8
9
10
11
12
use CGI;
sub main {
my $cgi = CGI->new();
print $cgi->header(-type => 'text/html');
if ($suchen) {
suchen()
}
elsif ($eintragen) {
such_eintr()
}
}
1
2
3
4
5
6
my $cgi = new CGI;
....
sub such_eintr {
my ($param)=@_;
print "Content-type: text/html\n\n";
print "<HTML>\n";
print $cgi->header(-type => 'text/html');
1
2
print '<p><INPUT name="eintragen" TYPE="submit" VALUE="Eintragen" onClick ="??"> ';
print '<input name="neu" type="submit" value="Neu" onClick="??">';
![]() |
|< 1 2 3 >| | ![]() |
29 Einträge, 3 Seiten |