version 1.12, 2016/01/21 00:12:38
|
version 1.13, 2019/06/29 23:21:05
|
Line 220 sub copyresourcedb {
|
Line 220 sub copyresourcedb {
|
if (($origtz eq 'local') && (!$ENV{TZ})) { |
if (($origtz eq 'local') && (!$ENV{TZ})) { |
$ENV{TZ} = $dt->time_zone()->name(); |
$ENV{TZ} = $dt->time_zone()->name(); |
} |
} |
$dt->add(days => int($date_shift)); |
eval { |
$newdata{$thiskey} = $dt->epoch(); |
$dt->add(days => int($date_shift)); |
|
}; |
|
if ($@) { |
|
$newdata{$thiskey} = $newdata{$thiskey}+$delta+(60*60); |
|
} else { |
|
$newdata{$thiskey} = $dt->epoch(); |
|
} |
} else { |
} else { |
$newdata{$thiskey} = $newdata{$thiskey}+$delta; |
$newdata{$thiskey} = $newdata{$thiskey}+$delta; |
} |
} |