#!/util/bin/perl


###########################################################################
use CGI qw/:standard :html3 param/;;

use CGI::Carp qw(fatalsToBrowser carpout);

BEGIN{
    print "Content-type: text/html\n\n";
    open(STDERR, ">&STDOUT");
    $| = 1;                        
    print '';
}


#########################
#Beginning of Javascript
#########################
#$JSCRIPT=<<JSEND;
#	if (navigator.appVersion.indexOf("PPC") != -1 || navigator.appVersion.indexOf("68K") != -1 || navigator.appVersion.indexOf("Mac")!= -1) 
#	{
#		document.write("<LINK REL=\'STYLESHEET\' TYPE=\'text/css\' HREF=\'http://www.genome.wi.mit.edu/MPR/mprStyleMac.css\'>");
#	}
#   else
#	{
#		document.write("<LINK REL=\'STYLESHEET\' TYPE=\'text/css\' HREF=\'http://www.genome.wi.mit.edu/MPR/mprStyle.css\'>");
#   }	       
#   function moveover(txt)
#   {
#   	window.status = txt;
#   }
#
#JSEND
#
#;
#End of Javascript
############################################################################
#NEW CGI OBJECT
my $query = new CGI;


#PRINT HEADER
print $query->header;
print $query->start_html(
	-title=>'Add to the Cancer Genomics Online Library');
#	-script=>$JSCRIPT);

#PRINT TITLE
&print_title;

#PRINT FORM
print "<h2>Cancer Genomics Online Library Addition Form</h2>\n";
if ($query->param('Action') eq 'Submit') 
{
   	# we have some data
   print "<h2>Entry Results</h2>\n";

   	# check data
   if (&check_entry($query) == 0) 
	{
		&print_success($query);
		&make_entry($query);
   }
   else 
	{
		print "<HR><H2>Errors Found</H2>\n";
		print "<P>Please correct the errors above on the form below.\n";
		&print_form($query);
   }
}
else 
{
    &print_intro;
    &print_form($query);
}

&print_tail;
print $query->end_html;

#End of Program
#################################################################################

sub print_title 
{
   print "<table valign=top>\n";
	print "<tr><td valign=top width=150><br>menubar will go here.</td>\n";
	print "<td valign=top align=left width=600><br>\n";

}

sub print_intro 
{
	print"<p>Welcome to Cancer Genomics Online Library Addition Form.\n";
	print"<p> Please fill in all relevant information.\n";
}

sub print_form 
{
    my($query) = @_;
	my $width = 50;
       
    print $query->start_multipart_form;

    print "<h3><font color = red>Your Information</font></h3><p>";
    print "<table>\n";
    	print "<tr><td><B>Your Name:</B></td><td>";
   		print $query->textfield(
				    -name=>'yourname',
				    -size=>$width);
		print "<td></tr>\n";

    	print "<tr><td><B>Your E-mail Address:</B></td><td>";
	    print $query->textfield(
				    -name=>'youremail',
				    -size=>$width);
    	print "<td></tr>\n";

	   print "<tr><td><B>Your Daytime Phone:&nbsp&nbsp&nbsp</B></td><td>";
    	print $query->textfield(
				    -name=>'yourphone',
				    -size=>15);
		print "<td></tr>\n";
	print"</table>\n";

	print "<h3><font color = red>Entry Information</font></h3><p>";
	print "<table>\n";
    	print "<tr><td><B>Publication Title:</B></td><td>";
   	print $query->textfield(
				    -name=>'pubtitle',
				    -size=>$width);
		print "<td></tr>\n";

    	print "<tr><td><B>Publication Author:</B></td><td>";
	   print $query->textfield(
				    -name=>'pubauthor',
				    -size=>$width);
    	print "<td></tr>\n";

		print "<tr><td><B>Date of Publication:</B></td><td>";
    	print $query->textfield(
				    -name=>'pubdate',
				    -size=>$width);
		print "<td></tr>\n";

		print "<tr><td><B>Journal of Publication:</B></td><td>";
    	print $query->textfield(
				    -name=>'pubjournal',
				    -size=>$width);
		print "<td></tr>\n";

	   print "<tr><td><B>Online URL:</B></td><td>";
    	print $query->textfield(
				    -name=>'puburl',
				    -size=>$width);
		print "<td></tr>\n";

		print "<tr><td><B>Category:</B></td><td>";
		print $query->popup_menu(
						  -name=>'pubcategory',
                    -values=>['Choose a Category','Genetics','Mice','DNA', 'None of the above'],
                    -default=>'None',
                    -labels=>\%labels);
		print "<td></tr>\n";
		
		print "<tr><td><B>Relevant Keywords:</B></td><td>";
		print $query->textfield(-name=>'pubkey1',-size=>(($width/4)-1));
		print "&nbsp&nbsp";
		print $query->textfield(-name=>'pubkey2',-size=>(($width/4)-1));
		print "&nbsp&nbsp";
		print $query->textfield(-name=>'pubkey3',-size=>(($width/4)-1));
		print "&nbsp&nbsp";
		print $query->textfield(-name=>'pubkey4',-size=>(($width/4)-2));
		print "<td></tr>\n";
		
		print "<tr><td><B>Additional Comments:</B></td><td>";
		print $query->textarea(
		              -name=>'pubcomments',
                    -default=>'Add additional comments here.',
                    -rows=>2,
                    -columns=>($width-2));
		print "<td></tr>\n";

		print "<tr><td><B>Upload a copy: </B></td><td>";
		print $query->filefield(
					     -name=>'pubupload',
                    -default=>'',
                    -size=>($width-14),
                    -maxlength=>100);
      print "<td></tr>\n";
	print" </table>\n";

   print $query->submit('Action','Submit');
	print "&nbsp\n";
   print $query->reset;
   print $query->endform;
}

sub subscribe_to_list 
{
    my($query) = @_;

}

sub print_success 
{

	print <<EOM;

	<p> 
	Your addition to the Cancer Genomics Online Library has been successfully submitted.
	<p>Any Online Library Questions should go to &nbsp
	<a href="mailto:tamayo\@genome.wi.mit.edu"><tt>tamayo\@genome.wi.mit.edu</tt></a>.
	<p>Any questions regarding the web site should go to &nbsp
	<a href="mailto:zhao\@mit.edu"><tt>zhao\@mit.edu</tt></a>.
	<p>
	<a href="http://waldo.wi.mit.edu/MPR/" target="_top">Back to Cancer Genomics Home</a>

EOM

}

sub check_entry {
   my($query) = @_;
   my($bad);
	
	$bad = 0;
	
	if ($query->param('yourname') !~ /\S+/) 
	{
		$bad = 1;
		print "<p><b>Error</b>: Your Name field is blank\n";
	}
	if ($query->param('youremail') !~ /\S+/) 
	{
		$bad = 1;
		print "<p><b>Error</b>: E-mail field is blank\n";
	}
	if ($query->param('youremail') !~ /\@/) 
	{
		$bad = 1;
		print "<p><b>Error</b>: E-mail field doesn't have \@ sign.\n";
	}
	if ($query->param('pubtitle') !~ /\S+/) 
	{
			$bad = 1;
			print "<p><b>Error</b>: Publication Title field is blank.\n";
	}
	if ($query->param('pubauthor') !~ /\S+/) 
	{
			$bad = 1;
			print "<p><b>Error</b>: Publication Author field is blank.\n";
	}
	#if ($query->param('phone') !~ /\S+/) {
	#	$bad = 1;
	#	print "<p><b>Error</b>: Phone field is blank\n";
	#}
	
   $bad;    # return whether or not entry is good
	

}

sub make_entry 
{
	my($query) = @_;
}

sub print_tail 
{
	print <<END;

		</td></tr></table>
		<table>
		<tr><td valign=top align=left width=750>

		<hr>
		<font size=-2 face="ARIAL,GENEVA,HELVETICA,SANS-SERIF">
		Dacheng Zhao
		<br>
		Last Edited:
		<script language="JavaScript">
		  <!--  hide script from old browsers
		    lastmod = document.lastModified     
		    document.write(lastmod)
		  // end hiding contents -->
		</script>
		<br>Contact the Webmaster at
		<i><a href="mailto:zhao\@mit.edu">zhao\@mit.edu</a></i> with questions or comments 
		</font>

		</td></tr></table>
		
END
}