Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 31 lines (25 sloc) 752 Bytes
#!/usr/bin/env perl
# -*- perl -*-
#
# Author: Slaven Rezic
#
# Copyright (C) 2002,2016 Slaven Rezic. All rights reserved.
# This package is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
#
# Mail: slaven@rezic.de
# WWW: http://www.rezic.de/eserte/
#
use WWWBrowser;
require Getopt::Long;
my @extra_args;
if (!Getopt::Long::GetOptions
("-browser=s" => sub { push @extra_args, -browser => $_[1] },
"-fork!" => \$WWWBrowser::fork,
"-oldwindow!" => sub { push @extra_args, -oldwindow => 1 },
"v+" => \$WWWBrowser::VERBOSE,
)) {
die "usage: $^X $0 [-browser browser] [-[no]fork] [-oldwindow] [-v [-v ...]]\n"
}
WWWBrowser::start_browser($ARGV[0], @extra_args);
__END__