loncom/publisher/lonupload.pm - diff

Return to lonupload.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.3, 2001/05/25 16:36:36	version 1.4, 2001/05/25 17:03:58
Line 67 sub phaseone {	Line 67 sub phaseone {
}	}

sub phasetwo {	sub phasetwo {
my ($r,$fn,$uname,$udom)=@_;	my ($r,$fn,$uname,$udom)=@_;
	if ($fn=~/^\/priv\/$uname\//) {
my $tfn=$fn;	my $tfn=$fn;
$tfn=~s/^\/(\~\|priv)\/(\w+)//;	$tfn=~s/^\/(\~\|priv)\/(\w+)//;
my $target='/home/'.$uname.'/public_html'.$tfn;	my $target='/home/'.$uname.'/public_html'.$tfn;
Line 97 sub phasetwo {	Line 98 sub phasetwo {
'<font size=+1 color=red>Please pick a filename</font><p>');	'<font size=+1 color=red>Please pick a filename</font><p>');
&phaseone($r,$fn,$uname,$udom);	&phaseone($r,$fn,$uname,$udom);
}	}
	} else {
	$r->print(
	'<font size=+1 color=red>Please pick a filename</font><p>');
	&phaseone($r,$fn,$uname,$udom);
	}
}	}

sub handler {	sub handler {