#!/usr/bin/perl
#
# Copyright 1997,1998 GIZMOsoft Software -- all rights reserved.
#
local (@Orders,$OrderCount);
local ($LocationRedirectionSupport,$SubdirectorySupport,$OrderDirectoryPath);
local ($ParsedHeaderSupport,$PostCallToCCProc);
$LocationRedirectionSupport = 1;
# $SubdirectorySupport = 1;
$ParsedHeaderSupport = 1;
$OrderDirectoryPath = 'orderdir/';
$NotificationEmail = '';
$ReturnAddr = 'robot@unknown.com';
$MailHost = '$$MailHost$$';
$OrgName = 'Horizon Herbs, LLC';
$CurrencySymbol = '$';
$BaseCatalogURL = '';
$PostCallToCCProc = 0;
$ProcessorURL = '';
$Extension = '.ord';
$ParmMap="";
$ParmTypeMap="";
$ParmSourceMap="";
$NotificationMessage = 'You can view the new order at http://www.chatlink.com/~herbseed/orders.html';
$FileName = "gizorder.ord";
$Error = 0;
$TempDataDir = $OrderDirectoryPath;
$TempDataDir =~ s/\\/\//g;
$TempDataDir =~ s/\/\//\//g;
$TempDataDir = substr($TempDataDir,0,length($TempDataDir)-1) if (substr($TempDataDir,length($TempDataDir)-1) eq "/");
$ThisDir = "";
$DirLastSlash = rindex($TempDataDir,"/");
if ($DirLastSlash > -1) {
$ThisDir = substr($OrderDirectoryPath,0,$DirLastSlash+1);
};
%data_received = &User_Data;
&No_SSI(*data_received);
&GetCookieArray();
sub SendEmailUnix {
local ($EmailAddr,$OrderNumber,$Message) = @_;
open(MAIL,"|/usr/lib/sendmail -t") || print &GetTextHeader(1,"Cannot find email program /usr/lib/sendmail");
print MAIL "To: $EmailAddr\n";
print MAIL "From: $ReturnAddr\n";
print MAIL "Subject: New order $OrderNumber\n";
print MAIL "$Message\n\n";
return close(MAIL);
};
sub SendEmailWin {
local ($EmailAddr,$OrderNumber,$Message) = @_;
$Settings = "$MailHost\n$ReturnAddr\n$OranizationName\n\n\n\n";
open (MAIL, "|gizmail $NotificationEmail -M$MailHost -f$ReturnAddr -o$OrgName \"-sOrder $OrderNumber\"") || die "Cannot mail via -M$MailHost, check your settings";
print MAIL $Message;
close (MAIL);
};
sub SendEmail {
local ($EmailAddr,$OrderNumber,$Message) = @_;
if ( (1 || length($MailHost)) && length($EmailAddr) > 0) {
&SendEmailUnix($EmailAddr,$OrderNumber,$Message);
} else {
&SendEmailWin($EmailAddr,$OrderNumber,$Message);
};
};
sub GetTextHeader {
local ($NowError,$Instr) = @_;
local ($Outstr);
$Error = 1 if ($NowError);
$Outstr = "";
$Outstr .= "HTTP/1.0 200 OK\n" if (!$ParsedHeaderSupport);
$Outstr .= "Content-type: text/html\n\n";
$Outstr .= $Instr;
return $Outstr;
}
sub DeleteCookieText {
local ($CookieName) = @_;
local ($OutTxt);
if ($LocationRedirectionSupport) {
$OutTxt = "Set-Cookie: $CookieName=NULL; path=/; expires=Monday, 01-Jan-95 00:00:01\n";
} else {
$OutTxt = "\n\n";
};
return $OutTxt;
};
sub SetCookieText {
local ($CookieName,$CookieValue) = @_;
local ($OutTxt);
$OutTxt = "\n\n";
return $OutTxt;
};
sub GetCookieArray {
local ($Total,$SubTotal);
local($ThisFile);
if (!defined($data_received{'OrderNumber'})) {
opendir(ORDERS,$OrderDirectoryPath) || print &GetTextHeader(1,"Cannot open directory $OrderDirectoryPath for reading.");
@RawOrders = readdir(ORDERS);
close (ORDERS);
foreach $RawOrder (@RawOrders) {
$StartIndex = index($RawOrder,'.ord');
if ($StartIndex > 0 && $StartIndex == (length($RawOrder) - 4) ) {
push (@Orders,$RawOrder);
};
};
$OrderCount = @Orders;
@Orders = reverse(sort(@Orders));
};
if ($data_received{'TrxType'} eq 'A') {
&ListAllOrders();
};
if ($data_received{'TrxType'} eq 'F') {
if ($OrderCount == 0) {
print &GetTextHeader(0,'');
print '';
print "";
print "Sorry, no new orders
";
print "";
} else {
&DisplayOrder($Orders[0]);
};
};
if ($data_received{'TrxType'} eq 'D') {
&DeleteOrder();
};
if (!defined($data_received{'TrxType'}) && defined($data_received{'TrxOrderData'})) {
&AddOrder();
};
if ($data_received{'TrxType'} eq 'S') {
$ThisFile = $data_received{'OrderNumber'} . '.ord';
&DisplayOrder($ThisFile);
};
}
sub AddOrder {
local(%Temp,$OutStr);
$GizFieldData = $data_received{'OrderData0'};;
$GizFieldData .= $data_received{'OrderData1'};;
$GizFieldData .= $data_received{'OrderData2'};;
$GizFieldData .= $data_received{'OrderData3'};;
$GizFieldData .= $data_received{'OrderData4'};;
$GizFieldData .= $data_received{'OrderData5'};;
$GizFieldData .= $data_received{'OrderData6'};;
$GizFieldData .= $data_received{'OrderData7'};;
$GizFieldData .= $data_received{'OrderData8'};;
$GizFieldData .= $data_received{'OrderData9'};;
$GizFieldData .= $data_received{'OrderData10'};;
$GizFieldData .= $data_received{'OrderData11'};;
$GizFieldData .= $data_received{'OrderData12'};;
$GizFieldData .= $data_received{'OrderData13'};;
$GizFieldData .= $data_received{'OrderData14'};;
$GizFieldData .= $data_received{'OrderData15'};;
$GizFieldData .= $data_received{'OrderData16'};;
$GizFieldData .= $data_received{'OrderData17'};;
$GizFieldData .= $data_received{'OrderData18'};;
$GizFieldData .= $data_received{'OrderData19'};;
$data_received{'TrxOrderData'} .= $GizFieldData;
$data_received{'TrxOrderNumber'} = &LaunderValue($data_received{'TrxOrderNumber'});
$ThisFile = $data_received{'TrxOrderNumber'} . $Extension;
++$data_received{'TrxOrderNumber'} if (-e(ThisFile));
$ThisFile = $data_received{'TrxOrderNumber'} . $Extension;
$ThisFile = $OrderDirectoryPath . $ThisFile;
open(ORDER,"+>$ThisFile") || print &GetTextHeader(1,"Cannot open $ThisFile for writing.");
print ORDER $GizFieldData;
close (ORDER);
$OutStr = "";
if (0) {
if ($PostCallToCCProc) { # Calls to Processor requiring METHOD=POST
&GetNextURL();
$OutStr .= $Ack;
} else { # Faster call to processor with METHOD=GET
$OutStr .= &GetNextURL();
};
} else { # No call to online processor
$LocationRedirectionSupport = 0;
$OutStr = &GetTextHeader(0,'');
$OutStr .= 'Horizon Herbs, LLC - Thank you'."\n";
$OutStr .= "\n";
$OutStr .= &DeleteCookieText('GizField');
$OutStr .= &DeleteCookieText('GizItemOrders');
$OutStr .= 'Horizon Herbs, LLC
'."\n";
$OutStr .= "Thank you!
\n";
$OutStr .= "Your order has been processed
\n";
$OutStr .= "Order Number $data_received{'TrxOrderNumber'}\n";
$OutStr .= "
\n";
$OutStr .= 'Your order will be confirmed via e-mail. '."\n";
$OutStr .= "\n";
};
if (!$Error) {
print $OutStr;
} else {
print "There is a problem writing the order! Inform the ";
print "webmaster that the order directory does not exist, ";
print "has the wrong permissions, or the Order Data Directory ";
print "is not correctly set in WebGIZMO.";
print "