svnadmin hotcopy整库拷贝方式（转载）

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
##
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="/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 "备份位置：来自的".$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 = ;
close(SESAME);
foreach my $line1 (@svnnews)
{
print $line1."n";
}

my @email_addresses =("[e-mail]","[e-mail]","[e-mail]");
my $to              = join(', ', @email_addresses);
$smtp->mail("[e-mail]");
$smtp->recipient(@email_addresses);
$smtp->data();
$smtp->datasend("To:$to\n"); 
$smtp->datasend("From: [e-mail]");
$smtp->datasend("Subject:svn备份检查报告".&get_today."n");
$smtp->datasend("Reply-to:[e-mail]");
$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备份库可不像删除普通文件那么简单）
脚本代码请参看我的另一个帖子：/cn/systp/2007/12/systp6.php

5）修改/etc/crontab 文件
在该文件中指定每晚21点执行“backup.sh”脚本。