version 1.139, 2003/10/21 19:50:15
|
version 1.141, 2003/11/01 17:09:52
|
Line 181 nothing
|
Line 181 nothing
|
######################################### |
######################################### |
######################################### |
######################################### |
sub metaeval { |
sub metaeval { |
my $metastring=shift; |
my ($metastring,$prefix)=@_; |
|
|
my $parser=HTML::LCParser->new(\$metastring); |
my $parser=HTML::LCParser->new(\$metastring); |
my $token; |
my $token; |
Line 209 sub metaeval {
|
Line 209 sub metaeval {
|
$metadatakeys{$unikey}=$_; |
$metadatakeys{$unikey}=$_; |
} |
} |
} |
} |
|
my $newentry=$parser->get_text('/'.$entry); |
|
if ($entry eq 'customdistributionfile') { |
|
$newentry=~s/^\s*//; |
|
if ($newentry !~m|^/res|) { $newentry=$prefix.$newentry; } |
|
} |
if ($metadatafields{$unikey}) { |
if ($metadatafields{$unikey}) { |
my $newentry=$parser->get_text('/'.$entry); |
|
unless (($metadatafields{$unikey}=~/\Q$newentry\E/) || |
unless (($metadatafields{$unikey}=~/\Q$newentry\E/) || |
($newentry eq '')) { |
($newentry eq '')) { |
$metadatafields{$unikey}.=', '.$newentry; |
$metadatafields{$unikey}.=', '.$newentry; |
} |
} |
} else { |
} else { |
$metadatafields{$unikey}=$parser->get_text('/'.$entry); |
$metadatafields{$unikey}=$newentry; |
} |
} |
} |
} |
} |
} |
Line 260 XHTML text that indicates successful rea
|
Line 264 XHTML text that indicates successful rea
|
######################################### |
######################################### |
######################################### |
######################################### |
sub metaread { |
sub metaread { |
my ($logfile,$fn)=@_; |
my ($logfile,$fn,$prefix)=@_; |
unless (-e $fn) { |
unless (-e $fn) { |
print($logfile 'No file '.$fn."\n"); |
print($logfile 'No file '.$fn."\n"); |
return '<br /><b>No file:</b> <tt>'.$fn.'</tt>'; |
return '<br /><b>No file:</b> <tt>'.$fn.'</tt>'; |
Line 268 sub metaread {
|
Line 272 sub metaread {
|
print($logfile 'Processing '.$fn."\n"); |
print($logfile 'Processing '.$fn."\n"); |
my $metastring; |
my $metastring; |
{ |
{ |
my $metafh=Apache::File->new($fn); |
my $metafh=Apache::File->new($fn); |
$metastring=join('',<$metafh>); |
$metastring=join('',<$metafh>); |
} |
} |
&metaeval($metastring); |
&metaeval($metastring,$prefix); |
return '<br /><b>Processed file:</b> <tt>'.$fn.'</tt>'; |
return '<br /><b>Processed file:</b> <tt>'.$fn.'</tt>'; |
} |
} |
|
|
Line 325 string which presents the form field (fo
|
Line 329 string which presents the form field (fo
|
######################################### |
######################################### |
sub textfield { |
sub textfield { |
my ($title,$name,$value)=@_; |
my ($title,$name,$value)=@_; |
|
$value=~s/^\s+//gs; |
|
$value=~s/\s+$//gs; |
|
$value=~s/\s+/ /gs; |
$title=&mt($title); |
$title=&mt($title); |
my $uctitle=uc($title); |
my $uctitle=uc($title); |
return "\n<p><font color=\"#800000\" face=\"helvetica\"><b>$uctitle:". |
return "\n<p><font color=\"#800000\" face=\"helvetica\"><b>$uctitle:". |
Line 955 sub publish {
|
Line 962 sub publish {
|
|
|
my $currentpath='/home/'.$cuname.'/'; |
my $currentpath='/home/'.$cuname.'/'; |
|
|
|
my $prefix='../'x($#urlparts); |
foreach (@urlparts) { |
foreach (@urlparts) { |
$currentpath.=$_.'/'; |
$currentpath.=$_.'/'; |
$scrout.=&metaread($logfile,$currentpath.'default.meta'); |
$scrout.=&metaread($logfile,$currentpath.'default.meta',$prefix); |
|
$prefix=~s|^\.\./||; |
} |
} |
|
|
# ------------------- Clear out parameters and stores (there should not be any) |
# ------------------- Clear out parameters and stores (there should not be any) |