← Back to branch summary

~louis/ubuntu/trusty/clamav/lp799623_fix_logrotate

« back to all changes in this revision

Viewing changes to contrib/cleanup-partial.pl

  • Committer: Bazaar Package Importer
  • Author(s): Scott Kitterman
  • Date: 2010-03-12 11:30:04 UTC
  • mfrom: (0.41.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20100312113004-b0fop4bkycszdd0z
Tags: 0.96~rc1+dfsg-0ubuntu1
https://launchpad.net/bugs/537636
* New upstream RC - FFE (LP: #537636):
  - Add OfficialDatabaseOnly option to clamav-base.postinst.in
  - Add LocalSocketGroup option to clamav-base.postinst.in
  - Add LocalSocketMode option to clamav-base.postinst.in
  - Add CrossFilesystems option to clamav-base.postinst.in
  - Add ClamukoScannerCount option to clamav-base.postinst.in
  - Add BytecodeSecurity opiton to clamav-base.postinst.in
  - Add DetectionStatsHostID option to clamav-freshclam.postinst.in
  - Add Bytecode option to clamav-freshclam.postinst.in
  - Add MilterSocketGroup option to clamav-milter.postinst.in
  - Add MilterSocketMode option to clamav-milter.postinst.in
  - Add ReportHostname option to clamav-milter.postinst.in
  - Bump libclamav SO version to 6.1.0 in libclamav6.install
  - Drop clamdmon from clamav.examples (no longer shipped by upstream)
  - Drop libclamav.a from libclamav-dev.install (not built by upstream)
  - Update SO version for lintian override for libclamav6
  - Add new Bytecode Testing Tool, usr/bin/clambc, to clamav.install
  - Add build-depends on python and python-setuptools for new test suite
  - Update debian/copyright for the embedded copy of llvm (using the system
    llvm is not currently feasible)

Show diffs side-by-side

added added

removed removed

Lines of Context:
contrib/cleanup-partial.pl
1
 
#!/usr/bin/perl
2
 
 
3
 
# ---- Settings ----
4
 
# TemporaryDirectory in clamd.conf
5
 
my $TMPDIR='/tmp';
6
 
# How long to wait for next part of RFC1341 message (seconds)
7
 
my $cleanup_interval=3600;
8
 
 
9
 
# ---- End of Settings ----
10
 
 
11
 
my $partial_dir = "$TMPDIR/clamav-partial";
12
 
#  if there is no partial directory, nothing to clean up
13
 
opendir(DIR, $partial_dir) || exit 0;
14
 
 
15
 
my $cleanup_threshold = time - $cleanup_interval;
16
 
while(my $file = readdir(DIR)) {
17
 
        next unless $file =~ m/^clamav-partial-([0-9]+)_[0-9a-f]{32}-[0-9]+$/;
18
 
        my $filetime = $1;
19
 
        unlink "$partial_dir/$file" unless $filetime > $cleanup_threshold;
20
 
}
21
 
closedir DIR;