开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > SNMP编程 > 查看源码
Makefile.PL
资源名称：net-snmp-5.2.2.rar　[点击查看]
上传用户：wxp200602
上传日期：2007-10-30
资源大小：4028k
文件大小：9k
源码类别：

SNMP编程

开发平台：

Unix_Linux

Makefile.PL：源码内容
  1. use ExtUtils::MakeMaker;
  2. require 5;
  3. use Config;
  4. use Getopt::Long;
  5. my %MakeParams = ();
  6. my $opts;
  8. # See lib/ExtUtils/MakeMaker.pm for details of how to influence
  9. # the contents of the Makefile that is written.
  11. %MakeParams = InitMakeParams();
  13. WriteMakefile(%MakeParams);
  15. GetTestInfo();
  17. sub InitMakeParams {
  18.     my %Params = (
  19.   NAME         => 'SNMP',
  20.   dist         => { SUFFIX => "gz", COMPRESS => "gzip -9f"},
  21.   MAN3PODS => { 'SNMP.pm' => '$(INST_MAN3DIR)/SNMP.3' },
  22.   XSPROTOARG   => '-noprototypes',  # XXX remove later?
  23.   VERSION_FROM => 'SNMP.pm',
  24.   realclean        => { FILES => 'host' },
  25.   );
  27.     if ($ENV{'OSTYPE'} eq 'msys') {
  28.       $Params{'DEFINE'} = "-DMINGW_PERL";
  29.     }
  30.                                     
  31.     my ($snmp_lib, $snmp_llib, $sep);
  32.     if (($Config{'osname'} eq 'MSWin32' && $ENV{'OSTYPE'} ne 'msys')) {
  33.       $opts = NetSNMPGetOpts();
  34.       $Params{'DEFINE'} = "-DMSVC_PERL";
  35.       $sep = '\';
  36.       $snmp_lib_file = 'netsnmp.lib';
  37.       $snmp_link_lib = 'netsnmp';
  39.       if (lc($opts->{'debug'}) eq "true") {
  40.         $lib_dir = 'lib\debug';
  41.       }
  42.       else {
  43.         $lib_dir = 'lib\release';
  44.       }
  45.       
  46.       if (lc($opts->{'insource'}) eq "true") {
  47. $Params{'LIBS'} = "-L$basedir\win32\$lib_dir\ -l$snmp_link_lib";
  48.       }
  49.       else {
  50. my @LibDirs = split (';',$ENV{LIB});
  51.         my $LibDir;
  52. if ($opts->{'prefix'}) {
  53.   push (@LibDirs,"$ENV{'NET-SNMP-PATH'}${sep}lib");
  54. }
  55. $noLibDir = 1;
  56. while ($noLibDir) {
  57.   $LibDir = find_files(["$snmp_lib_file"],@LibDirs);
  58.   if ($LibDir ne '') {
  59.     $noLibDir = 0;
  60.             # Put quotes around LibDir to allow spaces in paths
  61.             $LibDir = '"' . $LibDir . '"';
  62.   }
  63.   else
  64.   {
  65.     @LibDirs = ();
  66.     @LibDirs[0] = prompt("The Net-SNMP library ($snmp_lib_file) could not be found.nPlease enter the directory where it is located:");
  67.     @LibDirs[0] =~ s/\$//;
  68.   }
  69. }
  70. $Params{LIBS} = "-L$LibDir -l$snmp_link_lib";
  71.       }
  73.       $Params{'INC'} = "-I$basedir\include\ -I$basedir\include\net-snmp\ -I$basedir\win32\ ";
  74.     }
  75.     else {
  76. $opts = NetSNMPGetOpts();
  77. if (!$ENV{'NETSNMP_LIBS'}) {
  78.     $Params{'LIBS'}    = `$opts->{'nsconfig'} --libs`;
  79.     chomp($Params{'LIBS'});
  80. } else {
  81.     $Params{'LIBS'} = $ENV{'NETSNMP_LIBS'};
  82. }
  83. if (!$ENV{'NETSNMP_CCFLAGS'}) {
  84.     $Params{'CCFLAGS'} = `$opts->{'nsconfig'} --cflags`;
  85.     chomp($Params{'CCFLAGS'});
  86.     $Params{'CCFLAGS'} .= " " . $Config{'ccflags'};
  87. } else {
  88.     $Params{'CCFLAGS'} = $ENV{'NETSNMP_CCFLAGS'};
  89. }
  90. if (lc($opts->{'insource'}) eq "true") {
  91.     $Params{'LIBS'} = "-L../../snmplib/.libs -L../../snmplib/ " . $Params{'LIBS'};
  92.     $Params{'CCFLAGS'} = "-I../../include " . $Params{'CCFLAGS'};
  93. # } else {
  94. #     $Params{'PREREQ_PM'} = { 'NetSNMP::default_store' => 0.01 };
  95. }
  96. $Params{'CCFLAGS'} =~ s/ -W[-w]+//g; # ignore developer warnings
  97. if (!$ENV{'NETSNMP_PREFIX'}) {
  98.     $prefix            = `$opts->{'nsconfig'} --prefix`;
  99.     chomp($prefix);
  100.     $sep = '/';
  101. } else {
  102.     $prefix = $ENV{'NETSNMP_PREFIX'};
  103. }
  104. if ($Params{'LIBS'} eq "" || $Params{'CCFLAGS'} eq "") {
  105.     die "You need to install net-snmp first (I can't find net-snmp-config)";
  106. }
  107.     }
  109.     return(%Params);
  111. }
  113. sub GetTestInfo {
  114.     my $sep = ($^O =~ /win32/i ? '\' : '/');
  115.     my $info_file = "t${sep}snmptest.cmd";
  116.     my $snmpd_path1 = "${prefix}${sep}sbin";
  117.     my $snmpd_path2 = "${sep}usr${sep}sbin";
  118.     my $snmpd_path3 = "${sep}usr${sep}bin";
  119.     my $win32_snmpd_path = $ENV{'NET-SNMP-PATH'} . $sep . "bin";
  121.     open(H, ">$info_file") || die "Error: could not open file '$info_file'($!)";
  123.     my ($mibdir, $snmpd, $snmptrapd);
  125.         # Windows
  126.         if ($Config{'osname'} eq 'MSWin32' && $ENV{'OSTYPE'} ne 'msys') {
  127.           if (lc ($opts->{'insource'}) eq "true") {
  128.             $mibdir = "../../mibs";
  129.             if (lc($opts->{'debug'}) eq "true") {
  130.               $snmpd = "../../win32/bin/debug";
  131.               $snmptrapd = "../../win32/bin/debug";
  132.             }
  133.             else {
  134.               $snmpd = "../../win32/bin/release";
  135.               $snmptrapd = "../../win32/bin/release";
  136.             }
  137.           } else {
  138.             $mibdir = $ENV{'NET-SNMP-PATH'} . "${sep}share${sep}snmp${sep}mibs";
  139.             $snmpd = find_files(["snmpd.exe"], [$win32_snmpd_path]);
  140.             $snmptrapd = find_files(["snmptrapd.exe"], [$win32_snmpd_path]);
  141.           }
  142.         }
  144.         # Unix
  145.         else {
  146.           if (lc($opts->{'insource'}) eq "true") {
  147.             $mibdir = "../../mibs";
  148.             $snmpd = "../../agent/snmpd";
  149.             $snmptrapd = "../../apps/snmptrapd";
  150.           } else {
  151.             $mibdir = "${prefix}${sep}share${sep}snmp${sep}mibs";
  152.             $snmpd = find_files(["snmpd"], [$snmpd_path1, $snmpd_path2]);
  153.             $snmptrapd = find_files(["snmptrapd"], [$snmpd_path1, $snmpd_path2]);
  154.           }
  155.         }
  157. $mibdir = find_files(["NET-SNMP-MIB.txt"],[$mibdir]);
  159. $mibdir ||= prompt("Unable to locate the MIBs, Please enter the path: ",
  160.    $mibdir);
  161. $snmpd ||= prompt("Unable to locate "snmpd". Please enter the path: ",
  162.   $snmpd_path1);
  163. $snmptrapd ||=
  164.     prompt("Unable to locate "snmptrapd". Please enter the path: ",
  165.    $snmpd_path1);
  167.         if ($Config{'osname'} eq 'MSWin32' && $ENV{'OSTYPE'} ne 'msys') {
  168.           $snmpd = $snmpd . $sep . "snmpd.exe";
  169.           $snmptrapd = $snmptrapd . $sep . "snmptrapd.exe";
  170.         }
  171.         else {
  172.           if ($ENV{'OSTYPE'} eq 'msys') {
  173.             $snmpd =~ s/snmpd$/snmpd.exe/;
  174.             $snmptrapd =~ s/snmptrapd$/snmptrapd.exe/;
  175.           }
  176.           else
  177.           {
  178.             $snmpd =~ s/($sep)?(snmpd)?$/${sep}snmpd/;
  179.             $snmptrapd =~ s/($sep)?(snmptrapd)?$/${sep}snmptrapd/;
  180.           }
  181.         }
  183. print H "SNMPD => $snmpdn";
  184. print H "SNMPTRAPD => $snmptrapdn";
  185. print H "MIBDIR => $mibdirn";
  187. if (!(lc($opts->{'insource'}) eq "true")) {
  188.     if (-e $snmpd and -r $snmpd) {
  189. if (not -x $snmpd) {
  190.     warn("Error: $snmpd not executable. 'make test' will not work.n");
  191. }
  192.     } else {
  193. warn("Error: $snmpd does not exist or is unreadable. 'make test' will not work.n");
  194.     }
  196.     if (-e $snmptrapd and -r $snmptrapd) {
  197. if (not -x $snmptrapd) {
  198.     warn("Error: $snmptrapd not executable. 'make test' will not work.n");
  199. }
  200.     } else {
  201. warn("Error: $snmptrapd does not exist or is unreadable. 'make test' will not work.n");
  202.     }
  203. }
  204. # end of else
  205.     close H;
  206. }
  208. sub HasSSL {
  209.     my $config_header = shift;
  210.     my $has_ssl;
  211.     unless (open(C,"<$config_header")) {
  212. warn("Unable to open $config_header, assuming no SSLn");
  213. return undef;
  214.     }
  215.     while (<C>) {
  216. $has_ssl++, last if /^s*#defines+USE_OPENSSL/;
  217.     }
  218.     close C;
  219.     return $has_ssl;
  220. }
  221. # common subroutines -- DO NOT EDIT.
  222. # They are imported from the Makefile.subs.pl file
  223. sub NetSNMPGetOpts {
  224.     my %ret;
  225.     my $rootpath = shift;
  226.     $rootpath = "../" if (!$rootpath);
  227.     $rootpath .= '/' if ($rootpath !~ //$/);
  228.     
  229.     if (($Config{'osname'} eq 'MSWin32' && $ENV{'OSTYPE'} ne 'msys')) {
  231.       # Grab command line options first.  Only used if environment variables are not set
  232.       GetOptions("NET-SNMP-IN-SOURCE=s" => $ret{'insource'},
  233.         "NET-SNMP-PATH=s"      => $ret{'prefix'},          
  234.         "NET-SNMP-DEBUG=s"     => $ret{'debug'});
  236.       if ($ENV{'NET-SNMP-IN-SOURCE'})
  237.       {
  238. $ret{'insource'} = $ENV{'NET-SNMP-IN-SOURCE'};
  239.         undef ($ret{'prefix'});
  240.       }
  241.       elsif ($ENV{'NET-SNMP-PATH'})
  242.       {
  243. $ret{'prefix'} = $ENV{'NET-SNMP-PATH'};
  244.       }
  246.       if ($ENV{'NET-SNMP-DEBUG'})
  247.       {
  248. $ret{'debug'} = $ENV{'NET-SNMP-DEBUG'};
  249.       }
  251.       # Update environment variables in case they are needed
  252.       $ENV{'NET-SNMP-IN-SOURCE'}    = $ret{'insource'};
  253.       $ENV{'NET-SNMP-PATH'}         = $ret{'prefix'};
  254.       $ENV{'NET-SNMP-DEBUG'}        = $ret{'debug'};        
  255.      
  256.       $basedir = `%COMSPEC% /c cd`;
  257.       chomp $basedir;
  258.       $basedir =~ /(.*?)\perl.*/;
  259.       $basedir = $1;
  260.       print "Net-SNMP base directory: $basedirn";
  261.       if ($basedir =~ / /) {
  262.         die "nA space has been detected in the base directory.  This is not " .
  263.             "supportednPlease rename the folder and try again.nn";
  264.       }
  265.     }
  266.     else
  267.     {
  268.       if ($ENV{'NET-SNMP-CONFIG'} && 
  269.         $ENV{'NET-SNMP-IN-SOURCE'}) {
  270. # have env vars, pull from there
  271. $ret{'nsconfig'} = $ENV{'NET-SNMP-CONFIG'};
  272. $ret{'insource'} = $ENV{'NET-SNMP-IN-SOURCE'};
  273.       } else {
  274. # don't have env vars, pull from command line and put there
  275. GetOptions("NET-SNMP-CONFIG=s" => $ret{'nsconfig'},
  276.            "NET-SNMP-IN-SOURCE=s" => $ret{'insource'});
  278. if (lc($ret{'insource'}) eq "true" && $ret{'nsconfig'} eq "") {
  279.     $ret{'nsconfig'}="sh ROOTPATH../net-snmp-config";
  280. } elsif ($ret{'nsconfig'} eq "") {
  281.     $ret{'nsconfig'}="net-snmp-config";
  282. }
  284. $ENV{'NET-SNMP-CONFIG'}    = $ret{'nsconfig'};
  285. $ENV{'NET-SNMP-IN-SOURCE'} = $ret{'insource'};
  286.       }
  287.     }
  288.     
  289.     $ret{'nsconfig'} =~ s/ROOTPATH/$rootpath/;
  291.     $ret{'rootpath'} = $rootpath;
  293.     %ret;
  294. }
  296. sub find_files {
  297.     my($f,$d) = @_;
  298.     my ($dir,$found,$file);
  299.     for $dir (@$d){
  300. $found = 0;
  301. for $file (@$f) {
  302.     $found++ if -f "$dir/$file";
  303. }
  304. if ($found == @$f) {
  305.     return $dir;
  306. }
  307.     }
  308. }