loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.156, 2003/10/30 20:22:00	version 1.158, 2003/12/08 20:33:30
Line 174 sub check_ip_acc {	Line 174 sub check_ip_acc {
use Socket;	use Socket;
my $netaddr=inet_aton($ip);	my $netaddr=inet_aton($ip);
($name)=gethostbyaddr($netaddr,AF_INET);	($name)=gethostbyaddr($netaddr,AF_INET);
}	}
if ($name =~ /\Q$pattern\E$/i) { $allowed=1; }	if ($name =~ /\Q$pattern\E$/i) { $allowed=1; }
} elsif ($pattern =~ /\d+\.\d+\.\d+\.\d+/) {	} elsif ($pattern =~ /\d+\.\d+\.\d+\.\d+/) {
#127.0.0.1	#127.0.0.1
Line 644 sub newproblem {	Line 644 sub newproblem {
&renderpage($request,$dest);	&renderpage($request,$dest);
} else {	} else {
my $url=$request->uri;	my $url=$request->uri;
	my $shownurl=$url;
	$shownurl=~s-^/~-/priv/-;
my $dest = &Apache::lonnet::filelocation("",$request->uri);	my $dest = &Apache::lonnet::filelocation("",$request->uri);
my $errormsg;	my $errormsg;
if ($ENV{'form.newfile'}) {	if ($ENV{'form.newfile'}) {
Line 663 sub newproblem {	Line 665 sub newproblem {
<body bgcolor="#FFFFFF">	<body bgcolor="#FFFFFF">
<h1>$lt{'create'} $extension $lt{'resource'}</h1>	<h1>$lt{'create'} $extension $lt{'resource'}</h1>
$errormsg	$errormsg
$lt{'requested'} <tt>$url</tt> $lt{'not exist'}.	$lt{'requested'} <tt>$shownurl</tt> $lt{'not exist'}.
<p>	<p>
<b>$lt{'createnew'} $extension$instructions $lt{'click'} "$lt{'Create'} $extension" $lt{'button'}.</b>	<b>$lt{'createnew'} $extension$instructions $lt{'click'} "$lt{'Create'} $extension" $lt{'button'}.</b>
</p>	</p>