rlm@0: #!/usr/bin/perl
rlm@0: 
rlm@0: 
rlm@0: 
rlm@51: use Laserkard;
rlm@0: 
rlm@0: 
rlm@0: my $q = new CGI;
rlm@0: 
rlm@51: #print Laserkard::gen();
rlm@0: 
rlm@51: my %hash = 
rlm@51: ( 
rlm@51: 'material' => \&Laserkard::material,
rlm@51: 'template'	=> \&Laserkard::template, 
rlm@51: 'inputbox'	=> \&Laserkard::inputbox,
rlm@51: 'display'	=> \&Laserkard::display,
rlm@51: 'change_rules' => \&Laserkard::change_rules,
rlm@51: 'vanish'      => \&Laserkard::vanish,
rlm@51: 'updateForm'  => \&Laserkard::updateForm,
rlm@51: 'cardType'    => \&Laserkard::cardType
rlm@23: );
rlm@0: 
rlm@0:  
rlm@0: 
rlm@0: my $pjx = CGI::Ajax->new(%hash);
rlm@0: 
rlm@0: 
rlm@42: # this outputs the html for the page
rlm@51: print $pjx->build_html($q,\&Laserkard::genBuy,{-Cache_Control => 'no-store, no-cache, must-revalidate', -Pragma => 'no-cache'});