#!/usr/local/bin/perl 

require "cgi-lib.pl";
## require "cgi-utils.pl";
binmode STDIN;
&ReadParse(*input);

$remote_host=$ENV{'REMOTE_HOST'};
if ($remote_host =~/sdsc\.edu/) {
   print "Content-type: text/html\n\n";
##   print "<B>Status: 200 OK, You are from SDSC's domain.</B><BR><P>\n";
}
else {
   print "Content-type: text/html\n\n";
   print "<B>Status 400 Bad Request, You must be part of SDSC's domain.</B>\n";
   print "remote_host is $remote_host\n";
   exit(0);
}

########################### GLOBALS #################################

$webdir = "/misc/www/users/damartin/cgi-bin/temp/";
$topdir = "/projects/us/bio2/PWT/demo/";
$search_dir = "/projects/us/bio2/PWT/demo/src/sun/";
$pwt_dir = "/misc/www/users/damartin/PWT/";
$pwt_perl = "/misc/www/users/damartin/PWT/perl/";
#$direct = $topdir.$direct;
$info_file = $webdir."temp.info";
$search = $search_dir."search";
$result_file = $webdir."temp.out";
$seq_DB = $topdir."seq/gbrna.seq";
$ROC = $pwt_perl."ROC.pl";
$test = $webdir."test";
$stats = $webdir."stats";

#-------------------------------------------------------------
# Read info file for which files to process
#-------------------------------------------------------------

# for error checking
if ( !(-e $info_file) ) {
   print "sequence database file $info_file doesn't exist!\n";
   print "Bailing out..\n";
   exit(1);
}

open(INFILE1, "<$info_file") || die "Unable to open filename \"$!\".\n";
while($line=<INFILE1>) {
    @fields = split(' ',$line);
    if ($fields[0] eq "directory") { $direct=$fields[1]; }
    elsif ($fields[0] eq "file") { $filena=$fields[1]; }
}
close INFILE1;  

#-------------------------------------------------------------

$qry_file="$direct"."$filena";

#-------------------------------------------------------------
# Print out query file into text area 
#-------------------------------------------------------------

print "<HTML><TITLE>Sequence File Editor<\/TITLE><BODY>\n";
print "<CENTER><H2>Sequence File Editor<\/H2>\n";
print "<p>\n";
print "<TABLE BORDER=3 ALIGN=center CELLPADDING=3>\n";
print "<TD><b>Path/$qry_file<\/b><\/TD>\n";
print "<\/TABLE><\/CENTER>\n";
print "<p>\n";
print "<FORM METHOD=\"POST\" ACTION=\"qryfile_save.cgi\">\n";
print "<TABLE BORDER CELLPADDING=3 WIDTH=100%><TR>\n";
print "<TD WIDTH=550><TEXTAREA NAME=\"contents\" ROWS=30 COLS=85>\n";

## print "$qry_file\n";
## print "filename = $filena\n";
## print "directory = $direct\n";

open(FILE,$qry_file);
while($input=<FILE>) {
   print "$input";
}
close FILE;

print "<\/TEXTAREA><\/TD><\/TR><\/TABLE>\n";
print "<INPUT TYPE=\"hidden\" NAME=\"seqfile\" VALUE=\"Path/Filename\"><HR>\n";
print "<CENTER><TABLE CELLSPACING=4><TD WIDTH=10><\/TD>\n";
print "<TD> <INPUT TYPE=\"submit\" VALUE=\" Save \"> current sequence file <\/TD>\n";
print "<TD> <INPUT TYPE=\"reset\" VALUE=\" Reset \"> changes to default <\/TD>\n";
print "<\/TABLE><\/CENTER><\/FORM>\n";
print "<\/BODY>\n";
print "<\/HTML>\n";