#!/usr/local/bin/perl
#  Script to take arguments from ../index.html, use the UNIX sed 
# command to edit a LaTeX template, and produce a postscript file from this.
#
#  The script can be considered in as consisting of the following parts:
#
#       (1) Read in arguments passed to script.
#       (2) Read, increment and write id number. Delete old files.
#       (3) Generate LaTeX and postscript files 
#       (4) Generate return HTML page
#
# J.Brewer 1998.
##############################################################################


# TODO
# (1) Put all the latex dvips stuff in a shell script
# (2) Protect from #'s and /'s see HERE, also see p229 of cgi programming.

##############################################################################
#       (1) Read in arguments passed to script.
##############################################################################
# Below is from Gundavaram (Nutshell book)
$webmaster = "jbrewer\@eso\.org";
&parse_form_data (*ip);


##############################################################################
#       (2) Read, increment and write id number. Delete old files.
##############################################################################
#  To avoid problems with netscape caching old PS files, I allocate an
# ID number to each file that is generated. This ID number
# is also used as a strike counter

#  Set the name of the id/counter file:
$id_file = "strikes";

#  Open file and read in current id value...
open (FILE, "<" . $id_file) || die "Cannot open $id_file for reading";
$hits = <FILE>;
close (FILE);

#  Incremented id value, open file a save new id...
$hits++;
open (FILE, ">" . $id_file) || die "Cannot open $id_file for writing";
print FILE $hits;
close (FILE);

#  To avoid disk space problems, delete the (n-4)th file...
$old = $hits - 4;
if(-e "SetUp$old.ps"){unlink "SetUp$old.ps";}
##############################################################################


##############################################################################
#       (3) Generate LaTeX and postscript files 
##############################################################################
# 

#  Force a known path (external user has no path to inherit!). 
$ENV{"PATH"} = ".:/bin:/usr/local/bin";

# Create a LaTeX file with the data...
if(-e "SetUp.tex"){unlink "SetUp.tex";}
if(-e "SetUp.aux"){unlink "SetUp.aux";}
if(-e "SetUp.dvi"){unlink "SetUp.dvi";}
if(-e "SetUp.log"){unlink "SetUp.log";}
if(-e "SetUp.ps"){unlink "SetUp.ps";}
if(-e "junk1"){unlink "junk1";}
if(-e "junk2"){unlink "junk2";}
if(-e "comments.tex"){unlink "comments.tex";}

system("sed -e s/Xobs/\"$ip{'obs'}\"/ \\
-e s/Xdob/\"$ip{'dob'}\"/ -e s/Xper/\"$ip{'per'}\"/ \\
-e s/Xap1/\"$ip{'ap1'}\"/ -e s/Xap2/\"$ip{'ap2'}\"/ \\
-e s/Xap3/\"$ip{'ap3'}\"/ -e s/Xap4/\"$ip{'ap4'}\"/ \\
-e s/Xap5/\"$ip{'ap5'}\"/ -e s/Xap6/\"$ip{'ap6'}\"/ \\
-e s/Xap7/\"$ip{'ap7'}\"/ -e s/Xap8/\"$ip{'ap8'}\"/ \\
-e s/Xfi1/\"$ip{'fi1'}\"/ -e s/Xfi2/\"$ip{'fi2'}\"/ \\
-e s/Xfi3/\"$ip{'fi3'}\"/ -e s/Xfi4/\"$ip{'fi4'}\"/ \\
-e s/Xfi5/\"$ip{'fi5'}\"/ -e s/Xfi6/\"$ip{'fi6'}\"/ \\
-e s/Xfi7/\"$ip{'fi7'}\"/ -e s/Xfi8/\"$ip{'fi8'}\"/ \\
-e s/Xgr1/\"$ip{'gr1'}\"/ -e s/Xgr2/\"$ip{'gr2'}\"/ \\
-e s/Xgr3/\"$ip{'gr3'}\"/ -e s/Xgr4/\"$ip{'gr4'}\"/ \\
-e s/Xgr5/\"$ip{'gr5'}\"/ -e s/Xgr6/\"$ip{'gr6'}\"/ \\
-e s/Xgr7/\"$ip{'gr7'}\"/ -e s/Xgr8/\"$ip{'gr8'}\"/ \\
-e s/Xfa0/\"$ip{'fa0'}\"/ -e s/Xfa1/\"$ip{'fa1'}\"/ \\
-e s/Xfa2/\"$ip{'fa2'}\"/ -e s/Xfa3/\"$ip{'fa3'}\"/ \\
-e s/Xfa4/\"$ip{'fa4'}\"/ -e s/Xfa5/\"$ip{'fa5'}\"/ \\
-e s/Xfa6/\"$ip{'fa6'}\"/ -e s/Xfa7/\"$ip{'fa7'}\"/ \\
-e s/Xfb0/\"$ip{'fb0'}\"/ -e s/Xfb1/\"$ip{'fb1'}\"/ \\
-e s/Xfb2/\"$ip{'fb2'}\"/ -e s/Xfb3/\"$ip{'fb3'}\"/ \\
-e s/Xfb4/\"$ip{'fb4'}\"/ -e s/Xfb5/\"$ip{'fb5'}\"/ \\
-e s/Xfb6/\"$ip{'fb6'}\"/ -e s/Xcl1/\"$ip{'cl1'}\"/ \\
-e s/Xcl2/\"$ip{'cl2'}\"/ -e s/Xcl3/\"$ip{'cl3'}\"/ \\
TEMPLATE > SetUp.tex");

# Dump the comments in a file, include in Latex file with verbatim.
system("cat other_h > other.tex");
system("echo \"$ip{'com'}\"        >> other.tex");
system("cat other_t  >> other.tex");

# Now Latex and produce a postscript file...
system("latex SetUp.tex > junk1");
system("dvips -o SetUp$hits.ps SetUp.dvi > junk2");


##############################################################################
#       (6) Generate return HTML page
##############################################################################
 
$dateX = `date`;

print <<end_of_print;
Content-type: text/html

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"
        "http://www.w3.org/TR/REC-html40/loose.dtd">


<HTML>
<HEAD>
  <TITLE> DFOSC Set-Up Form </TITLE>
</HEAD>

<BODY BACKGROUND="../gifs/eso.gif">

<HR>
<CENTER>
<TABLE WIDTH="100%">
<TR>
  <TD ALIGN=LEFT> <IMG SRC="../gifs/logo.jpg" ALT="[2p2 Logo]">
  <TD ALIGN=CENTER> <H1> DFOSC Set Up Form </H1>
  <TD ALIGN=RIGHT> <IMG SRC="../gifs/dk_tn.jpg" ALT="[DK TN]">
</TABLE>
</CENTER>
<HR>

<H2> <FONT COLOR="RED"><U> DFOSC Set-Up Form </U></FONT></H2>

<P> Your Set-Up form has been generated as a postscipt file. To view
it, click <A HREF=SetUp$hits.ps>here</A>. </P>

<P> You may save your DFOSC set-up forming by pressing the shift key
and clicking <A HREF=SetUp$hits.ps>here</A> with the middle mouse
button. Please mail the postscript file to <A
HREF="mailto:2p2team\@eso.org?subject=DFOSC-Set-Up-Form">
2p2team\@eso.org</A>. </P>

<BR>
<CENTER>
<TABLE BORDER=3>
<TR>
  <TH> This Page Created: <BR>$dateX
  <TH> Since 10 Jun.98: <BR>$hits
  <TH> Comments: <BR>
       <A HREF="mailto:jbrewer\@eso.org?Subject:DFOSC-Set-Up">jbrewer\@eso.org</A>
</TABLE>
</CENTER>

</BODY>
</HTML>

end_of_print

exit(0);


sub parse_form_data
{
	local (*FORM_DATA) = @_;

	local ( $request_method, $query_string, @key_value_pairs,
		$key_value, $key, $value);

	$request_method = $ENV{'REQUEST_METHOD'};

	if ($request_method eq "GET") {
		$query_string = $ENV{'QUERY_STRING'};
	} elsif ($request_method eq "POST") {
		read (STDIN, $query_string, $ENV{'CONTENT_LENGTH'});
	} else {
		&return_error (500, "Server Error",
				    "Server uses unsupported method");
	}

	@key_value_pairs = split (/&/, $query_string);

	foreach $key_value (@key_value_pairs) {
		($key, $value) = split (/=/, $key_value);
		$value =~ tr/+/ /;
# HERE		$value =~ tr/"\#"/R/;
		$value =~ s/%([\dA-Fa-f][\dA-Fa-f])/pack ("C", hex ($1))/eg;

		if (defined($FORM_DATA{key})) {
			$FORM_DATA{$key} = join ("\0", $FORM_DATA{$key}, $value);
		} else {
			$FORM_DATA{$key} = $value;
		}
	}
}

sub return_error
{
	local($status, $keyword, $message) = @_;

	
	print "Content-type: text/html", "\n";
	print "Status: ", $status, " ", $keyword, "\n\n";

	print <<End_of_Error;

	<title>CGI Program -- Unexpected Error</title>
	<H1>$keyword</H1>
	<HR>$message<HR>
	Please contact $webmaster for more information.

End_of_Error

	exit(1);
}