[Mon-commit] monperl/Mon Client.pm,1.2,1.2.2.1 Config.pm,1.1.1.1,1.1.1.1.2.1 Protocol.pm,1.2,1.2.2.1 SNMP.pm,1.1.1.1,1.1.1.1.2.1

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

Update of /cvsroot/mon/monperl/Mon
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19713/Mon

Modified Files:
      Tag: monperl-1-0-0pre1
	Client.pm Config.pm Protocol.pm SNMP.pm 
Log Message:
updated version to 1.0000

Index: Protocol.pm
===================================================================
RCS file: /cvsroot/mon/monperl/Mon/Protocol.pm,v
retrieving revision 1.2
retrieving revision 1.2.2.1
diff -C2 -d -r1.2 -r1.2.2.1
*** Protocol.pm	14 Jun 2004 13:25:03 -0000	1.2
--- Protocol.pm	18 Jun 2004 13:43:46 -0000	1.2.2.1
***************
*** 119,123 ****
  @EXPORT_OK = qw($VERSION @);
  
! $VERSION = "0.9903";
  
  @TYPES = qw(cmd_monitor cmd_alert cmd_logger res_monitor res_alert res_logger);
--- 119,123 ----
  @EXPORT_OK = qw($VERSION @);
  
! $VERSION = "1.0000";
  
  @TYPES = qw(cmd_monitor cmd_alert cmd_logger res_monitor res_alert res_logger);

Index: SNMP.pm
===================================================================
RCS file: /cvsroot/mon/monperl/Mon/SNMP.pm,v
retrieving revision 1.1.1.1
retrieving revision 1.1.1.1.2.1
diff -C2 -d -r1.1.1.1 -r1.1.1.1.2.1
*** SNMP.pm	14 Jun 2004 12:51:05 -0000	1.1.1.1
--- SNMP.pm	18 Jun 2004 13:43:46 -0000	1.1.1.1.2.1
***************
*** 22,25 ****
--- 22,28 ----
  SNMP trap handling to "mon".
  
+ It is not complete, so don't bother trying to use it unless you are
+ ready to debug and write some code.
+ 
  =head1 METHODS
  
***************
*** 120,124 ****
  @EXPORT_OK = qw(@traptypes @ASN_DEFS $VERSION);
  
! $VERSION = "0.9903";
  
  @traptypes = ("COLDSTART", "WARMSTART", "LINKDOWN", "LINKUP", "AUTHFAIL",
--- 123,127 ----
  @EXPORT_OK = qw(@traptypes @ASN_DEFS $VERSION);
  
! $VERSION = "1.0000";
  
  @traptypes = ("COLDSTART", "WARMSTART", "LINKDOWN", "LINKUP", "AUTHFAIL",

Index: Client.pm
===================================================================
RCS file: /cvsroot/mon/monperl/Mon/Client.pm,v
retrieving revision 1.2
retrieving revision 1.2.2.1
diff -C2 -d -r1.2 -r1.2.2.1
*** Client.pm	14 Jun 2004 13:25:03 -0000	1.2
--- Client.pm	18 Jun 2004 13:43:45 -0000	1.2.2.1
***************
*** 38,42 ****
  use vars grep { /^\W/ } @EXPORT_OK;
  
! $VERSION = "0.9903";
  
  my ($STAT_FAIL, $STAT_OK, $STAT_COLDSTART, $STAT_WARMSTART, $STAT_LINKDOWN,
--- 38,42 ----
  use vars grep { /^\W/ } @EXPORT_OK;
  
! $VERSION = "1.0000";
  
  my ($STAT_FAIL, $STAT_OK, $STAT_COLDSTART, $STAT_WARMSTART, $STAT_LINKDOWN,

Index: Config.pm
===================================================================
RCS file: /cvsroot/mon/monperl/Mon/Config.pm,v
retrieving revision 1.1.1.1
retrieving revision 1.1.1.1.2.1
diff -C2 -d -r1.1.1.1 -r1.1.1.1.2.1
*** Config.pm	14 Jun 2004 12:51:05 -0000	1.1.1.1
--- Config.pm	18 Jun 2004 13:43:46 -0000	1.1.1.1.2.1
***************
*** 29,33 ****
  @EXPORT_OK = qw($VERSION);
  
! $VERSION = "0.9903";
  
  sub new
--- 29,33 ----
  @EXPORT_OK = qw($VERSION);
  
! $VERSION = "1.0000";
  
  sub new