loncom/publisher/lonupload.pm - diff

Return to lonupload.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.11, 2002/08/05 02:22:56	version 1.12, 2002/08/08 02:30:39
Line 1	Line 1

# The LearningOnline Network with CAPA	# The LearningOnline Network with CAPA
# Handler to upload files into construction space	# Handler to upload files into construction space
#	#
Line 55 use File::Copy;	Line 56 use File::Copy;
use Apache::Constants qw(:common :http :methods);	use Apache::Constants qw(:common :http :methods);
use Apache::loncacc;	use Apache::loncacc;
use Apache::loncommon();	use Apache::loncommon();
	use Apache::Log();

	my $DEBUG=0;

	sub Debug {

	# Marshall the parameters.

	my $r = shift;
	my $log = $r->log;
	my $message = shift;

	# Put out the indicated message butonly if DEBUG is false.

	if ($DEBUG) {
	$log->debug($message);
	}
	}

sub upfile_store {	sub upfile_store {
my $r=shift;	my $r=shift;
Line 85 sub phaseone {	Line 104 sub phaseone {
$fn.=$ENV{'form.upfile.filename'};	$fn.=$ENV{'form.upfile.filename'};
$fn=~s/^\///;	$fn=~s/^\///;
$fn=~s/(\/)+/\//g;	$fn=~s/(\/)+/\//g;
	$fn=~s/%20/ /g;
	&Debug($r, "Filename for upload: $fn");
if (($fn) && ($fn!~/\/$/)) {	if (($fn) && ($fn!~/\/$/)) {
$r->print(	$r->print(
'<form action=/adm/upload method=post>'.	'<form action=/adm/upload method=post>'.