loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.1172.2.9, 2012/08/27 15:03:52	version 1.1172.2.10, 2012/09/02 16:23:02
Line 2401 sub chatsend {	Line 2401 sub chatsend {

sub getversion {	sub getversion {
my $fname=&clutter(shift);	my $fname=&clutter(shift);
unless ($fname=~/^\/res\//) { return -1; }	unless ($fname=~m{^(/adm/wrapper\|)/res/}) { return -1; }
return &currentversion(&filelocation('',$fname));	return &currentversion(&filelocation('',$fname));
}	}