#!/usr/local/bin/perl if ($ENV{'REQUEST_METHOD'} eq "GET") { $inputString = $ENV{'QUERY_STRING'}; } else { $inputString = ; } printTop(); $inputString =~ s/%(..)/pack("c",hex($1))/ge; $inputString =~ s/\+/ /g; @inputString = split(/\b\&\b/, $inputString); for($i=0; $i<=$#inputString; $i++) { ($name,$value) = split(/=/, $inputString[$i]); $selectedFoodItem{$name} = $value; } chomp $selectedFoodItem{'foodTitleOld'}; chomp $selectedFoodItem{'foodTitle'}; chomp $selectedFoodItem{'foodType'}; chomp $selectedFoodItem{'foodDescription'}; open(READ_FOOD_LIST, "foodItemDescription.dat"); @foodArray = ; close(READ_FOOD_LIST); $fileVar = ""; for ($i=0; $i <= $#foodArray; $i++) { if ($foodArray[$i] =~ /$selectedFoodItem{'foodTitleOld'}/) { $fileVar .= $selectedFoodItem{'foodTitle'} . "|"; $fileVar .= $selectedFoodItem{'foodType'} . "|"; $fileVar .= $selectedFoodItem{'foodDescription'} . "\n"; } else { $fileVar .= $foodArray[$i]; } } open(WRITE_FOOD_LIST, "> foodItemDescription.dat"); print WRITE_FOOD_LIST $fileVar; close(WRITE_FOOD_LIST); print "The entry for<\/I> \"" . $selectedFoodItem{'foodTitleOld'} . "<\/B>\" has been modified to following - <\/I>
"; print "Name:<\/B> " . $selectedFoodItem{'foodTitle'} . "
"; print "Type:<\/B> " . $selectedFoodItem{'foodType'} . "
"; print "Description:<\/B> " . $selectedFoodItem{'foodDescription'} . "
"; print "