|
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++; |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonpublisher.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / publisher