version 1.53, 2003/12/27 23:04:28
|
version 1.54, 2004/01/05 15:54:22
|
Line 388 foreach my $user (@homeusers) {
|
Line 388 foreach my $user (@homeusers) {
|
$m2=~s/\.meta$//; |
$m2=~s/\.meta$//; |
if ($ref->{'obsolete'}) { print LOG "obsolete\n"; next; } |
if ($ref->{'obsolete'}) { print LOG "obsolete\n"; next; } |
if ($ref->{'copyright'} eq 'private') { print LOG "private\n"; next; } |
if ($ref->{'copyright'} eq 'private') { print LOG "private\n"; next; } |
my %dyn=&dynamicmeta($m2); |
my %dyn=(); |
&count($m2); |
if ($m2=~/\/default$/) { |
|
$m2=~s/\/default$/\//; |
|
} else { |
|
%dyn=&dynamicmeta($m2); |
|
&count($m2); |
|
} |
unless ($insert_sth->execute( |
unless ($insert_sth->execute( |
$ref->{'title'}, |
$ref->{'title'}, |
$ref->{'author'}, |
$ref->{'author'}, |
Line 550 sub propath {
|
Line 555 sub propath {
|
|
|
# ---------------------------- convert 'time' format into a datetime sql format |
# ---------------------------- convert 'time' format into a datetime sql format |
sub sqltime { |
sub sqltime { |
|
my $time=&unsqltime(@_[0]); |
|
unless ($time) { return 'NULL'; } |
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = |
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = |
localtime(&unsqltime(@_[0])); |
localtime($time); |
$mon++; $year+=1900; |
$mon++; $year+=1900; |
return "$year-$mon-$mday $hour:$min:$sec"; |
return "$year-$mon-$mday $hour:$min:$sec"; |
} |
} |