web_lscondition, lsresponse, lscondresp are changed
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@4673 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
		@@ -176,20 +176,14 @@ sub web_stopcondresp {
 | 
			
		||||
sub web_lscond {
 | 
			
		||||
    my ($request, $callback, $sub_req) = @_;
 | 
			
		||||
    my $ret = `lscondition`;
 | 
			
		||||
    my @conds;
 | 
			
		||||
    
 | 
			
		||||
    my @lines  = split '\n', $ret;
 | 
			
		||||
    shift @lines;
 | 
			
		||||
    shift @lines;
 | 
			
		||||
    foreach my $line (@lines) {
 | 
			
		||||
        #
 | 
			
		||||
        my $index = index($line, '"', 1);
 | 
			
		||||
        push @conds, substr($line, 1, $index-1);
 | 
			
		||||
	$callback->({data=>$line});
 | 
			
		||||
    }
 | 
			
		||||
 | 
			
		||||
    #all the conditions are stored in @conds
 | 
			
		||||
    my $data = join("=",@conds);
 | 
			
		||||
    $callback->({data=>"$data"});
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
sub web_lsresp {
 | 
			
		||||
@@ -202,12 +196,8 @@ sub web_lsresp {
 | 
			
		||||
    shift @lines;
 | 
			
		||||
 | 
			
		||||
    foreach my $line (@lines) {
 | 
			
		||||
        my $index = index($line, '"', 1);
 | 
			
		||||
        push @resps, substr($line, 1, $index-1);
 | 
			
		||||
	$callback->({data=>$line});
 | 
			
		||||
    }
 | 
			
		||||
    #all the responses are stored in @resps
 | 
			
		||||
    my $data = join("=",@resps);
 | 
			
		||||
    $callback->({data=>"$data"});
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
sub web_lscondresp {
 | 
			
		||||
@@ -216,16 +206,10 @@ sub web_lscondresp {
 | 
			
		||||
    shift @ret;
 | 
			
		||||
    shift @ret;
 | 
			
		||||
 | 
			
		||||
    my $data;
 | 
			
		||||
 | 
			
		||||
    foreach my $line (@ret) {
 | 
			
		||||
        chomp $line;
 | 
			
		||||
        $data .=$line;
 | 
			
		||||
        $data .="=";
 | 
			
		||||
	$callback->({data=>$line});
 | 
			
		||||
    }
 | 
			
		||||
 | 
			
		||||
    $callback->({data=>"$data"});
 | 
			
		||||
 | 
			
		||||
}
 | 
			
		||||
# currently, web_chtab only handle chtab for the table "monitoring"
 | 
			
		||||
sub web_chtab {
 | 
			
		||||
 
 | 
			
		||||
		Reference in New Issue
	
	Block a user