1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43
|
#!/usr/bin/perl
#
# yarssr - Yet Another RSS Reader
# Copyright (C) 2004 Lee Aylward <lee@laylward.com>
# http://yarssr.sourceforge.net
# Licensed under the GPL
#
use strict;
use lib (-e '@LIBDIR@' ? '@LIBDIR@' : $ENV{PWD}.'/lib/');
use Yarssr;
use Getopt::Long;
my $result = GetOptions ("debug" => \$Yarssr::debug,
"help" => \&show_help,
"version" => \&show_version);
$SIG{TERM} = \&Yarssr::quit;
$SIG{INT} = \&Yarssr::quit;
$Yarssr::PREFIX = (-e '@PREFIX@' ? '@PREFIX@' : $ENV{PWD});
$Yarssr::LIBDIR = (-e '@LIBDIR@' ? '@LIBDIR@' : $ENV{PWD}.'/lib');
Yarssr->init;
sub show_help {
print <<EOF
Usage: yarssr [OPTION]
--debug show debugging information
--help show help
--version display yarssr version
EOF
;
exit;
}
sub show_version {
print "yarssr version $Yarssr::VERSION\n";
exit;
}
|