[BACK]Return to perltest.pl CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / build / system_dependencies

Diff for /loncom/build/system_dependencies/perltest.pl between versions 1.8 and 1.9

version 1.8, 2002/09/08 15:53:26 version 1.9, 2002/11/04 01:57:53
Line 434  print("\n".'SYNOPSIS'."\n"); Line 434  print("\n".'SYNOPSIS'."\n");
   
 # ========================================================== The stable report.  # ========================================================== The stable report.
 print('**** STABLE REPORT (what a production server should worry about)'."\n");  print('**** STABLE REPORT (what a production server should worry about)'."\n");
 if (@stable_missing) {  if (@stable_missing)
     {
     print('There are '.scalar(@stable_missing).' CPAN distributions missing '.      print('There are '.scalar(@stable_missing).' CPAN distributions missing '.
   'from this LON-CAPA system.'."\n");    'from this LON-CAPA system.'."\n");
 }    }
 else {  else
     {
     print('All perl modules needed by LON-CAPA appear to be present.'."\n");      print('All perl modules needed by LON-CAPA appear to be present.'."\n");
 }    }
 if (@stable_outdated) {  if (@stable_outdated)
     {
     print(scalar(@stable_outdated).' CPAN distributions are out-dated '.      print(scalar(@stable_outdated).' CPAN distributions are out-dated '.
   'on this LON-CAPA system.'."\n");    'on this LON-CAPA system.'."\n");
 }    }
 if (@stable_veryokay) {  if (@stable_veryokay)
     {
     print(scalar(@stable_veryokay).' CPAN distributions are an exact match '.      print(scalar(@stable_veryokay).' CPAN distributions are an exact match '.
   '(based on version number).'."\n");    '(based on version number).'."\n");
 #    print @stable_veryokay;  #    print @stable_veryokay;
 }    }
 if (@stable_okay) {  if (@stable_okay)
     {
     print(scalar(@stable_okay).' CPAN dists have a version number '.      print(scalar(@stable_okay).' CPAN dists have a version number '.
   'higher than expected'.    'higher than expected'.
   ' (probably okay).'. "\n");    ' (probably okay).'. "\n");
 }    }
 print("\n");  print("\n");
   
 # ===================================================== The development report.  # ===================================================== The development report.
 print('**** DEVELOPMENT REPORT (do not worry about this unless you are a'.  print('**** DEVELOPMENT REPORT (do not worry about this unless you are a'.
       ' coder)'."\n");        ' coder)'."\n");
 if (@dev_missing) {  if (@dev_missing)
     {
     print('There are '.scalar(@dev_missing).' CPAN distributions missing '.      print('There are '.scalar(@dev_missing).' CPAN distributions missing '.
   'from this LON-CAPA system.'."\n");    'from this LON-CAPA system.'."\n");
 }    }
 else {  else
     {
     print('All perl modules needed by LON-CAPA appear to be present.'."\n");      print('All perl modules needed by LON-CAPA appear to be present.'."\n");
 }    }
 if (@dev_outdated) {  if (@dev_outdated)
     {
     print(scalar(@dev_outdated).' CPAN distributions are out-dated '.      print(scalar(@dev_outdated).' CPAN distributions are out-dated '.
   'on this LON-CAPA system.'."\n");    'on this LON-CAPA system.'."\n");
 }    }
 if (@dev_veryokay) {  if (@dev_veryokay)
     {
     print(scalar(@dev_veryokay).' CPAN distributions are an exact match '.      print(scalar(@dev_veryokay).' CPAN distributions are an exact match '.
   '(based on version number).'."\n");    '(based on version number).'."\n");
 #    print @dev_veryokay;  #    print @dev_veryokay;
 }    }
 if (@dev_okay) {  if (@dev_okay)
     {
     print(scalar(@stable_okay).' CPAN dists have a version number '.      print(scalar(@stable_okay).' CPAN dists have a version number '.
   'higher than expected'.    'higher than expected'.
   ' (probably okay).'. "\n");    ' (probably okay).'. "\n");
 }    }
   
 if ($mode eq 'synopsis') {  my $detailstream;
   if ($mode eq 'synopsis')
     {
     print("\n".'**** NOTE ****'."\n".      print("\n".'**** NOTE ****'."\n".
   'After everything completes, please view the CPAN_STATUS_REPORT'.    'After everything completes, please view the CPAN_STATUS_REPORT'.
   ' file for more '."\n".'information on resolving your perl modules.'.    ' file for more '."\n".'information on resolving your perl modules.'.
Line 490  if ($mode eq 'synopsis') { Line 502  if ($mode eq 'synopsis') {
   
     print('* HIT RETURN WHEN READY TO CONTINUE *'."\n");      print('* HIT RETURN WHEN READY TO CONTINUE *'."\n");
     my $returnkey=<>;      my $returnkey=<>;
 }      open(OUT,'>CPAN_STATUS_REPORT');
 else {      $detailstream=\*OUT;
     print("\n".'DETAILED STATUS REPORT'."\n"); # Header of status report.    }
   else
     # Print advisory notices.    {
     print("\n".'(Consult loncapa/doc/otherfiles/perl_modules.txt for '.      $detailstream=\*STDOUT;
   'information on'."\n".    }
   ' manual build instructions.)'."\n");  print($detailstream 
     print("\n".'(**** IMPORTANT NOTICE **** HTML-Parser needs to be patched '.        "\n".'DETAILED STATUS REPORT'."\n"); # Header of status report.
   "\n".' as described in loncapa/doc/otherfiles/perl_modules.txt)'.  
   "\n");  # Print advisory notices.
   print($detailstream
     print("\n".'For manual installation of CPAN distributions, visit'."\n".        "\n".'(Consult loncapa/doc/otherfiles/perl_modules.txt for '.
   'http://search.cpan.org/dist/DistName'."\n".        'information on'."\n".
   'where DistName is something like "HTML-Parser" or "libwww-perl".'.        ' manual build instructions.)'."\n");
   "\n");  print($detailstream
         "\n".'(**** IMPORTANT NOTICE **** HTML-Parser needs to be patched '.
     print("\n".'For automatic installation of CPAN distributions, visit'."\n".        "\n".' as described in loncapa/doc/otherfiles/perl_modules.txt)'.
   'http://install.lon-capa.org/resources/cpanauto/DistName.bin'."\n".        "\n");
   'where DistName.bin is something like "HTML-Parser.bin" or '.  
   '"libwww-perl.bin".'."\n");  print($detailstream
         "\n".'For manual installation of CPAN distributions, visit'."\n".
     # Print detailed report of stable.        'http://search.cpan.org/dist/DistName'."\n".
     print("\n".'STABLE (DETAILED REPORT)'."\n");        'where DistName is something like "HTML-Parser" or "libwww-perl".'.
     print @stable_missing;        "\n");
     print @stable_outdated;  
     print @stable_veryokay;  print($detailstream
     print @stable_okay;        "\n".'For automatic installation of CPAN distributions, visit'."\n".
     print("\n".'DEVELOPMENT (DETAILED REPORT)'."\n");        'http://install.lon-capa.org/resources/cpanauto/DistName.bin'."\n".
     print @dev_missing;        'where DistName.bin is something like "HTML-Parser.bin" or '.
     print @dev_outdated;        '"libwww-perl.bin".'."\n");
     print @dev_veryokay;  
     print @dev_okay;  # Print detailed report of stable.
 }  print($detailstream
         "\n".'STABLE (DETAILED REPORT)'."\n");
   print $detailstream @stable_missing;
   print $detailstream @stable_outdated;
   print $detailstream @stable_veryokay;
   print $detailstream @stable_okay;
   print($detailstream "\n".'DEVELOPMENT (DETAILED REPORT)'."\n");
   print $detailstream @dev_missing;
   print $detailstream @dev_outdated;
   print $detailstream @dev_veryokay;
   print $detailstream @dev_okay;
   
 if ($mode eq "html") {  if ($mode eq "html")
     {
     print(<<END);      print(<<END);
 </pre>  </pre>
 </body>  </body>
 </html>  </html>
 END  END
 }    }
   
 # ================================================================ Subroutines.  # ================================================================ Subroutines.
 # Note that "vers_cmp" and "have_vers" are adapted from a bugzilla version 2.16  # Note that "vers_cmp" and "have_vers" are adapted from a bugzilla version 2.16
Removed from v.1.8  
changed lines
  Added in v.1.9

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>