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

Enabled "FSP" method to "clear" eventlog - Line #451

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@157 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
sakolish 2007-12-11 20:35:07 +00:00
parent 7f032336fb
commit 5978106a18
1 changed files with 22 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4,6 +4,7 @@ package xCAT::PPCfsp;
use strict;
use LWP;
use HTTP::Cookies;
use HTML::Form;
##########################################
@ -457,16 +458,30 @@ sub clear {
my $server = @$exp[1];
##################################
# Send Clear command
# Get Error/Event Logs URL
##################################
my $url = "https://$server/cgi-bin/cgi";
my $res = $ua->post( $url,
[form => $form,
submit => "Clear all error/event log entries" ]
);
my $res = $ua->get( "https://$server/cgi-bin/cgi?form=$form" );
##################################
# Return error
##################################
if ( !$res->is_success() ) {
return( $res->status_line );
}
my $form = HTML::Form->parse( $res );
##################################
# Return error
##################################
if ( !defined( $form )) {
return( "No Error/Event Logs form found" );
}
##################################
# Send Clear to JavaScript
##################################
my $request = $form->click( 'clear' );
$res = $ua->request( $request );
if ( !$res->is_success() ) {
return( $res->status_line );
}
@ -550,3 +565,4 @@ sub all_clear {
1;