308 |
#warn "### sql: $sql ", dump( @args ); |
#warn "### sql: $sql ", dump( @args ); |
309 |
|
|
310 |
my $sth = $dbh->prepare( $sql ); |
my $sth = $dbh->prepare( $sql ); |
311 |
$sth->execute( @args ); |
eval { $sth->execute( @args ) }; |
312 |
|
return if $@; |
313 |
|
|
314 |
my $last_row = { |
my $last_row = { |
315 |
date => '', |
date => '', |
510 |
if ($import_dircproxy) { |
if ($import_dircproxy) { |
511 |
open(my $l, $import_dircproxy) || die "can't open $import_dircproxy: $!"; |
open(my $l, $import_dircproxy) || die "can't open $import_dircproxy: $!"; |
512 |
warn "importing $import_dircproxy...\n"; |
warn "importing $import_dircproxy...\n"; |
513 |
my $tz_offset = 2 * 60 * 60; # TZ GMT+2 |
my $tz_offset = 1 * 60 * 60; # TZ GMT+2 |
514 |
while(<$l>) { |
while(<$l>) { |
515 |
chomp; |
chomp; |
516 |
if (/^@(\d+)\s(\S+)\s(.+)$/) { |
if (/^@(\d+)\s(\S+)\s(.+)$/) { |