Mercurial > laserkard

     1 #!/usr/bin/perl

     2 

     3 

     4 use List::Util qw(first max maxstr min minstr reduce shuffle sum);

     5 use Storable;

     6 use CGI::Ajax;

     7 use CGI;

     8 

     9 

    10 

    11 my $q = new CGI;

    12 

    13 

    14 

    15 my %hash = ( 

    16 

    17 'material' => \&material,

    18 'pokedex'  => \&pokedex,

    19 'template'	=> \&template, 

    20 'inputbox'	=> \&inputbox,

    21 'display'	=> \&display,

    22 'change_rules' => \&change_rules,

    23 'vanish'      => \&vanish

    24 );

    25 

    26  

    27 

    28 my $pjx = CGI::Ajax->new(%hash);

    29 #$pjx->JSDEBUG(1);

    30 #$pjx->DEBUG(1);

    31 

    32 print $pjx->build_html($q,\&gen,{-Cache_Control => 'no-store, no-cache, must-revalidate', -Pragma => 'no-cache'}); # this outputs the html for the page

    33 

    34 

    35 

    36 

    37 

    38 

    39 

    40 

    41 

    42 

    43 

    44 

    45 

    46 

    47 

    48 

    49 

    50 

    51 

    52 sub gen

    53 {

    54 

    55 $a = <<HERE;

    56 

    57 

    58 <html>

    59 

    60 

    61 <TABLE border="2">

    62  <TR bgcolor="#FFFFFF" onMouseOver="this.bgColor='gold';" onMouseOut="this.bgColor='#FFFFFF';">

    63    <TD>Mauritania</td>

    64    <TD>21N</TD>

    65    <TD>24N</TD>

    66    <TD>&nbsp;</TD>

    67    <TD>&nbsp;</TD>

    68  </TR>

    69  <TR bgcolor="#FFFFFF" onMouseOver="this.bgColor='gold';" onMouseOut="this.bgColor='#FFFFFF';">

    70    <TD>Myanmar</td>

    71    <TD>&nbsp;</TD>

    72    <TD>M TBA</TD>

    73    <TD>M TBA</TD>

    74    <TD>&nbsp;</TD>

    75  </TR>

    76  <TR bgcolor="#FFFFFF" onClick="parent.location='index.html'"  onMouseOver="this.bgColor='gold';" onMouseOut="this.bgColor='#FFFFFF';" >

    77    <TD>Nepal</td>

    78    <TD>&nbsp;</TD>

    79    <TD>&nbsp;</TD>

    80    <TD>&nbsp;</TD>

    81    <TD>M TBA</TD>

    82  </TR>

    83 </TABLE>

    84 </html>

    85 HERE

    86 

    87 return $a;

    88 

    89 

    90 }

    91 

    92 

    93
author	rlm
date	Sun, 24 Jan 2010 15:06:22 -0500
parents	7742910e0479
children