misc/cronjobs/remove_temporary_edifiles.pl

   1 #!/usr/bin/perl
   2 use strict;
   3 use warnings;
   4
   5 use Koha::Script -cron;
   6 use C4::Context;
   7
   8 # this script will remove those older than 5 days
   9 my $tmpdir = '/tmp';
  10 #
  11 opendir( my $dh, $tmpdir) || die "Cannot open $tmpdir : $!";
  12
  13 my @files_in_tmp = grep { /\.CE[IQ]$/ && -f "$tmpdir/$_" } readdir($dh);
  14 closedir $dh;
  15
  16
  17 my $dbh = C4::Context->dbh;
  18
  19 my $query =<<'ENDSQL';
  20 select filename from edifact_messages
  21 where message_type IN ('QUOTE','INVOICE')
  22 and datediff( CURDATE(), transfer_date ) > 5
  23 ENDSQL
  24
  25 my $ingested;
  26
  27 @{$ingested} = $dbh->selectcol_arrayref($query);
  28
  29 my %ingested_hash = map { $_ => 1 } @{$ingested};
  30
  31 my @delete_list;
  32
  33 foreach (@files_in_tmp) {
  34     if ( exists $ingested_hash{$_} ) {
  35         push @delete_list, $_;
  36     }
  37 }
  38
  39 if ( @delete_list ) {
  40     chdir $tmpdir;
  41     unlink @delete_list;
  42 }