[BACK]Return to loncommon.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncommon.pm between versions 1.1294 and 1.1296

version 1.1294, 2017/08/14 17:47:15 version 1.1296, 2017/09/29 01:43:06
Line 13329  sub process_extracted_files { Line 13329  sub process_extracted_files {
                             } else {                              } else {
                                 $warning .= &mt('Item extracted from archive: [_1] has unexpected path.',                                  $warning .= &mt('Item extracted from archive: [_1] has unexpected path.',
                                                 &HTML::Entities::encode($path,'<>&"')).'<br />';                                                  &HTML::Entities::encode($path,'<>&"')).'<br />';
                             }                               }
                         }                          }
                     }                      }
                 }                  }
Line 13426  sub process_extracted_files { Line 13426  sub process_extracted_files {
                 }                  }
             } else {              } else {
                 $warning .= &mt('Item extracted from archive: [_1] has unexpected path.',                  $warning .= &mt('Item extracted from archive: [_1] has unexpected path.',
                                 &HTML::Entities::encode($path)).'<br />';                                   &HTML::Entities::encode($path)).'<br />';
             }              }
         }          }
         if (keys(%todelete)) {          if (keys(%todelete)) {
Line 16152  sub init_user_environment { Line 16152  sub init_user_environment {
     opendir(DIR,$lonids);      opendir(DIR,$lonids);
     while ($filename=readdir(DIR)) {      while ($filename=readdir(DIR)) {
  if ($filename=~/^$username\_\d+\_$domain\_$authhost\.id$/) {   if ($filename=~/^$username\_\d+\_$domain\_$authhost\.id$/) {
     unlink($lonids.'/'.$filename);                      if ($ENV{'SERVER_PORT'} == 443) {
                           my $linkedfile;
                           if (tie(my %oldenv,'GDBM_File',"$lonids/$cookie.id",
                                   &GDBM_READER(),0640)) {
                               if (exists($oldenv{'user.linkedenv'})) {
                                   $linkedfile = $oldenv{'user.linkedenv'};
                               }
                               untie(%oldenv);
                           }
                           if (unlink($lonids.'/'.$filename)) {
                               if ($linkedfile =~ /^[a-f0-9]+_linked\.id$/) {
                                   unlink($lonids.'/'.$linkedfile);
                               }
                           }
                       } else {
                           unlink($lonids.'/'.$filename);
                       }
  }   }
     }      }
     closedir(DIR);      closedir(DIR);
Removed from v.1.1294  
changed lines
  Added in v.1.1296

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