backup

最新的仙镜传说服务器C语言源码

#!/usr/bin/perl

##########################################################################
# Athena梡僨乕僞僶僢僋傾僢僾僣乕儖
#
# 丂Athena偺奺庬僨乕僞僼傽僀儖*.txt傪僶僢僋傾僢僾偡傞僣乕儖
#
#-------------------------------------------------------------------------
# 愝掕曽朄
# 丂幚峴偡傞帪偺僇儗儞僩僼僅儖僟偐傜偺僨乕僞傊偺僷僗丄僼傽僀儖偺儕僗僩傪
# 丂惓偟偔愝掕偟傑偡丅僶僢僋傾僢僾愭偺僼僅儖僟偼帺摦嶌惉偝傟側偄偺偱丄
# 丂帺暘偱嶌惉偟偰偍偔昁梫偑偁傝傑偡丅
# 丂僼僅儖僟偺嵟屻偺乽/乿偼徣棯偱偒傑偣傫丅
#
# 丂僼僅儖僟偼堷悢偱傕巜掕偱偒傑偡丅椺亜./backup ../save/ ./backup_data/
# 丂僼僅儖僟偺嵟屻偺乽/乿偼徣棯偱偒傑偣傫丅
#
# 丂幚峴偡傞偲僶僢僋傾僢僾愭偺僼僅儖僟傊丄僼傽僀儖柤偵尰嵼偺擔晅偲帪崗傪
# 丂偮偗偰僼傽僀儖傪僐僺乕偟傑偡丅
#
#   * tool僼僅儖僟撪偵backup_data僼僅儖僟傪嶌惉偟丄
# 丂  athena.sh偺拞偵乽./tool/backup ./save/ ./tool/backup_data/乿
#     偲偄偆峴傪捛壛偡傞偲丄athena傪婲摦偡傞偨傃偵僶僢僋傾僢僾偑庢傟傑偡
#
#   暅尦偡傞偲偒偼堷悢偵乽-r 擔晅偲帪崗乿傪巜掕偟傑偡丅
# 丂傑偨偦偺屻傠偵僼僅儖僟傪巜掕偡傞偙偲傕弌棃傑偡
# 丂椺侾亜 ./backup -r 200309191607
# 丂椺俀亜 ./backup -r 200309191607 ../save ./backup_data/
# 丂偙偺椺偱偼2003/09/19偺16:07暘偵僶僢僋傾僢僾偟偨僨乕僞傪暅尦偟偰偄傑偡
#
# 丂暅尦偡傞偲偒丄Athena僨傿儗僋僩儕偵偁傞僨乕僞偼 *.bak 偵柤慜傪曄峏偟偰
# 丂巆偟偰偄傞偺偱丄偄傜側偄応崌偼 rm *.bak 側偳偱徚偟偰偔偩偝偄丅
#
##########################################################################

$sdir="../save/";		#僶僢僋傾僢僾尦(Athena偺僨傿儗僋僩儕/save/)
$tdir="./backup_data/";		#僶僢僋傾僢僾愭

@files=(			#僼傽僀儖偺儕僗僩
	"account","athena","storage","party","guild","castle","pet"
);


#-------------------------------愝掕偙偙傑偱-----------------------------











if($ARGV[0]=~/^\-r$/i || $ARGV[0]=~/\-\-(recover|restore)/i){
	#暅尦張棟

	$file=$ARGV[1];
	$sdir=$ARGV[2]||$sdir;
	$tdir=$ARGV[3]||$tdir;
	&restorecopy($_) foreach @files;
	exit(0);
}

#僶僢僋傾僢僾張棟
$sdir=$ARGV[0]||$sdir;
$tdir=$ARGV[1]||$tdir;

unless( -d $tdir ){
	print "$0: \"$tdir\" : No such directory\n";
	exit(1);
}

(undef,$min,$hour,$day,$month,$year)=localtime;

$file=sprintf("%04d%02d%02d%02d%02d",
	$year+1900, $month+1, $day, $hour, $min );

&backupcopy($_) foreach @files;
exit(0);

sub backupcopy {
	my($name)= @_;
	system("cp $sdir$name.txt $tdir$name$file.txt");
}

sub restorecopy {
	my($name)= @_;
	unless( -f "$sdir$name.txt" ){
		printf("$0: \"$sdir$name.txt\" not found!\n");
		return 0;
	}
	unless( -f "$tdir$name$file.txt" ){
		printf("$0: \"$tdir$name$file.txt\" not found!\n");
		return 0;
	}
	rename "$sdir$name.txt","$sdir$name.bak";
	system("cp $tdir$name$file.txt $sdir$name.txt");
}