SVN备份脚本

刺骨的言语ヽ痛彻心扉 2022-08-27 10:55 229阅读 0赞

svnadmin hotcopy是将整个库都“热”拷贝一份出来，包括库的钩子脚本、配置文件等；任何时候运行这个脚本都得到一个版本库的安全拷贝，不管是否有其他进程正在使用版本库。  
因此这是俺青睐的备份方式。  
  
1）定义备份策略  
  
备份频度：每天进行一次全量备份，  
备份地点：备份目录以日期命名，备份路径到 /home/backup/svn/$\{mmdd\}  
备份保留时期：保留10天到15天，超过15天的进行删除。  
备份时间：每晚21点开始  
备份检查：备份完毕后自动运行检查脚本、自动发送报告。  
  
2）建立备份脚本  
在自己home目录 ~/下创建一个文件，backup.sh：  
  
\#!/bin/bash  
SRCPATH=/home/svn/repos/; \#定义仓库parent路径  
DISTPATH=/home/backup/svn/\`date +%m%d\`/ ; \#定义存放路径;  
if \[ -d "$DISTPATH" \]  
then  
else  
mkdir $DISTPATH  
chmod g+s $DISTPATH  
fi  
echo $DISTPATH  
svnadmin hotcopy $SRCPATH/Project1 $DISTPATH/Project1 >/home/backup/svn/cpreport.log 2>&1;  
svnadmin hotcopy $SRCPATH/Project2 $DISTPATH/Project2  
cp $SRCPATH/access   $DISTPATH; \#备份access文件  
cp $SRCPATH/passwd   $DISTPATH; \#备份passwd文件  
perl /home/backup/svn/backup\_check.pl \#运行检查脚本  
perl /home/backup/svn/deletDir.pl   \#运行删除脚本，对过期备份进行删除。  
  
3）建立检查脚本  
在上面指定的地方/home/backup/svn/下建立一个perl脚本：backup\_check.pl  
备份完整性检查的思路是：对备份的库运行 svnlook youngest，如果能正确打印出最新的版本号，则表明备份文件没有缺失；如果运行报错，则说明备份不完整。我试过如果备份中断，则运行svnlook youngest会出错。  
perl脚本代码如下：  
  
\#! /usr/bin/perl  
\#\# Author:xuejiang  
\#\# 2007-11-10  
\#\# http://www.scmbbs.com  
use strict;  
use Carp;  
use Net::SMTP;  
  
\#\#\#\# defined the var \#\#\#\#\#\#\#  
  
my $smtp =Net::SMTP->new('mail.scmbbs.com', Timeout => 30, Debug => 0)|| die "cann't connect to mail.scmbbs.comn";  
  
my $bkrepos="/home/backup/svn/".&get\_day;\#定义备份路径  
my $ssrepos="http://www.scmbbs.com/repos";\#定义仓库url  
my @repos = ("project1","project2");  
  
my $title="echo "如下是昨晚备份结果与真实库对比的情况，如果给出备份版本数，则表示备份成功；如果给报错信息或没有备份版本数，则表示备份失败：" >./report";  
system $title   || die "exec failedn";  
foreach my $myrepos(@repos)  
\{   
my $bkrepos1=$bkrepos."/".$myrepos;  
my $ssrepos1=$ssrepos."/".$myrepos;  
my $svnlookbk1 = "echo "$myrepos 昨晚备份的版本是：">>./report;svnlook youngest ".$bkrepos1." >> ./report 2>&1";  
my $svnlookss1 = "echo "$myrepos 真实库中的最新版本及最后修改时间是：">>./report;svn log -r'HEAD' ".$ssrepos1." >> ./report 2>&1";  
system $svnlookbk1 || die "exec failedn";  
system $svnlookss1 || die "exec failedn";  
  
\}  
  
my $body    ="echo "=========================================================================" >>./report";  
my $bottom     ="echo "备份位置：来自http://www.scmbbs.com的".$bkrepos."" >>./report";  
  
system $body    || die "exec failedn";  
system $bottom     || die "exec failedn";  
  
  
\#\#\#\#\#\# report the result \#\#\#\#  
  
  
open(SESAME,"./report")|| die "can not open ./report";  
my @svnnews = <SESAME>;  
close(SESAME);  
foreach my $line1 (@svnnews)  
\{   
print $line1."n";  
\}  
  
my @email\_addresses =("scm@list.scmbbs.com","leader1@scmbbs.com","leader2@scmbbs.com");  
my $to              = join(', ', @email\_addresses);  
$smtp->mail("scm@scmbbs.com");  
$smtp->recipient(@email\_addresses);  
$smtp->data();  
$smtp->datasend("To:$to\\n");   
$smtp->datasend("From: svnReport@scmbbs.comn");  
$smtp->datasend("Subject:svn备份检查报告".&get\_today."n");  
$smtp->datasend("Reply-to:scm@scmbbs.comn");  
$smtp->datasend("@svnnews");  
$smtp->dataend();  
$smtp->quit;  
  
  
\#\#\#\#\#\#\#\#\#\#\#\#\#  
  
  
sub get\_today  
\{   
my( $sec, $min, $hour, $day, $month, $year ) = localtime( time() );  
$year += 1900;  
$month++;  
my $today = sprintf( "%04d%02d%02d", $year, $month, $day);  
return $today;  
\}  
sub get\_day  
\{   
my( $sec, $min, $hour, $day, $month, $year ) = localtime( time() );  
$year += 1900;  
$month++;  
my $today = sprintf( "%02d%02d", $month, $day);  
return $today;  
\}  
  
  
4)定义删除脚本  
  
由于是全量备份，所以备份不宜保留太多，只需要保留最近10来天的即可，对于超过15天历史的备份基本可以删除了。  
在/home/backup/svn/下建立一个perl脚本：deletDir.pl  
(注意，删除svn备份库可不像删除普通文件那么简单）  
脚本代码请参看我的另一个帖子：http://www.scmbbs.com/cn/systp/2007/12/systp6.php  
  
5）修改/etc/crontab 文件  
在该文件中指定每晚21点执行“backup.sh”脚本。