From 82ed31db4a0343059d15646d4e15e814e7944115 Mon Sep 17 00:00:00 2001
From: smckown <smckown@986fd584-583e-0410-b54d-b9fe63dff8e5>
Date: Fri, 11 Jan 2008 01:08:24 +0000
Subject: [PATCH] BackupPC_ovz now gets its list of HNs from
 /etc/backuppc/BackupPC_ovz.hnlist.

---
 BackupPC_ovz | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

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 |" ||
-- 
2.39.2