Return to updateclasslist.pl CVS log

Up to [LON-CAPA] / loncom / debugging_tools

- force user id numbers into classlists

    1: #!/usr/bin/perl
    2: #
    3: # The LearningOnline Network
    4: #
    5: # update_ids.pl - propagate the ids in ids.db to all course classlists
    6: #
    7: # $Id: updateclasslist.pl,v 1.1 2005/11/17 21:46:25 albertel Exp $
    8: #
    9: # Copyright Michigan State University Board of Trustees
   10: #
   11: # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
   12: #
   13: # LON-CAPA is free software; you can redistribute it and/or modify
   14: # it under the terms of the GNU General Public License as published by
   15: # the Free Software Foundation; either version 2 of the License, or
   16: # (at your option) any later version.
   17: #
   18: # LON-CAPA is distributed in the hope that it will be useful,
   19: # but WITHOUT ANY WARRANTY; without even the implied warranty of
   20: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   21: # GNU General Public License for more details.
   22: #
   23: # You should have received a copy of the GNU General Public License
   24: # along with LON-CAPA; if not, write to the Free Software
   25: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
   26: #
   27: # /home/httpd/html/adm/gpl.txt
   28: #
   29: # http://www.lon-capa.org/
   30: #
   31: #################################################
   32: use strict;
   33: BEGIN {
   34:     eval "use Apache2::compat;";
   35: }
   36: use lib '/home/httpd/lib/perl';
   37: use Apache::lonnet;
   38: use Apache::loncoursedata;
   39: use LONCAPA::Configuration;
   40: use File::Find;
   41: 
   42: my $perlvar = LONCAPA::Configuration::read_conf('loncapa.conf');
   43: my $ver=&get_loncapa_version();
   44: 
   45: &main();
   46: 
   47: sub main {
   48:     my @domains = &Apache::lonnet::current_machine_domains();
   49:     my @hostids = &Apache::lonnet::current_machine_ids();
   50:     foreach my $dom (sort(@domains)) {
   51: 	my %courses = 
   52: 	    &Apache::lonnet::courseiddump($dom,'.',1,'.','.','.',1,\@hostids);
   53: 	foreach my $course (keys(%courses)) {
   54: 	    my ($cdom,$cnum) = split('_',$course);
   55: 	    my $classlist = ($ver =~ /^2\.0/) 
   56: 		? &Apache::loncoursedata::get_classlist($cdom.'_'.$cnum,$cdom,$cnum)
   57: 		: &Apache::loncoursedata::get_classlist($cdom,$cnum);
   58: 
   59: 	    foreach my $user (keys(%{ $classlist })) {
   60: 		my ($uname,$udom) = split(':',$user);
   61: 		my %info=&Apache::lonnet::get('environment',['id'],
   62: 					      $udom, $uname);
   63: 		my $id=$info{'id'};
   64: 		my $cur_id = $classlist->{$user}[&Apache::loncoursedata::CL_ID()];
   65: 		if (defined($id) && $id ne $cur_id) {
   66: 		    print("needs update $user -- $id <- $cur_id\n");
   67: 		    my $enrolldata = join(':',
   68: 					  $classlist->{$user}[&Apache::loncoursedata::CL_END()],
   69: 					  $classlist->{$user}[&Apache::loncoursedata::CL_START()],
   70: 					  $id,
   71: 					  $classlist->{$user}[&Apache::loncoursedata::CL_SECTION()],
   72: 					  $classlist->{$user}[&Apache::loncoursedata::CL_FULLNAME()]);
   73: 		    my $reply=&Apache::lonnet::cput('classlist',
   74: 						    {$user => $enrolldata},
   75: 						    $cdom,$cnum);
   76: 		}
   77: 	    } 
   78: 	}
   79:     }
   80: }
   81: exit;
   82: 
   83: ######################################
   84: sub unescape {
   85:     my $str=shift;
   86:     $str =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
   87:     return $str;
   88: }
   89: sub get_loncapa_version {
   90:     open(REL,'</etc/loncapa-release');
   91:     my $line = <REL>;
   92:     $line =~ s/LON\-CAPA release//;
   93:     $line =~ s/-\d+//;
   94:     $line =~ s/\s//g;
   95:     return $line;
   96: }