#!/usr/bin/perl
print "Content-type:text/html\n\n";
&chugCGI(*input);
$page = $input{"page"};
if($page eq ""){
$page = 0;
}
if(length($page) == 1) { $page = "0".$page; }
$prevpage = $page - 1;
$nextpage = $page + 1;
if($page == 0){
$blurb = <<__EOQ__;
__EOQ__
}
if($prevpage >= 0){
$prevpagelink = <<__EOQ__;
previous
__EOQ__
} else {
$prevpagelink = "";
}
if($nextpage <= 15){
$nextpagelink = <<__EOQ__;
next
__EOQ__
$nexturl="?page=$nextpage";
} else {
if($nextpage == 16){
$nextpagelink = <<__EOQ__;
back to start
__EOQ__
$nexturl = "?page=0";
} else {
$nextpagelink = "";
}
}
$img = "yl".$page."_small.jpg";
print<<__EOQ__;
Yee & Lan
|
|
$prevpagelink
|
|
$nextpagelink
|
$blurb
__EOQ__
sub chugCGI { local (*in) = @_ if @_; local ($i, $key, $val);
if($ENV{'REQUEST_METHOD'}eq"POST") { read(STDIN,$in,$ENV{'CONTENT_LENGTH'});
}else {$in = $ENV{'QUERY_STRING'};} @in = split(/&/,$in);
foreach $i (0 .. $#in) { $in[$i] =~ s/\+/ /g;
($key, $val) = split(/=/,$in[$i],2);$key =~ s/%(..)/pack("c",hex($1))/ge;
$val =~ s/%(..)/pack("c",hex($1))/ge; $in{$key}.= $val;}return length($in);}