#!/usr/local/bin/perl
use CGI;
$cgi = new CGI();
if ($cgi->user_agent(Mac)) { &mac }

else { &other }


sub mac {
  print $cgi->redirect('http://www.seelo.com/GR/D6/d6.hqx');
}

sub other {
    print $cgi->header;
    print $cgi->start_html(
			   -title=>'Seelo\'s Sooper Amazing d6 Roller',
			   -xbase=>'http://www.seelo.com/GR/D6/',
			   -BGCOLOR=>white
			   );
    print <<END;
<h1>It's Seelo's Sooper Amazing d6 roller script!</h1>
<BLOCKQUOTE>
This is written in  Applescript. Since you're not using a Macintosh to read
this you probably won't have much use for it. But if you have access to a Mac you
can save the file on the other end of the following URL as a text document and 
use Stuffit or any other Binhex translator to turn it into a nice applescript
for you.
<center><h1><a href="d6.hqx">d6.hqx</a></h1></center>
If you don't have a Mac you can still look at the pretty BinHex gobledygook and
perhaps gain insight into the meaning of the Universe. (I'm told it's in there.)
<p>

</BLOCKQUOTE>
END
print $cgi->end_html;
}
sub oops {
    print $cgi->header();
    print $cgi->start_html(-BGCOLOR=>'white');
    print <<END;
<H1>Ooops!</H1>
<blockqoute>
There's no there there. Please send mail to <a href="mailto:seelo\@slip.net">
seelo\@slip.net</a> and tell me that there is something is broken with
<br><b>Seelo's Sooper Amazing Dice Roller.</b>
</blockquote>
END
    print $cgi->end_html;
    exit;
}