Home Blood

127.0.0.1 - - [05/Apr/2004:23:24:42 -0400] "GET /cgi-bin/homeblood.pl?datedata=04%2F01%2F04&eaten=no&timedata=8%3A30&shift=am&readdata=110 HTTP/1.1" 200 0 125 "-" "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.5) Gecko/20031007" ##
##

#!/usr/bin/perl

require "subparseform.lib";

&Parse_Form;


print "\n\nHome Blood\n\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "Date: \n    AE: no  yes 
\n";
print "Time: \n    am  pm 
\n";
print "Read:  \n";
print "

";


#  ROUTINE TO MOVE INPUT FILE 'BLOODSUGAR.DAT' TO ARRAY WORKFILE

 
open (workfile, ";                                   # moving input file reads to the array 'workfile'
close(workfile);                                          # closing file

print "Check 1: Last index for workfile: $#workfile
";
if ($#workfile = -1)
  {
    print "\ \ \ \ INPUT file is not present
"; 
  }

#  END MOVE ROUTINE


#  DEFINE SCRIPT VARIABLES

$datecomp = $formdata{'datedata'};
$count = 0;
$founddex = "no";
$fountarraydex = 0;
$am_or_pm = $formdata{'shift'};
$looptrip = 1;

print "Check 2: shift is ' $am_or_pm '
";

# END OF SCRIPT VARIABLE DEFINITION



# LOOP TO CHECK FOR EXSISTING RECORD

if ($#workfile = -1)
  {
    print "Loop check is skipped because of no input file
"
  }
else
  {
    foreach $listing (@workfile)
      {
        ($arraydate, $morntime, $mornread, $morneaten, $noontime, $noonread, $nooneaten) = split(/-/, $listing);
        print "Array Date is: $arraydate
";
        if ($arraydate eq $datecomp)
          { 
             print "Check 3: (date compare) $arraydate vs $datecomp
";
             if ($am_or_pm eq "am")
               {
                 $morntime  = $formdata{'$timedata'};
                 $mornread  = $formdata{'$readdata'};
                 $morneaten = $formdata{'$eaten'};
               }
             else
               {
                 $noontime  = $formdata{'$timedata'};
                 $noonread  = $formdata{'$readdata'};
                 $nooneaten = $formdata{'eaten'};
               }
             $foundarraydex = $count;
             $founddex = "yes";
             $count = $count + 1;

             $amendedrecord = $arraydate."-".$morntime."-".$morneaten."-".$noontime."-".$noonread."-".$nooneaten;
             print "Amended Record: $amendedrecord
";
             $workfile[$foundarraydex] = $amendedrecord;
          }
         print "Loop Cycled
";
       }
     print "No Matching Record
";
  }


# END LOOP

# ROUTINE FOR NEW RECORD


print "New Record Routine
Founddex = $founddex
"


if ($founddex eq "no")
  {
    if ($am_or_pm eq "am")
      {
        $morntime  = $formdata{'$timedata'};
        $mornread  = $formdata{'$readdata'};
        $morneaten = $formdata{'$eaten'};
        $noontime  = "N/A";
        $noonread  = "N/A";
        $nooneaten = "N/A";
      }
    else
      {
        $noontime  = $formdata{'$timedata'};
        $noonread  = $formdata{'$readdata'};
        $nooneaten = $formdata{'eaten'};
        $morntime  = "N/A";
        $mornread  = "N/A";
        $morneaten = "N/A";
      }
    $appendedrecord = $arraydate."-".$morntime."-".$mornread."-".$morneaten."-".$noontime."-".$noonread."-".$nooneaten;
    $newdex = $#workfile;
    ++$newdex;
    $workfile[$newdex] = $appendedrecord;
    print "new record check
";
  }

#open (extfile, ">>bloodsugar.dat");

#@workfile = sort{$b comp $a}(@workfile);

#foreach $outputrec (@workfile)
#  {
#  print extfile "$outputrec/n";
#  }

# END NEW RECORD ROUTINE




# DISPLAY LOOP FOR ARRAY'S ENTIRES


#foreach $listing (@workfile)
#{
#($morndate, $morntime, $mornread, $morneaten, $noontime, $noonread, $nooneaten) = split(/-/, $listing);
#print "$morndate $morntime a.m. $mornread | $noonread $noontime p.m.
";
#}




# END LOOP




# BEGIN ROUTINE TO PRINT STATIC PORTION OF WEB PAGE

print "\n   \n";

print "\n";
print "\n";

print "\n";
print "\n";
print "\n";
print "\n";

# END ROUTINE