#!/usr/local/bin/perl print "Content-type: text/html\n\n"; #### Let the browser know you'll be sending HTML stuff $in = ; @commands = split(/&/, $in); foreach $item (@commands){ ($key1, $lock) = split(/=/, $item); $lock =~ tr/+/ /; $lock =~ s/%(..)/chr(hex($1))/ge; $lock =~ s/\"/\\\"/g; $key{$key1} = $lock;} #### get & process form input print qq! Deleting messages !; #### send beginning of HTML @list = sort(keys(%key)); #### sort the commands $key{function} = ""; foreach $item (@list) { if ($key{$item} =~ /delete/) { unlink("Msg_Open/$item"); } } #### go through the the commands and if the key= "delete" then delete the item print qq!

The selected messages have been deleted.
Return to Message Board

!; #### end the HTML and end