--- loncom/lonnet/perl/lonnet.pm	2006/06/30 00:26:49	1.759
+++ loncom/lonnet/perl/lonnet.pm	2006/07/03 13:40:20	1.760.2.1
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.759 2006/06/30 00:26:49 albertel Exp $
+# $Id: lonnet.pm,v 1.760.2.1 2006/07/03 13:40:20 albertel 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)$/) { return ''; }
+    if ($fname=~/\/(aboutme|syllabus|bulletinboard|smppg|grppg)$/) { 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 {