--- loncom/lonnet/perl/lonnet.pm 2006/07/03 13:40:20 1.760.2.1 +++ loncom/lonnet/perl/lonnet.pm 2006/07/07 21:55:23 1.761 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.760.2.1 2006/07/03 13:40:20 albertel Exp $ +# $Id: lonnet.pm,v 1.761 2006/07/07 21:55:23 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1081,7 +1081,7 @@ sub currentversion { sub subscribe { my $fname=shift; - if ($fname=~/\/(aboutme|syllabus|bulletinboard|smppg|grppg)$/) { return ''; } + if ($fname=~/\/(aboutme|syllabus|bulletinboard|smppg)$/) { return ''; } $fname=~s/[\n\r]//g; my $author=$fname; $author=~s/\/home\/httpd\/html\/res\/([^\/]*)\/([^\/]*).*/$1\/$2/; @@ -6922,7 +6922,7 @@ BEGIN { } close($config); # FIXME: dev server don't want this, production servers _do_ want this - &get_iphost(); + #&get_iphost(); } sub get_iphost {