arif/xcat-core
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Removed "all_clear" command from reventlog

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@404 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
sakolish
2008-02-06 19:12:59 +00:00
parent 2d8ce79bf0
commit 6d8116eba3
1 changed files with 1 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
perl-xCAT-2.0/xCAT/PPCfsp.pm
View File

@@ -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;