#!/usr/bin/perl
print "Content-type:text/html\n\n";
$result=`/usr/local/nagios/libexec/check_nrpe -H 172.21.40.3 -c check_movemail`;
@result1=split(/root/,$result);
$i=0;
$aa=$#result1;
print "movemail Session display ( ".$#result1." Session Copying )";
print "<br>";
print "<br>";
foreach(@result1){
#	print $_ . "\n";
	if( $i > 0 ){
	@field = split(/ /, $_ );
	printf( "Copying: ".$field[17]  );
	printf( "<br>");
	}
	$i = $i+1;
}
#while(@result1) {
#	s/[\r\n]//g;
#	print $_;
#	printf( "%s\n", $field[13]);
#}

#print @result1;