1997-07-06 18:28:06 +00:00
|
|
|
--- swatch.pl.orig Thu Dec 14 21:01:08 1995
|
|
|
|
+++ swatch.pl Sun Jul 6 19:22:13 1997
|
1997-05-09 16:06:41 +00:00
|
|
|
@@ -29,7 +29,7 @@
|
|
|
|
eval 'PERL_BIN_DIR/perl -S $0 ${1+"$@"}'
|
|
|
|
if 0;
|
|
|
|
#
|
|
|
|
-$ENV{'PATH'} = '/usr/ucb:/usr/bin:/bin:PERL_BIN_DIR';
|
|
|
|
+$ENV{'PATH'} = '/usr/bin:/bin:PERL_BIN_DIR';
|
|
|
|
$ENV{'IFS'} = '' if $ENV{'IFS'} ne '';
|
|
|
|
$0 = rindex($0, "/") > -1 ? substr($0, rindex($0, "/")+1) : $0;
|
|
|
|
|
1997-07-06 18:28:06 +00:00
|
|
|
@@ -44,8 +44,8 @@
|
1997-05-09 16:06:41 +00:00
|
|
|
|
|
|
|
# Some defaults
|
|
|
|
$PERL = 'PERL_BIN_DIR/perl';
|
|
|
|
-$TAIL = '/usr/ucb/tail -f';
|
1997-07-06 18:28:06 +00:00
|
|
|
-$DEF_INPUT = "$TAIL /var/log/syslog";
|
1997-05-09 16:06:41 +00:00
|
|
|
+$TAIL = '/usr/bin/tail -f';
|
1997-07-06 18:28:06 +00:00
|
|
|
+$DEF_INPUT = "$TAIL /var/log/messages";
|
1997-05-09 16:06:41 +00:00
|
|
|
$Pipe = 1;
|
|
|
|
$ConfigFile = "$ENV{'HOME'}/.swatchrc";
|
1997-07-06 18:28:06 +00:00
|
|
|
$PatternSeparator = ',';
|
|
|
|
|