File: get_test

package info (click to toggle)
gzilla 0.1.5-3
  • links: PTS
  • area: main
  • in suites: hamm
  • size: 972 kB
  • ctags: 1,396
  • sloc: ansic: 15,102; sh: 173; makefile: 117; 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");