From 686337f3173d259f9dc05f9d6c19a8c95e2cb00b Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Fri, 17 Aug 2001 13:47:53 +0000 Subject: Upgrade to libnet 1.0704. p4raw-id: //depot/perl@11709 --- lib/Net/demos/snpp | 39 --------------------------------------- 1 file changed, 39 deletions(-) delete mode 100755 lib/Net/demos/snpp (limited to 'lib/Net/demos') diff --git a/lib/Net/demos/snpp b/lib/Net/demos/snpp deleted file mode 100755 index f046b58ff8..0000000000 --- a/lib/Net/demos/snpp +++ /dev/null @@ -1,39 +0,0 @@ -#!/usr/local/bin/perl - -use blib; -use Getopt::Long; -use Net::SNPP; - -$opt_debug = undef; -$opt_h = undef; -$opt_p = undef; - -GetOptions(qw(debug h p)); - -die "usage: $0 -h -p " - unless defined $opt_h && defined $opt_p && @ARGV; - -Net::SNPP->debug(1) - if $opt_debug; - -$snpp = Net::SNPP->new($opt_host); - -$snpp->pager_id($opt_p) || die $snpp->message; -$snpp->content(join(" ",@ARGV)) || die $snpp->message; -$snpp->send() || die $snpp->message; - -$snpp->quit; - -__END__ - -or you could dp - -$snpp = Net::SNPP->new($opt_host); - -$snpp->send( Pager => $opt_p, - Message => join(" ",@ARGV), - Alert => 1, - Hold => time + 3600 - ) || die $snpp->message; - -$snpp->quit; -- cgit v1.2.1