Return to lonuserstate.pm CVS log

Up to [LON-CAPA] / rat

Diff for /rat/lonuserstate.pm between versions 1.29 and 1.39

version 1.29, 2002/06/24 14:09:49	version 1.39, 2002/08/31 00:43:13
Line 79 sub loadmap {	Line 79 sub loadmap {
$hash{'map_pc_'.$uri}=$lpc;	$hash{'map_pc_'.$uri}=$lpc;
$hash{'map_id_'.$lpc}=$uri;	$hash{'map_id_'.$lpc}=$uri;

my $fn='/home/httpd/html'.$uri;	# Determine and check filename
	my $fn=&Apache::lonnet::filelocation('',$uri);

	my $ispage=($fn=~/\.page$/);

unless (($fn=~/\.sequence$/) \|\|	unless (($fn=~/\.sequence$/) \|\|
($fn=~/\.page$/)) {	($fn=~/\.page$/)) {
Line 87 sub loadmap {	Line 90 sub loadmap {
return OK;	return OK;
}	}

my $ispage=($fn=~/\.page$/);	my $instr=&Apache::lonnet::getfile($fn);

unless (-e $fn) {	unless ($instr == -1) {
my $returned=Apache::lonnet::repcopy($fn);
unless ($returned eq OK) {	# Successfully got file, parse it
$errtext.="Could not import: $fn - ";
if ($returned eq HTTP_SERVICE_UNAVAILABLE) {
$errtext.="Server unavailable\n";
}
if ($returned eq HTTP_NOT_FOUND) {
$errtext.="File not found\n";
}
if ($returned eq FORBIDDEN) {
$errtext.="Access forbidden\n";
}
return OK;
}
}

if (-e $fn) {
my @content;
{
my $fh=Apache::File->new($fn);
@content=<$fh>;
}
my $instr=join('',@content);
my $parser = HTML::TokeParser->new(\$instr);	my $parser = HTML::TokeParser->new(\$instr);
my $token;	my $token;

Line 139 sub loadmap {	Line 122 sub loadmap {
$turi=~s/^http\:\/\//\/adm\/wrapper\/ext\//;	$turi=~s/^http\:\/\//\/adm\/wrapper\/ext\//;
} else {	} else {
my $embstyle=&Apache::loncommon::fileembstyle($1);	my $embstyle=&Apache::loncommon::fileembstyle($1);
if (($embstyle eq 'img') \|\| ($embstyle eq 'emb')) {	if (($embstyle eq 'img') \|\| ($embstyle eq 'emb')
	\|\| ($turi=~/\/syllabus$/) \|\| ($turi=~/\/aboutme$/)) {
$turi='/adm/wrapper'.$turi;	$turi='/adm/wrapper'.$turi;
}	}
}	}
Line 277 sub traceroute {	Line 261 sub traceroute {
$sofar=simplify($sofar);	$sofar=simplify($sofar);
unless ($beenhere=~/\&$rid\&/) {	unless ($beenhere=~/\&$rid\&/) {
$beenhere.=$rid.'&';	$beenhere.=$rid.'&';
if ($retfurl eq '') {	if (($retfurl eq '') && ($hash{'src_'.$rid})) {
my ($mapid,$resid)=split(/\./,$rid);	my ($mapid,$resid)=split(/\./,$rid);
$retfurl=$hash{'src_'.$rid}.'?symb='.	$retfurl=$hash{'src_'.$rid}.
	(($hash{'src_'.$rid}=~/\?/)?'&':'?').'symb='.
&Apache::lonnet::symbclean(	&Apache::lonnet::symbclean(
&Apache::lonnet::declutter($hash{'map_id_'.$mapid}).	&Apache::lonnet::declutter($hash{'map_id_'.$mapid}).
'___'.$resid.'___'.	'___'.$resid.'___'.
Line 409 sub accinit {	Line 394 sub accinit {
# ------------------------------------- Selectively delete from randompick maps	# ------------------------------------- Selectively delete from randompick maps

sub pickrandom {	sub pickrandom {
	my $randomoutentry='';
foreach my $rid (keys %randompick) {	foreach my $rid (keys %randompick) {
my $rndpick=$randompick{$rid};	my $rndpick=$randompick{$rid};
my $mpc=$hash{'map_pc_'.$hash{'src_'.$rid}};	my $mpc=$hash{'map_pc_'.$hash{'src_'.$rid}};
Line 422 sub pickrandom {	Line 408 sub pickrandom {
next if ($#currentrids<$rndpick);	next if ($#currentrids<$rndpick);
# -------------------------------- randomly eliminate the ones that should stay	# -------------------------------- randomly eliminate the ones that should stay
srand(&Apache::lonnet::rndseed($rid)); # use rid instead of symb	srand(&Apache::lonnet::rndseed($rid)); # use rid instead of symb
for (my $i=1;$i<=$#currentrids+1-$rndpick;$i++) {	for (my $i=1;$i<=$rndpick;$i++) {
while (1) {	while (1) {
my $randomidx=int(rand($#currentrids+1));	my $randomidx=int(rand($#currentrids+1));
if ($currentrids[$randomidx]) {	if ($currentrids[$randomidx]) {
Line 435 sub pickrandom {	Line 421 sub pickrandom {
for (my $k=0; $k<=$#currentrids; $k++) {	for (my $k=0; $k<=$#currentrids; $k++) {
if ($currentrids[$k]) {	if ($currentrids[$k]) {
$hash{'randomout_'.$currentrids[$k]}=1;	$hash{'randomout_'.$currentrids[$k]}=1;
	my ($mapid,$resid)=split(/\./,$currentrids[$k]);
	$randomoutentry.='&'.
	&Apache::lonnet::symbclean(
	&Apache::lonnet::declutter($hash{'map_id_'.$mapid}).
	'___'.$resid.'___'.
	&Apache::lonnet::declutter($hash{'src_'.$currentrids[$k]})
	).'&';
}	}
}	}
}	}
	if ($randomoutentry) {
	&Apache::lonnet::appenv('acc.randomout' => $randomoutentry);
	}
}	}

# ---------------------------------------------------- Read map and all submaps	# ---------------------------------------------------- Read map and all submaps
Line 461 sub readmap {	Line 457 sub readmap {
unlink($fn.'parms.db');	unlink($fn.'parms.db');
undef %randompick;	undef %randompick;
$retfurl='';	$retfurl='';
if ((tie(%hash,'GDBM_File',"$fn.db",&GDBM_WRCREAT,0640)) &&	if ((tie(%hash,'GDBM_File',"$fn.db",&GDBM_WRCREAT(),0640)) &&
(tie(%parmhash,'GDBM_File',$fn.'_parms.db',&GDBM_WRCREAT,0640))) {	(tie(%parmhash,'GDBM_File',$fn.'_parms.db',&GDBM_WRCREAT(),0640))) {
%hash=();	%hash=();
%parmhash=();	%parmhash=();
$errtext='';	$errtext='';
$pc=0;	$pc=0;
	my $furi=&Apache::lonnet::clutter($uri);
	$hash{'src_0.0'}=$furi;
	$hash{'title_0.0'}=&Apache::lonnet::metadata($uri,'title');
	$hash{'ids_'.$furi}='0.0';
	$hash{'is_map_0.0'}=1;
loadmap($uri);	loadmap($uri);
if (defined($hash{'map_start_'.$uri})) {	if (defined($hash{'map_start_'.$uri})) {
&traceroute('0',$hash{'map_start_'.$uri},'&');	&traceroute('0',$hash{'map_start_'.$uri},'&');

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

500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.

Removed from v.1.29
changed lines
	Added in v.1.39