#!/usr/local/bin/perl -w
# dummy script to honeypot Spammers

use strict;
use CGI;
my $foo=new CGI;
print $foo->header();
print "\n";
my $file="../upload/crack/fake/$$"."_".time().".txt";
Dump_CGI_Info($file);
sleep(5);
# takes current form and environment values
# and dumps htem to a file

sub Dump_CGI_Info {
    $file = shift;

    if ( !open( FH, '>>', $file ) ) { print "couldn't open $file\n"; return; }

    my $cgi = new CGI;
    my $key;

    foreach $key ( sort keys %ENV ) {
        my $spaces = ' ' x ( 30 - length($key) );
        print FH "$key $spaces $ENV{$key}\n";
    }
    print FH "\n\n";
    no strict;
    $cgi->save(FH);
    use strict;
}