version 1.8, 2003/08/01 15:46:10
|
version 1.10, 2004/05/11 06:49:58
|
Line 45 sub handler {
|
Line 45 sub handler {
|
return FORBIDDEN; |
return FORBIDDEN; |
} |
} |
if ($reqhost eq 'localhost.localdomain') { |
if ($reqhost eq 'localhost.localdomain') { |
$r->register_cleanup(\&removefile); |
|
return OK; |
return OK; |
} |
} |
my $readline; |
my $readline; |
Line 59 sub handler {
|
Line 58 sub handler {
|
while ($readline=<$fh>) { |
while ($readline=<$fh>) { |
my ($id,$domain,$role,$name,$ip)=split(/:/,$readline); |
my ($id,$domain,$role,$name,$ip)=split(/:/,$readline); |
if ($name =~ /$reqhost/i) { |
if ($name =~ /$reqhost/i) { |
$r->register_cleanup(\&removefile); |
|
return OK; |
return OK; |
} |
} |
} |
} |
Line 74 sub removefile {
|
Line 72 sub removefile {
|
my $r=shift; |
my $r=shift; |
if ($r->status==200) { |
if ($r->status==200) { |
unlink($r->filename); |
unlink($r->filename); |
&Apache::lonnet::logthis('Unlinking '.$r->filename); |
#&Apache::lonnet::logthis('Unlinking '.$r->filename); |
} else { |
} else { |
&Apache::lonnet::logthis('Failed to transfer '.$r->filename); |
&Apache::lonnet::logthis('Failed to transfer '.$r->filename); |
} |
} |