Mercurial > boosterpack

comparison cards.pl @ 0:477258d09353 boosterpack

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[svn r1] initial import
author robert
date Sun, 30 Aug 2009 02:19:26 -0400
parents
children c702488ef795
comparison
equal deleted inserted replaced
-1:000000000000 0:477258d09353
1 #!C:/strawberry/perl/bin/perl.exe
2
3
4 use CGI::Ajax;
5 use CGI;
6
7 my $q = new CGI;
8
9
10 my %hash = ( 'card_list' => \&work, 'current_card' => \&funtwo);
11
12
13
14
15 my $pjx = CGI::Ajax->new(%hash);
16 $pjx->JSDEBUG(1);
17 $pjx->DEBUG(1);
18 print $pjx->build_html($q,\&gen); # this outputs the html for the page
19
20
21
22
23
24 sub funtwo
25 {
26 return 14;
27 };
28
29
30
31 sub work
32 {
33 return 13;
34 };
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51 sub gen
52 {
53 open FILE, "<cards.html";
54 return do { local $/; <FILE> };
55 };