From 23d52a81e07e829035abc8cfb5f5bf17aaf642a0 Mon Sep 17 00:00:00 2001
From: An-Cheng Huang <ancheng@vyatta.com>
Date: Fri, 13 Aug 2010 18:17:53 -0700
Subject: add function to perl API

---
 lib/Vyatta/Config.pm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'lib')

diff --git a/lib/Vyatta/Config.pm b/lib/Vyatta/Config.pm
index a02ee18..d37d34f 100755
--- a/lib/Vyatta/Config.pm
+++ b/lib/Vyatta/Config.pm
@@ -534,13 +534,20 @@ sub listNodeStatusDA {
 }
 
 ## returnComment("node")
-# return comment of "node" or undef if comment doesn't exist
+# return comment of "node" in working config or undef if comment doesn't exist
 sub returnComment {
   my ($self, $path) = @_;
   return $self->{_cstore}->cfgPathGetComment($self->get_path_comps($path),
                                              undef);
 }
 
+## returnOrigComment("node")
+# return comment of "node" in active config or undef if comment doesn't exist
+sub returnOrigComment {
+  my ($self, $path) = @_;
+  return $self->{_cstore}->cfgPathGetComment($self->get_path_comps($path), 1);
+}
+
 
 ############################################################
 # high-level API functions (not using the cstore library directly)
-- 
cgit v1.2.3