blob: 0a2b5b90dcc38e8247257591156fb0839c7c8858 (
plain)
1
2
3
4
5
6
7
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;
}
|