equal
deleted
inserted
replaced
30 use Cwd qw(abs_path); |
30 use Cwd qw(abs_path); |
31 use File::Temp qw(tempfile); |
31 use File::Temp qw(tempfile); |
32 use POSIX qw(setsid); |
32 use POSIX qw(setsid); |
33 |
33 |
34 my $ME = basename $0; |
34 my $ME = basename $0; |
35 my $VERSION = "0.1"; |
35 my $VERSION = "<VERSION>"; |
36 |
36 |
37 my $opt_block = 1; |
37 my $opt_block = 1; |
38 my $opt_daemon = 1; |
38 my $opt_daemon = 1; |
39 my $opt_pidfile = "/var/run/$ME.pid"; |
39 my $opt_pidfile = "/var/run/$ME.pid"; |
40 my $opt_kill = 0; |
40 my $opt_kill = 0; |
383 Heiko Schlittermann <hs@schlittermann.de>. |
383 Heiko Schlittermann <hs@schlittermann.de>. |
384 The source may be found at L<https://keller.schlittermann.de/hg/ius/tele-watch>. |
384 The source may be found at L<https://keller.schlittermann.de/hg/ius/tele-watch>. |
385 |
385 |
386 =head1 VERSION |
386 =head1 VERSION |
387 |
387 |
388 <VERSION> |
388 This is <VERSION>. |
389 |
|
390 |
389 |
391 =cut |
390 =cut |
392 |
391 |
393 # vim:tw=72 sts=4 ts=4 sw=4 aw ai sm: |
392 # vim:tw=72 sts=4 ts=4 sw=4 aw ai sm: |