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

Diff for /loncom/build/expire_DC_role.pl between versions 1.4 and 1.5

version 1.4, 2012/08/17 22:43:03 version 1.5, 2012/10/12 12:29:00
Line 205  my $domconfiguser = $domain.'-domainconf Line 205  my $domconfiguser = $domain.'-domainconf
 my $subdir = $domconfiguser;  my $subdir = $domconfiguser;
 $subdir =~ s/(.)(.)(.).*/$1\/$2\/$3/;  $subdir =~ s/(.)(.)(.).*/$1\/$2\/$3/;
   
 print "Looking to tie $dompath/$subdir/nohist_rolelog.db\n";  
   
 my $rolelogref = &LONCAPA::locking_hash_tie("$dompath/$subdir/$domconfiguser/nohist_rolelog.db",&GDBM_WRCREAT());  my $rolelogref = &LONCAPA::locking_hash_tie("$dompath/$subdir/$domconfiguser/nohist_rolelog.db",&GDBM_WRCREAT());
   
 if (ref($rolelogref) eq 'HASH') {  if (!$rolelogref) {
     foreach my $key (keys(%{$rolelogref})) {      print(&mt('unable to tie [_1]',"nohist_rolelog db: $dompath/$subdir/$domconfiguser/nohist_rolelog.db")."\n");
         print "found $key\n";      exit;
     }  
 }  }
   
 my $domlogkey = &LONCAPA::escape($now.'00000'.$$.'000000');  my $domlogkey = &LONCAPA::escape($now.'00000'.$$.'000000');
Line 238  $rolelogref->{$domlogkey}=&freeze_escape Line 235  $rolelogref->{$domlogkey}=&freeze_escape
  system('/bin/chown',"www:www","$dompath/$subdir/nohist_rolelog.db"); # Must be writeable by httpd process.   system('/bin/chown',"www:www","$dompath/$subdir/nohist_rolelog.db"); # Must be writeable by httpd process.
  system('/bin/chown',"www:www","$dompath/$subdir/nohist_rolelog.db.lock");   system('/bin/chown',"www:www","$dompath/$subdir/nohist_rolelog.db.lock");
   
   
 # Output success message.  # Output success message.
 print(&mt('User: [_1], domain coordinator role expired in domain: [_2].',$user,$role_domain)."\n");  print(&mt('User: [_1], domain coordinator role expired in domain: [_2].',$user,$role_domain)."\n");
   
Removed from v.1.4  
changed lines
  Added in v.1.5

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