Compare commits
	
		
			1 Commits
		
	
	
		
	
	| Author | SHA1 | Date | |
|---|---|---|---|
|   | ea7eb9c71f | 
							
								
								
									
										81
									
								
								t/prereq.t
									
									
									
									
									
								
							
							
						
						
									
										81
									
								
								t/prereq.t
									
									
									
									
									
								
							| @@ -1,81 +0,0 @@ | ||||
| #!/usr/local/bin/perl -w | ||||
| # prereq.t - Test file for prerequesites for SNMP::Info | ||||
| # $Id$ | ||||
|  | ||||
| use Test::More tests=> 3; | ||||
|  | ||||
| # Check for SNMP Module | ||||
| my $have_snmp=0; | ||||
|  | ||||
| eval { | ||||
|     require SNMP; | ||||
| }; | ||||
|  | ||||
| if ($@){ | ||||
|     print STDERR <<'end_snmp'; | ||||
|  | ||||
| Net-SNMP not found.  Net-SNMP installs the perl modules | ||||
| SNMP and SNMP::Session.  As of version 4.2.1 and greater the Perl | ||||
| modules are no longer distributed on CPAN, as they are specific to different | ||||
| versions of SNMP.  | ||||
|  | ||||
| Install Net-SNMP from http://net-snmp.sourceforge.net and make sure you run | ||||
| configure with the --with-perl-modules switch! | ||||
|  | ||||
| Note to Redhat Users:  Redhat, in its infinite wisdom, does not install the  | ||||
| Perl modules as part of their 8.0 RPMS.  Please uninstall them and install the | ||||
| newest version by hand. | ||||
|  | ||||
|  | ||||
|  | ||||
| end_snmp | ||||
|     ok(0,'Net-SNMP not installed, or missing Perl modules.'); | ||||
| } else { | ||||
|     $have_snmp=1; | ||||
|     ok(1,'Net-SNMP installed'); | ||||
| } | ||||
|  | ||||
| # Check for version | ||||
| SKIP: { | ||||
|     skip('SNMP not installed, no further testing',2) unless $have_snmp; | ||||
|  | ||||
|     my $VERSION = $SNMP::VERSION; | ||||
|     ok(defined $VERSION ? 1 : 1, "found version for SNMP"); | ||||
|  | ||||
|     my ($ver_maj,$ver_min,$ver_rev) = split(/\./,$VERSION); | ||||
|  | ||||
|     ok ($ver_maj >= 4, 'Net-SNMP ver 4 or higher'); | ||||
|      | ||||
|     if ($ver_maj == 4 and $ver_min == 2 and $ver_rev == 0){ | ||||
|         print STDERR << "end_420"; | ||||
|  | ||||
| SNMP module version 4.2.0 found.  Please triple check that you have | ||||
| version 4.2.0 of Net-SNMP installed, and that you did not accidently install | ||||
| the SNMP module found on CPAN.  All newer versions are bundled with  | ||||
| Net-SNMP, and are not available on CPAN.  Please find them at  | ||||
| http://net-snmp.sourceforge.net .  Make sure you run configure with the  | ||||
| --with-perl-modules switch. | ||||
|  | ||||
| end_420 | ||||
|     } | ||||
|   | ||||
|     if( $ver_maj == 5 and $ver_min == 0 and $ver_rev == 1 ){ | ||||
|         print STDERR << "end_501"; | ||||
|  | ||||
|  | ||||
| Perl module of Net-SNMP 5.0.1 is buggy. Please upgrade. | ||||
|  | ||||
|  | ||||
| end_501 | ||||
|  | ||||
|     }  | ||||
| } | ||||
|  | ||||
| print STDERR << "end_mibs"; | ||||
|  | ||||
|  | ||||
| Make sure you download and install the MIBS needed for SNMP::Info.    | ||||
| See Man page or perldoc for SNMP::Info. | ||||
|  | ||||
| end_mibs | ||||
| # vim:syntax=perl | ||||
		Reference in New Issue
	
	Block a user