#!/usr/bin/perl -w
#My groovy name generator allows submission to name files
use CGI::Thin; #CGI scripting module
print <<"EOF";
Content-type: text/html\n\n
Name Generator
Dave's Groovy Name Generator
EOF
%p = Parse_CGI; #Place all CGI objects in %p
%files = (
snames => 'snames',
bnames => 'bnames',
gnames => 'gnames',
);
%actions = (
'Submit Surname' => {
file => 'snames',
parameter => 'newsname'
},
'Submit Male Name' => {
file => 'bnames',
parameter => 'newbname',
},
'Submit Female Name' => {
file => 'gnames',
parameter => 'newgname',
},
);
if ($p{action} eq 'Generate Name') {
$p{barrel} ||= 1;
die if $p{barrel} > 100;
$fnfile = $files{$p{sex} eq "m" ? "bnames" : "gnames"};
$snfile = $files{snames};
open(FNAMES, $fnfile) or die "Can't open Ffile '$fnfile': $!\n";
while (chomp($line=)) {push @flist, $line}
close FNAMES;
open(SNAMES, $snfile) or die "Can't open Sfile '$snfile': $!\n";
while (chomp($line=)) {push @slist, $line}
close SNAMES;
$name="$flist[rand(@flist)]".' '."$slist[rand(@slist)]"; #Build name with first and second
for ($i=$p{barrel}; $i>1; $i--) {addname($name)}
print "$name
\n";
sub addname{$name=$_[0].'-'."$slist[rand(@slist)]"} #Stick on new barrel
} else {
exit unless exists $actions{$p{action}};
$action = $p{action};
$file = $actions{$action}{file};
$parameter = $actions{$action}{parameter};
open(FILE, "<$file");
%lines = map { chomp; $_ => 1 } ; #Assign list to a hash for existance check
close FILE;
if ((scalar keys %lines)>200) { #More than 200 keys (hash keys addessed in scalar context)
print "Too many names in file.";
exit;
}
if (exists $lines{$p{$parameter}}) { #If name already exists
print "This name is already in the list.";
exit;
}
if ($p{$parameter} =~ /^([a-z]+)$/i) { #Composed entirely of letters
open(NAMES, ">>$file") or die "Can't open file '$file': $!";
print NAMES "$p{$parameter}\n";
close NAMES;
print "Name $p{$parameter} has been added.";
} else {
print 'Bad Name.';
}
}
print "\n\n"