--- google/rules.pl	2007/06/17 22:14:59	24
+++ google/rules.pl	2007/06/17 22:33:45	25
@@ -37,13 +37,19 @@
 		},
 		qr/EventStruct/ => sub {
 			my ($tag_name, $tag_hash, $context, $parent_data) = @_;
-			warn dump( $tag_name, $tag_hash );
 			push @{ $state->{EventStruct} }, $tag_hash->{EventCode}->{_content};
 		},
-		qr/MaxEnvelopes/ => sub {
+		qr/(MaxEnvelopes|CurrentTime|RetryCount)/ => sub {
 			my ($tag_name, $tag_hash, $context, $parent_data) = @_;
-			$state->{MaxEnvelopes} = $tag_hash->{_content};
-		}
+			$state->{$tag_name} = $tag_hash->{_content};
+		},
+		qr/ParameterValueStruct/ => sub {
+			my ($tag_name, $tag_hash, $context, $parent_data) = @_;
+			# Name/Value tags must be case insnesitive
+			my $name = (grep( /name/i, keys %$tag_hash ))[0];
+			my $value = (grep( /value/i, keys %$tag_hash ))[0];
+			$state->{Parameter}->{ $tag_hash->{$name}->{_content} } = $tag_hash->{$value}->{_content};
+		},
 	]
 );