Mercurial > boosterpack

comparison index.pl @ 0:477258d09353 boosterpack

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[svn r1] initial import
author robert
date Sun, 30 Aug 2009 02:19:26 -0400
parents
children d7dd496a4fa6
comparison
equal deleted inserted replaced
-1:000000000000 0:477258d09353
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 };