#!/usr/bin/perl
package WOO::Sophia::RRDmagick;

use lib '/ADMIN/PROG/SNMPG/modules';

use strict;

use Data::Dumper;
use RRDs;
use POSIX;
use File::Basename;
use WOO::Sophia::DEBUG;


my $destination = $ARGV[0];
my $timestamp = 1213282050;
while($timestamp < 1223282080)
{
	print "updating $destination $timestamp:1300\n";
	RRDs::update($destination, "$timestamp:1300");
	#my $ERR=RRDs::error;
	my $ERR="";
	print "$ERR\n" if($ERR);
	$timestamp += 30; 
}
