18 lines
534 B
Plaintext
18 lines
534 B
Plaintext
|
#!/usr/bin/perl
|
||
|
|
# list-mods - Lists out the contents of the modlist.txt to just show the mod JAR names.
|
||
|
|
# AGRB 1/24/2023
|
||
|
|
|
||
|
|
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";
|
||
|
|
while (<MODLIST>) {
|
||
|
|
chomp;
|
||
|
|
next if /^\s*#/;
|
||
|
|
($modjar, $url) = split(/\|/);
|
||
|
|
print "$modjar\n"
|
||
|
|
}
|
||
|
|
close MODLIST;
|
||
|
|
exit 0;
|