loncom/lond - diff - 1.489.2.16

Return to lond CVS log

Up to [LON-CAPA] / loncom

-version 1.489.2.15, 2014/06/09 19:47:51
+version 1.489.2.16, 2014/06/29 03:23:11
  Line 6573  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) {
- 	    &Authen::Krb5::init_ets();
+                 $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();
+         }
  	&status('Accepted connection');
  # =============================================================================