summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--examples/scripts/eventlog/parselog.pl8
1 files changed, 8 insertions, 0 deletions
diff --git a/examples/scripts/eventlog/parselog.pl b/examples/scripts/eventlog/parselog.pl
new file mode 100644
index 0000000000..0a2b5b90dc
--- /dev/null
+++ b/examples/scripts/eventlog/parselog.pl
@@ -0,0 +1,8 @@
+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;
+}