#!/usr/bin/perl -Tw -I. -I/usr/local/positive/Perl
#
# This software is copyright (c) 2001-2002 Positive Networks, Inc. All rights reserved.
#
# This software is the proprietary and confidential property of Positive Networks, Inc.
# Possession, transmission, publication, or use of this software is prohibited except by prior written consent.
#
use strict;
use Pos::Webtop::Web::ModuleLoader;
my $tb = Pos::Webtop::Toolbox->new();
my $client = $tb->getClient();
my $cgi = $tb->getCgi();
my $db = $tb->getWebtopDbWriter();
my $oem = $tb->getOem();
$client->checkSession();
my $userId = $client->getUserId();
my $customerId = $client->getCustomerId();
my @serverInfo = $db->query(sql => "
select
cos.base_url,
cos.is_secure
from
conf_online_servers cos,
user_conf_online_settings ucos
where
ucos.conf_online_server_id = cos.conf_online_server_id
AND ucos.user_id = '$userId'
");
print "Content-type: text/html\n\n";
# If they don't have any server information, force a redirect and allow them through. This use case should never happen...but...
if (scalar(@serverInfo) == 0) {
$db->do(sql => "
update
w_web_sessions
set
confidence_scan_passed = 1
where
user_id = '$userId'
");
print "
";
exit;
}
my ($baseUrl, $isSecure) = @{ $serverInfo[0] };
#my $rewriterPrefixUrl = "http://confidence.positivenetworks.net/"; # XXX: testing
#my $rewriterPrefixedBaseUrl = "http://confidence.positivenetworks.net/"; # XXX: testing
my $rewriterPrefixUrl = Pos::Webtop::OcxLauncher::getRewriterPrefix();
my $rewriterPrefixedBaseUrl = Pos::Webtop::OcxLauncher::getRewriterPrefix() . $baseUrl;
# Append a slash if one is not already at the end.
if (!($rewriterPrefixedBaseUrl =~ /\/$/)) {
$rewriterPrefixedBaseUrl .= "/";
}
# Append a slash if one is not already at the end.
if (!($rewriterPrefixUrl =~ /\/$/)) {
$rewriterPrefixUrl .= "/";
}
# Remove the scheme prefix.
$rewriterPrefixUrl =~ s/^(.*):\/\/(.*)$/$2/;
print STDERR "confidence: Using base URL: $rewriterPrefixedBaseUrl\n";
print "
Confidence Online Scan
" . $tb->getDomJs . "
Please be patient while your computer's security is validated.