annotate index.pl @ 8:8c6d2ce90677 boosterpack

[svn r11] saving for transference to cd
author rlm
date Fri, 19 Mar 2010 07:28:10 -0400
parents 4c495190076f
children
rev   line source
rlm@8 1 #!/usr/bin/perl
rlm@8 2
rlm@8 3
rlm@8 4
rlm@8 5 use List::Util qw(first max maxstr min minstr reduce shuffle sum);
rlm@8 6 use Storable;
rlm@8 7 use CGI::Ajax;
rlm@8 8 use CGI;
rlm@8 9 use Rule;
rlm@8 10 use Filter;
rlm@8 11 use Card;
rlm@8 12 my $q = new CGI;
rlm@8 13
rlm@8 14
rlm@8 15
rlm@8 16 my $refstruct = retrieve 'CARD.perl';
rlm@8 17 my @pokes = @$refstruct;
rlm@8 18
rlm@8 19 open ERR, ">./error.log";
rlm@8 20 print ERR "hi";
rlm@8 21
rlm@8 22
rlm@8 23 my %hash = ( 'gen_pack' => \&gen_pack, 'change_rules' => \&change_rules);
rlm@8 24
rlm@8 25
rlm@8 26
rlm@8 27
rlm@8 28
rlm@8 29
rlm@8 30 my $pjx = CGI::Ajax->new(%hash);
rlm@8 31 #$pjx->JSDEBUG(1);
rlm@8 32 #$pjx->DEBUG(1);
rlm@8 33
rlm@8 34 print $pjx->build_html($q,\&gen); # this outputs the html for the page
rlm@8 35
rlm@8 36
rlm@8 37
rlm@8 38
rlm@8 39
rlm@8 40 sub change_rules
rlm@8 41 {
rlm@8 42 my $currentRuleref = retrieve 'rlm/booster.prefs';
rlm@8 43 $currentRule = $$currentRuleref;
rlm@8 44 $a = shift;
rlm@8 45 $currentRule -> setSets(($a));
rlm@8 46 store \$currentRule, 'rlm/booster.prefs';
rlm@8 47 return $a;
rlm@8 48
rlm@8 49
rlm@8 50 }
rlm@8 51
rlm@8 52
rlm@8 53
rlm@8 54
rlm@8 55
rlm@8 56
rlm@8 57
rlm@8 58
rlm@8 59
rlm@8 60
rlm@8 61 sub gen_pack
rlm@8 62 {
rlm@8 63
rlm@8 64
rlm@8 65
rlm@8 66
rlm@8 67 sub tag_analyze
rlm@8 68 {
rlm@8 69
rlm@8 70
rlm@8 71
rlm@8 72 my @sets = $currentRule -> getSets();
rlm@8 73 print ERR @sets;
rlm@8 74
rlm@8 75 my $card = shift;
rlm@8 76
rlm@8 77 #print ERR $card->getPix();
rlm@8 78 #print ERR "\n";
rlm@8 79 return $card -> hasTags(@sets);
rlm@8 80
rlm@8 81
rlm@8 82 }
rlm@8 83
rlm@8 84 my $currentRuleref = retrieve 'rlm/booster.prefs';
rlm@8 85 $currentRule = $$currentRuleref;
rlm@8 86
rlm@8 87 my $mapRules = $currentRule -> getRarityMap();
rlm@8 88 my %mapRules = %$mapRules;
rlm@8 89
rlm@8 90
rlm@8 91
rlm@8 92
rlm@8 93 print ERR "@pokes";
rlm@8 94 @reduced = filter(\&tag_analyze, @pokes);
rlm@8 95 @reduced = shuffle(@reduced);
rlm@8 96
rlm@8 97 my @final_list = ();
rlm@8 98 my $rnum = $mapRules{"Rare"};
rlm@8 99 my $unum = $mapRules{"Uncommon"};
rlm@8 100 my $cnum = $mapRules{"Common"};
rlm@8 101
rlm@8 102 $holochoose = int(rand(3));
rlm@8 103 ##########3
rlm@8 104 #my $rnum = 500;
rlm@8 105 #my $unum =500;
rlm@8 106 #my $cnum = 500;
rlm@8 107 #;
rlm@8 108 ##############
rlm@8 109 for $crd(@reduced)
rlm@8 110 {
rlm@8 111
rlm@8 112
rlm@8 113 if ($holochoose==0 or $holochoose==1 ){if (($crd -> hasTags("Rare"))and ($rnum>0)){push @r_list, $crd; $rnum--;}}
rlm@8 114 if ($holochoose==2){if (($crd -> hasTags("Rare Holo"))and ($rnum>0)){push @r_list, $crd; $rnum--;}}
rlm@8 115 #if (($crd -> hasTags("Rare") or $crd -> hasTags("Rare Holo"))and ($rnum>0)){push @r_list, $crd; $rnum--;}
rlm@8 116 if (($crd -> hasTags("Uncommon"))and ($unum>0)){push @u_list, $crd; $unum--;}
rlm@8 117 if (($crd -> hasTags("Common"))and ($cnum>0)){push @c_list, $crd; $cnum--;}
rlm@8 118 if ($rnum+$unum+$cnum == 0){last;}
rlm@8 119 }
rlm@8 120
rlm@8 121 @final_list = (@r_list,@u_list,@c_list);
rlm@8 122
rlm@8 123
rlm@8 124 for $crd(@final_list)
rlm@8 125 {
rlm@8 126 $rob = $rob."<A HREF=\"javascript:popUp('".$crd->getPix()."')\"><img src = \"".$crd->getPix()."\"></img></A>";
rlm@8 127
rlm@8 128
rlm@8 129 }
rlm@8 130
rlm@8 131 #print $rob;
rlm@8 132
rlm@8 133 print ERR @reduced;
rlm@8 134 print ERR $rob;
rlm@8 135 print $rob;
rlm@8 136 return $rob;
rlm@8 137 close ERR;
rlm@8 138
rlm@8 139
rlm@8 140 };
rlm@8 141
rlm@8 142
rlm@8 143
rlm@8 144
rlm@8 145
rlm@8 146 sub gen
rlm@8 147 {
rlm@8 148 open FILE, "<index.html";
rlm@8 149 return do { local $/; <FILE> };
rlm@8 150
rlm@8 151 };
rlm@8 152
rlm@8 153 #print "done";
rlm@8 154
rlm@8 155 #print &change_rules("Fossil");
rlm@8 156 print ERR &gen_pack;