mirror of
https://github.com/samba-team/samba.git
synced 2025-01-11 05:18:09 +03:00
r11548: adding simple script to tail syslog and write to eventlog tdb
(This used to be commit 9337a286c9
)
This commit is contained in:
parent
4787311083
commit
d1e1766c08
8
examples/scripts/eventlog/parselog.pl
Normal file
8
examples/scripts/eventlog/parselog.pl
Normal file
@ -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;
|
||||
}
|
Loading…
Reference in New Issue
Block a user