[LON-CAPA-cvs] cvs: loncom(version_2_1_X) /lonnet/perl lonnet.pm
albertel
lon-capa-cvs@mail.lon-capa.org
Fri, 10 Feb 2006 10:00:50 -0000
albertel Fri Feb 10 05:00:50 2006 EDT
Modified files: (Branch: version_2_1_X)
/loncom/lonnet/perl lonnet.pm
Log:
- adding error handling to the new phot routines
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.683.2.16 loncom/lonnet/perl/lonnet.pm:1.683.2.17
--- loncom/lonnet/perl/lonnet.pm:1.683.2.16 Thu Feb 9 18:22:59 2006
+++ loncom/lonnet/perl/lonnet.pm Fri Feb 10 05:00:46 2006
@@ -1,7 +1,7 @@
# The LearningOnline Network
# TCP networking package
#
-# $Id: lonnet.pm,v 1.683.2.16 2006/02/09 23:22:59 albertel Exp $
+# $Id: lonnet.pm,v 1.683.2.17 2006/02/10 10:00:46 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -3722,6 +3722,9 @@
my $homeserver = &homeserver($cnum,$cdom);
my ($outcome,$perm_reqd,$conditions) =
split(/:/,&unescape(&reply('autophotopermission:'.$cdom,$homeserver)),3);
+ if ($outcome =~ /^(con_lost|unknown_cmd|no_such_host)$/) {
+ return (undef,undef);
+ }
return ($outcome,$perm_reqd,$conditions);
}
@@ -3732,6 +3735,9 @@
my $outcome = &unescape(&reply('autophotocheck:'.&escape($udom).':'.
&escape($uname).':'.&escape($pid),
$homeserver));
+ if ($outcome =~ /^(con_lost|unknown_cmd|no_such_host)$/) {
+ return (undef,undef);
+ }
if ($outcome) {
($result,$resulttype) = split(/:/,$outcome);
}
@@ -3744,6 +3750,9 @@
my ($update,$comment) = split(/:/,&unescape(&reply('autophotochoice:'.
&escape($cdom),
$homeserver)));
+ if ($update =~ /^(con_lost|unknown_cmd|no_such_host)$/) {
+ return (undef,undef);
+ }
return ($update,$comment);
}