Diff for /loncom/lond between versions 1.272 and 1.276

version 1.272, 2005/01/01 02:31:05 version 1.276, 2005/01/26 12:13:58
Line 1799  sub change_authentication_handler { Line 1799  sub change_authentication_handler {
     #  to take ownership of the construction space back to www:www      #  to take ownership of the construction space back to www:www
     #      #
   
     if( ($oldauth =~ /^unix/) && ($umode eq "internal")) { # unix -> internal      if( (($oldauth =~ /^unix/) && ($umode eq "internal")) ||
    (($oldauth =~ /^internal/) && ($umode eq "unix")) ) { 
  if(&is_author($udom, $uname)) {   if(&is_author($udom, $uname)) {
     &Debug(" Need to manage author permissions...");      &Debug(" Need to manage author permissions...");
     &manage_permissions("/$udom/_au", $udom, $uname, "internal:");      &manage_permissions("/$udom/_au", $udom, $uname, "$umode:");
  }   }
     }      }
                 
Line 3140  sub put_course_id_handler { Line 3141  sub put_course_id_handler {
             my ($key,$courseinfo) = split(/=/,$pair,2);              my ($key,$courseinfo) = split(/=/,$pair,2);
             $courseinfo =~ s/=/:/g;              $courseinfo =~ s/=/:/g;
   
             my @current_items = split/:/,$hashref->{$key};              my @current_items = split(/:/,$hashref->{$key});
             shift @current_items; # remove description              shift(@current_items); # remove description
             pop @current_items;   # remove last access              pop(@current_items);   # remove last access
             my $numcurrent = scalar(@current_items);              my $numcurrent = scalar(@current_items);
   
             my @new_items = split/:/,$courseinfo;              my @new_items = split(/:/,$courseinfo);
             my $numnew = scalar(@new_items);              my $numnew = scalar(@new_items);
             if ($numcurrent > 0) {              if ($numcurrent > 0) {
                 if ($numnew == 1) { # flushcourselogs() from 1.1 or earlier                  if ($numnew == 1) { # flushcourselogs() from 1.1 or earlier
Line 3198  sub put_course_id_handler { Line 3199  sub put_course_id_handler {
 #                 owner    - optional supplied username of owner to filter  #                 owner    - optional supplied username of owner to filter
 #                            the dump.  Only courses for which the course   #                            the dump.  Only courses for which the course 
 #                            owner matches the supplied username will be  #                            owner matches the supplied username will be
 #                            returned. Implicit assumption that owner is a user  #                            returned. Implicit assumption that owner
 #                            in the domain in which the course database is defined.          #                            is a user in the domain in which the
   #                            course database is defined.
 #     $client  - The socket open on the client.  #     $client  - The socket open on the client.
 # Returns:  # Returns:
 #    1     - Continue processing.  #    1     - Continue processing.
Line 3233  sub dump_course_id_handler { Line 3235  sub dump_course_id_handler {
     if ($hashref) {      if ($hashref) {
  while (my ($key,$value) = each(%$hashref)) {   while (my ($key,$value) = each(%$hashref)) {
     my ($descr,$lasttime,$inst_code,$owner);      my ($descr,$lasttime,$inst_code,$owner);
             my @courseitems = split/:/,$value;              my @courseitems = split(/:/,$value);
             $descr = shift @courseitems;              $lasttime = pop(@courseitems);
             $lasttime = pop @courseitems;      ($descr,$inst_code,$owner)=@courseitems;
             if (@courseitems > 0) {  
                 $inst_code = shift @courseitems;  
             }  
             if (@courseitems > 0) {  
                 $owner = shift @courseitems;  
             }  
     if ($lasttime<$since) { next; }      if ($lasttime<$since) { next; }
             my $match = 1;              my $match = 1;
     unless ($description eq '.') {      unless ($description eq '.') {
Line 4471  sub logstatus { Line 4467  sub logstatus {
  flock(LOG,LOCK_EX);   flock(LOG,LOCK_EX);
  print LOG $$."\t".$clientname."\t".$currenthostid."\t"   print LOG $$."\t".$clientname."\t".$currenthostid."\t"
     .$status."\t".$lastlog."\t $keymode\n";      .$status."\t".$lastlog."\t $keymode\n";
  flock(DB,LOCK_UN);   flock(LOG,LOCK_UN);
  close(LOG);   close(LOG);
     }      }
     &status("Finished logging");      &status("Finished logging");

Removed from v.1.272  
changed lines
  Added in v.1.276


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