From: smckown <smckown@986fd584-583e-0410-b54d-b9fe63dff8e5>
Date: Fri, 11 Jan 2008 01:08:24 +0000 (+0000)
Subject: BackupPC_ovz now gets its list of HNs from /etc/backuppc/BackupPC_ovz.hnlist.
X-Git-Tag: backuppc-ovz-0.1~5
X-Git-Url: https://oss.titaniummirror.com/gitweb/?p=ovzbpc.git;a=commitdiff_plain;h=82ed31db4a0343059d15646d4e15e814e7944115

BackupPC_ovz now gets its list of HNs from /etc/backuppc/BackupPC_ovz.hnlist.
---

diff --git a/BackupPC_ovz b/BackupPC_ovz
index 5b7d010..883b693 100755
--- a/BackupPC_ovz
+++ b/BackupPC_ovz
@@ -15,12 +15,12 @@ use File::Path;
 use Proc::PID::File;
 
 # Various constants
-my @HNS = ('pe18001.titaniummirror.com', 'pe18002.titaniummirror.com');
 my @script_ext = qw(start stop mount umount);
 my @velist = ();
 my $pidfile = "/tmp/".basename($0).".pid";
 my $vzsnap = 'vzsnap'; # Mount point and lv names.  Mount is relative to /.
 my $snapsize = '1g';
+my $hnlistFile = "/etc/backuppc/".basename($0).".hnlist";
 my $velistFile = $ENV{HOME}."/log/".basename($0).".velist";
 
 sub cmdExecOrEval
@@ -67,6 +67,15 @@ sub refreshConfig()
 {
   # Write the VEs on all HNs to a config file on the BackupPC server for
   # later use.
+  my @HNS = ();
+  open my $cfg, "<$hnlistFile" || die "Cannot read $hnlistFile";
+  while (<$cfg>) {
+    chomp;
+    push(@HNS, split(' ')) if (! /^#/);
+  }
+  close($cfg);
+  die "No HNs defined in $hnlistFile" if ($#HNS < 0);
+
   open my $out, ">$velistFile" || die "Cannot write to $velistFile";
   foreach my $hn (@HNS) {
     open my $fh, "ssh -l root $hn vzlist -a |" ||