Attachment 672253 Details for Bug 891688 – Workaround time format change in some 10.x systat versions

[patch] Workaround time format change in some 10.x systat versions

dash-time.patch (text/plain), 977 bytes, created by Nathan Scott on 2013-01-03 23:25:32 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Nathan Scott

Created: 2013-01-03 23:25:32 UTC

Size: 977 bytes

patch

obsolete

>diff --git a/src/pmimport/sar2pcp/sar2pcp b/src/pmimport/sar2pcp/sar2pcp
>index a40b019..ed2f4ef 100755
>--- a/src/pmimport/sar2pcp/sar2pcp
>+++ b/src/pmimport/sar2pcp/sar2pcp
>@@ -57,6 +57,16 @@ sub dodate($)
>     return $fields[2] . '-' . $mm_map{$mm} . '-' . $fields[0];
> }
> 
>+sub dotime($)
>+{
>+    # convert time format HH-MM-SS from a few 10.x sysstat versions
>+    # into the format HH:MM:SS that Date::Parse (reasonably) expects
>+    #
>+    my ($daytime) = @_;
>+    $daytime =~ s/-/:/g;
>+    return $daytime;
>+}
>+
> sub dovalue($)
> {
>     # convert string to floating point value:  "0,00" / "0.00" / undef
>@@ -259,7 +269,7 @@ pmiStart($ARGV[1], 0);
> while (defined(my $token = $parser->get_token())) {
>     if ($token->is_start_tag) {
> 	if ($token->tag eq 'timestamp') {
>-	    $stamp = dodate($token->attr->{'date'}) . ' ' . $token->attr->{'time'};
>+	    $stamp = dodate($token->attr->{'date'}) . ' ' . dotime($token->attr->{'time'});
> 	    $sample++;
> 	    $putsts = 0;
> 	}

Actions: View | Diff

Attachments on bug 891688: 672135 | 672253