For tux402
my $cmd = "perl $vmPerlAPI/host/ dsbrowse.pl "
."--url https://$vmHostnam e:8333/sdk/ vimService "
."--username $vmUser "
."--password $vmPass "
."--ipaddress";
return `$cmd`;
$r->log_error(__PACKAGE__.":handler:mode = $mode");
if($mode eq 'logout') {
my $target = $html_url;
my $location = "http://$ENV{SERVER_NAME}$target";
$location = "http://news.bbc.co.uk/1/hi/england/default.stm";
$r->headers_out->set(Location => $location);
$r->status(Apache2::Const::REDIRECT);
print STDERR __PACKAGE__.":handler: [STDERR] got here OK.\n";
return Apache2::Const::REDIRECT;
}
|