loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

-version 1.510, 2014/06/09 16:51:47
+version 1.511, 2014/06/29 03:22:43
  Line 6594  sub make_new_child {
  #        my $tmpsnum=0;            # Now global
  #---------------------------------------------------- kerberos 5 initialization
          &Authen::Krb5::init_context();
- 	unless (($dist eq 'fedora5') || ($dist eq 'fedora4') ||
- 		($dist eq 'fedora6') || ($dist eq 'suse9.3') ||
+         my $no_ets;
-                 ($dist eq 'suse12.2') || ($dist eq 'suse12.3') ||
+         if ($dist =~ /^(?:centos|rhes)(\d+)$/) {
-                 ($dist eq 'suse13.1')) {
+             if ($1 >= 7) {
+                 $no_ets = 1;
+             }
+         } elsif ($dist =~ /^suse(\d+\.\d+)$/) {
+             if (($1 eq '9.3') || ($1 >= 12.2)) {
+                 $no_ets = 1;
+             }
+         } elsif ($dist =~ /^fedora(\d+)$/) {
+             if ($1 < 7) {
+                 $no_ets = 1;
+             }
+         }
+         unless ($no_ets) {
  	    &Authen::Krb5::init_ets();
  	}