This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Initial integration of libnet-1.0703.
[perl5.git] / lib / Net / demos / snpp
1 #!/usr/local/bin/perl
2
3 use blib;
4 use Getopt::Long;
5 use Net::SNPP;
6
7 $opt_debug = undef;
8 $opt_h = undef;
9 $opt_p = undef;
10
11 GetOptions(qw(debug h p));
12
13 die "usage: $0 -h <host> -p <pagerid> <message>"
14         unless defined $opt_h && defined $opt_p && @ARGV;
15
16 Net::SNPP->debug(1)
17         if $opt_debug;
18
19 $snpp = Net::SNPP->new($opt_host);
20
21 $snpp->pager_id($opt_p) || die $snpp->message;
22 $snpp->content(join(" ",@ARGV)) || die $snpp->message;
23 $snpp->send() || die $snpp->message;
24
25 $snpp->quit;
26
27 __END__
28
29 or you could dp
30
31 $snpp = Net::SNPP->new($opt_host);
32
33 $snpp->send( Pager   => $opt_p,
34              Message => join(" ",@ARGV),
35              Alert   => 1,
36              Hold    => time + 3600
37            ) || die $snpp->message;
38
39 $snpp->quit;