--- Client.pm	Thu Mar  7 11:56:50 2002
+++ Client.pm.sev	Thu Mar  7 11:58:05 2002
@@ -241,6 +241,7 @@
 	    $_->{"type"},
 	    $_->{"watch"},
 	    $_->{"service"},
+	    $_->{"severity"},
 	    $_->{"time"},
 	    $_->{"alert"},
 	    $_->{"args"},
@@ -422,6 +423,8 @@
 #
 # Perl module for interacting with a mon server
 #
+# Severity level support added by Dan Urist <durist@world.std.com>
+#
 # $Id: Client.pm 1.4 Thu, 11 Jan 2001 08:42:17 -0800 trockij $
 #
 # Copyright (C) 1998-2000 Jim Trocki
@@ -1212,15 +1215,17 @@
     	return undef;
     }
 
+    # An alert object would be really really nice!
     foreach $h (@h) {
 	$h = _un_esc_str ($h);
-    	my ($type, $group, $service, $time, $alert, $args, $summary) =
-	    ($h =~ /^(\S+) \s+ (\S+) \s+ (\S+) \s+
+    	my ($type, $group, $service, $severity, $time, $alert, $args, $summary) =
+	    ($h =~ /^(\S+) \s+ (\S+) \s+ (\S+) \s+ (\d+) \s+
 		    (\d+) \s+ (\S+) \s+ \(([^)]*)\) \s+ (.*)$/x);
 	push @alerts, { type => $type,
 		    watch => $group,
 		    group => $group,
 		    service => $service,
+		    severity => $severity,
 		    time => $time,
 		    alert => $alert,
 		    args => $args,