[Mon-commit] mon/alert.d irc.alert,1.2,1.2.2.1

[Jim T. <tr...@us...>]

Update of /cvsroot/mon/mon/alert.d
In directory sfp-cvsdas-1.v30.ch3.sourceforge.com:/tmp/cvs-serv29441/alert.d

Modified Files:
      Tag: mon-1-2-branch
	irc.alert 
Log Message:
see CHANGES for details

Index: irc.alert
===================================================================
RCS file: /cvsroot/mon/mon/alert.d/irc.alert,v
retrieving revision 1.2
retrieving revision 1.2.2.1
diff -C2 -d -r1.2 -r1.2.2.1
*** irc.alert	17 Apr 2005 07:42:26 -0000	1.2
--- irc.alert	28 Dec 2009 21:11:46 -0000	1.2.2.1
***************
*** 23,26 ****
--- 23,28 ----
  #     -p secs     when showing detail, pause secs between
  #                 sending each line. secs may be fractional.
+ #     -P port
+ #     -e          encrypt (ie use ssl)
  #
  # Jim Trocki, tr...@ar...
***************
*** 46,54 ****
  use strict;
  use IO::Socket::INET;
  use Getopt::Std;
  use English;
  
  my %opt;
! getopts ("s:g:h:t:uTOjc:S:U:n:dN:p:", \%opt);
  
  my $CHAN = $opt{"c"} || "mon";
--- 48,57 ----
  use strict;
  use IO::Socket::INET;
+ use IO::Socket::SSL;
  use Getopt::Std;
  use English;
  
  my %opt;
! getopts ("s:g:h:t:uTOjc:S:U:n:dN:p:P:e", \%opt);
  
  my $CHAN = $opt{"c"} || "mon";
***************
*** 59,62 ****
--- 62,66 ----
  my $PAUSE = $opt{"p"} || 0;
  my $TIMEOUT = 10;
+ my $PORT = $opt{"P"} || 6667;
  
  #
***************
*** 83,91 ****
      # make the connection
      #
!     my $s = new IO::Socket::INET (
! 	"PeerAddr" => "$SERVER:6667",
! 	"Proto" => "tcp",
! 	"Timeout" => 10,
!     );
  
      die if (!defined $s);
--- 87,104 ----
      # make the connection
      #
!     my $s;
!     if ( $opt{"e"} ) {
! 	$s = new IO::Socket::SSL (
! 	    "PeerAddr" => "$SERVER:$PORT",
! 	    "Proto" => "tcp",
! 	    "Timeout" => 10,
! 	    );
!     } else {
! 	$s = new IO::Socket::INET (
! 	    "PeerAddr" => "$SERVER:$PORT",
! 	    "Proto" => "tcp",
! 	    "Timeout" => 10,
! 	    );
!     }
  
      die if (!defined $s);