#!/usr/bin/perl
use POSIX;
print "Content-type: text/html\n\n";
print "A list of all my best friends email addresses!\n";
#Include whatever other page fluff you want here.
open (DICT, "/usr/dict/words") or die "Canna open zee dictionary file!\n";
open (DOM, "/home/httpd/cgi-lib/dominia") or die "Canna open zee domain file!\n";
#dominia is just a list of (evil)domains, one per line.
while ()
{
chomp;
push @domlist, $_;
$domcount++;
}
for(0..255)
{
do {
$randloc=floor(rand(409070));
#This is the size of my dictionary. Adjust as needed.
seek DICT, $randloc,0;
$discard = ;
$in = ; chomp $in;
}
while ((length $in)>5);
push @first, $in;
do {
$randloc=floor(rand(409070));
seek DICT, $randloc,0;
$discard = ;
$in = ; chomp $in;
}
while ((length $in)>7);
push @last, $in;
}
print "
";
for (0..255)
{
$domseek = floor(rand($domcount));
print "