--- trunk/lib/Frey/Shell/sar.pm	2008/12/16 21:12:17	866
+++ trunk/lib/Frey/Shell/sar.pm	2008/12/16 22:35:05	867
@@ -23,9 +23,15 @@
 	my $cmd = $self->sar_command . ' ' . $opts;
 	warn "# cmd: $cmd";
 
+	my $date = '1970-01-01T';
+
 	open(my $fh, '-|', $cmd) || die "can't open pipe to $cmd $!";
 	while(<$fh>) {
 		chomp;
+		if ( m{(\d\d)/(\d\d)/(\d\d\d\d)$} ) {
+			$date = "$3-$1-$2T";
+			warn "# date $date";
+		}
 		next unless m{^\d\d:\d\d:\d\d};
 		my @l = split(/\s+/,$_);
 		if ( $l[$#l] =~ m{_([^_]+)_} ) {
@@ -36,6 +42,8 @@
 			next;
 		}
 
+		$l[0] = $date . $l[0];
+
 		push @rows, [ @l ];
 	}