rep2の過去ログをtmpreaperを使って整理

OpenJaneとかにはDAT落ちしたものを整理（削除）する機能があるけどrep2にはないのでtmpreaperで実装する
やり方はrep2/data直下にあるファイルはお気に入りとかなんで削除しない
それ以外は削除するっていう方法で行う

↓みたいなのをcronとかに保存しておけばいいんじゃないかな

#!/usr/bin/perl
use strict;
use warnings;

#### Initial Setting ###############
our $DAT_DIR="/var/www/rep2/data";
####################################

chdir ($DAT_DIR) or die $!;
unless ($DAT_DIR=~/\/$/){
$DAT_DIR.="/"; #最後が/で終わってなかったら付け足す
}
opendir (DIR,$DAT_DIR) or die $!;
my @dir=readdir DIR;
my @fdir;
for (@dir){
push (@fdir,$_) if -f $_;
}
closedir DIR;

my $command;
$command = << 'PRE';
nice -n10 tmpreaper --delay=30 --mtime-dir --symlinks 7d \
--showdeleted \
--mtime \
PRE
for (@fdir){
$command.="--protect '$DAT_DIR".$_."' \\\n";
}
$command.=$DAT_DIR.".";
system $command and die $!;