if (m/^(<[[:digit:]]+>)/g) { $PRI = $1 }
else { $PRI = '<13>' }
- if (m/\G(Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec)\s
- (\d{2})\s(\d{2}):(\d{2}):(\d{2})\s/gcx)
+ if (m/\G(Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec)\s+
+ (\d{1,2})\s+(\d{2}):(\d{2}):(\d{2})\s+/gcx)
{ $TIMESTAMP =
strftime '%Y-%m-%dT%H:%M:%S',
$5, $4, $3, $2, $Months{$1}-1, (localtime)[5..8] }
{ $TIMESTAMP =
strftime '%Y-%m-%dT%H:%M:%S', localtime }
- if (m/\G([-[:alnum:]]+) /gc) { $HOSTNAME = $1 }
+ if (m/\G([-[:alnum:]]+) +/gc) { $HOSTNAME = $1 }
else { $HOSTNAME = 'localhost' }
$MSG = substr $_, pos $_ if pos $_;