Mercurial > boosterpack
annotate cards.pl @ 1:c702488ef795 boosterpack
[svn r3] modified
| author | robert |
|---|---|
| date | Mon, 31 Aug 2009 14:53:15 -0400 |
| parents | 477258d09353 |
| children | 8c6d2ce90677 |
| rev | line source |
|---|---|
| robert@0 | 1 #!C:/strawberry/perl/bin/perl.exe |
| robert@0 | 2 |
| robert@0 | 3 |
| robert@0 | 4 use CGI::Ajax; |
| robert@0 | 5 use CGI; |
| robert@0 | 6 |
| robert@0 | 7 my $q = new CGI; |
| robert@0 | 8 |
| robert@0 | 9 |
| robert@1 | 10 my %hash = ( 'card_list' => \&CardList, 'display_card' => \&DisplayCard , 'tags' => \&getAllTags); |
| robert@0 | 11 |
| robert@0 | 12 |
| robert@0 | 13 |
| robert@0 | 14 |
| robert@0 | 15 my $pjx = CGI::Ajax->new(%hash); |
| robert@0 | 16 $pjx->JSDEBUG(1); |
| robert@0 | 17 $pjx->DEBUG(1); |
| robert@0 | 18 print $pjx->build_html($q,\&gen); # this outputs the html for the page |
| robert@0 | 19 |
| robert@0 | 20 |
| robert@0 | 21 |
| robert@0 | 22 |
| robert@0 | 23 |
| robert@1 | 24 sub getAllTags |
| robert@0 | 25 { |
| robert@0 | 26 return 14; |
| robert@0 | 27 }; |
| robert@0 | 28 |
| robert@0 | 29 |
| robert@0 | 30 |
| robert@1 | 31 sub DisplayCard |
| robert@0 | 32 { |
| robert@0 | 33 return 13; |
| robert@0 | 34 }; |
| robert@0 | 35 |
| robert@0 | 36 |
| robert@1 | 37 sub CardList |
| robert@1 | 38 { |
| robert@1 | 39 |
| robert@1 | 40 return 15; |
| robert@1 | 41 |
| robert@1 | 42 }; |
| robert@0 | 43 |
| robert@0 | 44 |
| robert@0 | 45 sub gen |
| robert@0 | 46 { |
| robert@0 | 47 open FILE, "<cards.html"; |
| robert@0 | 48 return do { local $/; <FILE> }; |
| robert@0 | 49 }; |