File: yarssr

package info (click to toggle)
yarssr 0.2.2-8
  • links: PTS
  • area: main
  • in suites: wheezy
  • size: 404 kB
  • sloc: perl: 1,488; sh: 227; makefile: 40
file content (43 lines) | stat: -rwxr-xr-x 830 bytes parent folder | download | duplicates (6)
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;
}