rat/lonuserstate.pm - view

File: [LON-CAPA] / rat / lonuserstate.pm
Revision 1.81: download - view: text, annotated - select for diffs
Tue Oct 26 23:00:11 2004 UTC (19 years, 6 months ago) by albertel
Branches: MAIN
CVS tags: HEAD

- conditions weren't properly cascading along,
    - code asumed a empty finish state, and thus could grab the condition that
      was needed to get into the finish state as the starting point for the condition
      for the resource after a nested map, need to instead pass the end condition up
      the recursion chain

1: # The LearningOnline Network with CAPA 2: # Construct and maintain state and binary representation of course for user 3: # 4: # $Id: lonuserstate.pm,v 1.81 2004/10/26 23:00:11 albertel Exp $ 5: # 6: # Copyright Michigan State University Board of Trustees 7: # 8: # This file is part of the LearningOnline Network with CAPA (LON-CAPA). 9: # 10: # LON-CAPA is free software; you can redistribute it and/or modify 11: # it under the terms of the GNU General Public License as published by 12: # the Free Software Foundation; either version 2 of the License, or 13: # (at your option) any later version. 14: # 15: # LON-CAPA is distributed in the hope that it will be useful, 16: # but WITHOUT ANY WARRANTY; without even the implied warranty of 17: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 18: # GNU General Public License for more details. 19: # 20: # You should have received a copy of the GNU General Public License 21: # along with LON-CAPA; if not, write to the Free Software 22: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 23: # 24: # /home/httpd/html/adm/gpl.txt 25: # 26: # http://www.lon-capa.org/ 27: # 28: ### 29: 30: package Apache::lonuserstate; 31: 32: # ------------------------------------------------- modules used by this module 33: use strict; 34: use Apache::Constants qw(:common :http); 35: use Apache::File; 36: use HTML::TokeParser; 37: use Apache::lonnet(); 38: use Apache::loncommon(); 39: use GDBM_File; 40: use Apache::lonmsg; 41: use Safe; 42: use Safe::Hole; 43: use Opcode; 44: use Apache::lonenc; 45: 46: # ---------------------------------------------------- Globals for this package 47: 48: my $pc; # Package counter 49: my %hash; # The big tied hash 50: my %parmhash;# The hash with the parameters 51: my @cond; # Array with all of the conditions 52: my $errtext; # variable with all errors 53: my $retfurl; # variable with the very first URL in the course 54: my %randompick; # randomly picked resources 55: my %randompickseed; # optional seed for randomly picking resources 56: my %encurl; # URLs in this folder are supposed to be encrypted 57: my %hiddenurl; # this URL (or complete folder) is supposed to be hidden 58: 59: # ----------------------------------- Remove version from URL and store in hash 60: 61: sub versiontrack { 62: my $uri=shift; 63: if ($uri=~/\.(\d+)\.\w+$/) { 64: my $version=$1; 65: $uri=~s/\.\d+\.(\w+)$/\.$1/; 66: unless ($hash{'version_'.$uri}) { 67: $hash{'version_'.$uri}=$version; 68: } 69: } 70: return $uri; 71: } 72: 73: # -------------------------------------------------------------- Put in version 74: 75: sub putinversion { 76: my $uri=shift; 77: if ($hash{'version_'.$uri}) { 78: my $version=$hash{'version_'.$uri}; 79: if ($version eq 'mostrecent') { return $uri; } 80: if ($version eq &Apache::lonnet::getversion( 81: &Apache::lonnet::filelocation('',$uri))) 82: { return $uri; } 83: $uri=~s/\.(\w+)$/\.$version\.$1/; 84: } 85: return $uri; 86: } 87: 88: # ----------------------------------------- Processing versions file for course 89: 90: sub processversionfile { 91: my %cenv=@_; 92: my %versions=&Apache::lonnet::dump('resourceversions', 93: $cenv{'domain'}, 94: $cenv{'num'}); 95: foreach (keys %versions) { 96: if ($_=~/^error\:/) { return; } 97: $hash{'version_'.$_}=$versions{$_}; 98: } 99: } 100: 101: # --------------------------------------------------------- Loads map from disk 102: 103: sub loadmap { 104: my $uri=shift; 105: if ($hash{'map_pc_'.$uri}) { return OK; } 106: 107: $pc++; 108: my $lpc=$pc; 109: $hash{'map_pc_'.$uri}=$lpc; 110: $hash{'map_id_'.$lpc}=$uri; 111: 112: # Determine and check filename 113: my $fn=&Apache::lonnet::filelocation('',&putinversion($uri)); 114: 115: my $ispage=($fn=~/\.page$/); 116: 117: unless (($fn=~/\.sequence$/) || 118: ($fn=~/\.page$/)) { 119: $errtext.="Invalid map: $fn\n"; 120: return OK; 121: } 122: 123: my $instr=&Apache::lonnet::getfile($fn); 124: 125: unless ($instr eq -1) { 126: 127: # Successfully got file, parse it 128: 129: my $parser = HTML::TokeParser->new(\$instr); 130: my $token; 131: 132: my $linkpc=0; 133: 134: $fn=~/\.(\w+)$/; 135: 136: $hash{'map_type_'.$lpc}=$1; 137: 138: while ($token = $parser->get_token) { 139: if ($token->[0] eq 'S') { 140: if ($token->[1] eq 'resource') { 141: # -------------------------------------------------------------------- Resource 142: 143: my $rid=$lpc.'.'.$token->[2]->{'id'}; 144: 145: $hash{'kind_'.$rid}='res'; 146: $hash{'title_'.$rid}=$token->[2]->{'title'}; 147: my $turi=&versiontrack($token->[2]->{'src'}); 148: if ($token->[2]->{'version'}) { 149: unless ($hash{'version_'.$turi}) { 150: $hash{'version_'.$turi}=$1; 151: } 152: } 153: &Apache::lonnet::do_cache(\%Apache::lonnet::titlecache, 154: &Apache::lonnet::encode_symb($uri,$token->[2]->{'id'}, 155: $turi), 156: $token->[2]->{'title'},'title'); 157: unless ($ispage) { 158: $turi=~/\.(\w+)$/; 159: my $embstyle=&Apache::loncommon::fileembstyle($1); 160: if ($token->[2]->{'external'} eq 'true') { # external 161: $turi=~s/^http\:\/\//\/adm\/wrapper\/ext\//; 162: } elsif ($turi=~/^\/*uploaded\//) { # uploaded 163: if (($embstyle eq 'img') || ($embstyle eq 'emb')) { 164: $turi='/adm/wrapper'.$turi; 165: } elsif ($embstyle eq 'ssi') { 166: #do nothing with these 167: } elsif ($turi!~/\.(sequence|page)$/) { 168: $turi='/adm/coursedocs/showdoc'.$turi; 169: } 170: } elsif ($turi=~/\S/) { # normal non-empty internal resource 171: my $mapdir=$uri; 172: $mapdir=~s/[^\/]+$//; 173: $turi=&Apache::lonnet::hreflocation($mapdir,$turi); 174: if (($embstyle eq 'img') || ($embstyle eq 'emb')) { 175: $turi='/adm/wrapper'.$turi; 176: } 177: } 178: } 179: # Store reverse lookup, remove query string 180: my $idsuri=$turi; 181: $idsuri=~s/\?.+$//; 182: if (defined($hash{'ids_'.$idsuri})) { 183: $hash{'ids_'.$idsuri}.=','.$rid; 184: } else { 185: $hash{'ids_'.$idsuri}=''.$rid; 186: } 187: 188: if 189: ($turi=~/\/(syllabus|aboutme|navmaps|smppg|bulletinboard)$/) { 190: $turi.='?register=1'; 191: } 192: 193: $hash{'src_'.$rid}=$turi; 194: 195: if ($token->[2]->{'external'} eq 'true') { 196: $hash{'ext_'.$rid}='true:'; 197: } else { 198: $hash{'ext_'.$rid}='false:'; 199: } 200: if ($token->[2]->{'type'}) { 201: $hash{'type_'.$rid}=$token->[2]->{'type'}; 202: if ($token->[2]->{'type'} eq 'start') { 203: $hash{'map_start_'.$uri}="$rid"; 204: } 205: if ($token->[2]->{'type'} eq 'finish') { 206: $hash{'map_finish_'.$uri}="$rid"; 207: } 208: } else { 209: $hash{'type_'.$rid}='normal'; 210: } 211: 212: if (($turi=~/\.sequence$/) || 213: ($turi=~/\.page$/)) { 214: $hash{'is_map_'.$rid}=1; 215: &loadmap($turi); 216: } 217: 218: } elsif ($token->[1] eq 'condition') { 219: # ------------------------------------------------------------------- Condition 220: 221: my $rid=$lpc.'.'.$token->[2]->{'id'}; 222: 223: $hash{'kind_'.$rid}='cond'; 224: $cond[$#cond+1]=$token->[2]->{'value'}; 225: $hash{'condid_'.$rid}=$#cond; 226: if ($token->[2]->{'type'}) { 227: $cond[$#cond].=':'.$token->[2]->{'type'}; 228: } else { 229: $cond[$#cond].=':normal'; 230: } 231: 232: } elsif ($token->[1] eq 'link') { 233: # ----------------------------------------------------------------------- Links 234: 235: $linkpc++; 236: my $linkid=$lpc.'.'.$linkpc; 237: 238: my $goesto=$lpc.'.'.$token->[2]->{'to'}; 239: my $comesfrom=$lpc.'.'.$token->[2]->{'from'}; 240: my $undercond=0; 241: 242: if ($token->[2]->{'condition'}) { 243: $undercond=$lpc.'.'.$token->[2]->{'condition'}; 244: } 245: 246: $hash{'goesto_'.$linkid}=$goesto; 247: $hash{'comesfrom_'.$linkid}=$comesfrom; 248: $hash{'undercond_'.$linkid}=$undercond; 249: 250: if (defined($hash{'to_'.$comesfrom})) { 251: $hash{'to_'.$comesfrom}.=','.$linkid; 252: } else { 253: $hash{'to_'.$comesfrom}=''.$linkid; 254: } 255: if (defined($hash{'from_'.$goesto})) { 256: $hash{'from_'.$goesto}.=','.$linkid; 257: } else { 258: $hash{'from_'.$goesto}=''.$linkid; 259: } 260: } elsif ($token->[1] eq 'param') { 261: # ------------------------------------------------------------------- Parameter 262: 263: my $referid=$lpc.'.'.$token->[2]->{'to'}; 264: my $name=$token->[2]->{'name'}; 265: my $part; 266: if ($name=~/^parameter_(.*)_/) { 267: $part=$1; 268: } else { 269: $part=0; 270: } 271: $name=~s/^.*_([^_]*)$/$1/; 272: my $newparam= 273: &Apache::lonnet::escape($token->[2]->{'type'}).':'. 274: &Apache::lonnet::escape($part.'.'.$name).'='. 275: &Apache::lonnet::escape($token->[2]->{'value'}); 276: if (defined($hash{'param_'.$referid})) { 277: $hash{'param_'.$referid}.='&'.$newparam; 278: } else { 279: $hash{'param_'.$referid}=''.$newparam; 280: } 281: if ($token->[2]->{'name'}=~/^parameter_(0_)*mapalias$/) { 282: $hash{'mapalias_'.$token->[2]->{'value'}}=$referid; 283: } 284: if ($token->[2]->{'name'}=~/^parameter_(0_)*randompick$/) { 285: $randompick{$referid}=$token->[2]->{'value'}; 286: } 287: if ($token->[2]->{'name'}=~/^parameter_(0_)*randompickseed$/) { 288: $randompick{$referid}=$token->[2]->{'value'}; 289: } 290: if ($token->[2]->{'name'}=~/^parameter_(0_)*encrypturl$/) { 291: if ($token->[2]->{'value'}=~/^yes$/i) { 292: $encurl{$referid}=1; 293: } 294: } 295: if ($token->[2]->{'name'}=~/^parameter_(0_)*hiddenresource$/) { 296: if ($token->[2]->{'value'}=~/^yes$/i) { 297: $hiddenurl{$referid}=1; 298: } 299: } 300: } 301: 302: } 303: } 304: 305: } else { 306: $errtext.='Map not loaded: The file does not exist. '; 307: } 308: } 309: 310: # --------------------------------------------------------- Simplify expression 311: 312: sub simplify { 313: my $expression=shift; 314: # (8)=8 315: $expression=~s/$(\d+)$/$1/g; 316: # 8&8=8 317: $expression=~s/(\D)(\d+)\&\2(\D)/$1$2$3/g; 318: # 8|8=8 319: $expression=~s/(\D)(\d+)\|\2(\D)/$1$2$3/g; 320: # (5&3)&4=5&3&4 321: $expression=~s/$(\d+)((?:\&\d+)+)$\&(\d+\D)/$1$2\&$3/g; 322: # (((5&3)|(4&6)))=((5&3)|(4&6)) 323: $expression=~ 324: s/$(\(\(\d+(?:\&\d+)*$(?:\|$\d+(?:\&\d+)*$)+\))\)/$1/g; 325: # ((5&3)|(4&6))|(1&2)=(5&3)|(4&6)|(1&2) 326: $expression=~ 327: s/$(\(\d+(?:\&\d+)*$)((?:\|$\d+(?:\&\d+)*$)+)\)\|($\d+(?:\&\d+)*$)/$$1$2\|$3$/g; 328: return $expression; 329: } 330: 331: # -------------------------------------------------------- Build condition hash 332: 333: sub traceroute { 334: my ($sofar,$rid,$beenhere,$encflag,$hdnflag)=@_; 335: my $newsofar=$sofar=simplify($sofar); 336: unless ($beenhere=~/\&$rid\&/) { 337: $beenhere.=$rid.'&'; 338: my ($mapid,$resid)=split(/\./,$rid); 339: my $symb=&Apache::lonnet::encode_symb($hash{'map_id_'.$mapid},$resid,$hash{'src_'.$rid}); 340: my $hidden=&Apache::lonnet::EXT('resource.0.hiddenresource',$symb); 341: if ($hdnflag || lc($hidden) eq 'yes') { $hiddenurl{$rid}=1; } 342: my $encrypt=&Apache::lonnet::EXT('resource.0.encrypturl',$symb); 343: if ($encflag || lc($encrypt) eq 'yes') { $encurl{$rid}=1; } 344: if (($retfurl eq '') && ($hash{'src_'.$rid}) 345: && ($hash{'src_'.$rid}!~/\.sequence$/)) { 346: $retfurl=$hash{'src_'.$rid}.(($hash{'src_'.$rid}=~/\?/)?'&':'?'). 347: 'symb='.$symb; 348: } 349: if (defined($hash{'conditions_'.$rid})) { 350: $hash{'conditions_'.$rid}=simplify( 351: '('.$hash{'conditions_'.$rid}.')|('.$sofar.')'); 352: } else { 353: $hash{'conditions_'.$rid}=$sofar; 354: } 355: $newsofar=$hash{'conditions_'.$rid}; 356: if (defined($hash{'is_map_'.$rid})) { 357: if (defined($hash{'map_start_'.$hash{'src_'.$rid}})) { 358: $sofar=$newsofar= 359: &traceroute($sofar, 360: $hash{'map_start_'.$hash{'src_'.$rid}},'&', 361: $encflag || $encurl{$rid}, 362: $hdnflag || $hiddenurl{$rid}); 363: } 364: } 365: if (defined($hash{'to_'.$rid})) { 366: foreach (split(/\,/,$hash{'to_'.$rid})) { 367: my $further=$sofar; 368: if ($hash{'undercond_'.$_}) { 369: if (defined($hash{'condid_'.$hash{'undercond_'.$_}})) { 370: $further=simplify('('.$further.')&('. 371: $hash{'condid_'.$hash{'undercond_'.$_}}.')'); 372: } else { 373: $errtext.='Undefined condition ID: ' 374: .$hash{'undercond_'.$_}.'. '; 375: } 376: } 377: $newsofar=&traceroute($further,$hash{'goesto_'.$_},$beenhere, 378: $encflag,$hdnflag); 379: } 380: } 381: } 382: return $newsofar; 383: } 384: 385: # ------------------------------ Cascading conditions, quick access, parameters 386: 387: sub accinit { 388: my ($uri,$short,$fn)=@_; 389: my %acchash=(); 390: my %captured=(); 391: my $condcounter=0; 392: $acchash{'acc.cond.'.$short.'.0'}=0; 393: foreach (keys %hash) { 394: if ($_=~/^conditions/) { 395: my $expr=$hash{$_}; 396: foreach ($expr=~m/($\(\d+(?:\&\d+)+$(?:\|$\d+(?:\&\d+)+$)+\))/g) { 397: my $sub=$_; 398: my $orig=$_; 399: $sub=~/$\((\d+\&(:?\d+\&)*)(?:\d+\&*)+$(?:\|$\1(?:\d+\&*)+$)+\)/; 400: my $factor=$1; 401: $sub=~s/$factor//g; 402: $sub=~s/^\(/\($factor\(/; 403: $sub.=')'; 404: $sub=simplify($sub); 405: $orig=~s/(\W)/\\$1/g; 406: $expr=~s/$orig/$sub/; 407: } 408: $hash{$_}=$expr; 409: unless (defined($captured{$expr})) { 410: $condcounter++; 411: $captured{$expr}=$condcounter; 412: $acchash{'acc.cond.'.$short.'.'.$condcounter}=$expr; 413: } 414: } elsif ($_=~/^param_(\d+)\.(\d+)/) { 415: my $prefix=&Apache::lonnet::declutter($hash{'map_id_'.$1}). 416: '___'.$2.'___'.&Apache::lonnet::declutter($hash{'src_'.$1.'.'.$2}); 417: foreach (split(/\&/,$hash{$_})) { 418: my ($typename,$value)=split(/\=/,$_); 419: my ($type,$name)=split(/\:/,$typename); 420: $parmhash{$prefix.'.'.&Apache::lonnet::unescape($name)}= 421: &Apache::lonnet::unescape($value); 422: $parmhash{$prefix.'.'.&Apache::lonnet::unescape($name).'.type'}= 423: &Apache::lonnet::unescape($type); 424: } 425: } 426: } 427: foreach (keys %hash) { 428: if ($_=~/^ids/) { 429: foreach (split(/\,/,$hash{$_})) { 430: my $resid=$_; 431: my $uri=$hash{'src_'.$resid}; 432: $uri=~s/^\/adm\/wrapper//; 433: $uri=&Apache::lonnet::declutter($uri); 434: my @uriparts=split(/\//,$uri); 435: my $urifile=$uriparts[$#uriparts]; 436: $#uriparts--; 437: my $uripath=join('/',@uriparts); 438: if ($uripath) { 439: my $uricond='0'; 440: if (defined($hash{'conditions_'.$resid})) { 441: $uricond=$captured{$hash{'conditions_'.$resid}}; 442: } 443: if (defined($acchash{'acc.res.'.$short.'.'.$uripath})) { 444: if ($acchash{'acc.res.'.$short.'.'.$uripath}=~ 445: /(\&\Q$urifile\E\:[^\&]*)/) { 446: my $replace=$1; 447: my $regexp=$replace; 448: #$regexp=~s/\|/\\\|/g; 449: $acchash{'acc.res.'.$short.'.'.$uripath} 450: =~s/\Q$regexp\E/$replace\|$uricond/; 451: } else { 452: $acchash{'acc.res.'.$short.'.'.$uripath}.= 453: $urifile.':'.$uricond.'&'; 454: } 455: } else { 456: $acchash{'acc.res.'.$short.'.'.$uripath}= 457: '&'.$urifile.':'.$uricond.'&'; 458: } 459: } 460: } 461: } 462: } 463: $acchash{'acc.res.'.$short.'.'}='&:0&'; 464: my $courseuri=$uri; 465: $courseuri=~s/^\/res\///; 466: &Apache::lonnet::delenv('(acc\.|httpref\.)'); 467: &Apache::lonnet::appenv(%acchash); 468: } 469: 470: # ---------------- Selectively delete from randompick maps and hidden url parms 471: 472: sub hiddenurls { 473: my $randomoutentry=''; 474: foreach my $rid (keys %randompick) { 475: my $rndpick=$randompick{$rid}; 476: my $mpc=$hash{'map_pc_'.$hash{'src_'.$rid}}; 477: # ------------------------------------------- put existing resources into array 478: my @currentrids=(); 479: foreach (sort(keys(%hash))) { 480: if ($_=~/^src_($mpc\.\d+)/) { 481: if ($hash{'src_'.$1}) { push @currentrids, $1; } 482: } 483: } 484: # rids are number.number and we want to numercially sort on 485: # the second number 486: @currentrids=sort { 487: my (undef,$aid)=split(/\./,$a); 488: my (undef,$bid)=split(/\./,$b); 489: $aid <=> $bid; 490: } @currentrids; 491: next if ($#currentrids<$rndpick); 492: # -------------------------------- randomly eliminate the ones that should stay 493: my (undef,$id)=split(/\./,$rid); 494: if ($randompickseed{$rid}) { $id=$randompickseed{$rid}; } 495: my $rndseed=&Apache::lonnet::rndseed($id); # use id instead of symb 496: &Apache::lonnet::setup_random_from_rndseed($rndseed); 497: my @whichids=&Math::Random::random_permuted_index($#currentrids+1); 498: for (my $i=1;$i<=$rndpick;$i++) { $currentrids[$whichids[$i]]=''; } 499: #&Apache::lonnet::logthis("$id,$rndseed,".join(':',@whichids)); 500: # -------------------------------------------------------- delete the leftovers 501: for (my $k=0; $k<=$#currentrids; $k++) { 502: if ($currentrids[$k]) { 503: $hash{'randomout_'.$currentrids[$k]}=1; 504: my ($mapid,$resid)=split(/\./,$currentrids[$k]); 505: $randomoutentry.='&'. 506: &Apache::lonnet::symbclean( 507: &Apache::lonnet::declutter($hash{'map_id_'.$mapid}). 508: '___'.$resid.'___'. 509: &Apache::lonnet::declutter($hash{'src_'.$currentrids[$k]}) 510: ).'&'; 511: } 512: } 513: } 514: # ------------------------------ take care of explicitly hidden urls or folders 515: foreach my $rid (keys %hiddenurl) { 516: $hash{'randomout_'.$rid}=1; 517: my ($mapid,$resid)=split(/\./,$rid); 518: $randomoutentry.='&'. 519: &Apache::lonnet::symbclean( 520: &Apache::lonnet::declutter($hash{'map_id_'.$mapid}). 521: '___'.$resid.'___'. 522: &Apache::lonnet::declutter($hash{'src_'.$rid}) 523: ).'&'; 524: } 525: # --------------------------------------- append randomout entry to environment 526: if ($randomoutentry) { 527: &Apache::lonnet::appenv('acc.randomout' => $randomoutentry); 528: } 529: } 530: 531: # ---------------------------------------------------- Read map and all submaps 532: 533: sub readmap { 534: my $short=shift; 535: $short=~s/^\///; 536: my %cenv=&Apache::lonnet::coursedescription($short); 537: my $fn=$cenv{'fn'}; 538: my $uri; 539: $short=~s/\//\_/g; 540: unless ($uri=$cenv{'url'}) { 541: &Apache::lonnet::logthis("WARNING: ". 542: "Could not load course $short."); 543: return 'No course data available.'; 544: } 545: @cond=('true:normal'); 546: unlink($fn.'.db'); 547: unlink($fn.'_symb.db'); 548: unlink($fn.'.state'); 549: unlink($fn.'parms.db'); 550: undef %randompick; 551: undef %hiddenurl; 552: undef %encurl; 553: $retfurl=''; 554: if ((tie(%hash,'GDBM_File',"$fn.db",&GDBM_WRCREAT(),0640)) && 555: (tie(%parmhash,'GDBM_File',$fn.'_parms.db',&GDBM_WRCREAT(),0640))) { 556: %hash=(); 557: %parmhash=(); 558: $errtext=''; 559: $pc=0; 560: &processversionfile(%cenv); 561: my $furi=&Apache::lonnet::clutter($uri); 562: $hash{'src_0.0'}=&versiontrack($furi); 563: $hash{'title_0.0'}=&Apache::lonnet::metadata($uri,'title'); 564: $hash{'ids_'.$furi}='0.0'; 565: $hash{'is_map_0.0'}=1; 566: loadmap($uri); 567: if (defined($hash{'map_start_'.$uri})) { 568: &Apache::lonnet::appenv("request.course.id" => $short, 569: "request.course.fn" => $fn, 570: "request.course.uri" => $uri); 571: &traceroute('0',$hash{'map_start_'.$uri},'&'); 572: &accinit($uri,$short,$fn); 573: &hiddenurls(); 574: } 575: # ------------------------------------------------------- Put versions into src 576: foreach (keys %hash) { 577: if ($_=~/^src\_/) { 578: $hash{$_}=&putinversion($hash{$_}); 579: } 580: } 581: # ---------------------------------------------------------------- Encrypt URLs 582: foreach (keys %encurl) { 583: $hash{'src_'.$_}=&Apache::lonenc::encrypted($hash{'src_'.$_}); 584: } 585: # ----------------------------------------------- Close hashes to finally store 586: # --------------------------------- Routine must pass this point, no early outs 587: unless ((untie(%hash)) && (untie(%parmhash))) { 588: &Apache::lonnet::logthis("WARNING: ". 589: "Could not untie coursemap $fn for $uri."); 590: } 591: # ---------------------------------------------------- Store away initial state 592: { 593: my $cfh; 594: if ($cfh=Apache::File->new(">$fn.state")) { 595: print $cfh join("\n",@cond); 596: } else { 597: &Apache::lonnet::logthis("WARNING: ". 598: "Could not write statemap $fn for $uri."); 599: } 600: } 601: } else { 602: &Apache::lonnet::logthis("WARNING: ". 603: "Could not tie coursemap $fn for $uri."); 604: } 605: &Apache::lonmsg::author_res_msg($ENV{'request.course.uri'},$errtext); 606: # ------------------------------------------------- Check for critical messages 607: 608: my @what=&Apache::lonnet::dump('critical',$ENV{'user.domain'}, 609: $ENV{'user.name'}); 610: if ($what[0]) { 611: if (($what[0] ne 'con_lost') && ($what[0]!~/^error\:/)) { 612: $retfurl='/adm/email?critical=display'; 613: } 614: } 615: return ($retfurl,$errtext); 616: } 617: 618: # ------------------------------------------------------- Evaluate state string 619: 620: sub evalstate { 621: my $fn=$ENV{'request.course.fn'}.'.state'; 622: my $state=''; 623: if (-e $fn) { 624: my @conditions=(); 625: { 626: my $fh=Apache::File->new($fn); 627: @conditions=<$fh>; 628: } 629: my $safeeval = new Safe; 630: my $safehole = new Safe::Hole; 631: $safeeval->permit("entereval"); 632: $safeeval->permit(":base_math"); 633: $safeeval->deny(":base_io"); 634: $safehole->wrap(\&Apache::lonnet::EXT,$safeeval,'&EXT'); 635: foreach my $line (@conditions) { 636: chomp($line); 637: my ($condition,$weight)=split(/\:/,$line); 638: if ($safeeval->reval($condition)) { 639: if ($weight eq 'force') { 640: $state.='3'; 641: } else { 642: $state.='2'; 643: } 644: } else { 645: if ($weight eq 'stop') { 646: $state.='0'; 647: } else { 648: $state.='1'; 649: } 650: } 651: } 652: } 653: &Apache::lonnet::appenv('user.state.'.$ENV{'request.course.id'} => $state); 654: return $state; 655: } 656: 657: 1; 658: __END__ 659: 660: =head1 NAME 661: 662: Apache::lonuserstate - Construct and maintain state and binary representation 663: of course for user 664: 665: =head1 SYNOPSIS 666: 667: Invoked by lonroles.pm. 668: 669: &Apache::lonuserstate::readmap($cdom.'/'.$cnum); 670: 671: =head1 INTRODUCTION 672: 673: This module constructs and maintains state and binary representation 674: of course for user. 675: 676: This is part of the LearningOnline Network with CAPA project 677: described at http://www.lon-capa.org. 678: 679: =head1 HANDLER SUBROUTINE 680: 681: There is no handler subroutine. 682: 683: =head1 OTHER SUBROUTINES 684: 685: =over 4 686: 687: =item * 688: 689: loadmap() : Loads map from disk 690: 691: =item * 692: 693: simplify() : Simplify expression 694: 695: =item * 696: 697: traceroute() : Build condition hash 698: 699: =item * 700: 701: accinit() : Cascading conditions, quick access, parameters 702: 703: =item * 704: 705: readmap() : Read map and all submaps 706: 707: =item * 708: 709: evalstate() : Evaluate state string 710: 711: =back 712: 713: =cut