#!/usr/local/bin/perl

if ($ENV{'REQUEST_METHOD'} eq "GET")
{
 $inputString = $ENV{'QUERY_STRING'};
}
else
{
 $inputString = <STDIN>;
}

printTop();

$inputString =~ s/%(..)/pack("c",hex($1))/ge;
$inputString =~ s/\+/ /g;
@inputString = split(/\&/, $inputString);

chomp @inputString;

@selectedFoodItem = ();
@selectedBFItem = ();

for($i=0; $i<=$#inputString; $i++)
{
 ($name,$value) = split(/=/, $inputString[$i]);
  if ($name eq "selectedMeal")
  {
   @selectedFoodItem = (@selectedFoodItem, $value);
  }
  elsif($name eq "selectedBF")
  {
   @selectedBFItem = (@selectedBFItem, $value);  
  }
}

open(READ_FOOD_LIST, "foodItemDescription.dat");
@foodArray = <READ_FOOD_LIST>;
close(READ_FOOD_LIST);

chomp @foodArray;

#****************** Create Meal Menu File Var (Begin)******************
$fileVarAppetizer = "";
$fileVarBread = "";
$fileVarEntree = "";
$fileVarDessert = "";
$fileVar = "";

for($j=0; $j<=$#selectedFoodItem; $j++)
{
 
 for ($k=0; $k <= $#foodArray; $k++)
 {
  
  if ($foodArray[$k] =~ /$selectedFoodItem[$j]/)
  {
   
   if ($foodArray[$k] =~ /Appetizer/)
   {
    ($foodName,$foodType,$foodDescription) = split(/\|/, $foodArray[$k]);
    $fileVarAppetizer .= "<B>" . $foodName . "<\/B>";
    $fileVarAppetizer .= "<BR>";
    $fileVarAppetizer .= "<I>" . $foodDescription . "<\/I>";
    $fileVarAppetizer .= "<BR>";
   }
   
   if ($foodArray[$k] =~ /Bread/)
   {
    ($foodName,$foodType,$foodDescription) = split(/\|/, $foodArray[$k]);
    $fileVarBread .= "<B>" . $foodName . "<\/B>";
    $fileVarBread .= "<BR>";
    $fileVarBread .= "<I>" . $foodDescription . "<\/I>";
    $fileVarBread .= "<BR>";
   }
   
   if ($foodArray[$k] =~ /Entree/)
   {
    ($foodName,$foodType,$foodDescription) = split(/\|/, $foodArray[$k]);
    $fileVarEntree .= "<B>" . $foodName . "<\/B>";
    $fileVarEntree .= "<BR>";
    $fileVarEntree .= "<I>" . $foodDescription . "<\/I>";
    $fileVarEntree .= "<BR>";
   }
   
   if ($foodArray[$k] =~ /Breakfast/)
   {
    ($foodName,$foodType,$foodDescription) = split(/\|/, $foodArray[$k]);
    $fileVarEntree .= "<B>" . $foodName . "<\/B>";
    $fileVarEntree .= "<BR>";
    $fileVarEntree .= "<I>" . $foodDescription . "<\/I>";
    $fileVarEntree .= "<BR>";
   }
   
   if ($foodArray[$k] =~ /Dessert/)
   {
    ($foodName,$foodType,$foodDescription) = split(/\|/, $foodArray[$k]);
    $fileVarDessert .= "<B>" . $foodName . "<\/B>";
    $fileVarDessert .= "<BR>";
    $fileVarDessert .= "<I>" . $foodDescription . "<\/I>";
    $fileVarDessert .= "<BR>";
   }
  }
 } 
}


$fileVar .= "<B><U>APPETIZER<\/U><\/B><BR>";
$fileVar .= $fileVarAppetizer;
$fileVar .= "<HR><B><U>BREAD<\/U><\/B><BR>";
$fileVar .= $fileVarBread;
$fileVar .= "<HR><B><U>ENTREE<\/U><\/B><BR>";
$fileVar .= $fileVarEntree;
$fileVar .= "<HR><B><U>DESSERT<\/U><\/B><BR>";
$fileVar .= $fileVarDessert;

if (($fileVarAppetizer eq "") && ($fileVarBread eq "") && ($fileVarEntree eq "") && ($fileVarDessert eq ""))
{
 $fileVar = "Our menu today is a Typical Gujarati.";
}

#****************** Create Meal Menu File Var (End)******************

#****************** Create Breakfast Menu File Var (Begin)******************

$fileVarBFBreakfast = "";
$fileVarBFSweet = "";
$fileVarBF = "";
$orFlag = "0";

for($j=0; $j<=$#selectedBFItem; $j++)
{
 
 for ($k=0; $k <= $#foodArray; $k++)
 {
  
  if ($foodArray[$k] =~ /$selectedBFItem[$j]/)
  {
   
   if ($foodArray[$k] =~ /Breakfast/)
   {
    ($foodName,$foodType,$foodDescription) = split(/\|/, $foodArray[$k]);
	if ($orFlag ne "0")
	{
	 $fileVarBFBreakfast .= "<B>" . "\&nbsp\;\&nbsp\;- OR -" . "<\/B><BR>";
	}
	$orFlag = "1";
    $fileVarBFBreakfast .= "<B>" . $foodName . "<\/B>";
    $fileVarBFBreakfast .= "<BR>";
    $fileVarBFBreakfast .= "<I>" . $foodDescription . "<\/I>";
    $fileVarBFBreakfast .= "<BR>";
   }
   
   if ($foodArray[$k] =~ /Dessert/)
   {
    ($foodName,$foodType,$foodDescription) = split(/\|/, $foodArray[$k]);
    $fileVarBFSweet .= "<B>" . $foodName . "<\/B>";
    $fileVarBFSweet .= "<BR>";
    $fileVarBFSweet .= "<I>" . $foodDescription . "<\/I>";
    $fileVarBFSweet .= "<BR>";
   }
  }
 } 
}


$fileVarBF .= "<B><U>BREAKFAST<\/U><\/B><BR>";
$fileVarBF .= $fileVarBFBreakfast;
$fileVarBF .= "<HR><B><U>SWEET<\/U><\/B><BR>";
$fileVarBF .= $fileVarBFSweet;
$fileVarBF .= "<HR><B><U>BEVERAGE<\/U><\/B><BR><B>Indian Chai (Tea)<\/B><BR><B>\&nbsp\;\&nbsp\;- OR -<\/B><BR><B>Madras Coffee<\/B><BR>";

if (($fileVarBFBreakfast eq "") && ($fileVarBFSweet eq ""))
{
 $fileVarBF = "Please refer to <a href=\"\#Lunch\">the Daily Lunch Menu<\/a>";
}

#****************** Create Breakfast Menu File Var (End)******************

open(InputFile,"< restaurant.template");
#open(OutFile,"> ../myRestaurant.htm");
open(OutFile,"> /usr/tmp/restaurant.htm");

$ReturnString = "";
foreach(<InputFile>)
{
 if ($_ =~ "TOBECHANGED")
 {
  $newMenu = "<td width=\"627\">" .$fileVar."</td>";
  print OutFile $newMenu;
  $ReturnString .= $newMenu;
  next;
 }
 elsif ($_ =~ "BREAKFASTHERE")
 {
  $newMenuBF = "<td width=\"635\">" .$fileVarBF."</td>";
  print OutFile $newMenuBF;
  $ReturnString .= $newMenuBF;
  next;
 }
 
 $ReturnString .= $_;
 print OutFile $_;
}
close (OutFile);
close (InputFile);

#********************
#------------------- print the daily meal menu -------------------
open(OutPrintFile,"> ../admin/printMenu.html");
print OutPrintFile <<PRINTFILETOP;
<html>
<head>
	<title>deedee's - Today's Menu</title>
</head>

<body>
PRINTFILETOP

print OutPrintFile "<H2>Today's Menu<\/H2><BR><HR>";
print OutPrintFile $fileVar;
print OutPrintFile "<HR>";

print OutPrintFile <<PRINTFILEBOTTOM;
</body>
</html>
PRINTFILEBOTTOM

close(OutPrintFile);
#********************

#********************
#------------------- print the daily breakfast menu -------------------
open(OutPrintBFFile,"> ../admin/printBFMenu.html");
print OutPrintBFFile <<PRINTBFFILETOP;
<html>
<head>
	<title>deedee's - Today's Breakfast Menu</title>
</head>

<body>
PRINTBFFILETOP

print OutPrintBFFile "<H2>Today's Breakfast Menu<\/H2><BR><HR>";
print OutPrintBFFile $fileVarBF;
print OutPrintBFFile "<HR>";

print OutPrintBFFile <<PRINTBFFILEBOTTOM;
</body>
</html>
PRINTBFFILEBOTTOM

close(OutPrintBFFile);
#********************
   
print "<h1>Thank You For Filling Out This Form</h1>";
print "Below is preview of your new restaurant section page. <br>";
print "Click <B>\"Launch\"<\/B> button to display the printable page of <i><b>Today's Menu<\/b><\/i><br>";
print "<div align=\"center\">";
print "<a href=\"\/admin\/printMenu\.html\" target=\"_blank\" name=\"printWin\"><img alt=\"Back\" src=\"\/images\/launch\.gif\" border=\"0\"><\/a>";
print "<a href=\"\/admin\/\"><img alt=\"Back\" src=\"\/images\/back\.gif\" border=\"0\"><\/a>";
print "<\/div>";

printBottom();

print "<BR>\&nbsp\;<BR>";
print "<HR><HR>";
print "$ReturnString";

printEnd();

#=================================================


sub printTop
{
 print <<ENDTOP;
 Content-Type: text/html\n\n
 
<html>
<head>
<title>deedee's Admin Pages</title>
</head>

<body bgcolor="#FFFFFF" text="#000000" link="#FFFFFF" vlink="#FFFFFF" alink="#FFFF00">
<form method="post" action="">


<table cellpadding="0" cellspacing="0" border=0" width="600" align="center">
	   <tr>
	   	   <td width="200" bgColor="990000" align="center" valign="middle">
		   	   <strong><font color="#ffffff" size="10"><i><b>deedee's</b></i></font></strong><br>
			   <strong><font face="verdana" color="#ffffff" size="4"><b>ADMIN PAGES</b></font></strong>
		   </td>
		   <td width="400" bgColor="000000" align="center" valign="middle">
		   	   <strong><font color="#ffffff" size="1" face="verdana"><b>
			    <a href="/admin/index.html">HOME</a> 
				| 
				<a href="/admin/mealIndex.html">FOOD ITEM</a> 
				| 
				<a href="/admin/printIndex.html">PRINT</a> 
				| 
				<a href="/cgi-bin/menuUpdate1.pl">UPDATE MENU</a>
				| 
				<a href="/cgi-bin/brunchUpdate1.pl">UPDATE BRUNCH</a>
			   </b></font></strong>
		   </td>
	   </tr>
	   <tr>
	   	   <td width="600" colspan="2" bgColor="ffffff" align="center" valign="middle">
		   	   <strong><font color="#ffffff" size="5" face="verdana"><b>&nbsp;</b></font></strong>
		   </td>
	   </tr>
	   <tr>
	   	   <td width="600" colspan="2" bgColor="3300cc" align="center" valign="middle">
		   	   <strong><font color="#ffffff" size="5" face="verdana"><b>Add Food Item</b></font></strong>
		   </td>
	   </tr>
	   
	   <tr>
	   	   <td width="600" bgColor="6699ff" colspan="2" align="center">

<!-- ---------- inner table starts ---------- -->
              &nbsp;<br>
			  <table cellpadding="0" cellspacing="0" border="0">

			  <tr>
			  	  <td valign="top">
				  	  &nbsp;<br>
 
ENDTOP
  
}


#======================================================

sub printBottom
{

  print <<ENDBOTTOM;

					  &nbsp;<br>
				  </td>
			  </tr>

              </table>
          	  <br>&nbsp;
<!-- ---------- inner table ends ---------- -->
			  
		   </td>
	   </tr>
</table>


ENDBOTTOM

}

sub printEnd
{

print "<\/form>";
print "<\/body>";
print "<\/html>";

}