git://git.exim.org
/
buildfarm-server.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
push notifications to IRC #exim-builds
[buildfarm-server.git]
/
cgi-bin
/
test.pl
1
#!/usr/bin/perl
2
3
#print "Content-Type: text/html\n\n";
4
#print "<h1>My quick perl hello</h1>";
5
6
use CGI;
7
8
my $query = new CGI;
9
10
my $url = $query->url();
11
12
my $base = $query->url(-base=>1);
13
14
print <<EOF;
15
Content-Type: text/plain
16
17
18
url = $url
19
20
base = $base
21
22
EOF