:::::::::::::: historylog.sh ::::::::::::::

#!/bin/sh cat
'/home/vitech/logs/currentusage.txt' >> /home/vitech/logs/usage.txt

:::::::::::::: watts2fb.sh ::::::::::::::

#!/bin/sh

/home/vitech/scripts/watts2fb.pl > /home/vitech/logs/snapshottusage.txt

/home/vitech/scripts/smtp-cli --verbose --from=XXX@gmail.com --to post@XX.posterous.com --data /home/vitech/logs/snapshottusage.txt

:::::::::::::: wattslog.sh ::::::::::::::

#!/bin/sh date > /home/vitech/logs/currentusage.txt

/usr/local/bin/wattsup -c 1 ttyUSB0 watts >> /home/vitech/logs/currentusage.txt /home/vitech/scripts/historylog.sh

:::::::::::::: watts2fb.pl ::::::::::::::

#!/usr/bin/perl

open FILE, "/home/vitech/logs/currentusage.txt" or die $!;

$i=0;

while ()

{ @line = split (/ /,$_); chomp $line[5];

if ( $i == 0 )

{

$tstamp=$line[1]. ' ' . $line[2] . ' '. $line[5]. ' ' . $line[3] ;

}

if ( $i == 1 )

{

$watts = $line[0];

}

$i++;

}

$send = $tstamp . ' ' . $watts;

print "Subject : Watts used $watts\n";

print "@line watts";