version 1.180.2.1, 2005/01/24 21:56:57
|
version 1.183, 2005/01/12 20:58:26
|
Line 138 my $docroot;
|
Line 138 my $docroot;
|
my $cuname; |
my $cuname; |
my $cudom; |
my $cudom; |
|
|
|
my $registered_cleanup; |
|
my $modified_urls; |
|
|
=pod |
=pod |
|
|
=item B<metaeval> |
=item B<metaeval> |
Line 1541 sub phasetwo {
|
Line 1544 sub phasetwo {
|
"<font color=\"red\">".&mt('Failed to write metadata copy').", $!, ".&mt('FAIL')."</font>"; |
"<font color=\"red\">".&mt('Failed to write metadata copy').", $!, ".&mt('FAIL')."</font>"; |
} |
} |
$r->rflush; |
$r->rflush; |
# --------------------------------------------------- Send update notifications |
|
|
|
my @subscribed=&get_subscribed_hosts($target); |
# ------------------------------------------------------------- Trigger updates |
foreach my $subhost (@subscribed) { |
push(@{$modified_urls},[$target,$source]); |
$r->print('<p>'.&mt('Notifying host').' '.$subhost.':');$r->rflush; |
unless ($registered_cleanup) { |
print $logfile "\nNotifying host ".$subhost.':'; |
$r->register_cleanup(\¬ify); |
my $reply=&Apache::lonnet::critical('update:'.$target,$subhost); |
$registered_cleanup=1; |
$r->print($reply.'</p><br />');$r->rflush; |
|
print $logfile $reply; |
|
} |
|
|
|
# ---------------------------------------- Send update notifications, meta only |
|
|
|
my @subscribedmeta=&get_subscribed_hosts("$target.meta"); |
|
foreach my $subhost (@subscribedmeta) { |
|
$r->print('<p>'. |
|
&mt('Notifying host for metadata only').' '.$subhost.':');$r->rflush; |
|
print $logfile "\nNotifying host for metadata only ".$subhost.':'; |
|
my $reply=&Apache::lonnet::critical('update:'.$target.'.meta', |
|
$subhost); |
|
$r->print($reply.'</p><br />');$r->rflush; |
|
print $logfile $reply; |
|
} |
|
|
|
# --------------------------------------------------- Notify subscribed courses |
|
my %courses=&coursedependencies($target); |
|
my $now=time; |
|
foreach (keys %courses) { |
|
$r->print('<p>'.&mt('Notifying course').' '.$_.':');$r->rflush; |
|
print $logfile "\nNotifying host ".$_.':'; |
|
my ($cdom,$cname)=split(/\_/,$_); |
|
my $reply=&Apache::lonnet::cput |
|
('versionupdate',{$target => $now},$cdom,$cname); |
|
$r->print($reply.'</p><br />');$r->rflush; |
|
print $logfile $reply; |
|
} |
} |
# ------------------------------------------------ Provide link to new resource |
# ------------------------------------------------ Provide link to new resource |
unless ($batch) { |
unless ($batch) { |
Line 1598 sub phasetwo {
|
Line 1572 sub phasetwo {
|
'"><font size="+2">'. |
'"><font size="+2">'. |
&mt('Back to Source Directory').'</font></a></p>'); |
&mt('Back to Source Directory').'</font></a></p>'); |
} |
} |
|
$logfile->close(); |
return '<p><font color="green">'.&mt('Done').'</font></p>'; |
return '<p><font color="green">'.&mt('Done').'</font></p>'; |
} |
} |
|
|
|
# =============================================================== Notifications |
|
sub notify { |
|
# --------------------------------------------------- Send update notifications |
|
foreach my $targetsource (@{$modified_urls}){ |
|
my ($target,$source)=@{$targetsource}; |
|
my $logfile=Apache::File->new('>>'.$source.'.log'); |
|
print $logfile "\nCleanup phase: Notifications\n"; |
|
my @subscribed=&get_subscribed_hosts($target); |
|
foreach my $subhost (@subscribed) { |
|
print $logfile "\nNotifying host ".$subhost.':'; |
|
my $reply=&Apache::lonnet::critical('update:'.$target,$subhost); |
|
print $logfile $reply; |
|
} |
|
# ---------------------------------------- Send update notifications, meta only |
|
my @subscribedmeta=&get_subscribed_hosts("$target.meta"); |
|
foreach my $subhost (@subscribedmeta) { |
|
print $logfile "\nNotifying host for metadata only ".$subhost.':'; |
|
my $reply=&Apache::lonnet::critical('update:'.$target.'.meta', |
|
$subhost); |
|
print $logfile $reply; |
|
} |
|
# --------------------------------------------------- Notify subscribed courses |
|
my %courses=&coursedependencies($target); |
|
my $now=time; |
|
foreach (keys %courses) { |
|
print $logfile "\nNotifying course ".$_.':'; |
|
my ($cdom,$cname)=split(/\_/,$_); |
|
my $reply=&Apache::lonnet::cput |
|
('versionupdate',{$target => $now},$cdom,$cname); |
|
print $logfile $reply; |
|
} |
|
print $logfile "\n============ Done ============\n"; |
|
$logfile->close(); |
|
} |
|
return OK; |
|
} |
|
|
######################################### |
######################################### |
|
|
sub batchpublish { |
sub batchpublish { |
Line 1681 sub publishdirectory {
|
Line 1693 sub publishdirectory {
|
$ruid,$rgid,$rrdev,$rsize, |
$ruid,$rgid,$rrdev,$rsize, |
$ratime,$rmtime,$rctime, |
$ratime,$rmtime,$rctime, |
$rblksize,$rblocks)=stat($resdir.'/'.$filename); |
$rblksize,$rblocks)=stat($resdir.'/'.$filename); |
if (($rmtime<$cmtime) || ($ENV{'form.forcerepub'} eq 'ON')) { |
if (($rmtime<$cmtime) || ($ENV{'form.forcerepub'})) { |
# previously published, modified now |
# previously published, modified now |
$publishthis=1; |
$publishthis=1; |
} |
} |
Line 1810 sub handler {
|
Line 1822 sub handler {
|
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
['filename']); |
['filename']); |
|
|
|
# -------------------------------------- Flag and buffer for registered cleanup |
|
$registered_cleanup=0; |
|
@{$modified_urls}=(); |
# -------------------------------------------------------------- Check filename |
# -------------------------------------------------------------- Check filename |
|
|
my $fn=&Apache::lonnet::unescape($ENV{'form.filename'}); |
my $fn=&Apache::lonnet::unescape($ENV{'form.filename'}); |