Mercurial > boosterpack

view index.pl @ 2:d7dd496a4fa6 boosterpack

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[svn r4] actual functionality!
author robert
date Tue, 08 Sep 2009 02:45:26 -0400
parents 477258d09353
children 2e849c856026
line wrap: on
line source
     1 #!C:/strawberry/perl/bin/perl.exe



     2 



     3 use List::Util qw(first max maxstr min minstr reduce shuffle sum);



     4 use Storable;



     5 use CGI::Ajax;



     6 use CGI;



     7 use Rule;



     8 use Filter;



     9 use Card;



    10 my $q = new CGI;



    11 



    12 



    13 



    14 my $refstruct = retrieve 'CARD.perl';



    15 my @pokes = @$refstruct;



    16 



    17 



    18 



    19 



    20 



    21 my %hash = ( 'gen_pack' => \&gen_pack, 'change_rules' => \&change_rules);



    22 



    23 



    24 



    25 



    26 



    27 



    28 my $pjx = CGI::Ajax->new(%hash);



    29 #$pjx->JSDEBUG(1);



    30 #$pjx->DEBUG(1);



    31 



    32 print $pjx->build_html($q,\&gen); # this outputs the html for the page



    33 



    34 



    35 



    36 



    37 



    38 sub change_rules



    39 {



    40 	my $currentRuleref = retrieve 'rlm/booster.prefs';



    41 	$currentRule = $$currentRuleref;



    42 	$a = shift;



    43 	$currentRule -> setSets(($a));



    44 	store \$currentRule, 'rlm/booster.prefs'; 



    45 	return $a;



    46   



    47 	



    48 }



    49 



    50 



    51 



    52 



    53 



    54 



    55 



    56 



    57 



    58 



    59 sub gen_pack



    60 {



    61 	sub tag_analyze



    62 	{



    63 



    64 	



    65 	



    66 	my @sets = $currentRule -> getSets();



    67 	#print ERR @sets;



    68 	



    69 	my $card = shift;



    70 	



    71 	#print ERR $card->getPix();



    72 	#print ERR "\n";



    73 	return $card -> hasTags(@sets);



    74 	



    75 		



    76 	}



    77 		



    78 	my $currentRuleref = retrieve 'rlm/booster.prefs';



    79 	$currentRule = $$currentRuleref;



    80 	



    81 	#print ERR "@pokes";



    82 	@reduced = filter(\&tag_analyze, @pokes);



    83 	



    84 	#print ERR "@reduced";



    85 	



    86 	for $crd(@reduced)



    87 	{



    88 		#print ERR $crd->getPix();



    89 		$rob = $rob.$crd->getPix();



    90 		$rob = $rob."<br>";



    91 	}



    92 



    93 	#print $rob;



    94 



    95 	#print ERR @reduced;



    96 	#print ERR $rob;



    97 	#print $rob;



    98 	return $rob;



    99 	#close ERR;



   100 	



   101 	



   102 };



   103 



   104 



   105 



   106 



   107 



   108 sub gen



   109 {



   110 open FILE, "<index.html";



   111 return do { local $/; <FILE> };



   112 };



   113 



   114 #print "done";



   115 



   116 #print &change_rules("Fossil");



   117 #print &gen_pack;