#!/usr/bin/perl
require "cgi-lib.pl";
# Sonnet Selection

MAIN:
{

$aa = "title";

&ReadParse(*input);

($num = $input{'number'}) =~ tr/0-9//cd;

if ( ( ($num > 154) || ($num < 1) ) && ($input{'number'} !~ /[tTdD]/) ) {

print "Content-type: text/html\n\n";

print <<'END';
<HTML><HEAD><TITLE>Sonnet Selection Invalid</TITLE></HEAD>

<BODY BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#FF0000" 
VLINK="#CC00FF" ALINK="#009900">

<CENTER>

<IMG SRC="../aa/amacony.gif" ALT="[ Cherubim, Conies, & Central Ama ]" 
WIDTH="469" HEIGHT="129" BORDER="0">
<P>

<FONT SIZE="+2">S</FONT>HAKE<FONT SIZE="+2">-</FONT>SPEARES 
&nbsp;<FONT SIZE="+2">S</FONT>ONNETS<FONT SIZE="+2">.</FONT><P>

<FONT SIZE="+1">The value
END

print " \"$input{'number'}\" ";

print <<'END';
is not within the range 1 to 154.</FONT>
<BR>
Use "T" for the Titlepage and "D" for the Dedication.

<P><BR>

<FORM METHOD="POST" ACTION 
="http://fly.hiwaay.net:8000/~paul/cgi/sonnet.cgi">

<INPUT TYPE="submit" VALUE="Sonnet">

<INPUT TYPE="text" NAME="number" SIZE="3">

</FORM>

<P><BR>

<A HREF="../contents.html"><IMG SRC="../contents.gif" ALT="[ Contents 
]" HEIGHT="39" WIDTH="129" BORDER="0"></A>

</CENTER></BODY></HTML>

END

exit 1;
}

($num == 0) && ($aa="dedication");
($num == 1) && ($aa="B");
($num == 2) && ($aa="B");
($num == 3) && ($aa="Bv");
($num == 4) && ($aa="Bv");
($num == 5) && ($aa="Bv");
($num == 6) && ($aa="B2");
($num == 7) && ($aa="B2");
($num == 8) && ($aa="B2v");
($num == 9) && ($aa="B2v");
($num == 10) && ($aa="B3");
($num == 11) && ($aa="B3");
($num == 12) && ($aa="B3");
($num == 13) && ($aa="B3v");
($num == 14) && ($aa="B3v");
($num == 15) && ($aa="B4");
($num == 16) && ($aa="B4");
($num == 17) && ($aa="B4");
($num == 18) && ($aa="B4v");
($num == 19) && ($aa="B4v");
($num == 20) && ($aa="C");
($num == 21) && ($aa="C");
($num == 22) && ($aa="Cv");
($num == 23) && ($aa="Cv");
($num == 24) && ($aa="Cv");
($num == 25) && ($aa="C2");
($num == 26) && ($aa="C2");
($num == 27) && ($aa="C2v");
($num == 28) && ($aa="C2v");
($num == 29) && ($aa="C2v");
($num == 30) && ($aa="C3");
($num == 31) && ($aa="C3");
($num == 32) && ($aa="C3v");
($num == 33) && ($aa="C3v");
($num == 34) && ($aa="C4");
($num == 35) && ($aa="C4");
($num == 36) && ($aa="C4");
($num == 37) && ($aa="C4v");
($num == 38) && ($aa="C4v");
($num == 39) && ($aa="D");
($num == 40) && ($aa="D");
($num == 41) && ($aa="D");
($num == 42) && ($aa="Dv");
($num == 43) && ($aa="Dv");
($num == 44) && ($aa="D2");
($num == 45) && ($aa="D2");
($num == 46) && ($aa="D2v");
($num == 47) && ($aa="D2v");
($num == 48) && ($aa="D2v");
($num == 49) && ($aa="D3");
($num == 50) && ($aa="D3");
($num == 51) && ($aa="D3v");
($num == 52) && ($aa="D3v");
($num == 53) && ($aa="D3v");
($num == 54) && ($aa="D4");
($num == 55) && ($aa="D4");
($num == 56) && ($aa="D4v");
($num == 57) && ($aa="D4v");
($num == 58) && ($aa="E");
($num == 59) && ($aa="E");
($num == 60) && ($aa="E");
($num == 61) && ($aa="Ev");
($num == 62) && ($aa="Ev");
($num == 63) && ($aa="E2");
($num == 64) && ($aa="E2");
($num == 65) && ($aa="E2");
($num == 66) && ($aa="E2v");
($num == 67) && ($aa="E2v");
($num == 68) && ($aa="E3");
($num == 69) && ($aa="E3");
($num == 70) && ($aa="E3v");
($num == 71) && ($aa="E3v");
($num == 72) && ($aa="E3v");
($num == 73) && ($aa="E4");
($num == 74) && ($aa="E4");
($num == 75) && ($aa="E4v");
($num == 76) && ($aa="E4v");
($num == 77) && ($aa="E4v");
($num == 78) && ($aa="F");
($num == 79) && ($aa="F");
($num == 80) && ($aa="Fv");
($num == 81) && ($aa="Fv");
($num == 82) && ($aa="F2");
($num == 83) && ($aa="F2");
($num == 84) && ($aa="F2");
($num == 85) && ($aa="F2v");
($num == 86) && ($aa="F2v");
($num == 87) && ($aa="F3");
($num == 88) && ($aa="F3");
($num == 89) && ($aa="F3");
($num == 90) && ($aa="F3v");
($num == 91) && ($aa="F3v");
($num == 92) && ($aa="F4");
($num == 93) && ($aa="F4");
($num == 94) && ($aa="F4v");
($num == 95) && ($aa="F4v");
($num == 96) && ($aa="F4v");
($num == 97) && ($aa="G");
($num == 98) && ($aa="G");
($num == 99) && ($aa="Gv");
($num == 100) && ($aa="Gv");
($num == 101) && ($aa="Gv");
($num == 102) && ($aa="G2");
($num == 103) && ($aa="G2");
($num == 104) && ($aa="G2v");
($num == 105) && ($aa="G2v");
($num == 106) && ($aa="G3");
($num == 107) && ($aa="G3");
($num == 108) && ($aa="G3");
($num == 109) && ($aa="G3v");
($num == 110) && ($aa="G3v");
($num == 111) && ($aa="G4");
($num == 112) && ($aa="G4");
($num == 113) && ($aa="G4");
($num == 114) && ($aa="G4v");
($num == 115) && ($aa="G4v");
($num == 116) && ($aa="H");
($num == 117) && ($aa="H");
($num == 118) && ($aa="Hv");
($num == 119) && ($aa="Hv");
($num == 120) && ($aa="Hv");
($num == 121) && ($aa="H2");
($num == 122) && ($aa="H2");
($num == 123) && ($aa="H2v");
($num == 124) && ($aa="H2v");
($num == 125) && ($aa="H2v");
($num == 126) && ($aa="H3");
($num == 127) && ($aa="H3");
($num == 128) && ($aa="H3v");
($num == 129) && ($aa="H3v");
($num == 130) && ($aa="H4");
($num == 131) && ($aa="H4");
($num == 132) && ($aa="H4");
($num == 133) && ($aa="H4v");
($num == 134) && ($aa="H4v");
($num == 135) && ($aa="I");
($num == 136) && ($aa="I");
($num == 137) && ($aa="I");
($num == 138) && ($aa="Iv");
($num == 139) && ($aa="Iv");
($num == 140) && ($aa="I2");
($num == 141) && ($aa="I2");
($num == 142) && ($aa="I2v");
($num == 143) && ($aa="I2v");
($num == 144) && ($aa="I2v");
($num == 145) && ($aa="I3");
($num == 146) && ($aa="I3");
($num == 147) && ($aa="I3v");
($num == 148) && ($aa="I3v");
($num == 149) && ($aa="I3v");
($num == 150) && ($aa="I4");
($num == 151) && ($aa="I4");
($num == 152) && ($aa="I4v");
($num == 153) && ($aa="I4v");
($num == 154) && ($aa="K");

($input{'number'} =~ /[dD]/) && ($aa="dedication");

($input{'number'} =~ /[tT]/) && ($aa="title");

print "Location: http://fly.hiwaay.net/~paul/shakespeare/sonnets/$aa.html\n\n";

exit 1;

}