#!/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;