Subversion backup script untuk Windows
16 May 2006Dulu saya pernah menulis tentang cara backup repository Subversion secara otomatis. Tetapi, script yang ada di situ hanya bisa dijalankan di Linux, karena ada satu baris bermasalah pada Perl scriptnya, yaitu:
$next_backup_file = "daily-incremental-backup." . date +%Y%m%d;
Baris di atas akan menjalankan perintah operating system seakan-akan kita menjalankan perintah ini di command prompt:
$ date +%Y%m%d
Di Linux, perintah ini berjalan lancar, menampilkan output sebagai berikut:
20060515
Output tersebut nantinya digunakan untuk membentuk nama file dump. Tetapi di Windows, hasilnya adalah:
The system cannot accept the date entered .. blablabla
Rupanya Windows mengira kita akan ganti tanggal komputer.
Jadi akhirnya, karena saya tidak mengerti Perl, saya membuat backup script baru dengan Ruby. Logika yang sama, alur program yang sama, cuma beda bahasa. Inilah hasilnya. Silahkan digunakan dan dimodifikasi sesuai kebutuhan.
svn-weekly-backup.rb
# Full Backup script for Subversion Repository #
require 'date'
# 1. Initialize variables
backup_folder = "c:/Backup"
repo_folder = "c:/Repository/Imagine"
youngest = `svnlook youngest #{repo_folder}`.strip
next_backup_file = "weekly-full-backup.#{Time.now.strftime("%Y%m%d")}.dmp"
compress_script = backup_folder+"/compress-"+youngest+".tzs"
compress_command = "C:/Program Files/TUGZip/TzScript.exe #{compress_script}"
# 2. Perform backup
puts "Backing up to revision #{youngest}\n";
result = `svnadmin dump #{repo_folder} > #{backup_folder}/#{next_backup_file}`
# 3. Compress backup result
# 3.1 Creating temporary zip script [TugZip Required]
puts "Generating compress script ...\n";
tzs_file = < <-TZS
function main()
{
var Comp = new Compress();
Comp.Archive = "#{backup_folder}/#{next_backup_file}.zip";
Comp.Type = "ZIP";
Comp.Compression = 3;
Comp.WorkingDir = "#{backup_folder}";
Comp.Data = "#{next_backup_file}";
Comp.Password = "";
Comp.DateExtension = 0;
Comp.TimeExtension = 0;
Comp.Overwrite = 1;
Comp.Recurse = 0;
Comp.StoreFolderNames = 1;
Comp.IncludeHiddenFiles = 1;
Comp.DoCompress();
}
TZS
File.open(compress_script, "w") do | file |
file << tzs_file
end
# 3.2. Executing compression
puts "Compressing dump file...\n";
puts `#{compress_command}`
# 3.3. Deleting temporary zip script
puts "Deleting compress script ...\n";
File.delete(compress_script);
# 3.4 Deleting uncompressed dump file
puts "Deleting uncompressed dump file ...\n";
File.delete(backup_folder+"/"+next_backup_file);
# 4. Write last backup position to marker file
File.open(backup_folder+"/last_backed_up", "w") do | file |
file << youngest
end
svn-daily-backup.rb
# Full Backup script for Subversion Repository #
require 'date'
# 1. Initialize variables
backup_folder = "c:/Backup"
repo_folder = "c:/Repository/Imagine"
youngest = `svnlook youngest #{repo_folder}`.strip
next_backup_file = "daily-incremental-backup.#{Time.now.strftime("%Y%m%d")}.dmp"
compress_script = backup_folder+"/compress-"+youngest+".tzs"
compress_command = "C:/Program Files/TUGZip/TzScript.exe #{compress_script}"
# 1.a. Get last backed up revision
last_backup = 0;
if File.exist?(backup_folder+"/last_backed_up")
File.open(backup_folder+"/last_backed_up", "r") do | file |
while line = file.gets
last_backup = line.strip.to_i
end
end
end
# 2. Perform backup
if last_backup == youngest.to_i
puts "No new revision since last backup .. exiting"
exit 0;
end
start_backup = last_backup + 1
puts "Backing up from revision #{last_backup} to revision #{youngest}\n";
result = `svnadmin dump --incremental --revision #{last_backup}:#{youngest} #{repo_folder} > #{backup_folder}/#{next_backup_file}`
# 3. Compress backup result
# 3.1 Creating temporary zip script [TugZip Required]
puts "Generating compress script ...\n";
tzs_file = < <-TZS
function main()
{
var Comp = new Compress();
Comp.Archive = "#{backup_folder}/#{next_backup_file}.zip";
Comp.Type = "ZIP";
Comp.Compression = 3;
Comp.WorkingDir = "#{backup_folder}";
Comp.Data = "#{next_backup_file}";
Comp.Password = "";
Comp.DateExtension = 0;
Comp.TimeExtension = 0;
Comp.Overwrite = 1;
Comp.Recurse = 0;
Comp.StoreFolderNames = 1;
Comp.IncludeHiddenFiles = 1;
Comp.DoCompress();
}
TZS
File.open(compress_script, "w") do | file |
file << tzs_file
end
# 3.2. Executing compression
puts "Compressing dump file...\n";
puts `#{compress_command}`
# 3.3. Deleting temporary zip script
puts "Deleting compress script ...\n";
File.delete(compress_script);
# 3.4 Deleting uncompressed dump file
puts "Deleting uncompressed dump file ...\n";
File.delete(backup_folder+"/"+next_backup_file);
# 4. Write last backup position to marker file
File.open(backup_folder+"/last_backed_up", "w") do | file |
file << youngest
end
Langkah terakhir, buat bat script sederhana untuk mengeksekusi script ruby ini. Dengan adanya bat script, kita bisa dengan mudah menambahkan entri di Windows Scheduler untuk dijalankan secara otomatis dan terjadwal.
svn-weekly-backup.bat
ruby C:\Backup\svn-weekly-backup.rb
daily-full-backup.bat
ruby C:\Backup\svn-daily-backup.rb
Terakhir, buat folder c:\Backup dan letakkan file-file berikut dalam folder tersebut:
-
svn-weekly-backup.rb
-
svn-daily-backup.rb
-
svn-weekly-backup.bat
-
svn-daily-backup.bat
Sistem backup Anda siap digunakan.
| Buat yang malas copy-paste, silahkan download keempat file tersebut [tar.bz2 | 1.4 KB]. |
** Perhatian: Untuk menjalankan kode ini dengan baik, Anda harus menginstal aplikasi TugZIP. Ini dibutuhkan untuk mengkompres file hasil dump. Buat yang lebih suka WinZip, WinRAR, atau aplikasi kompresi yang lain, silahkan memikirkan cara memanggilnya dari command prompt dan memodifikasi kode program di atas, yaitu bagian #3: Compress Backup Result.
Selain itu, Anda juga harus menginstal bahasa pemrograman Ruby. Installernya bisa didownload di sini. **
Selamat menggunakan, semoga bermanfaat :D