Fix syslog level for commit messages

Bug 8208
The log level should be notice not alert.
Also, the script doesn't depend on anything in Vyatta config
or other Vyatta perl libaries.

1 files changed, 7 insertions, 15 deletions

diff --git a/scripts/vyatta-log-commit.pl b/scripts/vyatta-log-commit.pl
index e7e38b2..bbf0852 100644
--- a/scripts/vyatta-log-commit.pl
+++ b/scripts/vyatta-log-commit.pl
@@ -26,33 +26,25 @@
 # Description: Script to log active configuration commits to syslog.
 #
 # **** End License ****
-#
-
 
 use strict;
 use warnings;
-use lib '/opt/vyatta/share/perl5/';
 
-use Vyatta::Config;
 use Sys::Syslog qw(:standard :macros);
 use POSIX qw(ttyname);
 
 #
 # main
 #
-my $commit_status;
-my $cur_tty = ttyname(0);
-my $cur_user = getlogin() || getpwuid($<) || "unknown";
 my $status = $ENV{'COMMIT_STATUS'};
-
-chomp($cur_tty);
-chomp($cur_user);
-
-$commit_status = 'Successful' if ($status eq 'SUCCESS');
+my $commit_status = 'Successful' if ($status eq 'SUCCESS');
 #open log for logging commit details
 if (defined $commit_status) {
-  openlog("commit", "", LOG_USER);
-  syslog ("alert", "$commit_status change to active configuration by user $cur_user on $cur_tty");
-  closelog();
+    my $cur_tty = ttyname(0);
+    my $cur_user = getlogin() || getpwuid($<) || "unknown";
+
+    openlog("commit", "", LOG_USER);
+    syslog (LOG_NOTICE, "$commit_status change to active configuration by user $cur_user on $cur_tty");
+    closelog();
 }
 #end of script