/usr/bin/twatch is in twatch 0.0.7-1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
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 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 | #!/usr/bin/perl
use warnings;
use strict;
use lib qw(lib);
use utf8;
use open qw(:utf8 :std);
use vars qw($VERSION $PROGRAM);
$VERSION = '0.0.7';
$PROGRAM = 'twatch';
use Getopt::Long;
use Pod::Usage;
use TWatch;
use TWatch::Config;
use TWatch::Plugin;
use TWatch::Message;
################################################################################
# Processing options
################################################################################
my ($help, $verbose, $execute, $debug);
GetOptions(
'help|?' => \$help,
'verbose|?' => \$verbose,
'execute=s' => \$execute,
'debug|?' => \$debug,
) or pod2usage(2);
pod2usage(1) if $help;
# Disable output buffering if verbose
$|=1 if $verbose;
config->set(verbose => $verbose);
config->set(execute => $execute);
config->set(debug => $debug);
################################################################################
# Execute
################################################################################
notify('Loading');
# Create main programm object
my $twatch = TWatch->new()
or die "Can`t create Twatch object.";
notify('Start execute projects');
# Execute projects
$twatch->run;
notify('Send notification mail');
# Send notification mail
message->send();
notify('Execute post plugins');
# Execute post plugins
my $plugins = TWatch::Plugin->new(verbose => $verbose)
or die "Can`t create TWatch::Plugin object.";
$plugins->post( $twatch );
notify('Done');
exit 0;
__END__
=head1 NAME
twatch - watch torrent trackers and automatically download new torrents
=head1 SYNOPSIS
twatch [options]
Options:
-v|--verbose - Verbose output
-h|--help - Read this help and exit
-d|--debug - Debug mode print all params derived and parsed
from torrent tracker
-e|--execute FILENAME - Run project by it`s FILENAME
=head1 DESCRIPTION
twatch is a simple and flexible watcher torrent trackers, based on regular and
xpath expressions. It can download new torrent files and information about them
by customizable filters.
=head1 REQUESTS & BUGS
Roman V. Nikolaev <rshadow@rambler.ru>
=head1 AUTHORS
Copyright (C) 2008 Roman V. Nikolaev <rshadow@rambler.ru>
=head1 LICENSE
This program is free software: you can redistribute it and/or modify it
under the terms of the GNU General Public License as published by the Free
Software Foundation, either version 3 of the License, or (at your option)
any later version.
This program is distributed in the hope that it will be useful, but WITHOUT
ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
more details.
You should have received a copy of the GNU General Public License along
with this program. If not, see <http://www.gnu.org/licenses/>.
=cut
|