version 1.14, 2000/12/08 23:36:37
|
version 1.22, 2001/04/03 11:07:36
|
Line 5
|
Line 5
|
# |
# |
# 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 Gerd Kortemeyer |
# 11/28,11/29,11/30,12/01,12/02,12/04,12/23 Gerd Kortemeyer |
|
# 03/23 Guy Albertelli |
|
# 03/24,03/29 Gerd Kortemeyer |
|
|
package Apache::lonpublisher; |
package Apache::lonpublisher; |
|
|
Line 15 use File::Copy;
|
Line 17 use File::Copy;
|
use Apache::Constants qw(:common :http :methods); |
use Apache::Constants qw(:common :http :methods); |
use HTML::TokeParser; |
use HTML::TokeParser; |
use Apache::lonxml; |
use Apache::lonxml; |
use Apache::structuretags; |
use Apache::lonhomework; |
use Apache::inputtags; |
|
use Apache::response; |
|
|
|
my %addid; |
my %addid; |
my %nokey; |
my %nokey; |
Line 598 if (-e $target) {
|
Line 598 if (-e $target) {
|
|
|
} |
} |
|
|
|
# ---------------------------------------- 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); |
|
|
|
} |
|
|
# ------------------------------------------------ Provide link to new resource |
# ------------------------------------------------ Provide link to new resource |
|
|
my $thisdistarget=$target; |
my $thisdistarget=$target; |
$thisdistarget=~s/^$docroot//; |
$thisdistarget=~s/^$docroot//; |
|
|
|
my $thissrc=$source; |
|
$thissrc=~s/^\/home\/(\w+)\/public_html/\/priv\/$1/; |
|
|
|
my $thissrcdir=$thissrc; |
|
$thissrcdir=~s/\/[^\/]+$/\//; |
|
|
|
|
return $scrout. |
return $scrout. |
'<p><a href="'.$thisdistarget.'"><font size=+2>View Target</font></a>'; |
'<hr><a href="'.$thisdistarget.'"><font size=+2>View Target</font></a>'. |
|
'<p><a href="'.$thissrc.'"><font size=+2>Back to Source</font></a>'. |
|
'<p><a href="'.$thissrcdir. |
|
'"><font size=+2>Back to Source Directory</font></a>'; |
|
|
} |
} |
|
|
# ================================================================ Main Handler |
# ================================================================ Main Handler |
Line 711 unless ($ENV{'form.phase'} eq 'two') {
|
Line 750 unless ($ENV{'form.phase'} eq 'two') {
|
$r->send_http_header; |
$r->send_http_header; |
|
|
$r->print('<html><head><title>LON-CAPA Publishing</title></head>'); |
$r->print('<html><head><title>LON-CAPA Publishing</title></head>'); |
$r->print('<body bgcolor="#FFFFFF">'); |
$r->print( |
|
'<body bgcolor="#FFFFFF"><img align=right src=/adm/lonIcons/lonlogos.gif>'); |
my $thisfn=$fn; |
my $thisfn=$fn; |
|
|
# ------------------------------------------------------------- Individual file |
# ------------------------------------------------------------- Individual file |