Mercurial > boosterpack
annotate cards.pl @ 5:e91d6f908222 boosterpack
[svn r7] finished!
author | robert |
---|---|
date | Tue, 08 Sep 2009 06:55:23 -0400 |
parents | c702488ef795 |
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 }; |