Mercurial > boosterpack
annotate perltest/simple-ajax-example.cgi @ 6:4246c7ef6487 boosterpack
[svn r8] bug fix -- holos need to be one int three compared to rares
| author | robert |
|---|---|
| date | Tue, 08 Sep 2009 17:20:52 -0400 |
| parents | 477258d09353 |
| children |
| rev | line source |
|---|---|
| robert@0 | 1 #!C:/strawberry/perl/bin/perl.exe |
| robert@0 | 2 use CGI; |
| robert@0 | 3 |
| robert@0 | 4 $query = new CGI; |
| robert@0 | 5 |
| robert@0 | 6 $secretword = $query->param('w'); |
| robert@0 | 7 $remotehost = $query->remote_host(); |
| robert@0 | 8 |
| robert@0 | 9 print $query->header; |
| robert@0 | 10 print "<p>The secret word is <b>$secretword</b> and your IP is <b>$remotehost</b>.</p>"; |