File: get_test

package info (click to toggle)
gzilla 0.2.1-2
  • links: PTS
  • area: main
  • in suites: potato
  • size: 1,100 kB
  • ctags: 1,421
  • sloc: ansic: 15,554; sh: 344; makefile: 130; perl: 18
file content (10 lines) | stat: -rwxr-xr-x 269 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
 
#!/usr/bin/perl

print "Content-Type: text/html\n";
print "\n";
print "<html><head><title>Test</title></head><body>\n";
print "<h1>Test</h1>\n";
print "Your URL was: <tt>$ENV{'REQUEST_URI'}</tt>\n";
print "</html>\n";

print STDERR ("url:". $ENV{'REQUEST_URI'}. "\n");