version 1.10, 2000/12/02 12:40:27
|
version 1.11, 2000/12/02 20:55:16
|
Line 79 sub metaread {
|
Line 79 sub metaread {
|
sub textfield { |
sub textfield { |
my ($title,$name,$value)=@_; |
my ($title,$name,$value)=@_; |
return "\n<p><b>$title:</b><br>". |
return "\n<p><b>$title:</b><br>". |
'<input type=text size=80 value="'.$value.'">'; |
'<input type=text name="'.$name.'" size=80 value="'.$value.'">'; |
|
} |
|
|
|
sub hiddenfield { |
|
my ($name,$value)=@_; |
|
return "\n".'<input type=hidden name="'.$name.'" value="'.$value.'">'; |
} |
} |
|
|
sub selectbox { |
sub selectbox { |
Line 104 sub publish {
|
Line 109 sub publish {
|
'<font color=red>No write permission to user directory, FAIL</font>'; |
'<font color=red>No write permission to user directory, FAIL</font>'; |
} |
} |
print $logfile |
print $logfile |
"\n\n================== Publish ".localtime()." =================\n"; |
"\n\n================= Publish ".localtime()." Phase One ================\n"; |
|
|
if (($style eq 'ssi') || ($style eq 'rat')) { |
if (($style eq 'ssi') || ($style eq 'rat')) { |
# ------------------------------------------------------- This needs processing |
# ------------------------------------------------------- This needs processing |
Line 317 sub publish {
|
Line 322 sub publish {
|
|
|
$scrout.= |
$scrout.= |
'<form action="/adm/publish" method="post">'. |
'<form action="/adm/publish" method="post">'. |
'<input type="hidden" name="phase" value="two">'. |
&hiddenfield('phase','two'). |
'<input type="hidden" name="filename" value="'.$ENV{'form.filename'}.'">'. |
&hiddenfield('filename',$ENV{'form.filename'}). |
|
&hiddenfield('allmeta',&Apache::lonnet::escape($allmeta)). |
&textfield('Title','title',$metadatafields{'title'}). |
&textfield('Title','title',$metadatafields{'title'}). |
&textfield('Author(s)','author',$metadatafields{'author'}). |
&textfield('Author(s)','author',$metadatafields{'author'}). |
&textfield('Subject','subject',$metadatafields{'subject'}); |
&textfield('Subject','subject',$metadatafields{'subject'}); |
Line 369 sub publish {
|
Line 375 sub publish {
|
'<p><b>Abstract:</b><br><textarea cols=80 rows=5 name=abstract>'. |
'<p><b>Abstract:</b><br><textarea cols=80 rows=5 name=abstract>'. |
$metadatafields{'abstract'}.'</textarea>'; |
$metadatafields{'abstract'}.'</textarea>'; |
|
|
|
$source=~/\.(\w+)$/; |
|
|
|
$scrout.=&hiddenfield('mime',$1); |
|
|
$scrout.=&selectbox('Language','language', |
$scrout.=&selectbox('Language','language', |
$metadatafields{'language'},%language); |
$metadatafields{'language'},%language); |
|
|
|
unless ($metadatafields{'creationdate'}) { |
|
$metadatafields{'creationdate'}=time; |
|
} |
|
$scrout.=&hiddenfield('creationdate',$metadatafields{'creationdate'}); |
|
|
|
$scrout.=&hiddenfield('lastrevisiondate',time); |
|
|
|
|
$scrout.=&textfield('Publisher/Owner','owner', |
$scrout.=&textfield('Publisher/Owner','owner', |
$metadatafields{'owner'}); |
$metadatafields{'owner'}); |
Line 383 sub publish {
|
Line 401 sub publish {
|
'<p><input type="submit" value="Finalize Publication"></form>'; |
'<p><input type="submit" value="Finalize Publication"></form>'; |
} |
} |
|
|
|
sub phasetwo { |
|
|
|
my ($source,$target,$style)=@_; |
|
my $logfile; |
|
my $scrout=''; |
|
|
|
unless ($logfile=Apache::File->new('>>'.$source.'.log')) { |
|
return |
|
'<font color=red>No write permission to user directory, FAIL</font>'; |
|
} |
|
print $logfile |
|
"\n================= Publish ".localtime()." Phase Two ================\n"; |
|
|
|
%metadatafields=(); |
|
%metadatakeys=(); |
|
|
|
&metaeval(&Apache::lonnet::unescape($ENV{'form.allmeta'})); |
|
|
|
$metadatafields{'title'}=$ENV{'form.title'}; |
|
$metadatafields{'author'}=$ENV{'form.author'}; |
|
$metadatafields{'subject'}=$ENV{'form.subject'}; |
|
$metadatafields{'keywords'}=$ENV{'form.keywords'}; |
|
$metadatafields{'notes'}=$ENV{'form.notes'}; |
|
$metadatafields{'abstract'}=$ENV{'form.abstract'}; |
|
$metadatafields{'mime'}=$ENV{'form.mime'}; |
|
$metadatafields{'language'}=$ENV{'form.language'}; |
|
$metadatafields{'creationdate'}=$ENV{'form.creationdate'}; |
|
$metadatafields{'lastrevisiondate'}=$ENV{'form.lastrevisiondate'}; |
|
$metadatafields{'owner'}=$ENV{'form.owner'}; |
|
$metadatafields{'copyright'}=$ENV{'form.copyright'}; |
|
|
|
map { |
|
print $logfile "\n".$_.': '.$metadatafields{$_}. |
|
"\n".$_.'.keys: '.$metadatakeys{$_}; |
|
} sort keys %metadatafields; |
|
|
|
|
|
} |
|
|
# ================================================================ Main Handler |
# ================================================================ Main Handler |
|
|
sub handler { |
sub handler { |
Line 435 sub handler {
|
Line 492 sub handler {
|
return HTTP_NOT_FOUND; |
return HTTP_NOT_FOUND; |
} |
} |
|
|
|
unless ($ENV{'form.phase'} eq 'two') { |
|
|
# --------------------------------- File is there and owned, init lookup tables |
# --------------------------------- File is there and owned, init lookup tables |
|
|
%addid=(); |
%addid=(); |
Line 476 sub handler {
|
Line 535 sub handler {
|
$cprtag{$1}=$2; |
$cprtag{$1}=$2; |
} <$fh>; |
} <$fh>; |
} |
} |
|
|
|
} |
|
|
# ----------------------------------------------------------- Start page output |
# ----------------------------------------------------------- Start page output |
|
|
$r->content_type('text/html'); |
$r->content_type('text/html'); |
Line 505 sub handler {
|
Line 567 sub handler {
|
$r->print('<h2>Publishing '. |
$r->print('<h2>Publishing '. |
&Apache::lonnet::filedescription($thistype).' <tt>'. |
&Apache::lonnet::filedescription($thistype).' <tt>'. |
$thisdisfn.'</tt></h2><b>Target:</b> <tt>'.$thisdistarget.'</tt><p>'); |
$thisdisfn.'</tt></h2><b>Target:</b> <tt>'.$thisdistarget.'</tt><p>'); |
|
|
# ------------ We are publishing from $thisfn to $thistarget with $thisembstyle |
# ------------ We are publishing from $thisfn to $thistarget with $thisembstyle |
|
|
$r->print('<hr>'.&publish($thisfn,$thistarget,$thisembstyle)); |
unless ($ENV{'form.phase'} eq 'two') { |
|
$r->print('<hr>'.&publish($thisfn,$thistarget,$thisembstyle)); |
} |
} else { |
|
$r->print('<hr>'.&phasetwo($thisfn,$thistarget,$thisembstyle)); |
|
} |
|
|
|
} |
$r->print('</body></html>'); |
$r->print('</body></html>'); |
|
|
return OK; |
return OK; |