annotate buy.pl @ 51:95fa4bcc5d67
laserkard
[svn r52] implemented SVG backend
| author |
rlm |
| date |
Wed, 03 Feb 2010 03:14:09 -0500 |
| parents |
4431dc7d4bb5 |
| children |
343dc947f999 |
| rev |
line source |
|
rlm@0
|
1 #!/usr/bin/perl
|
|
rlm@0
|
2
|
|
rlm@0
|
3
|
|
rlm@0
|
4
|
|
rlm@51
|
5 use Laserkard;
|
|
rlm@0
|
6
|
|
rlm@0
|
7
|
|
rlm@0
|
8 my $q = new CGI;
|
|
rlm@0
|
9
|
|
rlm@51
|
10 #print Laserkard::gen();
|
|
rlm@0
|
11
|
|
rlm@51
|
12 my %hash =
|
|
rlm@51
|
13 (
|
|
rlm@51
|
14 'material' => \&Laserkard::material,
|
|
rlm@51
|
15 'template' => \&Laserkard::template,
|
|
rlm@51
|
16 'inputbox' => \&Laserkard::inputbox,
|
|
rlm@51
|
17 'display' => \&Laserkard::display,
|
|
rlm@51
|
18 'change_rules' => \&Laserkard::change_rules,
|
|
rlm@51
|
19 'vanish' => \&Laserkard::vanish,
|
|
rlm@51
|
20 'updateForm' => \&Laserkard::updateForm,
|
|
rlm@51
|
21 'cardType' => \&Laserkard::cardType
|
|
rlm@23
|
22 );
|
|
rlm@0
|
23
|
|
rlm@0
|
24
|
|
rlm@0
|
25
|
|
rlm@0
|
26 my $pjx = CGI::Ajax->new(%hash);
|
|
rlm@0
|
27
|
|
rlm@0
|
28
|
|
rlm@42
|
29 # this outputs the html for the page
|
|
rlm@51
|
30 print $pjx->build_html($q,\&Laserkard::genBuy,{-Cache_Control => 'no-store, no-cache, must-revalidate', -Pragma => 'no-cache'});
|
|
rlm@42
|
31
|
|
rlm@47
|
32
|
|
rlm@51
|
33 # it's a refrence to a function, not a function itself.
|
