|
version 1.1352, 2017/08/27 02:36:58
|
version 1.1353, 2017/08/27 13:48:52
|
|
Line 3177 sub remove_stale_resfile {
|
Line 3177 sub remove_stale_resfile {
|
| if ($url=~m{^/res/($match_domain)/($match_username)/}) { |
if ($url=~m{^/res/($match_domain)/($match_username)/}) { |
| my $audom = $1; |
my $audom = $1; |
| my $auname = $2; |
my $auname = $2; |
| unless (($url =~ /\.\d+\.\w+$/) || ($url !~ m{^/res/lib/templates/})) { |
unless (($url =~ /\.\d+\.\w+$/) || ($url =~ m{^/res/lib/templates/})) { |
| my $homeserver = &homeserver($auname,$audom); |
my $homeserver = &homeserver($auname,$audom); |
| unless (($homeserver eq 'no_host') || |
unless (($homeserver eq 'no_host') || |
| (grep { $_ eq $homeserver } ¤t_machine_ids())) { |
(grep { $_ eq $homeserver } ¤t_machine_ids())) { |
![[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