Initial import

[samba] / examples / scripts / eventlog / parselog.pl

diff --git a/examples/scripts/eventlog/parselog.pl b/examples/scripts/eventlog/parselog.pl
new file mode 100644 (file)
index 0000000..61a0754
--- /dev/null
+++ b/examples/scripts/eventlog/parselog.pl
@@ -0,0 +1,33 @@
+#!/usr/bin/perl
+######################################################################
+##
+##  Simple parselog script for Samba
+##
+##  Copyright (C) Brian Moran                2005.
+##
+##  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 2 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, write to the Free Software
+##  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+##
+######################################################################
+
+## usage: tail -f /var/log/syslog | parselog.pl | eventlogadm "Application"
+
+while(<>) {
+    chomp();
+    @le = split '\s+',$_,5;
+    $ln = $le[4];
+    $cname = $le[3]; 
+    $outstr = sprintf "TMG: %d\nTMW: %d\nEID: 1000\nETP: INFO\nECT: 0\nRS2: 0\nCRN: 0\nUSL: 0\nSRC: Syslog\nSRN: $cname\nSTR: $ln\nDAT:\n\n",time(),time();
+    print $outstr;
+}