#!/usr/local/bin/perl
use strict;
-use lib "/data/backuppc-agi//lib";
+
+use lib "__INSTALLDIR__/lib";
use DBI;
use BackupPC::Lib;
my $host = $p->{host};
my $share = $p->{share};
my $dump = $p->{num};
-
- my $cmd = $tarIncCreate. " -h $host -s $share -n $dump";
- print "$cmd ";
- if (system($cmd) != 0) {
- print " FAILED.\n";
- } else {
- print " done.\n";
+ my $currUser = getlogin();
+ my $otherUser = "";
+ if ($currUser eq "agi") {
+ $otherUser = "backuppc-agi";
+ } elsif ($currUser eq "qc") {
+ $otherUser = "backuppc-qc";
+ }
+ if ($otherUser ne "") {
+ my $cmd = "sudo -u $otherUser ".$tarIncCreate. " -h $host -s $share -n $dump";
+ print "$cmd ";
+ if (system($cmd) != 0) {
+ print " FAILED.\n";
+ } else {
+ print " done.\n";
}
+ }
}
skip "can't find increment $rel_path, recreateing obviously did not work: $!" unless (-r "$tar_dir/$rel_path");
} else {
$iso_size = (stat($iso_file))[7];
- print "ISO $iso_file allready exists [$iso_size bytes]\n";
+ print "ISO $iso_file already exists [$iso_size bytes]\n";
}
print "\nREADY TO BURN MEDIA $disk_name copy $copy_nr\n\nPlease insert blank media and press ENTER\n\n";
- die("debugging only!");
-
system($bin->{'eject'}.' '.$eject_opts) == 0 or skip "can't run eject: $?";
my $wait = <STDIN>;