version 1.97, 2002/09/18 15:43:06
|
version 1.98, 2002/10/03 15:02:22
|
Line 469 sub get_subscribed_hosts {
|
Line 469 sub get_subscribed_hosts {
|
while ($filename=readdir(DIR)) { |
while ($filename=readdir(DIR)) { |
if ($filename=~/$srcf\.(\w+)$/) { |
if ($filename=~/$srcf\.(\w+)$/) { |
my $subhost=$1; |
my $subhost=$1; |
if ($subhost ne 'meta' && $subhost ne 'subscription') { |
if (($subhost ne 'meta' && $subhost ne 'subscription') && |
|
($subhost ne $Apache::lonnet::perlvar{'lonHostID'})) { |
push(@subscribed,$subhost); |
push(@subscribed,$subhost); |
} |
} |
} |
} |
Line 480 sub get_subscribed_hosts {
|
Line 481 sub get_subscribed_hosts {
|
&Apache::lonnet::logthis("opened $target.subscription"); |
&Apache::lonnet::logthis("opened $target.subscription"); |
while (my $subline=<$sh>) { |
while (my $subline=<$sh>) { |
&Apache::lonnet::logthis("Trying $subline"); |
&Apache::lonnet::logthis("Trying $subline"); |
if ($subline =~ /(^\w+):/) { push(@subscribed,$1); } else { |
if ($subline =~ /(^\w+):/) { |
|
if ($1 ne $Apache::lonnet::perlvar{'lonHostID'}) { |
|
push(@subscribed,$1); |
|
} |
|
} else { |
&Apache::lonnet::logthis("No Match for $subline"); |
&Apache::lonnet::logthis("No Match for $subline"); |
} |
} |
} |
} |
Line 1302 if (-e $target) {
|
Line 1307 if (-e $target) {
|
} |
} |
opendir(DIR,$srcd); |
opendir(DIR,$srcd); |
while ($filename=readdir(DIR)) { |
while ($filename=readdir(DIR)) { |
|
if (-l $srcd.'/'.$filename) { |
|
unlink($srcd.'/'.$filename); |
|
} else { |
if ($filename=~/$srcf\.(\d+)\.$srct$/) { |
if ($filename=~/$srcf\.(\d+)\.$srct$/) { |
$maxversion=($1>$maxversion)?$1:$maxversion; |
$maxversion=($1>$maxversion)?$1:$maxversion; |
} |
} |
|
} |
} |
} |
closedir(DIR); |
closedir(DIR); |
$maxversion++; |
$maxversion++; |