initial files adapted from Vista

scripts/verify-mod-downloads

@@ -0,0 +1,21 @@
+#!/usr/bin/perl
+# verify-mod-downloads - Checks a directory full of mod JAR files to make sure they've all been downloaded
+# and advises you on where to go to get them if they're not present.
+# AGRB 11/3/2015
+
+die "Usage: $0 directory-name\n" if $#ARGV < 0;
+my $dir = $ARGV[0];
+die "$0: $dir is not a directory\n" unless -d $dir;
+die "$0: $dir does not contain a modlist.txt\n" unless -f "$dir/modlist.txt";
+open MODLIST, "<$dir/modlist.txt" or die "$0: unable to open $dir/modlist.txt";
+my $missing = 0;
+while (<MODLIST>) {
+    chomp;
+    ($modjar, $url) = split(/\|/);
+    unless (-f "$dir/$modjar") {
+	   print "$modjar is missing - download from $url\n";
+	   $missing++;
+    }
+}
+close MODLIST;
+exit ($missing > 0) ? 1 : 0;