git ref in status display
[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