Index: ossp-pkg/flow2rrd/flow2rrd.pl
RCS File: /v/ossp/cvs/ossp-pkg/flow2rrd/flow2rrd.pl,v
rcsdiff -q -kk '-r1.13' '-r1.14' -u '/v/ossp/cvs/ossp-pkg/flow2rrd/flow2rrd.pl,v' 2>/dev/null
--- flow2rrd.pl	2004/12/27 15:58:23	1.13
+++ flow2rrd.pl	2004/12/27 16:11:47	1.14
@@ -33,6 +33,7 @@
 use POSIX;             # from OpenPKG "perl"
 use IO::File;          # from OpenPKG "perl"
 use Getopt::Long;      # from OpenPKG "perl"
+use Time::Local;       # from OpenPKG "perl"
 use File::Temp;        # from OpenPKG "perl"
 use Data::Dumper;      # from OpenPKG "perl"
 use Date::Parse;       # from OpenPKG "perl-time"
@@ -568,11 +569,13 @@
             }
             my @draw = (@draw_o, 'COMMENT:\n', @draw_i);
             push(@draw, "HRULE:0#000000");
+            my $now = time();
+            my $tzoffset = $now - timelocal(gmtime($now));
             my $ts = int(($graph->{-graph_start} / (24*60*60)) + 0) * (24*60*60);
             my $te = int(($graph->{-graph_end}   / (24*60*60)) + 1) * (24*60*60);
             for (my $t = $ts; $t < $te; $t += (12*60*60)) {
-                if (($t % (24*60*60)) == 0) { push(@draw, "VRULE:$t#000000"); }
-                else                        { push(@draw, "VRULE:$t#999999"); }
+                if (($t % (24*60*60)) == 0) { push(@draw, sprintf("VRULE:%d#000000", $t - $tzoffset)); }
+                else                        { push(@draw, sprintf("VRULE:%d#999999", $t - $tzoffset)); }
             }
             my @args = ();
             push(@args, $graph->{-img_file});
@@ -654,11 +657,13 @@
             }
             my @draw = (@draw_o, 'COMMENT:\n', @draw_i);
             push(@draw, "HRULE:0#000000");
+            my $now = time();
+            my $tzoffset = $now - timelocal(gmtime($now));
             my $ts = int(($graph->{-graph_start} / (24*60*60)) + 0) * (24*60*60);
             my $te = int(($graph->{-graph_end}   / (24*60*60)) + 1) * (24*60*60);
             for (my $t = $ts; $t < $te; $t += (12*60*60)) {
-                if (($t % (24*60*60)) == 0) { push(@draw, "VRULE:$t#000000"); }
-                else                        { push(@draw, "VRULE:$t#999999"); }
+                if (($t % (24*60*60)) == 0) { push(@draw, sprintf("VRULE:%d#000000", $t - $tzoffset)); }
+                else                        { push(@draw, sprintf("VRULE:%d#999999", $t - $tzoffset)); }
             }
             my @args = ();
             push(@args, $graph->{-img_file});