|
version 1.694, 2006/01/10 21:41:39
|
version 1.699, 2006/01/11 21:00:47
|
|
Line 4965 sub EXT {
|
Line 4965 sub EXT {
|
| if ($space eq 'time') { |
if ($space eq 'time') { |
| return time; |
return time; |
| } |
} |
| |
} elsif ($realm eq 'server') { |
| |
# ----------------------------------------------------------------- system.time |
| |
if ($space eq 'name') { |
| |
return $ENV{'SERVER_NAME'}; |
| |
} |
| } |
} |
| return ''; |
return ''; |
| } |
} |
|
Line 5037 sub metadata {
|
Line 5042 sub metadata {
|
| # if it is a non metadata possible uri return quickly |
# if it is a non metadata possible uri return quickly |
| if (($uri eq '') || |
if (($uri eq '') || |
| (($uri =~ m|^/*adm/|) && |
(($uri =~ m|^/*adm/|) && |
| ($uri !~ m|^adm/includes|) && ($uri !~ m|/bulletinboard$|) |
($uri !~ m|^adm/includes|) && ($uri !~ m|/bulletinboard$|)) || |
| && ($uri !~ m|^adm/coursedocs/|) && ($uri !~ m|^adm/wrapper/|)) || |
|
| ($uri =~ m|/$|) || ($uri =~ m|/.meta$|) || ($uri =~ /^~/) || |
($uri =~ m|/$|) || ($uri =~ m|/.meta$|) || ($uri =~ /^~/) || |
| ($uri =~ m|home/[^/]+/public_html/|)) { |
($uri =~ m|home/[^/]+/public_html/|)) { |
| return undef; |
return undef; |
|
Line 5223 sub metadata {
|
Line 5227 sub metadata {
|
| $metaentry{':keys'}=join(',',keys %metathesekeys); |
$metaentry{':keys'}=join(',',keys %metathesekeys); |
| &metadata_generate_part0(\%metathesekeys,\%metaentry,$uri); |
&metadata_generate_part0(\%metathesekeys,\%metaentry,$uri); |
| $metaentry{':allpossiblekeys'}=join(',',keys %metathesekeys); |
$metaentry{':allpossiblekeys'}=join(',',keys %metathesekeys); |
| &do_cache_new('meta',$uri,\%metaentry,60*60*24); |
&do_cache_new('meta',$uri,\%metaentry,60*60); |
| # this is the end of "was not already recently cached |
# this is the end of "was not already recently cached |
| } |
} |
| return $metaentry{':'.$what}; |
return $metaentry{':'.$what}; |
|
Line 6144 sub declutter {
|
Line 6148 sub declutter {
|
| if ($thisfn=~m|^/enc/|) { $thisfn=&Apache::lonenc::unencrypted($thisfn); } |
if ($thisfn=~m|^/enc/|) { $thisfn=&Apache::lonenc::unencrypted($thisfn); } |
| $thisfn=~s/^\Q$perlvar{'lonDocRoot'}\E//; |
$thisfn=~s/^\Q$perlvar{'lonDocRoot'}\E//; |
| $thisfn=~s/^\///; |
$thisfn=~s/^\///; |
| |
$thisfn=~s|^adm/wrapper/||; |
| |
$thisfn=~s|^adm/coursedocs/showdoc/||; |
| $thisfn=~s/^res\///; |
$thisfn=~s/^res\///; |
| $thisfn=~s/\?.+$//; |
$thisfn=~s/\?.+$//; |
| $thisfn=~s|adm/wrapper/||; |
|
| $thisfn=~s|adm/coursedocs/showdoc/||; |
|
| return $thisfn; |
return $thisfn; |
| } |
} |
| |
|
|
Line 6159 sub clutter {
|
Line 6163 sub clutter {
|
| $thisfn='/res'.$thisfn; |
$thisfn='/res'.$thisfn; |
| } |
} |
| if ($thisfn !~m|/adm|) { |
if ($thisfn !~m|/adm|) { |
| my ($ext) = ($thisfn =~ /\.(\w+)$/); |
if ($thisfn =~ m|/ext/|) { |
| my $embstyle=&Apache::loncommon::fileembstyle($ext); |
|
| if (($embstyle eq 'img') |
|
| || ($embstyle eq 'emb') |
|
| || ($embstyle eq 'wrp')) { |
|
| $thisfn='/adm/wrapper'.$thisfn; |
$thisfn='/adm/wrapper'.$thisfn; |
| } elsif ($embstyle eq 'ssi') { |
} else { |
| #do nothing with these |
my ($ext) = ($thisfn =~ /\.(\w+)$/); |
| } elsif ($thisfn!~/\.(sequence|page)$/) { |
my $embstyle=&Apache::loncommon::fileembstyle($ext); |
| $thisfn='/adm/coursedocs/showdoc'.$thisfn; |
if ($embstyle eq 'ssi' |
| |
|| ($embstyle eq 'hdn') |
| |
|| ($embstyle eq 'rat') |
| |
|| ($embstyle eq 'prv') |
| |
|| ($embstyle eq 'ign')) { |
| |
#do nothing with these |
| |
} elsif (($embstyle eq 'img') |
| |
|| ($embstyle eq 'emb') |
| |
|| ($embstyle eq 'wrp')) { |
| |
$thisfn='/adm/wrapper'.$thisfn; |
| |
} elsif ($embstyle eq 'unk' |
| |
&& $thisfn!~/\.(sequence|page)$/) { |
| |
$thisfn='/adm/coursedocs/showdoc'.$thisfn; |
| |
} else { |
| |
&logthis("Got a blank emb style"); |
| |
} |
| } |
} |
| } |
} |
| |
|
| return $thisfn; |
return $thisfn; |
| } |
} |
| |
|
![[BACK]](/icons/back.gif){kind=icon}
Return to lonnet.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / lonnet / perl