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