#!/perl/bin/perl
####################################################################
### This database interface was created by Nason Tackett 2005 ###
### nason@nason.com ###
####################################################################
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/~!/ ~!/g;
$value =~ s/"/\"/g;
$value =~ s/'/\'/g;
$FORM{$name} = $value;
}
print "Content-type:text/html\n\n";
if ($FORM{'user'} && $FORM{'mfg'} && $FORM{'year'}) {
$year = $FORM{'year'};
$mfg = $FORM{'mfg'};
$user = $FORM{'user'};
$mfg =~ tr/a-z/A-Z/;
$user =~ tr/a-z/A-Z/;
$mfg =~ s/\s//;
$user =~ s/\s//;
use lib "/www/cgi-bin/DBD-XBase-0.230/lib";
use XBase;
my $table = new XBase 'scsasld.dbf' or die XBase->errstr;
my $table2 = new XBase 'scleddtl.dbf' or die XBase->errstr;
print "Looking for $mfg products that $user sold in $year...
\n";
$num = 0;
$numb = 0;
$nkey = 0;
$recn = 0;
for (0 .. $table->last_record) {
my @values = $table->get_record($nkey, "SAL_MFG", "SAL_MODEL", "SAL_SOLDPR", "SAL_SOLDQT", "SAL_SOLDRE", "SAL_SOLDDA");
$dyear = substr($values[6], 0,4);
if ($values[1] eq $mfg && $dyear eq $year && $values[5] ne "No Sale") {
$bleh = $values[5];
$MFG{$numb} = $values[1];
$DATES{$numb} = $values[6];
$MODEL{$numb} = $values[2];
$PRICE{$numb} = $values[3];
$QT{$numb} = $values[4];
$LINE{$numb} = $values[5];
$numb++;
}
$nkey++;
}
print "All $mfg items sold in $year: $numb
\n";
print "\n";
print "| Date | User | MFG | Model | Qty | Sold Price | Receipt Number |
\n";
for (0 .. $table2->last_record) {
my @values2 = $table2->get_record($recn, "DTL_LANID", "DTL_REF", "DTL_SDATE");
$dyear = substr($values2[3], 0,4);
if ($dyear eq $year) {
$USER{$values2[2]} = $values2[1];
}
$recn++;
}
for (0 .. $numb) {
$refid = $LINE{$num};
if ($USER{$refid} eq $user) {
print "| $DATES{$num} | $USER{$refid} | $MFG{$num} | $MODEL{$num} | $QT{$num} | $PRICE{$num} | $refid |
\n";
$itemssold++;
$sales = $sales + ($PRICE{$num} * $QT{$num});
}
$num++;
}
print "
\n";
print "Items Sold: $itemssold
\n";
print "Total Sales: $sales
\n";
} else {
print <
Sales Report