# GuestBook.pm
#
# Header file for the routines to add data to and read it back from 
# the Web page Guest Book.
#
 
    require ("c:/Program Files/Sambar/cgi-bin/html.pm")
        || die ("Can't find header file\n");
 
# Some useful constants.
 
    # Format for pack ()
    $GuestEntryStruct     = "a30a30a30a30a30a30a256l";
           # Path to guest book file
    $GuestBookPath        = "c:/Program Files/Sambar/cgi-bin/ngbook.dat";
 
# Indexes of elements in the packed structure.
 
    $FirstName            = 0;
    $LastName             = 1;
    $City                 = 2;
    $State                = 3;
    $Country              = 4;
    $EMail                = 5;
    $Comments             = 6;
    $NumEntryTime         = 7;
    $NumElements          = 8;    # Number of elements in structure.
    $GuestEntrySize       = 440;  # All the sizes added up.
     
# Days of the week.
 
    @WeekDay = ("Sunday", "Monday", "Tuesday",
	            "Wednesday", "Thursday", "Friday",
                "Saturday");
 
# Months of the year.
 
    @Month = ("January", "February", "March", "April",
                 "May", "June", "July", "August",
                 "September", "October", "November", "December");
 
#                    End GuestBook.pm