#!/usr/bin/perl -w
require "ctime.pl";
$adminmail = "sjg\@cires.colorado.edu";
# make files readable
umask(011);
# disable buffering
$| = 1;
# Try to Get rid of noise from gnuplot
open(STDERR,">/dev/null");
# read in STDIN from the browser
$size_of_form_information = $ENV{'CONTENT_LENGTH'};
read (STDIN, $form_info, $size_of_form_information );
@key_value_pairs = split (/&/, $form_info);
foreach $key_value (@key_value_pairs)
{
($key, $value) = split (/=/, $key_value);
$value =~ tr/+/ /;
$value =~ s/%([\dA-Fa-f]{2})/pack ("C",hex ($1))/eg;
$value =~ s/\r\n\r\n//g; # convert paragraph marks to html pgraps
$value =~ s/\r\n/
/g; # same but for dos
$value =~ s/\n/
/g; # same but for dos
#print "
| $key | $value";
$$key = $value;
}
# Print HTML Response
print "Content-type: text/html","\n\n";
print "
Make a Plot of Hayward Fault Creep Data
Make a plot of Hayward Fault Creep Data
";
|