#!/usr/local/bin/perl

$first = 0;

while (<>) {
	chomp;
	($a, $b) = split;

	@x[$i] = $a;
	@y[$i++] = $b;
}

if ($i) { --$i; }

($sec, $min, $hour, $mday, $mon, $year,
  $wday, $yday, $isdsy) = localtime(@x[0]);
  $year += $year < 69 ? 2000 : 1900;
  ++$mon;
  $mon = "0$mon" if ($mon <= 9);
  $mday = "0$mday" if ($mday <= 9);
  $start_label = "$mon-$mday-$year";

($sec, $min, $hour, $mday, $mon, $year,
  $wday, $yday, $isdsy) = localtime(@x[$i]);
  $year += $year < 69 ? 2000 : 1900;
  ++$mon;
  $mon = "0$mon" if ($mon <= 9);
  $mday = "0$mday" if ($mday <= 9);
  $end_label = "$mon-$mday-$year";

open (DATAFILE, ">datafile") or die "datafile\n";
for ($i2 = 0; $i2 < $i; ++$i2) {
  $x = @x[$i2] -@x[0];
  if (@y[$i2]) { print DATAFILE "$x @y[$i2]\n"; }
}

close DATAFILE;

open (CONTROL, ">control") or die "control\n";
print CONTROL "set xlabel \"DNS queries per hour : $start_label to $end_label\"
set yrange[0:500000]
plot 'datafile' with linespoints
\n";

close CONTROL;