TT#34653 fix module install and cleanup rows check

* ensure that the library is installed and available on CE/PRO
    * fix cleanup_rows check

Change-Id: I15f4ebcbb750de5388159e71318655a8dc471bf7
changes/60/19960/8
Kirill Solomko 9 years ago
parent 7ef4bd0a1b
commit 8fb72dc273

@ -5,7 +5,6 @@ my $builder = Module::Build->new(
dist_author => 'Kirill Solomko <ksolomko@sipwise.com>',
dist_version_from => 'lib/NGCP/Cleanup.pm',
requires => {
'DateTime' => 0,
},
);
$builder->create_build_script;

@ -1,3 +1,4 @@
usr/share/perl5/NGCP/Cleanup.pm usr/share/perl5/NGCP/
acc-cleanup.conf etc/ngcp-cleanup-tools/
acc-cleanup.pl usr/sbin/
cleanup-old-cdr-files.pl usr/sbin/

@ -1,3 +1,4 @@
usr/share/perl5/NGCP/Cleanup.pm usr/share/perl5/NGCP/
acc-cleanup.conf etc/ngcp-cleanup-tools/
acc-cleanup.pl usr/sbin/
cleanup-old-cdr-files.pl usr/sbin/

@ -598,7 +598,7 @@ sub cleanup_table {
DELETE FROM $table WHERE $col < date(date_sub(now(), interval ? day)) $limit
SQL
$deleted_rows += $aff;
last unless $aff;
last unless $aff > 0;
}
$self->debug("table=$table deleted rows=$deleted_rows");
}

Loading…
Cancel
Save