244d243
< 	    $_->{"severity"},
1216d1214
<     # An alert object would be really really nice!
1219,1220c1217,1218
<     	my ($type, $group, $service, $severity, $time, $alert, $args, $summary) =
< 	    ($h =~ /^(\S+) \s+ (\S+) \s+ (\S+) \s+ (\d+) \s+
---
>     	my ($type, $group, $service, $time, $alert, $args, $summary) =
> 	    ($h =~ /^(\S+) \s+ (\S+) \s+ (\S+) \s+
1226d1223
< 		    severity => $severity,