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 = ( 'perl_script' => \&work, 'num2' => \&funtwo);

    11 

    12 

    13 

    14 

    15 

    16 

    17 my $pjx = CGI::Ajax->new(%hash);

    18 $pjx->JSDEBUG(1);

    19 $pjx->DEBUG(1);

    20 print $pjx->build_html($q,\&gen); # this outputs the html for the page

    21 

    22 

    23 

    24 

    25 

    26 

    27 sub funtwo

    28 {

    29 	return 14;

    30 };

    31 

    32 

    33 

    34 sub work

    35 {

    36 	return 13;	

    37 };

    38 

    39 

    40 

    41 sub gen

    42 {

    43 open FILE, "<index.html";

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

    45 };
author	robert
date	Sun, 30 Aug 2009 02:19:26 -0400
parents
children	d7dd496a4fa6