#!/usr/bin/perl # Database for DSL Request System # 10 Oct 1999 # Webmaster@wickedmind.com require '/home/httpd/cgi-bin/config.pl'; &AssignVariables; &DeleteTicket; &PrintDone; sub AssignVariables { $ticket = $FORM{'id'}; } sub DeleteTicket { open(FILE, "$datafile") || die "Can't append to $datafile\n"; flock(FILE, $lock); while() { chop; @all = split(/\n/); foreach $line (@all) { ($id, $info) = split(/=/, $line); $MIKIA{$id} = $info; } } flock(FILE, $unlock); close(FILE); delete($MIKIA{$ticket}); open(FILE, ">$datafile") || die "Can't append to $datafile\n"; flock(FILE, $lock); foreach $key (sort(keys %MIKIA)) { print FILE "$key = $MIKIA{$key}\n"; } flock(FILE, $unlock); close(FILE); } sub PrintDone { print "Content-type: text/html\n\n"; print "\n"; print "Deleted!\n"; print "\n"; print "

\n"; print "\n"; print "\n"; print "\n"; print "
\n"; print "
DELETED!
\n"; print "
\n"; print "
\n"; print "\n"; print "
\n"; print "

Customer $name has been removed from the database.

\n"; print "

Click here to go back\n"; print "

\n"; print "
\n"; print "
\n"; print "\n"; print "\n"; exit; }