summaryrefslogtreecommitdiff
path: root/scripts/vyatta-load-config.pl
diff options
context:
space:
mode:
Diffstat (limited to 'scripts/vyatta-load-config.pl')
-rwxr-xr-xscripts/vyatta-load-config.pl11
1 files changed, 6 insertions, 5 deletions
diff --git a/scripts/vyatta-load-config.pl b/scripts/vyatta-load-config.pl
index 02df8a7..a0b53d5 100755
--- a/scripts/vyatta-load-config.pl
+++ b/scripts/vyatta-load-config.pl
@@ -7,6 +7,7 @@ use lib "/opt/vyatta/share/perl5/";
use VyattaConfigLoad;
my $etcdir = $ENV{vyatta_sysconfdir};
+my $sbindir = $ENV{vyatta_sbindir};
my $bootpath = '';
if (-r "$etcdir/bootfile_path") {
$bootpath = `cat $etcdir/bootfile_path`;
@@ -38,27 +39,27 @@ my @set_list = @{$cfg_diff{'set'}};
foreach (@delete_list) {
my ($cmd_ref, $rank) = @{$_};
- my @cmd = ( 'my_delete', @{$cmd_ref} );
+ my @cmd = ( "$sbindir/my_delete", @{$cmd_ref} );
my $cmd_str = join ' ', @cmd;
system("$cmd_str");
if ($? >> 8) {
- $cmd_str =~ s/^my_//;
+ $cmd_str =~ s/^$sbindir\/my_//;
print "\"$cmd_str\" failed\n";
}
}
foreach (@set_list) {
my ($cmd_ref, $rank) = @{$_};
- my @cmd = ( 'my_set', @{$cmd_ref} );
+ my @cmd = ( "$sbindir/my_set", @{$cmd_ref} );
my $cmd_str = join ' ', @cmd;
system("$cmd_str");
if ($? >> 8) {
- $cmd_str =~ s/^my_//;
+ $cmd_str =~ s/^$sbindir\/my_//;
print "\"$cmd_str\" failed\n";
}
}
-system("my_commit");
+system("$sbindir/my_commit");
if ($? >> 8) {
print "Load failed (commit failed)\n";
exit 1;