Opened by Gast at 2009-01-26 15:30
$country wird ausgegeben.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#!/usr/bin/perl -w
use DBI;
use CGI qw/:all/;
use warnings;
use strict;
my $receiver;
my $country = param('country');
if ($country eq "usa") { $receiver ="global\@..."; }
elsif ($country eq "uk") { $receiver ="europe\@..."; }
print "Content-type: text/html\n\n";
print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">', "\n";
print "<html><head><title>Test-Ausgabe</title></head><body>\n";
print "<h1>$receiver $country</h1>\n";
print "</body></html>\n";