節電オルカ

#!/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`;