rlm@0: #!C:/strawberry/perl/bin/perl.exe
rlm@0: 
rlm@0: 
rlm@0: use CGI::Ajax;
rlm@0: use CGI;
rlm@0: 
rlm@0: my $q = new CGI;
rlm@0: 
rlm@0: 
rlm@0: my %hash = ( 'card_list' => \&CardList, 'display_card' => \&DisplayCard , 'tags' => \&getAllTags);
rlm@0: 
rlm@0: 
rlm@0: 
rlm@0: 
rlm@0: my $pjx = CGI::Ajax->new(%hash);
rlm@0: $pjx->JSDEBUG(1);
rlm@0: $pjx->DEBUG(1);
rlm@0: print $pjx->build_html($q,\&gen); # this outputs the html for the page
rlm@0: 
rlm@0: 
rlm@0: 
rlm@0: 
rlm@0: 
rlm@0: sub getAllTags
rlm@0: {
rlm@0: 	return 14;
rlm@0: };
rlm@0: 
rlm@0: 
rlm@0: 
rlm@0: sub DisplayCard
rlm@0: {
rlm@0: 	return 13;	
rlm@0: };
rlm@0: 
rlm@0: 
rlm@0: sub CardList
rlm@0: {
rlm@0: 	
rlm@0: 	return 15;
rlm@0: 	
rlm@0: };
rlm@0: 
rlm@0: 
rlm@0: sub gen
rlm@0: {
rlm@0: open FILE, "<cards.html";
rlm@0: return do { local $/; <FILE> };
rlm@0: };