Mercurial > boosterpack

     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' => \&CardList, 'display_card' => \&DisplayCard , 'tags' => \&getAllTags);

    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 getAllTags

    25 {

    26 	return 14;

    27 };

    28 

    29 

    30 

    31 sub DisplayCard

    32 {

    33 	return 13;	

    34 };

    35 

    36 

    37 sub CardList

    38 {

    39 	

    40 	return 15;

    41 	

    42 };

    43 

    44 

    45 sub gen

    46 {

    47 open FILE, "<cards.html";

    48 return do { local $/; <FILE> };

    49 };
author	robert
date	Tue, 08 Sep 2009 17:20:52 -0400
parents	c702488ef795
children	8c6d2ce90677