my $server = $self-{server};
my $response = $http->get("http://$server:8080/turnka/view");
my $content = $response->{content};
if ( $content !~ /No UI/ ) {
my @ui = ( $content =~ /(
(?<\/TD>
(.*?)<\/TD>
| (.*?)<\/TD>
| (.*?)<\/TD>
| (.*?)<\/TD>
| (.*?)<\/TD>/gs
);
foreach my $ui (@ui) {
$ui_hash{$server}{$3}{'batch'} = $2;
$ui_hash{$server}{$3}{'url'} = $1;
$ui_hash{$server}{$3}{'interaction'} = $4;
$ui_hash{$server}{$3}{'title'} = $5;
$ui_hash{$server}{$3}{'time'} = $6;
$ui_hash{$server}{$3}{'status'} = $7;
}
}
|