#!/usr/bin/perl -w

use strict;
use File::Temp qw(tempfile tempdir);
use IO::Handle;

my $tempdir=tempdir(CLEANUP=>1);
my ($plotFh, $plotFilename)=tempfile(DIR=>$tempdir);

# replace this with whatever the real data src is if needed
open(DATASRC,"perl dataSrc.pl|") or die "Can't run data source, error $!";

open(GNUPLOT,"|gnuplot");

$plotFh->autoflush(1);

select GNUPLOT;
$|=1;

# set up plot options for time series graph
print GNUPLOT "set xdata time\n";
print GNUPLOT q(set timefmt "%H:%M:%S"),qq(\n);

my $prevTime="";
my $prevValue=0;

while(<DATASRC>) {
    chomp;
    my ($time, $value)=split /,/;

    if($time ne $prevTime) {
        if($prevTime ne "") {
            print $plotFh "$prevTime $prevValue\n";
            print GNUPLOT "plot '$plotFilename' using 1:2\n";
        }
        $prevTime=$time;
    }
    $prevValue=$value;
}