version 1.224, 2007/05/02 01:34:23
|
version 1.225, 2007/06/18 20:30:32
|
Line 494 sub get_subscribed_hosts {
|
Line 494 sub get_subscribed_hosts {
|
$target=~/(.*)\/([^\/]+)$/; |
$target=~/(.*)\/([^\/]+)$/; |
my $srcf=$2; |
my $srcf=$2; |
opendir(DIR,$1); |
opendir(DIR,$1); |
|
# cycle through listed files, subscriptions used to exist |
|
# as "filename.lonid" |
while ($filename=readdir(DIR)) { |
while ($filename=readdir(DIR)) { |
if ($filename=~/\Q$srcf\E\.($match_lonid)$/) { |
if ($filename=~/\Q$srcf\E\.($match_lonid)$/) { |
my $subhost=$1; |
my $subhost=$1; |
if (($subhost ne 'meta' && $subhost ne 'subscription' && |
if (($subhost ne 'meta' |
$subhost ne 'tmp') && |
&& $subhost ne 'subscription' |
|
&& $subhost ne 'meta.subscription' |
|
&& $subhost ne 'tmp') && |
($subhost ne $Apache::lonnet::perlvar{'lonHostID'})) { |
($subhost ne $Apache::lonnet::perlvar{'lonHostID'})) { |
push(@subscribed,$subhost); |
push(@subscribed,$subhost); |
} |
} |