From 1c37ea19b32beb370e0b802b19b5c2a3e25d4dd3 Mon Sep 17 00:00:00 2001
From: Stig Thormodsrud <stig@vyatta.com>
Date: Fri, 28 May 2010 17:39:08 -0700
Subject: Remove single quotes except on leaf-node.

---
 scripts/vyatta-config-gen-sets.pl | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'scripts/vyatta-config-gen-sets.pl')

diff --git a/scripts/vyatta-config-gen-sets.pl b/scripts/vyatta-config-gen-sets.pl
index 7cf4feb..be30477 100755
--- a/scripts/vyatta-config-gen-sets.pl
+++ b/scripts/vyatta-config-gen-sets.pl
@@ -42,8 +42,12 @@ if (scalar(@all_nodes) == 0) {
 my $ret = 0;
 foreach (@all_nodes) {
   my ($path_ref) = @$_;
-  my $cmd = "set " . (join ' ', @$path_ref);
-  print "$cmd\n";  
+  my $elements = scalar(@$path_ref);
+  my @non_leaf = @$path_ref[0 .. ($elements - 2)] ;
+  my $path = join(' ', @non_leaf);
+  $path =~ s/'//g;
+  my $cmd = "set $path " . @$path_ref[($elements - 1)];
+  print "$cmd\n";
 }
 print "commit\n";
 
-- 
cgit v1.2.3