use Net::SNPP;
# Constructors
$snpp = Net::SNPP->new('snpphost');
$snpp = Net::SNPP->new('snpphost', Timeout => 60);
A new Net::SNPP object must be created with the new method. Once this has been done, all SNPP commands are accessed through this object.
#!/usr/local/bin/perl -w
use Net::SNPP;
$snpp = Net::SNPP->new('snpphost');
$snpp->send( Pager => $some_pager_number,
Message => "Your lunch is ready",
Alert => 1,
Hold => time + 3600, # lunch ready in 1 hour :-)
) || die $snpp->message;
$snpp->quit;
HOST is the name of the remote host to which a
SNPP connection is required.
If HOST is not given, then the SNPP_Host specified in Net::Config
will be used.
OPTIONS are passed in a hash like fashion, using key and value pairs. Possible
options are:
Timeout - Maximum time, in seconds, to wait for a response from the SNPP server (default: 120)
Debug - Enable debugging information
Example:
$snpp = Net::SNPP->new('snpphost',
Debug => 1,
);
Net::SNPP exports all that Net::CMD exports, plus three more subroutines that can bu used to compare against
the result of status. These are :-
CMD_2WAYERROR, CMD_2WAYOK, and CMD_2WAYQUEUED.