my $pidfile = "/tmp/".basename($0).".pid";
my $vzsnap = 'vzsnap'; # Mount point and lv names. Mount is relative to /.
my $snapsize = '1g';
+my $velistFile = $ENV{HOME}."/log/".basename($0).".velist";
sub cmdExecOrEval
{
{
# Write the VEs on all HNs to a config file on the BackupPC server for
# later use.
- open my $out, ">/etc/backuppc/vzlist_bpc" ||
- die "Cannot write to /etc/backuppc/vzlist_bpc";
+ open my $out, ">$velistFile" || die "Cannot write to $velistFile";
foreach my $hn (@HNS) {
open my $fh, "ssh -l root $hn vzlist -a |" ||
die "Can run remote vzlist command";
# For use on the BackupPC server.
sub loadVeList()
{
- open my $fh, "</etc/backuppc/vzlist_bpc" ||
- die "Cannot read from /etc/backuppc/vzlist_bpc. Set a preuser script.";
+ open my $fh, "<$velistFile" ||
+ die "Cannot read from $velistFile. Set a preuser script.";
while (<$fh>) {
chomp;