loncom/publisher/loncleanup.pm - diff

Return to loncleanup.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.8, 2006/05/30 12:47:41	version 1.10, 2008/12/24 07:58:34
Line 335 sub handler {	Line 335 sub handler {

if ($env{'form.filename'}) {	if ($env{'form.filename'}) {
$fn=$env{'form.filename'};	$fn=$env{'form.filename'};
$fn=~s/^http\:\/\/[^\/]+//;	$fn=~s/^https?\:\/\/[^\/]+//;
} else {	} else {
$r->log_reason($env{'user.name'}.' at '.$env{'user.domain'}.	$r->log_reason($env{'user.name'}.' at '.$env{'user.domain'}.
' unspecified filename for cleanup', $r->filename);	' unspecified filename for cleanup', $r->filename);
Line 362 sub handler {	Line 362 sub handler {
return HTTP_NOT_ACCEPTABLE;	return HTTP_NOT_ACCEPTABLE;
}	}

$fn=~s/\/\~(\w+)//;	$fn=~s{/~($LONCAPA::username_re)}{};

&Apache::loncommon::content_type($r,'text/html');	&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;	$r->send_http_header;