version 1.24, 2001/04/16 20:02:50
|
version 1.25, 2001/04/16 20:47:27
|
Line 86 sub metaread {
|
Line 86 sub metaread {
|
return '<br><b>Processed file:</b> <tt>'.$fn.'</tt>'; |
return '<br><b>Processed file:</b> <tt>'.$fn.'</tt>'; |
} |
} |
|
|
|
# ---------------------------- convert 'time' format into a datetime sql format |
|
sub sqltime { |
|
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = |
|
localtime(@_[0]); |
|
$mon++; $year+=1900; |
|
return "$year-$mon-$mday $hour:$min:$sec"; |
|
} |
|
|
# --------------------------------------------------------- Various form fields |
# --------------------------------------------------------- Various form fields |
|
|
sub textfield { |
sub textfield { |
Line 485 sub phasetwo {
|
Line 493 sub phasetwo {
|
} |
} |
|
|
# -------------------------------- Synchronize entry with SQL metadata database |
# -------------------------------- Synchronize entry with SQL metadata database |
|
my %perlvar; |
|
open (CONFIG,"/etc/httpd/conf/access.conf") || die "Can't read access.conf"; |
|
my $configline; |
|
while ($configline=<CONFIG>) { |
|
if ($configline =~ /PerlSetVar/) { |
|
my ($dummy,$varname,$varvalue)=split(/\s+/,$configline); |
|
chomp($varvalue); |
|
$perlvar{$varname}=$varvalue; |
|
} |
|
} |
|
close(CONFIG); |
|
|
my $dbh; |
my $dbh; |
{ |
{ |
unless ( |
unless ( |
Line 496 sub phasetwo {
|
Line 516 sub phasetwo {
|
|
|
my %sqldatafields; |
my %sqldatafields; |
$sqldatafields{'url'}=$distarget; |
$sqldatafields{'url'}=$distarget; |
$sth=$dbh->prepare("delete from metadata where url like binary \"". |
my $sth=$dbh->prepare("delete from metadata where url like binary \"". |
$sqldatafields{'url'}."\""); |
$sqldatafields{'url'}."\""); |
$sth->execute(); |
$sth->execute(); |
map {my $field=$metadatafields{$_}; $field=~s/\"/\'\'/g; |
map {my $field=$metadatafields{$_}; $field=~s/\"/\'\'/g; |
Line 515 sub phasetwo {
|
Line 535 sub phasetwo {
|
'"'.delete($sqldatafields{'abstract'}).'"'.','. |
'"'.delete($sqldatafields{'abstract'}).'"'.','. |
'"'.delete($sqldatafields{'mime'}).'"'.','. |
'"'.delete($sqldatafields{'mime'}).'"'.','. |
'"'.delete($sqldatafields{'language'}).'"'.','. |
'"'.delete($sqldatafields{'language'}).'"'.','. |
'"'.delete($sqldatafields{'creationdate'}).'"'.','. |
'"'.sqltime(delete($sqldatafields{'creationdate'})).'"'.','. |
'"'.delete($sqldatafields{'lastrevisiondate'}).'"'.','. |
'"'.sqltime(delete($sqldatafields{'lastrevisiondate'})).'"'.','. |
'"'.delete($sqldatafields{'owner'}).'"'.','. |
'"'.delete($sqldatafields{'owner'}).'"'.','. |
'"'.delete($sqldatafields{'copyright'}).'"'.')'); |
'"'.delete($sqldatafields{'copyright'}).'"'.')'); |
$sth->execute(); |
$sth->execute(); |