minimal stuff from fileserver

2 files changed, 80 insertions, 2 deletions

diff --git a/cron b/cron
index abe0e9b..c5b1830 100644
--- a/cron
+++ b/cron
@@ -47,7 +47,8 @@ while (defined($ThisLine = <STDIN>)) {
       # Ignore
    } elsif (
       ($ThisLine =~ s/^([^ ]+) \([^ ]+\)\s+//) or
-      ($ThisLine =~ s/^\S+\s+\S+\s+..:..:..\s+\S+\s+\S+\[(\d+)\]:\s+\((\S+)\)\s+//)
+      ($ThisLine =~ s/^\S+\s+\S+\s+..:..:..\s+\S+\s+\S+\[(\d+)\]:\s+\((\S+)\)\s+//) or
+      ($ThisLine =~ s/^\S+\s+\S+\s+..:..:..\s+\S+\s+\S+\[\d+\]:\s+//)
    ) {
       $PID  = $1;
       $User = $2;
@@ -55,7 +56,12 @@ while (defined($ThisLine = <STDIN>)) {
       if ($ThisLine =~ s/^CMD \((.+)\)\s*$/$1/) {
          $Runs->{$User}->{$ThisLine}++;
          $ExecutedCommand{$PID} = {command=>$ThisLine, user=>$User};
-      } elsif ($ThisLine =~ s/^CMD FINISH \((.+)\)\s*$/$1/) {
+      } elsif ($ThisLine =~ s/^FILE .+ USER (\S+) PID (\d+) //) {
+         $PID  = $2;
+         $User = $1;
+         $Runs->{$User}->{$ThisLine}++;
+         $ExecutedCommand{$PID} = {command=>$ThisLine, user=>$User};
+       } elsif ($ThisLine =~ s/^CMD FINISH \((.+)\)\s*$/$1/) {
          $Runs->{$User}->{$ThisLine}++;
       } elsif ($ThisLine =~ s/^(END|CMD START) \((.+)\)\s*$/$1/) {
          #Ignore for now, NetBSD users could get tricky with
diff --git a/syslogd b/syslogd
new file mode 100644
index 0000000..976035a
--- /dev/null
+++ b/syslogd
@@ -0,0 +1,72 @@
+
+########################################################
+# Please file all bug reports, patches, and feature
+# requests under:
+#      https://sourceforge.net/p/logwatch/_list/tickets
+# Help requests and discusion can be filed under:
+#      https://sourceforge.net/p/logwatch/discussion/
+########################################################
+
+#######################################################
+## Copyright (c) 2008 Kirk Bauer
+## Covered under the included MIT/X-Consortium License:
+##    http://www.opensource.org/licenses/mit-license.php
+## All modifications and contributions by other persons to
+## this script are assumed to have been donated to the
+## Logwatch project and thus assume the above copyright
+## and licensing terms.  If you want to make contributions
+## under your own copyright or a different license this
+## must be explicitly stated in the contribution an the
+## Logwatch project reserves the right to not accept such
+## contributions.  If you have made significant
+## contributions to this script and want to claim
+## copyright please contact logwatch-devel@lists.sourceforge.net.
+#########################################################
+
+my $Detail = $ENV{'LOGWATCH_DETAIL_LEVEL'} || 0;
+
+while (defined($ThisLine = <STDIN>)) {
+   chomp($ThisLine);
+   if ( $ThisLine =~ /^-- MARK --$/ ) {
+   }
+   elsif ( $ThisLine =~ /^(exiting|going down) on signal 15$/ ) {
+      #$Kills++;
+   }
+   elsif ($ThisLine =~ /^syslogd .* restart\.$/) {
+      $Starts++;
+   }
+   elsif ($ThisLine =~ /^restart( \(remote reception\))?\.?$/) {
+      $Starts++;
+   }
+   elsif ($ThisLine =~ /^Cannot glue message parts together$/) {
+      $Errors++;
+   }
+   else {
+      # Report any unmatched entries...
+      $OtherList{$ThisLine}++;
+   }
+}
+
+if ($Errors) {
+    print "\nCould not glue message parts together " . $Errors . " Time(s)\n";
+}
+
+if ($Starts and ($Detail >=10) ) {
+    print "\nSyslogd started " . $Starts . " Time(s)\n";
+}
+
+if (keys %OtherList) {
+   print "\n**** Unmatched entries ****\n";
+   foreach $Error (keys %OtherList) {
+      print "    $Error : $OtherList{$Error} Times\n";
+   }
+}
+
+exit(0);
+
+# vi: shiftwidth=3 tabstop=3 syntax=perl et
+# Local Variables:
+# mode: perl
+# perl-indent-level: 3
+# indent-tabs-mode: nil
+# End: