diff options
Diffstat (limited to 'scripts')
-rw-r--r-- | scripts/vyatta-comment-config.pl | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/scripts/vyatta-comment-config.pl b/scripts/vyatta-comment-config.pl index 2cbd81d..5e3a315 100644 --- a/scripts/vyatta-comment-config.pl +++ b/scripts/vyatta-comment-config.pl @@ -23,6 +23,7 @@ use strict; use warnings; use File::Find; use lib "/opt/vyatta/share/perl5"; +use Vyatta::Config; sub usage() { @@ -55,11 +56,17 @@ if (! -e $full_path) { $full_path = "$ENV{VYATTA_TEMP_CONFIG_DIR}/$path"; } else { - `echo \"Path is not valid\n\"`; + print "Configuation path is not valid\n"; exit 0; } } +my $config = new Vyatta::Config; +my @el = split('/',$edit_level); +if ($config->isTagNode([ @el, @path ])) { + print "Cannot set comment without value for this path\n"; + exit 0; +} #scan for illegal characters here: '/*', '*/' if ($ARGV[$#ARGV] =~ /\/\*|\*\//) { print "illegal characters found in comment\n"; @@ -80,5 +87,6 @@ else { close($cfile); } -print "Done\n"; +`touch $ENV{VYATTA_TEMP_CONFIG_DIR}/.modified`; + exit 0; |