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' => \&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 };
author	robert
date	Sun, 30 Aug 2009 02:19:26 -0400
parents
children	c702488ef795