view release on metacpan or  search on metacpan

t/50force.t  view on Meta::CPAN

    sleep(3);
} else {			# Unix
    $rc = system("db2 connect to $test_db > /tmp/err 2>&1");
    ok($rc == 0, "Connect to $test_db");
}

$snap = DB2::Admin->GetSnapshot('Subject' => 'SQLMA_APPL_ALL');
ok ($snap, "Application snapshot (before)");

my $agent_id;
my $username = ($^O =~ /^MSWin / ? $ENV{USERNAME} : getpwuid($<));
foreach my $node ($snap->findNodes('APPL')) {
    my $dbname = $node->findValue('APPL_INFO/DB_NAME');
    $dbname =~ s/\s+$//;
    next unless (lc $dbname eq lc $test_db);

    my $user = $node->findValue('APPL_INFO/EXECUTION_ID');
    next unless (lc($user) eq $username);
    my $conn_time = $node->findValue('APPL_CON_TIME/SECONDS');
    next unless ($conn_time >= $now);