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