#!/usr/bin/perl
# Database for DSL Request System
# 10 Oct 1999
# Webmaster@wickedmind.com
require '/home/httpd/cgi-bin/config.pl';
print "Content-type: text/html\n\n";
print "\n";
print "AdminView DSL Request Database\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "| Date | \n";
print "Time | \n";
print "Sales Id | \n";
print "customername | \n";
print "area | \n";
print "phone | \n";
print "address | \n";
print "address2 | \n";
print "city | \n";
print "state | \n";
print "zip | \n";
print "area2 | \n";
print "DSL phone | \n";
print "Telco | \n";
print "received | \n";
print "email | \n";
print "customer | \n";
print "username | \n";
print "advert | \n";
print "
\n";
open(DATA, "$datafile") || die "Can't open $datafile";
flock(DATA, $lock);
while() {
chop;
@all = split(/\n/);
foreach $line (@all) {
($ticket, $info) = split(/\;/, $line);
($date, $time, $salesid, $customername, $area, $phone1, $address, $address2, $city, $state, $zip, $area2, $phone2, $telco, $received, $email, $customer, $username, $advert) = split(/\|/, $info);
print "\n";
print "| $date | \n";
print "$time | \n";
print "$salesid | \n";
print "$customername | \n";
print "$area | \n";
print "$phone1 | \n";
print "$address | \n";
print "$address2 | \n";
print "$city | \n";
print "$state | \n";
print "$zip | \n";
print "$area2 | \n";
print "$phone2 | \n";
print "$telco | \n";
print "$received | \n";
print "$email | \n";
print "$customer | \n";
print "$username | \n";
print "$advert | \n";
print "$counter | \n";
print " | \n";
print "
\n";
}
}
flock(DATA, $unlock);
close(DATA);
print "
\n";
print "\n";
print "\n";
print "\n";
exit;