doc/loncapafiles/updatequery.piml - diff

Return to updatequery.piml CVS log

Up to [LON-CAPA] / doc / loncapafiles

version 1.17, 2002/06/21 05:30:31	version 1.18, 2002/08/17 19:05:03
Line 145 END	Line 145 END
}	}
my $choice=<>;	my $choice=<>;
chomp($choice);	chomp($choice);
	my $bad_domain_flag=0;
	my @bad_domain_names=('raw','userfiles','priv','adm','uploaded');
	foreach my $bad (@bad_domain_names) {
	$bad_domain_flag=1 if $choice eq $bad;
	}
if ($ipdomain and $choice=~/^\s*$/) {	if ($ipdomain and $choice=~/^\s*$/) {
$choice=$ipdomain;	$choice=$ipdomain;
open(OUT,'>>/tmp/loncapa_updatequery.out');	open(OUT,'>>/tmp/loncapa_updatequery.out');
Line 161 END	Line 166 END
$r='l';	$r='l';
$flag=1;	$flag=1;
}	}
	elsif ($bad_domain_flag) {
	print "Invalid input ('$choice' conflicts with LON-CAPA namespace).\n";
	print "Please try something different than '$choice'\n";
	}
else {	else {
print "Invalid input (only alphanumeric characters supported).\n";	print "Invalid input (only alphanumeric characters supported).\n";
}	}