#!/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 "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\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 "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; } } flock(DATA, $unlock); close(DATA); print "
DateTimeSales Idcustomernameareaphoneaddressaddress2citystateziparea2DSL phoneTelcoreceivedemailcustomerusernameadvert
$date$time$salesid$customername$area$phone1$address$address2$city$state$zip$area2$phone2$telco$received$email$customer$username$advert$counter
\n"; print "
\n"; print "\n"; print "\n"; exit;