RMSv1 Read Voltmeters Perl Script
RMSv1 Read Voltmeters Perl Script
#!/usr/bin/perl
##############################################################################################################
# Remote Monitoring System - (C)2001 - 2008 EtherTek Circuits #
# Read VoltMeters Perl Script version 1.0 #
# #
# #
# Copy this text and save it to a file called rmsadc.pl #
# #
# Make sure this file is executable! (chmod 755 rmsadc.pl) #
# #
# Usage Unix: rmsadc.pl [host] [password] [vm_nunber] #
# Usage Windows: perl rmsadc.pl [host] [password] [vm_nunber] #
# #
# [host] IP Address or Hostname #
# [password] Password is limited to 10 characters #
# [vm_number] a number from 1 to 8 #
# #
##############################################################################################################
#Includes
use IO::Socket;
use IO::Select;
use constant MAX_MSG_LEN => 505;
#######################################
###User Variables PLEASE EDIT THESE!###
#######################################
#uncomment and edit these if you would like to run this script without command line arguments.
#$defaultip = "10.10.10.10";
#$defaultpasswd = "public";
#$defaultvm = "1"; # This can be a number from 1 to 8
###########################################################
###System Variables DO NOT EDIT ANYTHING BELOW THIS LINE###
###########################################################
chomp $mypasswd;
$rev = "Ver 1.0";
$host = shift || $defaultip;
$mypasswd = shift || $defaultpasswd;
$thevm = shift || $defaultvm;
$bcommand = "&^BND20011$mypasswd*********************************************************************************************************************************************************************************************";
###########################################################################
## Main Program ###########################################################
###########################################################################
if ($host eq "") {print "\nPlease specify the ip address or hostname, password, and Voltmeter number\n\n";exit;}
if ($mypasswd eq "") {print "\nPlease specify the password\n";exit;}
if ($thevm eq "") {print "\nPlease specify the voltmeter: A number from 1 to 8.\n\n";exit;}
&fillvars;
##### Try up to 5 more times to get the info if no response.
if (length($msg_in) < 5) { &fillvars; }
if (length($msg_in) < 5) { &fillvars; }
if (length($msg_in) < 5) { &fillvars; }
if (length($msg_in) < 5) { &fillvars; }
if (length($msg_in) < 5) { &fillvars; }
if (length($msg_in) < 5) { die "Could not retrive info!!"; }
if ($thevm eq "1") {print "$adc1\n";exit;}
if ($thevm eq "2") {print "$adc2\n";exit;}
if ($thevm eq "3") {print "$adc3\n";exit;}
if ($thevm eq "4") {print "$adc4\n";exit;}
if ($thevm eq "5") {print "$adc5\n";exit;}
if ($thevm eq "6") {print "$adc6\n";exit;}
if ($thevm eq "7") {print "$adc7\n";exit;}
if ($thevm eq "8") {print "$adc8\n";exit;}
print "\nUsage: rmsadc.pl [host] [password] [vm]\n\n";
exit;
############################################################################
## Subroutines #############################################################
############################################################################
######################################
#Get info from RMSv1 board.
######################################
sub fillvars {
$sock = IO::Socket::INET->new(Proto=>'udp',PeerAddr=>"$host:7",Timeout => "3") or die $@;
$sel = IO::Select->new;
$sel->add($sock);
$sock->send($bcommand) or die "send() failed: $!";
sleep 1;
while ($sel->can_read(0)) { $sock->recv($msg_in,MAX_MSG_LEN) or die "recv() failed: $!"; }
$CorrectPassword = ord(substr($msg_in,10,1));
if ($CorrectPassword ne "0")
{
print "Bad Password\n";
exit;
}
#Get Firmware Version
$fwrev_H = ord(substr($msg_in,65,1));
$fwrev_L = ord(substr($msg_in,66,1));
$fwrev_M = ord(substr($msg_in,67,1));
$fwrev = "$fwrev_H.$fwrev_L$fwrev_M";
#Get Mac Address
$mac1 = uc(sprintf("%x",ord(substr($msg_in,14,1))));
$mac2 = uc(sprintf("%x",ord(substr($msg_in,15,1))));
$mac3 = uc(sprintf("%x",ord(substr($msg_in,16,1))));
$mac4 = uc(sprintf("%x",ord(substr($msg_in,17,1))));
$mac5 = uc(sprintf("%x",ord(substr($msg_in,18,1))));
$mac6 = uc(sprintf("%x",ord(substr($msg_in,19,1))));
$mac = "$mac1:$mac2:$mac3:$mac4:$mac5:$mac6";
#Get ADC Values
$adc1_hi = ord(substr($msg_in,20,1));
$adc1_lo = ord(substr($msg_in,21,1));
$hexval1_hi = sprintf ("%x", $adc1_hi);
$hexval1_lo = sprintf ("%x", $adc1_lo);
$adc = hex($hexval1_hi . $hexval1_lo) / 4095 * 30;
$adc1mv = $adc*1000;
$adc1mv = sprintf("%.0f",$adc1mv);
$adc1 = sprintf("%.2f",$adc);
$adc2_hi = ord(substr($msg_in,22,1));
$adc2_lo = ord(substr($msg_in,23,1));
$hexval2_hi = sprintf ("%x", $adc2_hi);
$hexval2_lo = sprintf ("%x", $adc2_lo);
$adc = hex($hexval2_hi . $hexval2_lo) / 4095 * 30;
$adc2mv = $adc*1000;
$adc2mv = sprintf("%.0f",$adc2mv);
$adc2 = sprintf("%.2f",$adc);
$adc3_hi = ord(substr($msg_in,24,1));
$adc3_lo = ord(substr($msg_in,25,1));
$hexval3_hi = sprintf ("%x", $adc3_hi);
$hexval3_lo = sprintf ("%x", $adc3_lo);
$adc = hex($hexval3_hi . $hexval3_lo) / 4095 * 30;
$adc3mv = $adc*1000;
$adc3mv = sprintf("%.0f",$adc3mv);
$adc3 = sprintf("%.2f",$adc);
$adc4_hi = ord(substr($msg_in,26,1));
$adc4_lo = ord(substr($msg_in,27,1));
$hexval4_hi = sprintf ("%x", $adc4_hi);
$hexval4_lo = sprintf ("%x", $adc4_lo);
$adc = hex($hexval4_hi . $hexval4_lo) / 4095 * 30;
$adc4mv = $adc*1000;
$adc4mv = sprintf("%.0f",$adc4mv);
$adc4 = sprintf("%.2f",$adc);
$adc5_hi = ord(substr($msg_in,28,1));
$adc5_lo = ord(substr($msg_in,29,1));
$hexval5_hi = sprintf ("%x", $adc5_hi);
$hexval5_lo = sprintf ("%x", $adc5_lo);
$adc = hex($hexval5_hi . $hexval5_lo) / 4095 * 30;
$adc5mv = $adc*1000;
$adc5mv = sprintf("%.0f",$adc5mv);
$adc5 = sprintf("%.2f",$adc);
$adc6_hi = ord(substr($msg_in,30,1));
$adc6_lo = ord(substr($msg_in,31,1));
$hexval6_hi = sprintf ("%x", $adc6_hi);
$hexval6_lo = sprintf ("%x", $adc6_lo);
$adc = hex($hexval6_hi . $hexval6_lo) / 4095 * 5;
$adc6mv = $adc*1000;
$adc6mv = sprintf("%.0f",$adc6mv);
$adc6 = sprintf("%.2f",$adc);
$adc7_hi = ord(substr($msg_in,32,1));
$adc7_lo = ord(substr($msg_in,33,1));
$hexval7_hi = sprintf ("%x", $adc7_hi);
$hexval7_lo = sprintf ("%x", $adc7_lo);
$adc = hex($hexval7_hi . $hexval7_lo) / 4095 * 5;
$adc7mv = $adc*1000;
$adc7mv = sprintf("%.0f",$adc7mv);
$adc7 = sprintf("%.2f",$adc);
$adc8_hi = ord(substr($msg_in,34,1));
$adc8_lo = ord(substr($msg_in,35,1));
$hexval8_hi = sprintf ("%x", $adc8_hi);
$hexval8_lo = sprintf ("%x", $adc8_lo);
$adc = hex($hexval8_hi . $hexval8_lo) / 4095 * 5;
$adc8mv = $adc*1000;
$adc8mv = sprintf("%.0f",$adc8mv);
$adc8 = sprintf("%.2f",$adc);
#Get Temp
$temp_hi = ord(substr($msg_in,68,1)); #temp byte
$temp_lo = ord(substr($msg_in,69,1)); #flag byte
if ( $fwrev => 167 )
# Firmware 1.67 and above is done like this...
{
if ($temp_lo == 0) # Not Neg, Not .5
{
$temp = ($temp_hi);
$tempf = (((9/5) * $temp) + 32);
}
elsif ($temp_lo == 1) # Neg, Not .5
{
$temp = "-" . ($temp_hi);
$tempf = (((9/5) * $temp) + 32);
}
elsif ($temp_lo == 128) # Not Neg, .5
{
$temp = ($temp_hi + .5);
$tempf = (((9/5) * $temp) + 32);
}
elsif ($temp_lo == 129) # Neg, .5
{
$temp = "-" . ($temp_hi + .5);
$tempf = (((9/5) * $temp) + 32);
}
}
elsif ( $fwrev <= 166 ) # Firmware <= 1.66 is done like this...
# Firmware wasnt 1.67
{
if ($temp_lo == 0)
{
$temp = ($temp_hi / 2);
$tempf = (((9/5) * $temp) + 32);
}
else
{
$temp = "-" . ($temp_hi / 2);
$tempf = (((9/5) * $temp) + 32);
}
}
#Get Uptime
$sec1 = ord(substr($msg_in,73,1)); #uptime byte1 (Seconds)
$sec2 = ord(substr($msg_in,74,1)); #uptime byte2 (Seconds)
$sec3 = ord(substr($msg_in,75,1)); #uptime byte3 (Seconds)
$sec4 = ord(substr($msg_in,76,1)); #uptime byte4 (Seconds)
$sec1h = sprintf ("%x", $sec1);
if (length($sec1h) == 1) {$sec1h = "0" . $sec1h;}
$sec2h = sprintf ("%x", $sec2);
if (length($sec2h) == 1) {$sec2h = "0" . $sec2h;}
$sec3h = sprintf ("%x", $sec3);
if (length($sec3h) == 1) {$sec3h = "0" . $sec3h;}
$sec4h = sprintf ("%x", $sec4);
if (length($sec4h) == 1) {$sec4h = "0" . $sec4h;}
$secs = hex($sec4h . $sec3h . $sec2h . $sec1h);
$secs = "Unsupported In This RMS Firmware" if $secs == 707406378;
#Get Relay Status
$rly1 = ord(substr($msg_in,36,1));
if ($rly1 == 0) { $rly1 = "On"; } else { $rly1 = "Off"; }
$rly2 = ord(substr($msg_in,37,1));
if ($rly2 == 0) { $rly2 = "On"; } else { $rly2 = "Off"; }
$rly3 = ord(substr($msg_in,38,1));
if ($rly3 == 0) { $rly3 = "On"; } else { $rly3 = "Off"; }
#Get IO Pin Status
$io1 = ord(substr($msg_in,61,1));
$io2 = ord(substr($msg_in,62,1));
$io3 = ord(substr($msg_in,63,1));
$io4 = ord(substr($msg_in,64,1));
$io5 = ord(substr($msg_in,39,1));
#Get Station Name
$station = "";
for ($bb = 77; $bb <= 96; $bb++)
{
$mybuf = chr(ord(substr($msg_in,$bb,1)));
$station = $station . $mybuf;
}
$sock->close;
}
