Mercurial > laserkard

comparison BASE.pl @ 29:7742910e0479 laserkard

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[svn r30] implemented drawing text on the picture dynamically. still need to center stuff
author rlm
date Sat, 16 Jan 2010 12:25:43 -0500
parents
children
comparison
equal deleted inserted replaced
28:5b5c03a850b9 29:7742910e0479
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