Leser: 1
|< 1 2 3 >| | 29 Einträge, 3 Seiten |
1
2
3
4
5
use CGI;
my $cgi = CGI->new();
print $cgi->header(-type => 'text/html');
print $cgi->submit(-name => "neu", -value => "Neu");
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
use CGI;
my $cgi = CGI->new();
my %params = $cgi->Vars();
if($params{neu}){
print $cgi->redirect(-url => '/index.html');
}
else{
print $cgi->header(-type => 'text/html');
do_the_rest();
}
exit;
sub do_the_rest{
print $cgi->start_form(),
$cgi->submit(-name => "neu", -value => "Neu"),
$cgi->end_form();
}
print '<input name="neu" type="button" value="Neu" onClick=location.href="http://127.0.0.1/">';
<INPUT name="eintragen" TYPE="button" VALUE="Eintragen" onClick=location.id_vorhanden()>
|< 1 2 3 >| | 29 Einträge, 3 Seiten |