From 6d8116eba3979a231fb7cac7c1a0c9c71f26b8d0 Mon Sep 17 00:00:00 2001
From: sakolish <sakolish@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Wed, 6 Feb 2008 19:12:59 +0000
Subject: [PATCH] Removed "all_clear" command from reventlog
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@404 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
perl-xCAT-2.0/xCAT/PPCfsp.pm | 14 +-------------
1 file changed, 1 insertion(+), 13 deletions(-)
diff --git a/perl-xCAT-2.0/xCAT/PPCfsp.pm b/perl-xCAT-2.0/xCAT/PPCfsp.pm
index 2268457f2..c3c92e14a 100644
--- a/perl-xCAT-2.0/xCAT/PPCfsp.pm
+++ b/perl-xCAT-2.0/xCAT/PPCfsp.pm
@@ -21,7 +21,6 @@ my %cmds = (
boot => ["Power On/Off System", \&boot] },
reventlog => {
all => ["Error/Event Logs", \&all],
- all_clear => ["Error/Event Logs", \&all_clear],
entries => ["Error/Event Logs", \&entries],
clear => ["Error/Event Logs", \&clear] },
rfsp => {
@@ -627,7 +626,7 @@ sub entries {
my $ua = @$exp[0];
my $server = @$exp[1];
my $opt = $request->{opt};
- my $count = (exists($opt->{e})) ? $opt->{e} : 9999;
+ my $count = (exists($opt->{e})) ? $opt->{e} : -1;
my $result;
my $i = 1;
@@ -1004,17 +1003,6 @@ sub all {
}
-##########################################################################
-# Gets all Error/Event Logs entries then clears the logs
-##########################################################################
-sub all_clear {
-
- my $result = entries( @_ );
- clear( @_);
- return( $result );
-}
-
-
1;