[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.5 and 1.7

version 1.5, 2012/10/12 12:29:00 version 1.7, 2015/03/10 21:24:53
Line 194  if (!$domrolesref) { Line 194  if (!$domrolesref) {
   
 # Store in nohist_domainroles.db  # Store in nohist_domainroles.db
 my $domkey=&LONCAPA::escape('dc:'.$username.':'.$domain.'::'.$domain.':');  my $domkey=&LONCAPA::escape('dc:'.$username.':'.$domain.'::'.$domain.':');
 $domrolesref->{$domkey}= &LONCAPA::escape('$now:'.$start);  $domrolesref->{$domkey}= &LONCAPA::escape($now.':'.$start);
 &LONCAPA::locking_hash_untie($domrolesref);  &LONCAPA::locking_hash_untie($domrolesref);
   
  system('/bin/chown',"www:www","$dompath/nohist_domainroles.db"); # Must be writeable by httpd process.   system('/bin/chown',"www:www","$dompath/nohist_domainroles.db"); # Must be writeable by httpd process.
Line 232  my $domlogvalue = { Line 232  my $domlogvalue = {
 $rolelogref->{$domlogkey}=&freeze_escape($domlogvalue);  $rolelogref->{$domlogkey}=&freeze_escape($domlogvalue);
 &LONCAPA::locking_hash_untie($rolelogref);  &LONCAPA::locking_hash_untie($rolelogref);
   
  system('/bin/chown',"www:www","$dompath/$subdir/nohist_rolelog.db"); # Must be writeable by httpd process.   system('/bin/chown',"www:www","$dompath/$subdir/$domconfiguser/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/$domconfiguser/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.5  
changed lines
  Added in v.1.7

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