#!/usr/bin/perl
use CGI;

$cgi = new CGI;
print $cgi->header;

print "Random names<hr>\n<p align=center>\n";

$v = $cgi->param('vowels') || 'a,ae,ai,e,ea,ee,ei,eu,i,o,oo,ou,u';
$c = $cgi->param('consonants') || 'b,c,d,f,g,h,j,k,l,m,n,p,ph,q,r,s,sh,st,t,th,v,w,x,y,z';
$syl = $cgi->param('sylables') || 'vc,cv,cvc,v';
$max = 8;
$maxs = 4;
$mins = 0.1;

@v = split ',', $v;
@c = split ',', $c;
@syl = split ',', $syl;

for ($i = 0; $i <$max; $i++)
{ $sylables = $mins + rand($maxs-$mins);
#  $sylables = 2;
  $word = '';
  for ($s = 0; $s < $sylables; $s++)
  { $syl1 = @syl[rand(@syl)];
    for ($l = 0; $l < length ($syl1); $l++)
    { if (substr ($syl1, $l, 1) eq 'v')
      { @cset = @v; }
      else
      { @cset = @c; }
      $word .= @cset[rand(@cset)];
    }
    $word .= '-';
  }
  $word = ucfirst $word;
  $word =~ s/-$//g;
  print "$word<br align=center>\n";
}
print '</p>';

print <<FORM
<form method="get" action="strangenames.cgi">
  sylables<select name="sylables">
    <option value="$syl">$syl</option>
    <option value="">default</option>
    <option value="cv">'french'</option>
    <option value="cv,v,vc">'elvish'</option>
    <option value="cvc">'orkish'</option>
    <option value="">default</option>
  </select>
<br>consonants<select name="consonants">
    <option value="$c">$c</option>
    <option value="b,c,d,f,g,h,j,k,l,m,n,p,ph,q,r,s,sh,st,t,th,v,w,x,y,z">all</option>
    <option value="f,h,j,l,m,n,ph,q,r,s,sh,th,w,y">soft</option>
    <option value="b,d,g,j,k,p,q,st,t,v,w,x,z">hard</option>
  </select>
<br>vowels<select name="vowels">
    <option value="$v">$v</option>
    <option value="a,ae,ai,e,ea,ee,ei,eu,i,o,oo,ou,u">all</option>
    <option value="a,e,i,o,u">basic</option>
    <option value="ae,ai,ea,ee,ei,eu,u">fancy</option>
  </select>
<br><input type="submit" value="more strange names">
</form>
FORM
;