diff --git a/Utils/gen-card-via-proxy.pl b/Utils/gen-card-via-proxy.pl
new file mode 100644
index 0000000000..4856623737
--- /dev/null
+++ b/Utils/gen-card-via-proxy.pl
@@ -0,0 +1,402 @@
+#!/usr/bin/perl -w
+
+use WWW::Mechanize;
+use HTML::TreeBuilder;
+use Text::Template;
+use Data::Dumper;
+use strict;
+
+my $datafile = "mtg-cards-data.txt";
+
+my @sets;
+my @collector;
+my %rarities; 
+my %collectors;
+my @multiverses;
+
+my $manacost = "";
+my $loyality = -1;
+my $power = -1;
+my $toughness = -1;
+my @texts;
+my @types;
+
+my %fulltoshort;
+
+$fulltoshort{'Tenth Edition'} = '10E';
+$fulltoshort{'Unlimited Edition'} = '2ED';
+$fulltoshort{'Revised Edition'} = '3ED';
+$fulltoshort{'Fourth Edition'} = '4ED';
+$fulltoshort{'Fifth Dawn'} = '5DN';
+$fulltoshort{'Fifth Edition'} = '5ED';
+$fulltoshort{'Classic Sixth Edition'} = '6ED';
+$fulltoshort{'Seventh Edition'} = '7ED';
+$fulltoshort{'Eighth Edition'} = '8ED';
+$fulltoshort{'Alliances'} = 'ALL';
+$fulltoshort{'Apocalypse'} = 'APC';
+$fulltoshort{'Alara Reborn'} = 'ARB';
+$fulltoshort{'Arabian Nights'} = 'ARN';
+$fulltoshort{'Anthologies'} = 'ATH';
+$fulltoshort{'Antiquities'} = 'ATQ';
+$fulltoshort{'Betrayers of Kamigawa'} = 'BOK';
+$fulltoshort{'Battle Royale Box Set'} = 'BRB';
+$fulltoshort{'Beatdown Box Set'} = 'BTD';
+$fulltoshort{'Champions of Kamigawa'} = 'CHK';
+$fulltoshort{'Chronicles'} = 'CHR';
+$fulltoshort{'Conflux'} = 'CON';
+$fulltoshort{'Coldsnap'} = 'CSP';
+$fulltoshort{'Darksteel'} = 'DST';
+$fulltoshort{'Dissension'} = 'DIS';
+$fulltoshort{'Deckmasters'} = 'DKM';
+$fulltoshort{'The Dark'} = 'DRK';
+$fulltoshort{'Darksteel'} = 'DST';
+$fulltoshort{'Duel Decks: Divine vs. Demonic'} = 'DVD';
+$fulltoshort{'Duel Decks: Elves vs. Goblins'} = 'EVG';
+$fulltoshort{'Duel Decks: Garruk vs. Liliana'} = 'GVL';
+$fulltoshort{'Duel Decks: Jace vs. Chandra'} = 'JVC';
+$fulltoshort{'Duel Decks: Phyrexia vs. the Coalition'} = 'PVC';
+$fulltoshort{'Eventide'} = 'EVE';
+$fulltoshort{'Exodus'} = 'EXO';
+$fulltoshort{'Fallen Empires'} = 'FEM';
+$fulltoshort{'Future Sight'} = 'FUT';
+$fulltoshort{'From the Vault: Dragons'} = 'FVD';
+$fulltoshort{'From the Vault: Exiled'} = 'FVE';
+$fulltoshort{'Guildpact'} = 'GPT';
+$fulltoshort{'Homelands'} = 'HML';
+$fulltoshort{'Planechase'} = 'HOP';
+$fulltoshort{'Ice Age'} = 'ICE';
+$fulltoshort{'Invasion'} = 'INV';
+$fulltoshort{'Judgment'} = 'JUD';
+$fulltoshort{'Limited Edition Alpha'} = 'LEA';
+$fulltoshort{'Limited Edition Beta'} = 'LEB';
+$fulltoshort{'Legends'} = 'LEG';
+$fulltoshort{'Legions'} = 'LGN';
+$fulltoshort{'Lorwyn'} = 'LRW';
+$fulltoshort{'Magic 2010'} = 'M10';
+$fulltoshort{'Magic 2011'} = 'M11';
+$fulltoshort{'Masters Edition II'} = 'ME2';
+$fulltoshort{'Masters Edition III'} = 'ME3';
+$fulltoshort{'Masters Edition'} = 'MED';
+$fulltoshort{'Mirage'} = 'MIR';
+$fulltoshort{'Mercadian Masques'} = 'MMQ';
+$fulltoshort{'Morningtide'} = 'MOR';
+$fulltoshort{'Mirrodin'} = 'MRD';
+$fulltoshort{'Ninth Edition'} = '9ED';
+$fulltoshort{'Nemesis'} = 'NEM';
+$fulltoshort{'Odyssey'} = 'ODY';
+$fulltoshort{'Onslaught'} = 'ONS';
+$fulltoshort{'Portal Second Age'} = 'PO2';
+$fulltoshort{'Prophecy'} = 'PCY';
+$fulltoshort{'Planar Chaos'} = 'PLC';
+$fulltoshort{'Planeshift'} = 'PLS';
+$fulltoshort{'Portal'} = 'POR';
+$fulltoshort{'Portal Three Kingdoms'} = 'PTK';
+$fulltoshort{'Premium Deck Series: Slivers'} = 'PDS';
+$fulltoshort{'Ravnica: City of Guilds'} = 'RAV';
+$fulltoshort{'Rise of the Eldrazi'} = 'ROE';
+$fulltoshort{'Starter 2000'} = 'S00';
+$fulltoshort{'Starter 1999'} = 'S99';
+$fulltoshort{'Scourge'} = 'SCG';
+$fulltoshort{'Shadowmoor'} = 'SHM';
+$fulltoshort{'Shards of Alara'} = 'ALA';
+$fulltoshort{'Saviors of Kamigawa'} = 'SOK';
+$fulltoshort{'Stronghold'} = 'STH';
+$fulltoshort{'Tempest'} = 'TMP';
+$fulltoshort{'Torment'} = 'TOR';
+$fulltoshort{'Time Spiral "Timeshifted"'} = 'TSB';
+$fulltoshort{'Time Spiral'} = 'TSP';
+$fulltoshort{'Urza\'s Destiny'} = 'UDS';
+$fulltoshort{'Unglued'} = 'UGL';
+$fulltoshort{'Urza\'s Legacy'} = 'ULG';
+$fulltoshort{'Unhinged'} = 'UNH';
+$fulltoshort{'Urza\'s Saga'} = 'USG';
+$fulltoshort{'Vanguard Set 1'} = 'VG1';
+$fulltoshort{'Vanguard Set 2'} = 'VG2';
+$fulltoshort{'Vanguard Set 3'} = 'VG3';
+$fulltoshort{'Vanguard Set 4'} = 'VG4';
+$fulltoshort{'MTGO Vanguard'} = 'VGO';
+$fulltoshort{'Visions'} = 'VIS';
+$fulltoshort{'Weatherlight'} = 'WTH';
+$fulltoshort{'Worldwake'} = 'WWK';
+$fulltoshort{'Zendikar'} = 'ZEN';
+$fulltoshort{'Archenemy'} = 'ARC';
+$fulltoshort{'Scars of Mirrodin'} = 'SOM';
+
+my %wizardstous;
+$wizardstous{'6E'} = '6ED';
+$wizardstous{'7E'} = '7ED';
+$wizardstous{'8ED'} = '8ED';
+$wizardstous{'9ED'} = '9ED';
+$wizardstous{'10E'} = '10E';
+$wizardstous{'BD'} = 'BTD';
+$wizardstous{'DDD'} = 'GVL';
+$wizardstous{'CG'} = 'UDS';
+$wizardstous{'ST'} = 'STH';
+$wizardstous{'ONS'} = 'ONS';
+$wizardstous{'P3'} = 'S99';
+$wizardstous{'P4'} = 'S00';
+$wizardstous{'OD'} = 'ODY';
+$wizardstous{'M10'} = 'M10';
+$wizardstous{'M11'} = 'M11';
+$wizardstous{'LRW'} = 'LRW';
+$wizardstous{'DD2'} = 'JVC';
+$wizardstous{'TSB'} = 'TSB';
+$wizardstous{'ZEN'} = 'ZEN';
+$wizardstous{'5E'} = '5ED';
+$wizardstous{'IA'} = 'ICE';
+$wizardstous{'4E'} = '4ED';
+$wizardstous{'3E'} = '3ED';
+$wizardstous{'2U'} = '2ED';
+$wizardstous{'2E'} = 'LEB';
+$wizardstous{'1E'} = 'LEA';
+$wizardstous{'EVG'} = 'EVG';
+$wizardstous{'BR'} = 'BRB';
+$wizardstous{'ME2'} = 'ME2';
+$wizardstous{'ME3'} = 'ME3';
+$wizardstous{'HOP'} = 'HOP';
+$wizardstous{'PO'} = 'POR';
+$wizardstous{'P2'} = 'PO2';
+$wizardstous{'PK'} = 'PTK';
+$wizardstous{'MED'} = 'MED';
+$wizardstous{'EVE'} = 'EVE';
+$wizardstous{'MOR'} = 'MOR';
+$wizardstous{'RAV'} = 'RAV';
+$wizardstous{'SHM'} = 'SHM';
+$wizardstous{'MI'} = 'MIR';
+$wizardstous{'ARB'} = 'ARB';
+$wizardstous{'VI'} = 'VIS';
+$wizardstous{'DST'} = 'DST';
+$wizardstous{'TOR'} = 'TOR';
+$wizardstous{'DDC'} = 'DVD';
+$wizardstous{'AP'} = 'APC';
+$wizardstous{'CON'} = 'CON';
+$wizardstous{'ALA'} = 'ALA';
+$wizardstous{'DDE'} = 'PVC';
+$wizardstous{'JUD'} = 'JUD';
+$wizardstous{'WL'} = 'WTH';
+$wizardstous{'MRD'} = 'MRD';
+$wizardstous{'TE'} = 'TMP';
+$wizardstous{'DRB'} = 'FVD';
+$wizardstous{'PR'} = 'PCY';
+$wizardstous{'UZ'} = 'USG';
+$wizardstous{'IN'} = 'INV';
+$wizardstous{'FUT'} = 'FUT';
+$wizardstous{'TSP'} = 'TSP';
+$wizardstous{'CHK'} = 'CHK';
+$wizardstous{'EX'} = 'EXO';
+$wizardstous{'FE'} = 'FEM';
+$wizardstous{'PLC'} = 'PLC';
+$wizardstous{'CHK'} = 'CHK';
+$wizardstous{'ROE'} = 'ROE';
+$wizardstous{'5DN'} = '5DN';
+$wizardstous{'LE'} = 'LEG';
+$wizardstous{'CH'} = 'CHR';
+$wizardstous{'H09'} = 'PDS';
+$wizardstous{'MM'} = 'MMQ';
+$wizardstous{'GPT'} = 'GPT';
+$wizardstous{'GU'} = 'ULG';
+$wizardstous{'ARC'} = 'ARC';
+$wizardstous{'DIS'} = 'DIS';
+$wizardstous{'NE'} = 'NEM';
+$wizardstous{'PS'} = 'PLS';
+$wizardstous{'LGN'} = 'LGN';
+$wizardstous{'AN'} = 'ARN';
+$wizardstous{'WWK'} = 'WWK';
+$wizardstous{'SOM'} = 'SOM';
+
+my %knownSets;
+$knownSets{'ARB'} = 'alarareborn';
+$knownSets{'CON'} = 'conflux';
+$knownSets{'M10'} = 'magic2010';
+$knownSets{'M11'} = 'magic2011';
+$knownSets{'HOP'} = 'planechase';
+$knownSets{'RAV'} = 'ravnika';
+$knownSets{'ROE'} = 'riseoftheeldrazi';
+$knownSets{'ALA'} = 'shardsofalara';
+$knownSets{'10E'} = 'tenth';
+$knownSets{'WWK'} = 'worldwake';
+$knownSets{'ZEN'} = 'zendikar';
+$knownSets{'SOM'} = 'scarsofmirrodin';
+$knownSets{'GPT'} = 'guildpact';
+$knownSets{'DIS'} = 'dissension';
+
+my %raritiesConversion;
+$raritiesConversion{'C'} = 'COMMON';
+$raritiesConversion{'U'} = 'UNCOMMON';
+$raritiesConversion{'R'} = 'RARE';
+$raritiesConversion{'M'} = 'MYTHIC';
+
+my %mana;
+$mana{'Black'} = '{B}';
+$mana{'Blue'} = '{U}';
+$mana{'Green'} = '{G}';
+$mana{'Red'} = '{R}';
+$mana{'White'} = '{W}';
+$mana{'Variable Colorless'} = '{X}';
+$mana{'White or Black'} = 'W\\\\B';
+$mana{'Green or White'} = 'G\\\\W';
+$mana{'Black or Green'} = 'B\\\\G';
+$mana{'Black or Red'} = 'B\\\\R';
+$mana{'Red or Green'} = 'R\\\\G';
+
+my %manatocolor;
+$manatocolor{'Black'} = "		this.color.setBlack(true);";
+$manatocolor{'Blue'} = "		this.color.setBlue(true);";
+$manatocolor{'Green'} = "		this.color.setGreen(true);";
+$manatocolor{'Red'} = "		this.color.setRed(true);";
+$manatocolor{'White'} = "		this.color.setWhite(true);";
+
+my %cardtypes;
+$cardtypes{'Artifact'} = "CardType.ARTIFACT";
+$cardtypes{'Creature'} = "CardType.CREATURE";
+$cardtypes{'Instant'} = "CardType.INSTANT";
+$cardtypes{'Sorcery'} = "CardType.SORCERY";
+
+my %normalid;
+
+print "Enter a card name: ";
+my $cardname = <STDIN>;
+chomp $cardname;
+my $finded = 0;
+
+open DATA, "< $datafile" or die "Can't open datafile: $!";
+while (<DATA>) {
+	my $str = $_;
+	my (undef, $name, $set, $rarity, $multiverse, $collector) = split("\\|");
+	if ($cardname eq $name) {
+	    die "can't find set: $set" unless defined $fulltoshort{$set};
+	    push(@sets, $fulltoshort{$set});
+	    $rarities{$fulltoshort{$set}} = $rarity;
+	    $collectors{$fulltoshort{$set}} = $collector;
+	    push(@multiverses, $multiverse);
+	    $finded = 1;
+	}
+}
+
+die "card not found" unless $finded;
+
+my $mech = WWW::Mechanize->new( autocheck => 1 );
+my $parser = HTML::TreeBuilder->new();
+
+$ENV{'HTTP_PROXY'} = 'http://login:password@proxyserver';
+$mech->env_proxy();
+
+$mech->get("http://gatherer.wizards.com/Pages/Card/Details.aspx?multiverseid=" . $multiverses[0] );
+print "card fetched\n";
+
+my $template = Text::Template->new(SOURCE => 'cardclass.tmpl', DELIMITERS => [ '[=', '=]' ]);
+my %vars;
+$vars{'name'} = $cardname;
+$cardname =~ s/[-\s\']//g;
+$vars{'classname'} = $cardname;
+
+
+$parser->parse($mech->content());
+my @divs = $parser->look_down('_tag', 'div');
+foreach my $div (@divs) {
+    if (defined($div->attr('id'))) {
+	my $id = $div->attr('id');
+	if ($id =~m/textRow/) {
+	    foreach my $sub ($div->look_down('_tag', 'div')) {
+		if (defined($sub->attr('class')) && $sub->attr('class') eq 'cardtextbox') {
+		    push(@texts, $sub->as_text());
+		}
+	    }
+	}
+	if ($id =~m/typeRow/) {
+	    my $typestring = "";
+	    my $subtype = "";
+	    foreach my $sub ($div->look_down('_tag', 'div')) {
+			if (defined($sub->attr('class')) && $sub->attr('class') eq 'value') {
+		    	my $type = $sub->as_text();
+		    	chomp $type;
+		    	while ( $type =~ m/([a-zA-z]+)( )*/g ) {
+		        	push @types, $1;
+		        	if (exists($cardtypes{$1})) {
+                        if (length($typestring) > 0) {
+                            $typestring .= ", " . $cardtypes{$1};
+                        } else {
+                            $typestring = $cardtypes{$1};
+                        }
+		        	} else {
+						$subtype .= "        this.subtype.add(\"$1\");\n";
+					}
+		    	}
+			}
+	    }
+	    $vars{'type'} = $typestring;
+		$vars{'subtype'} = $subtype;
+	}
+	if ($id =~m/manaRow/) {
+	    my $findedcolors;
+	    foreach my $sub ($div->look_down('_tag', 'img')) {	    	
+		if (defined($sub->attr('alt'))) {
+			my $m = $sub->attr('alt'); 		
+			if ($m =~ /^-?\d/) {
+				$manacost .= "{" . $m . "}";
+			} else { 				
+		    	die "unknown manacost: " . $m unless defined $mana{$m};
+		    	$manacost .= $mana{$m};
+		    	$findedcolors .= "\n" . $manatocolor{$m};  		    	
+			}
+		}
+	    }
+	    $manacost =~ s/^\s*(\S*(?:\s+\S+)*)\s*$/$1/; 
+	    $vars{'manacost'} = $manacost;	    
+	    $vars{'colors'} = $findedcolors;
+		print Dumper(%vars);
+	}
+	if ($id =~/ptRow/) {
+		foreach my $sub ($div->look_down('_tag', 'div')) {
+			if (defined($sub->attr('class')) && $sub->attr('class') eq 'value') {
+				my $str = $sub->as_text();
+				$str =~s/\s//;
+				$str =~m/(.+)\/(.+)/;
+				$vars{'power'} = $1;
+				$vars{'toughness'} = $2;
+			}
+		}
+	}
+	if ($id =~m/currentSetSymbol/) {
+		my ($imgurl) = $div->look_down('_tag', 'img');
+		$imgurl->attr('src') =~m/set=(\w+)\&.*rarity=(\w+)/;
+		my $multiverseid = $multiverses[0];
+		die "can't find set conversion for $1, multiverse: $multiverseid" unless defined $wizardstous{$1};
+		my $set = $wizardstous{$1};
+		$normalid{$set} = $multiverseid;
+	}
+	if ($id =~m/otherSetsValue/) {
+	    foreach my $sub ($div->look_down('_tag', 'a')) {
+		my $link = $sub->attr('href');
+		$link =~m/multiverseid\=(\d+)/;
+		my $multiverseid = $1;
+		my ($imgurl) = $sub->look_down('_tag', 'img');
+		$imgurl->attr('src') =~m/set=(\w+)\&.*rarity=(\w+)/;
+		die "can't find set conversion for $1, multiverse: $multiverseid" unless defined $wizardstous{$1};
+		my $set = $wizardstous{$1};
+		$normalid{$set} = $multiverseid;
+	    }
+	}
+    }
+}
+
+
+for my $set (@sets) {
+    if (exists($knownSets{$set})) {
+	$vars{'longset'} = $knownSets{$set};
+	$vars{'rarity'} = $raritiesConversion{$rarities{$set}};
+	$vars{'collector'} = $collectors{$set};
+	$vars{'setcode'} = $set;
+        my $result = $template->fill_in(HASH => \%vars);
+	if (defined($result)) {
+	    my $filename = "../Mage.Sets/src/mage/sets/". $knownSets{$set} . "/" . $vars{'classname'} . ".java";
+	    if (-e $filename ) {
+		print "WARNING $filename already exists!\n";
+	    } else {
+		open CARD, "> $filename";
+		print CARD $result; 
+		close CARD;
+	    }
+	}
+    }
+}
\ No newline at end of file