$Title

#!/usr/bin/perl use DBI; $reqmethod = $ENV{'REQUEST_METHOD'}; $RemoteAddr = $ENV{'REMOTE_ADDR'}; $DeviceType = $ENV{'HTTP_USER_AGENT'}; if ( ${reqmethod} eq 'POST' ) { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); @pairs = split(/&/, $buffer); } else { @pairs = split(/&/, $ENV{'QUERY_STRING'}); } foreach $pair (@pairs) { local($name, $value) = split(/=/, $pair); $name =~ tr/+/ /; $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ s///g; chomp(${value}); $Form{$name} = "$value"; } $Domain = "dma.magster.org"; $ThisScriptURL = "http://$Domain/dma_absence_form.pl"; $HomeDIR = "/home4/magstero/public_html/dma"; $TEACHERtable = "dma_teachers"; $Title = "DMA Student Absence Form"; my $dbh = DBI->connect("DBI:mysql:magstero_dma",'magstero_dma','Dm@202O!'); @Months = ( 'January', 'February', 'March', 'April', 'May', 'June', 'July', 'August', 'September', 'October', 'November', 'December', ); $CurrMonth = `TZ='America/New_York' date '+%B'`; chomp($CurrMonth); $CurrDay = `TZ='America/New_York' date '+%e'`; chomp($CurrDay); $CurrYear = `TZ='America/New_York' date '+%Y'`; chomp($CurrYear); $NextYear = $CurrYear+1; my $sth = $dbh->prepare("SELECT `title`,`firstname`,`lastname`,`grade`,`email` FROM $TEACHERtable ORDER BY `listorder`"); $sth->execute(); while (my $ref = $sth->fetchrow_hashref()) { $TTitle = $ref->{'title'}; $TFirstname = $ref->{'firstname'}; $TLastname = $ref->{'lastname'}; $TeacherFullName = "$TTitle $TFirstname $TLastname"; push(@Teachers,"$TeacherFullName"); $TGrade = $ref->{'grade'}; $TeacherGrade{$TeacherFullName} = $TGrade; $TEmail = $ref->{'email'}; $TeacherEmail{$TeacherFullName} = $TEmail; } $sth->finish(); $Option = $Form{'option'}; (($Option eq '') && (&Main())) || &$Option(); exit; sub Main { print < $Title

DMA Student Absence Form

Please enter ALL of the following information

Student Name (First & Last):
Parent/Guardian Name (First & Last):
Parent/Guardian E-Mail Address:
First Date of Absence:		endofprint # FIRST DATE OF ABSENCE print "\n"; print "\n"; print "\n"; print <
Must be consecutive days; Same as First Date of Absence if single day
Last Date of Absence:		endofprint # LAST DATE OF ABSENCE print "\n"; print "\n"; print "\n"; print <
Reason for Absence:
Request homework to be sent home?:		Yes No
Homework can only be requested for absences of 2 or more consecutive days
Homeroom Teacher:		endofprint print "\n"; print <

endofprint } sub Main2 { $CustName = $Form{'f_custname'}; $CarColor = $Form{'f_carcolor'}; $CarType = $Form{'f_cartype'}; foreach $z (@FoodOrder) { $zlc = lc($z); $numName = "f_num_" . "$zlc"; $priceName = "f_price_" . "$zlc"; $OrderedNum{$z} = $Form{$numName}; $OrderedPrice{$z} = $Form{$priceName}; } $TotalItems = $Form{'f_total_items'}; $TotalPrice = $Form{'f_total_price'}; $OrderInDay = `TZ='America/New_York' date '+%Y-%m-%d'`; chomp($OrderInDay); $OrderInTime = `TZ='America/New_York' date '+%H:%M:%S'`; chomp($OrderInTime); my $random_number1 = int(rand(1000)); my $random_number2 = int(rand(1000)); my $RecordKey = "${random_number1}_${random_number2}"; my $dbh = DBI->connect("DBI:mysql:magstero_sbfestival:localhost", "magstero_sbfest","SBmda2009"); my $insertstatement = "INSERT INTO $BBtable (custname,carcolor,cartype,total_items,total_price,order_in_day,order_in_time,recordkey) VALUES (?,?,?,?,?,?,?,?)"; my $sth = $dbh->prepare($insertstatement); $sth->execute($CustName,$CarColor,$CarType,$TotalItems,$TotalPrice,$OrderInDay,$OrderInTime,$RecordKey); foreach $z (@FoodOrder) { $updatestatement = "UPDATE $BBtable SET `num_$z`=?,`price_$z`=? WHERE `recordkey`='$RecordKey'"; $sth = $dbh->prepare($updatestatement); $sth->execute($OrderedNum{$z},$OrderedPrice{$z}); } my $sth = $dbh->prepare("SELECT `rownum`,`order_in_day`,`order_in_time` FROM $BBtable WHERE `recordkey`='$RecordKey'"); $sth->execute(); while (my $ref = $sth->fetchrow_hashref()) { $Rownum = $ref->{'rownum'}; $OrderInDay = $ref->{'order_in_day'}; $OrderInTime = $ref->{'order_in_time'}; } $sth->finish(); $dbh->disconnect(); ########################################################## # CREATE PRINTABLE RECEIPT ########################################################## $ReceiptName = "$ReceiptDir/bborder_${Rownum}.html"; $OrderSubmitted = "$OrderInDay $OrderInTime"; open(RN,">$ReceiptName"); print RN < $Title

Order Submitted:		$OrderSubmitted
Order #:		$Rownum
Customer Name:		$CustName
Vehicle:		$CarColor $CarType

endofprint foreach $z (@FoodOrder) { if ($OrderedNum{$z} > 0) { (($OrderedNum{$z}>1) && ($FoodItemName="$PluralFoodName{$z}")) || ($FoodItemName="$SingularFoodName{$z}"); print RN < endofprint } } print RN <

$OrderedNum{$z}	$FoodItemName	\$	$OrderedPrice{$z}

$TotalItems	TOTAL ITEMS	\$	$TotalPrice

Thank You For Supporting
Christ The Divine Shepherd Parish
$Year Burger Bash

endofprint close(RN); ########################################################## ########################################################## # PRINT SUMMARY PAGE ########################################################## $OnlineReceiptName = "$ReceiptDir/bborder_${Rownum}-online.html"; $OnlineReceiptURL = "$ReceiptURL/bborder_${Rownum}-online.html"; open(ORN,">$OnlineReceiptName"); print ORN < $Title

Christ the Divine Shepherd
$Title

TOTAL AMOUNT DUE: \$$TotalPrice

ORDER SUBMITTED

Order #:		$Rownum
Customer Name:		$CustName
Vehicle:		$CarColor $CarType

$OrderedNum{$z}	$FoodItemName	\$	$OrderedPrice{$z}

$TotalItems	TOTAL ITEMS	\$	$TotalPrice

START NEW ORDER

endofprint close(ORN); print "Location: $OnlineReceiptURL\n\n"; } $dbh->disconnect();