#!/usr/bin/perl

#sudo -u orca mkdir /home/orca/backups
#visudo
#orca ALL=NOPASSWD: /sbin/shutdown -h now
#orca ALL=NOPASSWD: /usr/sbin/logrotate /etc/logrotate.conf

#バックアップファイルフォルダ
$PATHBAKFILE = “/home/orca/backups”;
#過去何回分のバックアップを残すか
$kai = 10;

print “バックアップして電源を切る　　　Enter\n”;
print “バックアップせずに電源を切る　1 Enter\n”;
print “電源を切らずに元に戻る　　　　2 Enter\n”;
$ans = ;
print “\n”;
chomp($ans);
if ($ans eq “2”){ exit 0; }

unless($ans eq “1”){
#過去のバックアップファイルのロテート、削除
print “過去のバックアップファイルのロテート、削除\n”;

for($i = $kai - 1; $i >= 1; $i--){

if( -f “$PATHBAKFILE/orca.dump.$i.gz”){
$i1=$i+1;
$re = `mv $PATHBAKFILE/orca.dump.$i.gz $PATHBAKFILE/orca.dump.$i1.gz`;
}
}
if( -f “$PATHBAKFILE/orca.dump”){
$re = `mv $PATHBAKFILE/orca.dump $PATHBAKFILE/orca.dump.1`;
$re = `cd $PATHBAKFILE && gzip orca.dump.1`;
}

print “バックアップ開始。\n”;
$re = `/usr/bin/pg_dump -O orca > $PATHBAKFILE/orca.dump 2>$PATHBAKFILE/err.txt`;
$re = `cat $PATHBAKFILE/err.txt`;
if($re ne “”){
print “■■バックアップ異常。■■\n”;
print “$re\n”;
$in = ;
exit(1);
}
}

#ログのロテート
print “ログをロテートしています。\n”;
$re = `sudo /usr/sbin/logrotate /etc/logrotate.conf`;

#電源を切る
print “電源を切ります。\n”;
$re = `sudo /sbin/shutdown -h now`;