#!/usr/bin/perl -T

# Copyleft 1997 Jason Costomiris (whois:JC1011).
# Rights?  You had rights?  When I was a kid......

require 5.003;
use strict;

use CGI;

my ($i, $j, $k);

my @abc = ('a'..'z');
my @tld = ('com', 'net', 'org', 'mil', 'gov', 'hey-dork', 'spam-sucks');

my $fodder = new CGI;
print $fodder->header;
print $fodder->start_html(-title=>'Spam fodder',
			  -BGCOLOR=>'#FFFFFF');

print "<a href=\"mailto:abuse\?subject=I am a spamming luser\">abuse</a><BR>\n";
srand;
my $number = int(rand(500));
for ($i = 0 ; $i <= $number ; $i++) {
	my $name = "";
	my $domain = "";
	my $num_name = int(rand(8));
	for ($j = 0 ; $j <= $num_name ; $j++) {
		$name .= $abc[int(rand($#abc))];
	}
	my $num_domain = int(rand(10));
	for ($k = 0 ; $k <= $num_domain ; $k++){
		$domain .= $abc[int(rand($#abc))];
	}
	my $tld = $tld[int(rand($#tld))];
	my $address = $name . '@' . $domain . '.' . $tld;
	print "<a href=\"mailto:$address\?subject=I am a spamming luser\">$address</a><BR>\n";
}

#
# Now that we've given lots of bad addresses to them, let's put them in an
# endless loop
#

print "\n<P>\n<a href=\"$ENV{SCRIPT_NAME}\">endless loop of these pages for spam-spiders.  Yay.</a>\n";
print $fodder->end_html;