#! /usr/bin/perl -w
# demo_stat.pl
#
# This script will attempt to connect to the OpenVault server and 
# get a response.  If for some reason we can't connect to the
# server, we know OpenVault is down.
require 5.002;
use Socket;
use FileHandle;
# This assumes that the OV core is on the same host as
# this script is running.
$ov_server = `hostname `;
chop $ov_server;
$ov_port = “44444”;
# Setup connection to OpenVault server process.
# See “Programming Perl” 2nd ED. P. 498 for discussion
# on network programming with Perl. 
$iaddr = inet_aton($ov_server) or die “no host: $ov_server”;
$paddr = sockaddr_in($ov_port, $iaddr);
$proto = getprotobyname(“tcp”);
socket(SOCK, PF_INET, SOCK_STREAM, $proto) or die “socket: $!”;
connect(SOCK, $paddr) or die “connect: $!”;
SOCK -> autoflush();
# Now that a connection is made to the OpenVault server
# process, we treat it just like another other file.
# Send initial data to server
print SOCK “$ov_server\r\nSYSTEM\r\nonlyInstance\r\nAAPI\r\n0\r\n”;
# Get response and ignore it 
#  Response should only be `ok'
$line = <SOCK>;
# Send HELLO greeting
print SOCK “hello client[`SYSTEM']instance[`onlyInstance']”;
print SOCK “language[`AAPI']versions[`1.0'];\r\n”;
$line = <SOCK>;
if (substr($line,0,7) eq “welcome”) {
   # Welcome is good and what we want
}
elsif (substr($line,0,9) eq “unwelcome”) {
   # Server has rejected us
   die “Server Not Allowing Request\n”;
}
else {
   #Got an undefined answer from server
   #We should not get here
   die “Undefined Error\n”;
}
# Since we have communicated with the server,
# we know that OpenVault is running.
print “OpenVault server $ov_server is UP\n\n”;
# Send goodbye command
print SOCK “goodbye task[`0'];\r\n”;
# Get command `accepted' from server.
$line = <SOCK>;
# Get command `success' from server.
$line = <SOCK>;
close(SOCK) or die “close: $!”;
exit;

#! /usr/bin/perl -w
require 5.002;
use Socket;
use FileHandle;
$ov_server = `hostname `;
chop $ov_server;
$ov_port = “44444”;
# Setup connection to OpenVault server process.
# See “Programming Perl” 2nd ED. P. 498 for discussion
# on network programming with Perl. 
$iaddr = inet_aton($ov_server) or die “no host: $ov_server”;
$paddr = sockaddr_in($ov_port, $iaddr);
$proto = getprotobyname(“tcp”);
socket(SOCK, PF_INET, SOCK_STREAM, $proto) or die “socket: $!”;
connect(SOCK, $paddr) or die “connect: $!”;
SOCK -> autoflush();
# Now that a connection is made to the OpenVault server
# process, we treat it just like another other file.
#Send initial data to server
print SOCK “$ov_server\r\nSYSTEM\r\nOnlyInstance\r\nAAPI\r\n0\r\n”;
#Get response and ignore it 
#  Response should only be `ok'
$line = <SOCK>;
# Send HELLO greeting
print SOCK “hello client[`SYSTEM']instance[`onlyInstance']”;
print SOCK “language[`AAPI']versions[`1.0'];\r\n”;
$line = <SOCK>;
if (substr($line,0,7) eq “welcome”) {
   # Welcome is good and what we want
}
elsif ( substr($line,0,9) eq “unwelcome”) {
   # Server has rejected us
   die “Server Not Allowing Request\n”;
}
else {
   #Got an undefined answer from server
   #We should not get here
   die “Undefined Error\n”;
}
# Send show command
print SOCK “show match[ regEx (`.*' DRIVE.'DriveName')]”; 
print SOCK “report[DRIVE.'DriveName'] task[`0'];\r\n”;
# Get command `accepted' from server
$line = <SOCK>;
# Get command `success' from server with results of command
# along with results
$line = <SOCK>;
#Now we need to do something with the data
#A non-trivial script would parse out the results
#and display it in a more human readable form.
print $line;
print SOCK “goodbye task[`1'];\r\n”;
# Get command `accepted' from server
$line = <SOCK>;
# Get command `success' from server
$line = <SOCK>;
close(SOCK) or die “close: $!”;
exit;