+|;
+
+ my $del; # delimiter between date and time
+
+ if ( $ret->{rows}->[0]->[0] =~ m/(\d{4}-\d{2}-\d{2})(.)?(\d{2}:\d{2}:\d{2})?/ ) {
+
+ my ( $date,$time );
+ ( $date, $del, $time ) = ( $1,$2,$3 );
+
+ my $fmt = '%Y-%m-%d';
+ $fmt .= 'T' if $del;
+ $fmt .= '%H:%M:%S' if $time;
+
+ my $format_x = $time ? '%d %H:%M' : '%Y-%m-%d';
+ $gnuplot .= qq|