version 1.19, 2001/03/22 22:44:12
|
version 1.20, 2001/03/24 21:51:58
|
Line 6
|
Line 6
|
# 05/29/00,05/30,10/11 Gerd Kortemeyer) |
# 05/29/00,05/30,10/11 Gerd Kortemeyer) |
# |
# |
# 11/28,11/29,11/30,12/01,12/02,12/04,12/23 Gerd Kortemeyer |
# 11/28,11/29,11/30,12/01,12/02,12/04,12/23 Gerd Kortemeyer |
|
# 03/23 Guy Albertelli |
|
# 03/24 Gerd Kortemeyer |
|
|
package Apache::lonpublisher; |
package Apache::lonpublisher; |
|
|
Line 590 if (-e $target) {
|
Line 592 if (-e $target) {
|
$scrout.=$reply; |
$scrout.=$reply; |
print $logfile $reply; |
print $logfile $reply; |
} |
} |
|
} |
|
} |
|
closedir(DIR); |
|
|
|
} |
|
|
|
# ---------------------------------------- Send update notifications, meta only |
|
|
|
{ |
|
|
|
my $filename; |
|
|
|
$target=~/(.*)\/([^\/]+)$/; |
|
my $srcf=$2.'.meta'; |
|
opendir(DIR,$1); |
|
while ($filename=readdir(DIR)) { |
|
if ($filename=~/$srcf\.(\w+)$/) { |
|
my $subhost=$1; |
|
if ($subhost ne 'meta') { |
|
$scrout.= |
|
'<p>Notifying host for metadata only '.$subhost.':'; |
|
print $logfile |
|
"\nNotifying host for metadata only '.$subhost.':'"; |
|
my $reply=&Apache::lonnet::critical( |
|
'update:'.$target.'.meta',$subhost); |
|
$scrout.=$reply; |
|
print $logfile $reply; |
|
} |
} |
} |
} |
} |
closedir(DIR); |
closedir(DIR); |