|
|
@@ -10,9 +10,9 @@ sub new
|
|
|
my ($type, %args) = @_;
|
|
|
my $self = {
|
|
|
cfg => $args{cfg},
|
|
|
- normalline => '^\[(\d+):\d+\] <([^>]+)> (.*)$',
|
|
|
- actionline => '^\[(\d+):\d+\] Action: (\S+) (.*)$',
|
|
|
- thirdline => '^\[(\d+):(\d+)\] (\S+) (\S+) (\S+) (\S+)(.*)$',
|
|
|
+ normalline => '^\[(\d+):\d+(?:\:\d+)?\] <([^>]+)> (.*)$',
|
|
|
+ actionline => '^\[(\d+):\d+(?:\:\d+)?\] Action: (\S+) (.*)$',
|
|
|
+ thirdline => '^\[(\d+):(\d+)(?:\:\d+)?\] (\S+) (\S+) (\S+) (\S+)(.*)$',
|
|
|
};
|
|
|
|
|
|
bless($self, $type);
|