doc/loncapafiles/update_queue_slots.piml - view

File: [LON-CAPA] / doc / loncapafiles / update_queue_slots.piml
Revision 1.5: download - view: text, annotated - select for diffs
Mon Mar 16 05:25:47 2015 UTC (9 years, 1 month ago) by raeburn
Branches: MAIN
CVS tags: version_2_12_X, version_2_11_X, version_2_11_4_uiuc, version_2_11_4_msu, version_2_11_4, version_2_11_3_uiuc, version_2_11_3_msu, version_2_11_3, version_2_11_2_uiuc, version_2_11_2_msu, version_2_11_2_educog, version_2_11_2, version_2_11_1, HEAD

- Avoid time-consuming recursion of user directories when running ./UPDATE
  to fix pre LON-CAPA 2.0 (and pre-2.2 in one case), which will have been
  fixed when library servers were updated to versions 2.2 through 2.10.
- No pre-2.2 instances currently in the production cluster.

1: <!DOCTYPE piml PUBLIC "-//TUX/DTD piml 1.0 Final//EN" 2: "http://lpml.sourceforge.net/DTD/piml.dtd"> 3:  4:  5: 6:  7: 8:  31: 32: <piml> 33: <targetroot>/</targetroot> 34: <files> 35: <file> 36: <target dist="default">/home/httpd/lonUsers</target> 37: <perlscript mode="fg"> 38: use strict; 39: use File::Find; 40: use lib '/home/httpd/lib/perl/'; 41: use LONCAPA::Configuration; 42: use LONCAPA; 43: use GDBM_File; 44: use Storable; 45: use Apache::lonnet; 46: 47: $|=1; 48: 49: sub update_value { 50: my ($value) = @_; 51: if ($value =~ /@/ && $value !~ /:/) { 52: $value =~ tr/@/:/; 53: } 54: return $value; 55: } 56: 57: my $updated=0; 58: my %dirs; 59: my $last; 60: my $total; 61: sub process_gradingqueue_file { 62: my $which = (split('/',$_))[5]; 63: $dirs{$which} = 1; 64: my $count2 = length("$last"); 65: my $count = length("$updated"); 66: my $backup = "\b"x(8+$count2+14+$count+6); 67: if (scalar(keys(%dirs)) > $last) { 68: $last = scalar(keys(%dirs)); 69: print($backup."Updated $last directories, $updated files"); 70: } 71: return if ($_!~m/(gradingqueue|reviewqueue|slots|slot_reservations)\.db$/); 72: my $type='queue'; 73: if ($1 eq 'slots') { 74: $type = 'slots'; 75: } elsif ($1 eq 'slot_reservations') { 76: $type = 'reservation'; 77: } 78: my $count2 = length("$last"); 79: my $count = length("$updated"); 80: my $backup = "\b"x(8+$count2+14+$count+6); 81: $updated++; 82: print($backup."Updated $last directories, $updated files"); 83: my $db = &LONCAPA::locking_hash_tie($_,&GDBM_WRCREAT()); 84: if ($type eq 'queue') { 85: foreach my $key (keys(%{$db})) { 86: my $real_key = &unescape($key); 87: my (@elements) = split("\0",$real_key); 88: if (exists($elements[2])) { 89: $elements[2] = &update_value($elements[2]); 90: } 91: $real_key = join("\0",@elements); 92: my $new_key = &escape($real_key); 93: if ($new_key ne $key) { 94: $db->{$new_key} = $db->{$key}; 95: delete($db->{$key}); 96: } 97: if ($new_key =~ /locked$/) { 98: my $value = $db->{$new_key}; 99: my $new_value = &unescape($value); 100: $new_value = &update_value($new_value); 101: $db->{$new_key} = &escape($new_value); 102: } 103: } 104: } elsif ($type eq 'slots') { 105: foreach my $key (keys(%{$db})) { 106: my $value = $db->{$key}; 107: $value = &Apache::lonnet::thaw_unescape($value); 108: if (exists($value->{'proctor'})) { 109: $value->{'proctor'} = &update_value($value->{'proctor'}); 110: } 111: if (exists($value->{'allowedusers'})) { 112: $value->{'allowedusers'} = 113: &update_value($value->{'allowedusers'}); 114: } 115: $db->{$key} = &Apache::lonnet::freeze_escape($value); 116: } 117: } elsif ($type eq 'reservation') { 118: foreach my $key (keys(%{$db})) { 119: my $value = $db->{$key}; 120: $value = &Apache::lonnet::thaw_unescape($value); 121: if (exists($value->{'name'})) { 122: $value->{'name'} = &update_value($value->{'name'}); 123: } 124: $db->{$key} = &Apache::lonnet::freeze_escape($value); 125: } 126: } else { 127: print("$type unsupported\n"); 128: } 129: &LONCAPA::locking_hash_untie($db); 130: 131: } 132: 133: 134: sub main { 135: my $doupdate; 136: if (-e '/etc/loncapa-release') { 137: if (open(PIPE,"cat /etc/loncapa-release.prev |grep '^LON-CAPA release' |")) { 138: if (<PIPE> =~ /^\QLON-CAPA release \E(CVS_HEAD|\d+\.\d+\.\d+\.?\w*)\-\d+$/) { 139: my $previous = $1; 140: unless ($previous eq 'CVS_HEAD') { 141: my ($major,$minor) = ($previous =~ /^(\d+)\.(\d+)\./); 142: if (($major ne '') && ($minor ne '')) { 143: if (($major == 2) && ($minor < 10)) { 144: $doupdate = 1; 145: } 146: } 147: } 148: } 149: close(PIPE); 150: } 151: } 152: 153: if ($doupdate) { 154: print("Updating grading queue and slot definitions\n"); 155: my $perlvar=LONCAPA::Configuration::read_conf('loncapa.conf'); 156: find( 157: { 158: no_chdir => 1, 159: wanted => \&process_gradingqueue_file, 160: }, 161: $perlvar->{'lonUsersDir'}); 162: print("\n"); 163: } else { 164: print("Update of grading queue and slot definitions not required.\n"); 165: } 166: } 167: 168: &main(); 169: 170: </perlscript> 171: </file> 172: </files> 173: </piml>