#!/usr/bin/perl -w
if (not $ARGV[0] or $ARGV[0] =~ /^-(h|-help)$/ or not -f $ARGV[0]) {
	print <<'EOF';
# script to handle url files given by dummy windows users and e.g. sent per
# email.
# Synopsis: url <filename.url>
# The URL is extracted from the file and mozilla called with it.
EOF
exit
}
use strict;

my $urlfile = $ARGV[0];

open(URL,$urlfile) or die "Couldn't open file '$urlfile': $!";

my $baseurl; my $url;

while(<URL>) {
	if (s/^BASEURL=//) {
		$baseurl=$_;
	} elsif (s/^URL=//) {
		$url=$_;
	}
}
close(URL);

$url = $baseurl unless ($url);

if ($url) {
	exec("mozilla $url");
} else {
	exec("xmessage -default 'okay' "
		. " 'No URL could be found in file $urlfile.'");
}