Leser: 1
|< 1 2 3 >| | 29 Einträge, 3 Seiten |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
sub such_eintr {
my ($param)=@_;
print "Content-type: text/html\n\n";
print "<HTML>\n";
print "<HEAD><TITLE>FORMULAR</TITLE>";
print '<script type="text/javascript">
<!--
....
...
print '<form method="POST" action="/cgi-bin/frontl.cgi">';
....
....
if ($eintragen){
print '<p><INPUT name="eintragen" TYPE="button" VALUE="Eintragen" onclick="?????"> ';
}
print '<input name="neu" type="button" value="Neu" onClick="????">';
print "</FORM>
</BODY>
</HTML>";
}
1
2
3
4
if ($eintragen){
print '<p><INPUT name="eintragen" TYPE="submit" VALUE="Eintragen"> ';
}
print '<input name="neu" type="submit" value="Neu">';
use CGI::Carp qw/fatalsToBrowser/;
#!/pfad/zu/perl
|< 1 2 3 >| | 29 Einträge, 3 Seiten |