File: send_hdr.pl.PL

package info (click to toggle)
apache2 2.4.66-6
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 59,884 kB
  • sloc: ansic: 212,340; python: 13,830; perl: 11,307; sh: 7,266; php: 1,320; javascript: 1,314; awk: 749; makefile: 715; lex: 374; yacc: 161; xml: 2
file content (10 lines) | stat: -rw-r--r-- 238 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
 
use MIME::Base64;
use strict;
use warnings;

print "Content-type: text/plain\r\n";
print decode_base64($ENV{QUERY_STRING}), "\r\n";
print "\r\n";
print "Hi!\n";
print "SERVERNAME=$ENV{SERVER_NAME}\n";
print "HTTP_HOST=$ENV{HTTP_HOST}\n";