* gen-list-unimplemented-cards-for-set - Some updates to link generat…

…ion.
magefree · Jan 5, 2019 · 7848c78 · 7848c78
1 parent 0293b91
commit 7848c78
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/Utils/gen-list-unimplemented-cards-for-set.pl b/Utils/gen-list-unimplemented-cards-for-set.pl
@@ -89,6 +89,7 @@ sub toCamelCase {
 # TODO: check for basic lands with ending 1,2,3,4,5 ...
 my %cardNames;
 my $toPrint = '';
+my $setAbbr = $sets{$setName};
 foreach my $card (sort cardSort @setCards) {
 	my $className = toCamelCase(@{$card}[0]);
 
@@ -102,7 +103,7 @@ sub toCamelCase {
 		}
                 my $cardName = @{$card}[0];
                 $cardName =~ s/ /+/g;
-		$toPrint .= "@{$card}[2]|[@{$card}[0]](https://magiccards.info/query?q=!$cardName)";
+		$toPrint .= "@{$card}[2]|[@{$card}[0]](https://scryfall.com/search?q=!\"$cardName\"&nbsp;e:$setAbbr)";
 	}
 }
 
@@ -127,7 +128,7 @@ sub toCamelCase {
     }
     my $cn2 = $cn;
     $cn2 =~ s/ /+/g;
-    print ISSUE_TRACKER "- $x_or_not [$cn](https://magiccards.info/query?q=!$cn2)\n";
+    print ISSUE_TRACKER "- $x_or_not [$cn](https://scryfall.com/search?q=!\"$cn2\"&nbsp;e:$setAbbr)\n";
 }
 close ISSUE_TRACKER;
-print ("Tracking Issue text for a new Github issue (similar to https://github.com/magefree/mage/issues/2215): " . lc($sets{$setName}) ."_issue_tracker.txt\n");
+print ("Tracking Issue text for a new Github issue (similar to https://github.com/magefree/mage/issues/2215): " . lc($setAbbr) ."_issue_tracker.txt\n");