#!/usr/bin/perl
opendir (TN, "gallerydatabase");
rewinddir (TN);
@tnlist = grep(!/^\.\.?$/, readdir (TN));
closedir (TN);
foreach (@tnlist) {
open(DATA, "<gallerydatabase/$_");
@stuff = <DATA>;
close(DATA);
@info = split(/\|/, $stuff[0]);
if ($info[1] =~ /$topbucksaccountnumber/) {
unlink("gallerydatabase/$_");
}
}
print "Content-type: text/html\n\n";
print "Bullshit Ended";
exit;
