Opened by gregor at 2006-04-01 17:09
User since
2006-02-03
24 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2006-02-03
24 Artikel
BenutzerIn
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
#!/usr/bin/perl -w
use strict;
use warnings;
use CGI;
use HTML::Template;
my $operation = CGI::param('operation') || '';
my $eintragen = 'eintragen';
if ($operation eq $eintragen ) {
eintragen();
}
my $rhDict = {};
sub aktion1() {
$rhDict->{reaktion} = "Ich habe Aktion 1 ausgefuehrt";
}#aktion1
sub aktion2() {
$rhDict->{reaktion} = "Ich habe Aktion 2 ausgefuehrt";
}#aktion2
my $oCgi = new CGI;
foreach ($oCgi->param) { $rhDict->{$_} = $oCgi->param($_); }
while (my ($sKey, $sValue) = each (%ENV)) {$rhDict->{$sKey} = $sValue; }
$rhDict->{aktion} = '' unless($rhDict->{aktion});
if ( $rhDict->{aktion} eq 'aktion1' ) { aktion1(); }
elsif ( $rhDict->{aktion} eq 'aktion2' ) { aktion2(); }
my @aLines = <DATA>;
my $oTpl = HTML::Template->new( arrayref => \@aLines, die_on_bad_params => 0 );
while ( my($sKey, $vValue) = each(%{$rhDict}) ) { $oTpl->param($sKey => $vValue); }
print "Content-Type:text/html\n\n" . $oTpl->output;
exit(0);
__END__
<html>
<script type="text/javascript" language="JavaScript">
function go(sAktion) {
window.document.form.aktion.value=sAktion;
window.document.form.submit();
}//go
</script>
<body>
<!-- <form name="form" action="<tmpl_var script_name>" method="post">
<b>Letze Aktion: </b><tmpl_var reaktion></b><br />
<input name="aktion" type="hidden" value="" />
<input value="Sende 1" type="button" onclick="go('aktion1');" /><br />
<input value="Sende 2" type="button" onclick="go('aktion2');" /><br /> -->
<a href="<tmpl_var script_name>?>los</a>
</form>
</body>
</html>
dieses kommt später ;)\n\n
<!--EDIT|gregor|1144167918-->