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

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

SNMP编程

开发平台：

Unix_Linux

build.pl：源码内容
  1. #!/usr/bin/perl
  2. # 
  3. # Build script for Net-SNMP and MSVC
  4. # Written by Alex Burger - alex_b@users.sourceforge.net
  5. # March 12th, 2004
  6. #
  7. my $openssl = "disabled";
  8. my $b_ipv6 = "disabled";
  9. my $sdk = "disabled";
  10. my $default_install_base = "c:/usr";
  11. my $install_base = $default_install_base;
  12. my $install = "enabled";
  13. my $install_devel = "disabled";
  14. my $perl = "disabled";
  15. my $perl_install = "disabled";
  16. my $logging = "enabled";
  17. my $debug = "disabled";
  18. my $configOpts = "";
  19. my $cTmp = "";
  21. # Prepend win32 if running from main directory
  22. my $current_pwd = `%COMSPEC% /c cd`;
  23. chomp $current_pwd;
  24. if (! ($current_pwd =~ /\win32$/)) {
  25.   chdir ("win32");
  26.   $current_pwd = `%COMSPEC% /c cd`;
  27.   chomp $current_pwd;
  28. }
  30. if (! (-d $ENV{MSVCDir})) {
  31.   print "nPlease run VCVARS32.BAT first to set up the Visual Studio buildn" .
  32.         "environment.nn";
  33.   system("pause");
  34.   exit;
  35. }
  37. while (1) {
  38.   print "nnNet-SNMP build and install optionsn";
  39.   print "==================================nn";
  40.   print "1.  OpenSSL support:            " . $openssl. "n";
  41.   print "2.  Platform SDK support:       " . $sdk . "n";
  42.   print "n";
  43.   print "3.  Install path:               " . $install_base . "n";
  44.   print "4.  Install after build:        " . $install . "n";
  45.   print "n";
  46.   print "5.  Perl modules:               " . $perl . "n";
  47.   print "6.  Install perl modules:       " . $perl_install . "n";
  48.   print "n";
  49.   print "7.  Quiet build (logged):       " . $logging . "n";
  50.   print "8.  Debug mode:                 " . $debug . "n";
  51.   print "9.  IPv6 transports:            " . $b_ipv6 . "n";
  52.   print "n";
  53.   print "10. Install development files   " . $install_devel . "n";
  54.   print "nF.  Finished - start buildn";
  55.   print "Q.  Quit - abort buildnn";
  56.   print "Select option to set / toggle: ";
  58.   chomp ($option = <>);
  59.   if ($option eq "1") {
  60.     if ($openssl eq "enabled") {
  61.       $openssl = "disabled";
  62.     }
  63.     else {
  64.       $openssl = "enabled";
  65.     }
  66.   }
  67.   elsif ($option eq "2") {
  68.     if ($sdk eq "enabled") {
  69.       $sdk = "disabled";
  70.     }
  71.     else {
  72.       $sdk = "enabled";
  73.     }
  74.   }
  75.   elsif ($option eq "9") {
  76.     if ($b_ipv6 eq "enabled") {
  77.       $b_ipv6 = "disabled";
  78.     }
  79.     else {
  80.       $b_ipv6 = "enabled";
  81.     }
  82.   }
  83.   elsif ($option eq "3") {
  84.     print "Please enter the new install path [$default_install_base]: ";
  85.     chomp ($install_base = <>);
  86.     if ($install_base eq "") {
  87.       $install_base = $default_install_base;
  88.     }
  89.     $install_base =~ s/\///g;
  90.   }
  91.   elsif ($option eq "4") {
  92.     if ($install eq "enabled") {
  93.       $install = "disabled";
  94.     }
  95.     else {
  96.       $install = "enabled";
  97.     }
  98.   }
  99.   elsif ($option eq "10") {
  100.     if ($install_devel eq "enabled") {
  101.       $install_devel = "disabled";
  102.     }
  103.     else {
  104.       $install_devel = "enabled";
  105.     }
  106.   }
  107.   elsif ($option eq "5") {
  108.     if ($perl eq "enabled") {
  109.       $perl = "disabled";
  110.     }
  111.     else {
  112.       $perl = "enabled";
  113.     }
  114.   }
  115.   elsif ($option eq "6") {
  116.     if ($perl_install eq "enabled") {
  117.       $perl_install = "disabled";
  118.     }
  119.     else {
  120.       $perl_install = "enabled";
  121.     }
  122.   }
  123.   elsif ($option eq "7") {
  124.     if ($logging eq "enabled") {
  125.       $logging = "disabled";
  126.     }
  127.     else {
  128.       $logging = "enabled";
  129.     }
  130.   }
  131.   elsif ($option eq "8") {
  132.     if ($debug eq "enabled") {
  133.       $debug = "disabled";
  134.     }
  135.     else {
  136.       $debug = "enabled";
  137.     }
  138.   }
  139.   elsif (lc($option) eq "f") {
  140.     last;
  141.   }
  142.   elsif (lc($option) eq "q") {
  143.     exit;
  144.   }
  145. }
  147. $cTmp = ($openssl eq "enabled" ? "--with-ssl" : "" );
  148. $configOpts = "$cTmp";
  149. $cTmp = ($sdk eq "enabled" ? "--with-sdk" : "" );
  150. $configOpts = "$configOpts $cTmp";
  151. $cTmp = ($b_ipv6 eq "enabled" ? "--with-ipv6" : "" );
  152. $configOpts = "$configOpts $cTmp";
  153. $cTmp = ($debug eq "enabled" ? "--config=debug" : "--config=release" );
  154. $configOpts = "$configOpts $cTmp";
  156. # Set environment variables
  158. # Set to not search for non-existent ".dep" files
  159. $ENV{NO_EXTERNAL_DEPS}="1";
  161. # Set PATH environment variable so Perl make tests can locate the DLL
  162. $ENV{PATH} = "$current_pwd\bin\" . ($debug eq "enabled" ? "debug" : "release" ) . ";$ENV{PATH}";
  164. # Set MIBDIRS environment variable so Perl make tests can locate the mibs
  165. my $temp_mibdir = "$current_pwd/../mibs";
  166. $temp_mibdir =~ s/\///g;
  167. $ENV{MIBDIRS}=$temp_mibdir;
  169. # Set SNMPCONFPATH environment variable so Perl conf.t test can locate
  170. # the configuration files.
  171. # See the note about environment variables in the Win32 section of 
  172. # perl/SNMP/README for details on why this is needed. 
  173. $ENV{SNMPCONFPATH}=t;$ENV{SNMPCONFPATH};
  175. print "nBuilding...n";
  177. if ($logging eq "enabled") {
  178.   print "nCreating *.out log files.nn";
  179. }
  181. if ($logging eq "enabled") {
  182.   print "Deleting old log files...n";
  183.   system("del *.out > NUL: 2>&1");
  185.   # Delete net-snmp-config.h from main include folder just in case it was created by a Cygwin or MinGW build
  186.   system("del ..\include\net-snmp\net-snmp-config.h > NUL: 2>&1");
  187.   
  188.   print "Running Configure...n";
  189.   system("perl Configure $configOpts --linktype=static --prefix="$install_base" > configure.out 2>&1") == 0 || die "Build error (see configure.out)";
  191.   print "Cleaning...n";
  192.   system("nmake /nologo clean > clean.out 2>&1") == 0 || die "Build error (see clean.out)";
  194.   print "Building main package...n";
  195.   system("nmake /nologo > make.out 2>&1") == 0 || die "Build error (see make.out)";
  197.   if ($perl eq "enabled") {
  198.     print "Running Configure for DLL...n";
  199.     system("perl Configure $configOpts --linktype=dynamic --prefix="$install_base" > perlconfigure.out 2>&1") == 0 || die "Build error (see perlconfigure.out)";
  201.     print "Cleaning libraries...n";
  202.     system("nmake /nologo libs_clean >> clean.out 2>&1") == 0 || die "Build error (see clean.out)";
  204.     print "Building DLL libraries...n";
  205.     system("nmake /nologo libs > dll.out 2>&1") == 0 || die "Build error (see dll.out)";
  206.    
  207.     print "Cleaning Perl....n";
  208.     system("nmake /nologo perl_clean >> clean.out 2>&1"); # If already cleaned, Makefile is gone so don't worry about errors!
  210.     print "Building Perl modules...n";
  211.     system("nmake /nologo perl > perlmake.out 2>&1") == 0 || die "Build error (see perlmake.out)";
  213.     print "Testing Perl modules...n";
  214.     system("nmake /nologo perl_test > perltest.out 2>&1"); # Don't die if all the tests don't pass..
  215.     
  216.     if ($perl_install eq "enabled") {
  217.       print "Installing Perl modules...n";
  218.       system("nmake /nologo perl_install > perlinstall.out 2>&1") == 0 || die "Build error (see perlinstall.out)";
  219.     }
  220.       
  221.     print "nSee perltest.out for Perl test resultsn";
  222.   }
  224.   print "n";
  225.   if ($install eq "enabled") {
  226.     print "Installing main package...n";
  227.     system("nmake /nologo install > install.out 2>&1") == 0 || die "Build error (see install.out)";
  228.   }
  229.   else {
  230.     print "Type nmake install to install the package to $install_basen";
  231.   }
  233.   if ($install_devel eq "enabled") {
  234.     print "Installing development files...n";
  235.     system("nmake /nologo install_devel > install_devel.out 2>&1") == 0 || die "Build error (see install_devel.out)";
  236.   }
  237.   else {
  238.     print "Type nmake install_devel to install the development files to $install_basen";
  239.   }
  240.   
  241.   if ($perl_install eq "disabled" && $perl eq "enabled") {
  242.     print "Type nmake perl_install to install the Perl modulesn";
  243.   }
  244. }
  245. else {
  246.   system("del *.out");
  248.   # Delete net-snmp-config.h from main include folder just in case it was created by a Cygwin or MinGW build
  249.   system("del ..\include\net-snmp\net-snmp-config.h > NUL: 2>&1");
  251.   system("perl Configure $configOpts --linktype=static --prefix="$install_base"") == 0 || die "Build error (see above)";
  252.   system("nmake /nologo clean") == 0 || die "Build error (see above)";
  253.   system("nmake /nologo") == 0 || die "Build error (see above)";
  254.   
  255.   if ($perl eq "enabled") {
  256.     system("perl Configure $configOpts --linktype=dynamic --prefix="$install_base"") == 0 || die "Build error (see above)";
  257.     system("nmake /nologo libs_clean") == 0 || die "Build error (see above)";
  258.     system("nmake /nologo libs") == 0 || die "Build error (see above)";
  259.     
  260.     system("nmake /nologo perl_clean"); # If already cleaned, Makefile is gone so don't worry about errors!
  261.     system("nmake /nologo perl") == 0 || die "Build error (see above)";
  263.     $path_old = $ENV{PATH};
  264.     $ENV{PATH} = "$current_pwd\bin\" . ($debug eq "enabled" ? "debug" : "release" ) . ";$ENV{PATH}";
  265.     system("nmake /nologo perl_test"); # Don't die if all the tests don't pass..
  266.     $ENV{PATH} = $path_old;
  267.     
  268.     if ($perl_install eq "enabled") {      
  269.       print "Installing Perl modules...n";
  270.       system("nmake /nologo perl_install") == 0 || die "Build error (see above)";
  271.     }
  272.   }
  274.   print "n";
  275.   if ($install eq "enabled") {
  276.     print "Installing main package...n";
  277.     system("nmake /nologo install") == 0 || die "Build error (see above)";
  278.   }
  279.   else {
  280.     print "Type nmake install to install the package to $install_basen";
  281.   }
  283.   if ($install_devel eq "enabled") {
  284.     print "Installing development files...n";
  285.     system("nmake /nologo install_devel > install_devel.out 2>&1") == 0 || die "Build error (see install_devel.out)";
  286.   }
  287.   else {
  288.     print "Type nmake install_devel to install the development files to $install_basen";
  289.   }
  291.   if ($perl_install eq "disabled" && $perl eq "enabled") {
  292.     print "Type nmake perl_install to install the Perl modulesn";
  293.   }
  294. }
  296. print "nDone!n";