rlm@29: #!/usr/bin/perl rlm@29: rlm@29: rlm@29: use List::Util qw(first max maxstr min minstr reduce shuffle sum); rlm@29: use Storable; rlm@29: use CGI::Ajax; rlm@29: use CGI; rlm@29: rlm@29: rlm@29: rlm@29: my $q = new CGI; rlm@29: rlm@29: rlm@29: rlm@29: my %hash = ( rlm@29: rlm@29: 'material' => \&material, rlm@29: 'pokedex' => \&pokedex, rlm@29: 'template' => \&template, rlm@29: 'inputbox' => \&inputbox, rlm@29: 'display' => \&display, rlm@29: 'change_rules' => \&change_rules, rlm@29: 'vanish' => \&vanish rlm@29: ); rlm@29: rlm@29: rlm@29: rlm@29: my $pjx = CGI::Ajax->new(%hash); rlm@29: #$pjx->JSDEBUG(1); rlm@29: #$pjx->DEBUG(1); rlm@29: rlm@29: print $pjx->build_html($q,\&gen,{-Cache_Control => 'no-store, no-cache, must-revalidate', -Pragma => 'no-cache'}); # this outputs the html for the page rlm@29: rlm@29: rlm@29: rlm@29: rlm@29: rlm@29: rlm@29: rlm@29: rlm@29: rlm@29: rlm@29: rlm@29: rlm@29: rlm@29: rlm@29: rlm@29: rlm@29: rlm@29: rlm@29: rlm@29: sub gen rlm@29: { rlm@29: rlm@29: $a = < rlm@29: rlm@29: rlm@29: rlm@29: rlm@29: rlm@29: rlm@29: rlm@29: rlm@29: rlm@29: rlm@29: rlm@29: rlm@29: rlm@29: rlm@29: rlm@29: rlm@29: rlm@29: rlm@29: rlm@29: rlm@29: rlm@29: rlm@29: rlm@29: rlm@29:

Mauritania	21N	24N
Myanmar		M TBA	M TBA
Nepal				M TBA

rlm@29: rlm@29: HERE rlm@29: rlm@29: return $a; rlm@29: rlm@29: rlm@29: } rlm@29: rlm@29: rlm@29: