#!/usr/local/bin/perl -w


###!/pkg/gnu/bin/perl

################################################################################
# by Aaron Averbuch (aha1@cs.wustl.edu)					       #
# Updated by Vincent Ferrandon (vf1@cs.wustl.edu)			       #
# for Multi-Agent Systems Group, Washington University			       #
# Under direction of Dr. Tuomas Sandholm (sandholm@cs.wustl.edu)	       #
#	                                                                       #
# Moved  to CMU and updated for CMU environment by Kate Larson                 #
# (klarson@cs.cmu.edu)                                                         #
# under direction of Dr. Tuomas Sandholm (sandholm@cs.cmu.edu)                 #
#								               #
# Collects data from Enter exchange information page and runs a JavaSript      #
# program parsing the data and sending them to the applet SafeComApplet.class. #
# The applet sends warning message in case of incoherent data, like 	       #
# "enter all data", "use numerical values only", "dependent items should not   #
# be uncountable", it then opens the input windows corresponding to the second #
# step of the process.							       #
################################################################################

require "cgi-lib.cgi";

################################################################################
# don't edit under here							       #
# trick to add more rows without parsing the data. Indeed the data are treated #	
# by an embedded client-side JavaScript program and not a CGI file, therefore  # 
# the input form is a full client-side application. This statment is called by #
# submit().								       #
################################################################################

if (&ReadParse(*input)) {
    &printEnterForm;
}
else {
    &printEnterForm;
}

################################################################################
# Print the input form, open the html-enter.eval file.			       #
################################################################################

sub printEnterForm {
    if ($input{'whoareyou'} eq "supplier") {
	$supChecked = "checked";
	$purchChecked = "";
    }
    elsif ($input{'whoareyou'} eq "purchaser") {
	$supChecked = "";
	$purchChecked = "checked";
    }

# print confirm

    print "Content-type: text/html\n\n";
    open (FILE, "<html-enter.eval");
    undef $/;
    $_ = <FILE>;
    close (FILE);
    s/\"/\\"/g; # escape quotes
    s/\@/\\@/g; # escape at signs
    print eval "\"$_\"";

   $num = $input{'numberOfItems'} + $input{'numberToAdd'};
   if ($num <= 0) {
      $num = 5;
       
# there is a minimum of 5 items on the screen -- this creates original screen correctly

   }
 
   for ($i = 1; $i <= $num; $i++){
      $itemName = "$input{$i.' itemName'}";
      $itemAmountName = "$input{$i.' itemAmountName'}";
      print "<tr>
             <td>$i.</td>
	     <td><input type=\"text\" name=\"$i ";
      print "itemName\" value=\"$itemName\" size=30 maxsize=60></td><td>
             <input type=\"text\" name=\"$i ";
      print "itemAmountName\" value=\"$itemAmountName\" size=30 maxsize=60></td>
             <td><input checked type=\"radio\" name=\"$i ";
      print "itemCU\" value=\"countable\">Countable&nbsp;
	     <input type=\"radio\" name=\"$i ";
      print "itemCU\" value=\"uncountable\">Uncountable&nbsp</td>
             </tr>";  
   }

################################################################################   
# The following button calls the submit() JavaScript function.		       #
################################################################################
   
   print "</table>
          <input type=\"hidden\" name=\"numberOfItems\" value=\"$num\">   
	  There are more items to add. Please add <input type=\"text\" name=\"numberToAdd\" value=\"0\">
	  more rows for items. <b><input type=\"button\" name=\"OK\"
	  value=\"OK\" onclick = \"if (document.EnterTransactions.numberToAdd.value != 0) {
	  submit();}\"></b><br><hr>";

#  print "<h2>Type of Items - <a HREF=\"http://siesta.cs.wustl.edu/~aha1/ecommerce/examples/whoareyou.html\">
   print "<h2>Type of Items - <a HREF=\"http://www.cs.cmu.edu/~klarson/SafeExchage/examples/whoareyou.html\">
 	  example</a>
	  </h2>	
	  <table BORDER=\"0\">
	  <tr>
		<td BGCOLOR=\"#CCCCFF\"><b>Items</b></td>
		<td BGCOLOR=\"#CCCCFF\"><b>Units</b></td>
    	  </tr>
	  <tr>
	  <td><input type=\"radio\" name=\"item\" value=\"dependent\">
	  Dependent&nbsp;
	  <input checked type=\"radio\" name=\"item\" value=\"independent\">
	  Independent&nbsp;
	  </td>
		
	  <td><input type=\"radio\" name=\"units\" value=\"dependent\">
	  Dependent&nbsp;
	  <input checked type=\"radio\" name=\"units\" value=\"independent\">
	  Independent&nbsp;
	  </td>
	  </tr>
	  </table>";
	  
################################################################################
# Optimization modes : payments, deliveries, number of steps, sum of deliveries#
# and payments. 							       #
################################################################################

#   print "<hr><h2>What do you want to minimize in the exchange - <a
#  	  HREF=\"http://siesta.cs.wustl.edu/~aha1/ecommerce/examples/whoareyou.html\">example</a></h2>";

   print "<hr><h2>What do you want to minimize in the exchange - <a
   	  HREF=\"http://www.cs.cmu.edu/~klarson/SafeExchage/examples/whoareyou.html\">example</a></h2>";
   print "<input checked type = \"radio\" name=\"minimize\" 
   	  value=\"steps\" onClick = \"document.SafeComApplet.setMinimize(document.EnterTransactions.minimize[0].value)\">
	  number of steps (a step may include both a payment and a delivery)&nbsp;<br>
   	  <input type = \"radio\" name=\"minimize\" value=\"deliveries\"
	  onClick = \"document.SafeComApplet.setMinimize(document.EnterTransactions.minimize[1].value)\">
	  number of deliveries&nbsp;<br>
	  <input type = \"radio\" name=\"minimize\" value=\"payments\"
	  onClick = \"document.SafeComApplet.setMinimize(document.EnterTransactions.minimize[2].value)\">
	  number of payments&nbsp;<br>
	  <input type = \"radio\" name=\"minimize\" value=\"sum\"
	  onClick = \"document.SafeComApplet.setMinimize(document.EnterTransactions.minimize[3].value)\">
	  sum of deliveries and payments&nbsp;<br>";
	  	  
################################################################################	  
# The button Submit calls the JavaScript function entertrans() that parses the #
# data and sends them to the applet.					       #
################################################################################
 	
   print  "<hr><font face=\"arial\" size=\"5\"><p><b><input type=\"button\" value=\"Submit\"
   	  onclick=\"entertrans()\"></b></font>
   	  <b><input type=\"button\" value=\"Reset\" onClick=\"document.SafeComApplet.destroy();
	   						       document.SafeComApplet.resetLabel();
							       setValueToZero();\"></p></b>";		
	  	  
################################################################################	  
# Applet SafeComAppletN.class, named as SafeComApplet.			       #
################################################################################
   
#    print  "<table><tr><td BGCOLOR=\"#CCCCFF\"><b>Applet Status Information</b></td></tr></table><br>";	 
#   print  "<applet name=\"SafeComApplet\" code=SafeComApplet.class
#   	  codebase=\"http://www.cs.wustl.edu/~vf1/VINCENT/SafeCom/APPLET\" height=25 width=330>\n"; 
#   
#    print  "</applet>";
#    print  "</form>";	 

    print  "<table><tr><td BGCOLOR=\"#CCCCFF\"><b>Applet Status Information</b></td></tr></table><br>";	 
   print  "<applet name=\"SafeComApplet\" code=SafeComApplet.class
   	  codebase=\"http://www.cs.cmu.edu/~klarson/SafeExchage/APPLET\" height=25 width=330>\n"; 
   
    print  "</applet>";
    print  "</form>";	 
 
	  	  
################################################################################	  
# Beginning of JavaScript program : scrolls to anchor "target".		       #
################################################################################
	  
   print  "<script language=\"JavaScript\">";
   print  "if (document.EnterTransactions.numberOfItems.value > 5) {\n";
   print  "	window.scrollTo(document.anchors[0].x, document.anchors[0].y);\n";
   print  "}\n";
   
################################################################################	  
# JavaScript program : function entertrans().		       		       #
################################################################################   
     
   
   print  "var d = document.EnterTransactions;\n";
   print  "var num = d.numberOfItems.value;\n";
   print  "var price;\n";
   print  "var supDefAmount;\n";
   print  "var demDefAmount;\n";
   print  "var qty = new Array(20);\n";
   print  "var ItemName	= new Array(20);\n";
   print  "var intGraph	= new Array(20);\n";
   print  "var x;\n";
   print  "var item;\n";
   print  "var units;\n";
   print  "var minimize;\n";
   
   print  "function entertrans() {\n";
   print  "price = d.contractPrice.value;\n";
   print  "if (d.whoareyou[0].checked) {\n";
   print  "	supDefAmount = d.yourDefAmount.value;\n";
   print  "	demDefAmount = d.partnerDefAmount.value;\n";
   print  "}\n";
   print  "else if (d.whoareyou[1].checked) {\n";
   print  "	supDefAmount = d.partnerDefAmount.value;\n";
   print  "	demDefAmount = d.yourDefAmount.value;\n";
   print  "}\n";
   print  "if (d.item[0].checked) {\n";
   print  "	item = d.item[0].value;\n";
   print  "}\n";
   print  "else if (d.item[1].checked) {\n";
   print  "	item = d.item[1].value;\n";
   print  "}\n";
   print  "if (d.units[0].checked) {\n";
   print  "	units = d.units[0].value;\n";
   print  "}\n";
   print  "else if (d.units[1].checked) {\n";
   print  "	units = d.units[1].value;\n";
   print  "}\n";
   print  "x = 1;\n";	
   print  "for(var i = 0; i < num; i++) {\n";
   print  "	qty[i] = d.elements[8+x+1].value;\n";
   print  "	ItemName[i] = d.elements[8+x].value;\n";
   print  "	if (d.elements[8+x+2].checked) {\n";
   print  "		intGraph[i] = \"true\";\n";
   print  "	}\n";
   print  "	else if (d.elements[8+x+3].checked) {\n";
   print  "		intGraph[i] = \"false\";\n";
   print  "	}\n";
   print  "	x += 4;\n";
   print  "}\n";
   print  "if (d.minimize[0].checked) {\n";
   print  "	minimize = d.minimize[0].value;\n";
   print  "}\n";
   print  "if (d.minimize[1].checked) {\n";
   print  "	minimize = d.minimize[1].value;\n";
   print  "}\n";
   print  "if (d.minimize[2].checked) {\n";
   print  "	minimize = d.minimize[2].value;\n";
   print  "}\n";
   print  "if (d.minimize[3].checked) {\n";
   print  "	minimize = d.minimize[3].value;\n";
   print  "}\n";
   print  "document.SafeComApplet.loadData(num, price, item, units, supDefAmount, demDefAmount, minimize);\n";
   print  "for(var i = 0; i < num; i++) {\n";
   print  "	document.SafeComApplet.loadDataArray(qty[i], ItemName[i], intGraph[i], i);\n";
   print  "}\n";
   print  "document.SafeComApplet.openGraphInterface();\n";
   print  "}\n";
   
   print  "function setValueToZero() {\n";
   print  "d.contractPrice.value = \"\";\n";
   print  "d.yourDefAmount.value = \"\";\n";
   print  "d.partnerDefAmount.value = \"\";\n";
   print  "d.item[1].checked = true;\n";
   print  "d.units[1].checked = true;\n";
   print  "d.numberToAdd.value = 0;\n";
   print  "x = 1;\n";	
   print  "for(var i = 0; i < num; i++) {\n";
   print  "	d.elements[8+x+1].value = \"\";\n";
   print  "	d.elements[8+x].value = \"\";\n";
   print  "	d.elements[8+x+2].checked = true;\n";
   print  "	x += 4;\n";
   print  "}\n";
   print  "}\n";
   print  "</script>";
   print  "</body>";
   print  "</html>";
}

###############################END OF PROGRAM###################################