#!/usr/bin/perl
#  $Id: rrdup.pl,v 1.3 2008/10/30 22:47:44 anderson Exp $
# example in-line perl code to do an RRDUP datagram -- ksb

use lib '/usr/local/lib/sac/perl'.join('.', unpack('c*', $^V)),
	'/usr/local/lib/sac';

use strict;
use Socket;
use Sys::Hostname;

MAIN: {
	my($update);

	$update = "00 path.rrd tem:plate:ds:names time:tval:pval:dval:nval";

	my($line,$update);
	# Send to peg's rrdd
	my($ipout,$proto,$sockaddr);
	$ipout = inet_aton("peg.sac.fedex.com");
	$proto = getprotobyname('udp');
	$sockaddr = sockaddr_in(31415, $ipout);
	socket(SOCKET, PF_INET, SOCK_DGRAM, $proto);
	send(SOCKET, $update, 0, $sockaddr);
	close(SOCKET);

	exit(0);
}