[LON-CAPA-cvs] cvs: loncom /publisher lonpublisher.pm

albertel lon-capa-cvs-allow@mail.lon-capa.org
Mon, 18 Jun 2007 20:30:32 -0000


albertel		Mon Jun 18 16:30:32 2007 EDT

  Modified files:              
    /loncom/publisher	lonpublisher.pm 
  Log:
  - was trying to notify the host 'meta.subscription' that ther was an update
  
  
Index: loncom/publisher/lonpublisher.pm
diff -u loncom/publisher/lonpublisher.pm:1.224 loncom/publisher/lonpublisher.pm:1.225
--- loncom/publisher/lonpublisher.pm:1.224	Tue May  1 21:34:23 2007
+++ loncom/publisher/lonpublisher.pm	Mon Jun 18 16:30:32 2007
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Publication Handler
 #
-# $Id: lonpublisher.pm,v 1.224 2007/05/02 01:34:23 albertel Exp $
+# $Id: lonpublisher.pm,v 1.225 2007/06/18 20:30:32 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -494,11 +494,15 @@
     $target=~/(.*)\/([^\/]+)$/;
     my $srcf=$2;
     opendir(DIR,$1);
+    # cycle through listed files, subscriptions used to exist
+    # as "filename.lonid"
     while ($filename=readdir(DIR)) {
 	if ($filename=~/\Q$srcf\E\.($match_lonid)$/) {
 	    my $subhost=$1;
-	    if (($subhost ne 'meta' && $subhost ne 'subscription' &&
-		 $subhost ne 'tmp') &&
+	    if (($subhost ne 'meta' 
+		 && $subhost ne 'subscription' 
+		 && $subhost ne 'meta.subscription'
+		 && $subhost ne 'tmp') &&
                 ($subhost ne $Apache::lonnet::perlvar{'lonHostID'})) {
 		push(@subscribed,$subhost);
 	    }