#!/usr/bin/perl
# url.pl -- Windows .url to html table converter.
use strict;
use warnings;
use File::Glob ':glob';

expand();
print "<ul>\n";
foreach (@ARGV) {
    filter($_);
}
print "</ul>\n";

sub filter {
    my $file = shift;

    open FILE, $file or die "Couldn't open: $file $!\n";;
    while(<FILE>) {
        if (/BASEURL=/) {
            s/BASEURL=//;
            print "<li><a href=\"$_\">$_</a></li>\n";
            last;
        }
    }
    close(FILE);
}

sub expand {
    my @list;

    foreach  (@ARGV) {
        foreach(bsd_glob($_)) {
            push @list,$_;
        }
    }
    @ARGV = @list;
}