#!/usr/bin/perl

package Pos::Webtop::OcxLauncher;

use strict;
use Pos::db;
use Pos::Webtop::Toolbox;
use Digest;

#my $ocxVersion = "2,1,23,5";
#my $ocxUrl     = "WTP.cab";

sub getLauncherHtml {
	my $ret = "";
	my ($tb, $inlineOcx)  = @{{@_}}{qw/tb inlineOcx/};

	if (not defined($inlineOcx)) {
		$inlineOcx = 0;
	}

	my $client             = $tb->getClient;
	my $sessionId          = $client->getSessionId;
	my $sessionHash        = $client->getSessionHash;
	my $customerId         = $client->getCustomerId;
	my $oem                = $tb->getOem;
	my $db                 = $tb->getWebtopDbReader;
	my $isMobile 			  = $client->isMobileWebtop();
	my $activeXConnected   = $client->isWebtopVpnConnectionEstablished( db => $db );
	
	my $remoteDesktopSize = undef;
	my $remoteDesktopColors = undef;
	my $remoteComputerSound = undef;
	my $keyboard = undef;
	my $diskDrives = undef;
	my $printers = undef;
	my $serialPorts = undef;
	my $desktopBackground = undef;
	my $showContents = undef;
	my $menuandwindowanimation = undef;
	my $themes = undef;
	my $bitmapcaching = undef;
	my $connectionBar = undef;
	my $commandOptions = undef;
	my $plugPlayDevices = undef;
	
	my $networkUserName = undef;
	my $networkDomainName = undef;

	my ($intranetAccessMethod) = $db->query(sql => "
		select
			wiam.intranet_access_method_name
		from
			w_user_intranet_access_method wuiam,
			w_intranet_access_methods wiam
		where
			wuiam.intranet_access_method_id = wiam.intranet_access_method_id
			AND user_id = '" . $client->getUserId() . "'
		");

	# Default to enhanced
	if (not defined($intranetAccessMethod)) {
		$intranetAccessMethod = 'Enhanced';
	}
	
	my @configParameters = $db->query(sql => "
			select
				remote_desktop_size,
				remote_desktop_colors,
				remote_computer_sound,
				keyboard,
				diskdrives,
				printers,
				serial_ports,
				desktop_background,
				show_contents,
				window_animation,
				themes,
				bitmap_caching,
				connection_bar,
				command_line_options,
				plug_and_play_devices
			from
				xprdasettings
			where
				user_id = '" . $client->getUserId() . "'
			");	

	my @networkDomain = $db->query(sql => "
			select
				corp_network_user_name,
				corp_network_domain
			from
				users
			where
				user_id = '" . $client->getUserId() . "'
			");
#	my ($xp_user_name) = $db->query(sql => "
#			select
#				xp_user_name
#			from
#				w_user_computers
#			where
#				user_id = '" . $client->getUserId() . "'
#			");
				

	$ret .= $tb->getDomJs;
	$ret .= "
		<script type='text/javascript'>

			var errorText = 'Your browser does not support this feature.  To proceed, please launch Internet Explorer and sign back into " . $oem->getSetting(setting=> 'webtopProductName') . ".';

			function getOcx()
			{
				var ocx = getObjectById('ocx', parent.statusFrame.document);

				if (!parent.statusFrame.isOcxLoaded())
					ocx = null;
				
				return ocx;
			}

			function getOcxOnline()
			{
				var ocx = getOcx();

				if (!parent.statusFrame.isOcxOnline())
					ocx = null;

				return ocx;
			}

			function launchBrowser(url) {

				var locx = getOcxOnline();

				if (locx != null)
					locx.launchBrowser('" . (($intranetAccessMethod eq 'Enhanced')?"ie-dynapp":"ie") . "', url);
				else
					redirectToRewriter(url, false);

			}

			function launchXPRDA(host, port, xpUserName)
			{
				var locx = getOcxOnline();";
			my $xmlString = '';	
			foreach my $configList ( @configParameters )
			{
				 ($remoteDesktopSize, $remoteDesktopColors, $remoteComputerSound, $keyboard,
					 $diskDrives, $printers, $serialPorts, $desktopBackground, $showContents, $menuandwindowanimation,
					 $themes, $bitmapcaching, $connectionBar, $commandOptions, $plugPlayDevices) = @ { $configList };
				
				foreach my $networkList ( @networkDomain )
				{
					($networkUserName, $networkDomainName) = @ { $networkList };
				}

			}


			if (not defined $remoteDesktopSize)
			{
				$remoteDesktopSize = '1';
			}

			if (not defined $remoteDesktopColors)
			{
				$remoteDesktopColors = '4';
			}

			if (not defined $remoteComputerSound)
			{
				$remoteComputerSound = '1';
			}

			if (not defined $keyboard)
			{
				$keyboard = '1';
			}
			if(not defined $diskDrives)
			{
				$diskDrives = '0';
			}
			if(not defined $printers)
			{
				$printers = '1';
			}
			if(not defined $serialPorts)
			{
				$serialPorts = '0';
			}
			if(not defined $desktopBackground)
			{
				$desktopBackground = '0';
			}
			if(not defined $showContents)
			{
				$showContents = '0';
			}
			if(not defined $menuandwindowanimation)
			{
				$menuandwindowanimation = '0';
			}
			if(not defined $themes)
			{
				$themes = '1';
			}
			if(not defined $bitmapcaching)
			{
				$bitmapcaching = '1';
			}
			if(not defined $connectionBar)
			{
				$connectionBar = '1';
			}
			
			if(!defined $commandOptions || !length($commandOptions))
			{
				$commandOptions = '';
			}
			
			if(not defined $plugPlayDevices)
			{
				$plugPlayDevices = '0';
			}
			

			defined($networkUserName) and $networkUserName =~ s/'/\\'/g;

	$xmlString .= "<conf remote_desktop_size=\"$remoteDesktopSize\" remote_desktop_colors=\"$remoteDesktopColors\" remote_computer_sound=\"$remoteComputerSound\" keyboard=\"$keyboard\" diskDrives=\"$diskDrives\" printers=\"$printers\" serialPorts=\"$serialPorts\" desktopBackground=\"$desktopBackground\" showContents=\"$showContents\" menuandwindowanimation=\"$menuandwindowanimation\" themes=\"$themes\" bitmapcaching=\"$bitmapcaching\" connectionBar=\"$connectionBar\" remoteHost=\"' + host + '\" remotePort=\"' + port + '\" useHints=\"0\" networkUserName=\"" . (defined($networkUserName) ? $networkUserName : "") . "\" networkDomainName=\"" . (defined($networkDomainName) ? $networkDomainName : "") . "\" xpUserName=\"' + xpUserName + '\" command_line_options=\"$commandOptions\" plug_and_play_devices=\"$plugPlayDevices\"/>";
	

	$ret .= "
			if (locx != null)
			{
				var tunnel = '<Tunnels><Tunnel localHost=\"0\" localPort=\"0\" remoteHost=\"' + host + '\" remotePort=\"' + port + '\"/>$xmlString</Tunnels>';

				locx.installExecuteApplicationDynamic(81, 'UseDynamic', tunnel);
			}
			else
			{
				alert(errorText);
			}";	

	$ret .= "
			}

			function onSubmit(form)
			{
				var form = getObjectById(\"vncMe\");
			
				if (form != null)
				{
					rdaType = form.rdaType.selectedIndex;

					if(rdaType == 0)
					{
						popupWindowVnc('','','','');
					}
					else
					{
						popupWindowXPRDA('','','','','');
					}
				}
				return false;
			}
			
			function launchVnc(host, port) 
			{
				var locx = getOcxOnline();

				if (locx != null)
				{
					var tunnel = '<Tunnels><Tunnel localHost=\"0\" localPort=\"0\" remoteHost=\"' + host + '\" remotePort=\"' + port + '\"/><conf useHints=\"1\"/></Tunnels>';

					locx.installExecuteApplicationDynamic(763, 'UseDynamic', tunnel);
				}
				else
				{
					alert(errorText);
				}

			}

			function installApplication(appId) 
			{
				var locx = getOcxOnline();

				if (locx != null)
					locx.installApplication(appId);
				else
					alert(errorText);

			}

			function installExecuteApplication(type, typeId, appId, flags) 
			{
				var locx = getOcxOnline();

				if (locx != null)
					locx.installExecuteApplication(type, typeId, appId, flags);
				else
					alert(errorText);
			}

			function executeApplication(cmd, flags) 
			{
				if (cmd == null)
				{
					var command = getObjectById(\"applicationCommand\");

					if (command != null)
						cmd = command.value;
				}

				if (cmd == null)
				{
					alert('You did not specify a command.');

					return;
				}

				if (flags == null)
					flags = 0;

				var locx = getOcxOnline();

				if (locx != null)
					locx.executeApplication(cmd, flags);
				else
					alert(errorText);

				return false;
			}

			function redirectToRewriter(url, loadInline) 
			{
				document.cookie = \"useRewriter=1; domain=." . $oem->getSetting(setting => 'domain') . "; path=/;\";

				currentWindowUrl = 'main.pl?module=Intranet&" . $client->getSessionParams() . "&action=rwPopup&url=' + url;
				browserUrl       = url;

				if (!loadInline)
					currentWindow = window.open(currentWindowUrl, 'Rewrite', 'location=no,toolbar=yes,resizable=yes,width=800,height=600');
				else
					parent." . ($isMobile ? "bodyFrame." : "" ) . "document.location = currentWindowUrl;
			}

			function getCookie(name) 
			{ 
				var index = document.cookie.indexOf(name + \"=\");
				
				if (index == -1) 
					return null;

				index = document.cookie.indexOf(\"=\", index) + 1; // first character

				var endstr = document.cookie.indexOf(\";\", index);

				if (endstr == -1) 
					endstr = document.cookie.length; // last character

				return unescape(document.cookie.substring(index, endstr));
			}  

			function popupWindowIntranet(inUrl, name, wantReturn, intranetForm) 
			{
				//var theForm = getObjectById(\"browseMe\");
				var url;
				
			//	if (inUrl == '' || inUrl == 'NONE') 
			//	{
			//		url = theForm.url.value;
			//	} 
			//	else 
				{
					url = inUrl;	
				}

				if (url == '') 
				{
					alert('Sorry, you specified an invalid URL!');
					return false;
				}

				var useRewriter = 0;
				
				" . ($isMobile ? "" : "
				if (getCookie(\"useRewriter\") == '1') 
				{
					useRewriter = 1;
				}") . "
				
				" . (!$activeXConnected || $isMobile || ($intranetAccessMethod ne 'Standard' && $intranetAccessMethod ne 'Enhanced') ? "useRewriter = 1;":"") . "

				document.cookie = \"positive=$customerId+$sessionId+$sessionHash; domain=." . $oem->getSetting(setting => 'domain') . "; path=/;\";

				if (!useRewriter) {
					launchBrowser(url);
				} else {
					" . ( $isMobile ? "redirectToRewriter(url, true)" : "redirectToRewriter(url, false)" ) . ";
				}

				if (inUrl == '') {
					return false;
				}
		
				// for forms you need to return false so the page doesn't refresh
				if (intranetForm)
				{
					return false;
				}
			
				return;
			}

			function popupWindowXPRDA(inHost, inPort, name, id, xpUserName)
			{
				var host        = inHost;
				var returnFalse = 0;
				var port        = inPort;
				var re          = /:/;

				if ((inHost == '') && (inPort == '')) 
				{
					var form = getObjectById(\"vncMe\");

					if (form != null)
					{
						host = form.remoteAddress.value;
						port = form.remotePort.value;
					}

					returnFalse = 1;
				}

				// Make sure the hostname doesn't have a colon.
				if ((String(host).match(re) != null) || (host == '') || (port == '')) 
				{
					alert('You supplied an invalid host or port.');

					if (returnFalse)
						return false;
					else
						return;

				}

				launchXPRDA(host, port, xpUserName);

				if (returnFalse)
					return false;
				else
					return;

		
			}
			
			function popupWindowVnc(inHost, inPort, name, id) 
			{
				var host        = inHost;
				var returnFalse = 0;
				var port        = inPort;
				var re          = /:/;

				if ((inHost == '') && (inPort == '')) 
				{
					var form = getObjectById(\"vncMe\");

					if (form != null)
					{
						host = form.remoteAddress.value;
						port = form.remotePort.value;
					}

					returnFalse = 1;

				}

				// Make sure the hostname doesn't have a colon.
				if ((String(host).match(re) != null) || (host == '') || (port == '')) 
				{
					alert('You supplied an invalid host or port.');

					if (returnFalse)
						return false;
					else
						return;

				}

				launchVnc(host, port);

				if (returnFalse)
					return false;
				else
					return;

			}

		</script>
		";

	return $ret;
}

sub getRewriterPrefix
{
	return Pos::defaults::getRewriterPrefix;
}

sub isMacBrowserAllowed {
	my $agent = $ENV{'HTTP_USER_AGENT'};
	my $ret = 0;
	if($agent =~ /Mac OS/) {
        	if($agent =~ /Safari/ && $agent !~ /Chrome/) {        
			$ret = 1;	
        	} elsif($agent =~ /Firefox/) {
                	$ret = 1;
        	} elsif($agent =~ /Chrome/) {
                	$ret = 1;
        	}
	}
	return $ret;
}

sub getMacClientAppId {
    my $appId = "";
    my $verInfo = "";

    my $database = $_[0];

    my @rows = $database->query( sql=> "
            select
                ap.app_id,
                ap.ver_info
            from
                apps ap
            where
                app_name='PositivePro Mac Client Lite'
    ");

        foreach ( @rows )
    {
        ($appId,$verInfo) = @{ $_ };
    }

   #warn ">>>>> Mac Client appid = $appId\n";
   return $appId;
 }

sub getFrameHtml
{
	my ($tb,$is98,$isME) = @{{@_}}{qw/tb is98 isME/};
	my $res;
	my $client = $tb->getClient;
	my $db     = $tb->getWebtopDbReader;
	my $isMobile	= $client->isMobileWebtop();
	my ($majorRelease, $minorRelease, $ocxVersion);
	my $coreUrl;
	my $jarUrl;
	my $coreSha1;
	my $mac = 0;
	my $macAppId = getMacClientAppId($db);

	my $agent = $ENV{'HTTP_USER_AGENT'};

	#if (1)
	if(isMacBrowserAllowed()) 
	{
		($majorRelease, $minorRelease)	= @{$client->getMacWebtopVersion(db=> $db, userId => $client->getUserId())};

		#warn ">>>>> Release: $majorRelease, $minorRelease\n";

		if ($majorRelease != 1)
		{
			my $uriDir = $ENV{'REQUEST_URI'};
			$uriDir =~ s/\/[^\/]+$//; # chop off .pl file and leave dir without slash
			
			my $webtopDir = $ENV{'SCRIPT_FILENAME'};
			$webtopDir =~ s/\/[^\/]+$//; # chop off .pl file and leave dir without slash

			my $coreFileRelative = "CORE/MacWebtopCore-$majorRelease.$minorRelease.tar.gz";
			my $coreFileAbsolute = $webtopDir . "/" . $coreFileRelative;
			
			#warn ">>>>> Core: $coreFileAbsolute\n";
			my $CORE;
			open($CORE, "<$coreFileAbsolute");
			my $ctx = Digest->new("SHA-1");
			$ctx->addfile($CORE);
			$coreSha1 = $ctx->hexdigest();
			close($CORE);

			$coreUrl = ($ENV{'HTTPS'} eq "on" ? "https" : "http") . "://" .
				$ENV{'HTTP_HOST'} . $uriDir . "/" . $coreFileRelative;

			$jarUrl = "APPLET/WebtopApplet-$majorRelease.$minorRelease.jar";

			$mac = 1;
		}
		else
		{
			# As a somewhat hack to keep legacy 'oops, ocx failed' mac login, we
			# refuse to detect mac if the user has version 1 assigned to them,
			# indicating they aren't using the new mac webtop.
			#
			$mac = 0;
		}

		#warn ">>>>>> mac: $mac\n";
	}
	else
	{
		($majorRelease, $minorRelease, $ocxVersion)	= @{$client->getWebtopOcxVersion(db=> $db, userId => $client->getUserId())};
	}
	
	
	if (($is98 || $isME) && ($majorRelease > 55))
	{
		my @forcedVersion = $db->query(sql => "
			select
				required_major,
				required_minor
			from
				software_product_forced_rel
			where
				software_product_id = 3
				AND
				os_id = " . ($is98 ? "3" : "4") . "
			");
		
		$majorRelease = $forcedVersion[0][0];
		$minorRelease = $forcedVersion[0][1];
	}

	my $ocxUrl = "OCX/$majorRelease.$minorRelease/WTP.cab";

	my ($intranetAccessMethod) = $db->query(sql => "
		select
			wiam.intranet_access_method_name
		from
			w_user_intranet_access_method wuiam,
			w_intranet_access_methods wiam
		where
			wuiam.intranet_access_method_id = wiam.intranet_access_method_id
			AND user_id = '" . $client->getUserId() . "'
		");
	
	# Default to enhanced
	if (not defined($intranetAccessMethod)) {
		$intranetAccessMethod = 'Enhanced';
	}

	# Initialize some locals
	my $oem         = $tb->getOem;
	my $userId      = $client->getUserId;
	my $sessionId   = $client->getSessionId;
	my $sessionHash = $client->getSessionHash;
	my $serverName  = $ENV{'SERVER_NAME'};
	my @keyServer;
	my $keyServerPublicKey;
	my $keyServerHostname;
	
	my $oemId = $tb->getOemId();
	my $codeOemId = Pos::Webtop::Web::OEMLoader::getSkinOemId(oemId=> $oemId);
	my $oemIconSrc = "LocalWebLib/OEM/$codeOemId";
	my $oemStylesheetFileVersion = Pos::Webtop::Web::OEMLoader::getStylesheetFileVersion(oemId=> $oemId);

	@keyServer = $db->query(sql => "
		select
			a.keyserver_public_key,
			a.keyserver_hostname
		from keyservers a
			inner join keyserver_webtop_portals b on a.keyserver_id = b.keyserver_id
		where
			upper(b.webtop_portal_hostname) = upper('" . $db->escape(dirty => $serverName) . "')
		");

	if (scalar(@keyServer) > 0)
	{
		($keyServerPublicKey,$keyServerHostname) = @{ $keyServer[0] };
        
        if ($agent =~ /Mac OS/ && $agent =~ /Safari/)
        {
            $keyServerHostname = "keyserver-na.positivenetworks.net";
        }	
	}

    #
	# Spyware module HTML
	#
	my $spyware = "
		<script language='javascript' version='1.3'>

		var spywareBrand         = null;
		var spywareDefDate       = null;
		var spywareLastScanDate  = null;
		var spywareScannerStatus = null;
		var spywareLoaded        = 0;

		var spywareImageGreen    = 'LocalWebLib/status/spy_ok16.jpg';
		var spywareImageYellow   = 'LocalWebLib/status/spy_caution16.jpg';
		var spywareImageRed      = 'LocalWebLib/status/spy_warning16.jpg';

		function isSpywareLoaded()
		{
			return spywareLoaded;
		}

		function onModuleSpywareLoaded()
		{
			if (!spywareLoaded)
			{
				addMonitoredImage('Spyware', spywareImageYellow, 'Spyware Monitor Loading...');

				spywareLoaded = 1;
			}
		}

		function onModulesSpywareUnloaded()
		{
			removeMonitoredImage('Spyware');
		}

		function onModuleSpywareStatusChange(name, value)
		{
			if (name == 'Brand')
				spywareBrand = value;
			else if (name == 'DEF')
				spywareDefDate = value;
			else if (name == 'Scanner Status')
			{
				spywareScannerStatus = value;

				evalulateSpywareScannerStatus();
			}
			else if (name == 'Lastscan Date')
			{
				spywareLastScanDate = value;
			}
		}

		function evalulateSpywareScannerStatus()
		{
			if (spywareScannerStatus == 'Enabled')
				updateMonitoredImage('Spyware', spywareImageGreen, 'Spyware Scanner Enabled');
			else
				updateMonitoredImage('Spyware', spywareImageRed, 'Spyware Scanner Not Detected');
		}

		function getSpywareBrand()
		{
			return (spywareBrand == null) ? 'Unknown' : spywareBrand;
		}

		function getSpywareDefDate()
		{
			return (spywareDefDate == null) ? '' : spywareDefDate;
		}

		function getSpywareLastScanDate()
		{
			return (spywareLastScanDate == null) ? '' : spywareLastScanDate;
		}

		function getSpywareScannerStatus()
		{
			return (spywareScannerStatus == null) ? '' : spywareScannerStatus;
		}
		
	</script>
	";

	#
	# Virus module HTML
	#
	my $virus       = "
		
	<script language='javascript' version='1.3'>

		var virusBrand         = null;
		var virusDatDate       = null;
		var virusScannerStatus = null;
		var virusLoaded        = 0;

		var virusImageGreen    = 'LocalWebLib/status/shield_16.jpg';
		var virusImageYellow   = 'LocalWebLib/status/shield_caution_16.jpg';
		var virusImageRed      = 'LocalWebLib/status/shield_warning_16.jpg';

		function isVirusLoaded()
		{
			return virusLoaded;
		}

		function onModuleVirusLoaded()
		{
			if (!virusLoaded)
			{
				addMonitoredImage('Virus', virusImageYellow, 'Virus Monitor Loading...');

				virusLoaded = 1;
			}
		}

		function onModuleVirusUnloaded()
		{
			removeMonitoredImage('Virus');
		}

		function onModuleVirusStatusChange(name, value)
		{
			if (name == 'Brand')
				virusBrand = value;
			else if (name == 'DAT Date')
				virusDatDate = value;
			else if (name == 'Scanner Status')
			{
				virusScannerStatus = value;

				evalulateVirusScannerStatus();
			}
		}

		function evalulateVirusScannerStatus()
		{
			if (virusScannerStatus == 'Enabled')
				updateMonitoredImage('Virus', virusImageGreen, 'Virus Scanner Enabled');
			else
				updateMonitoredImage('Virus', virusImageRed, 'Virus Scanner Not Detected');
		}

		function getVirusBrand()
		{
			return virusBrand;
		}

		function getVirusDatDate()
		{
			return virusDatDate;
		}

		function getVirusScannerStatus()
		{
			return virusScannerStatus;
		}

	</script>

	";

	$res = "
	" . $tb->getDomJs . "

	$virus
	$spyware

	<script language='JavaScript' version='1.5'>

		var statusPopupWindow = null;
		var ocxLoaded         = false;
		var ocxOnline         = false;
		var body              = null;
		var ocx               = null;

		// 
		// User Interface
		//
		var numMonitoredImages = 0;

		function addMonitoredImage(name, initialImage, tooltip)
		{
			var imagesTable = getObjectById('monitoredImagesTable');
			var newCell;

			if (imagesTable == null)
				return;
	
			// Insert the new cell into the table
			newCell = imagesTable.rows[0].insertCell(imagesTable.rows[0].cells);

			if (newCell == null)
				return;

			newCell.innerHTML = '<span id=\"Monitored_' + name + '\" name=\"Monitored_' + name + '\"><img id=\"MonitoredImage_' + name + '\" name=\"MonitoredImage_' + name + '\" src=\"' + initialImage + '\"></span>';

			// Increment the number of monitored images
			numMonitoredImages++;

			if (numMonitoredImages > 0)
			{
				var images = getObjectById('monitoredImagesCell');
				var spacer = getObjectById('monitoredImagesCellSpacer');

				images.style.display = 'block';
				spacer.style.display = 'block';
			}
		}

		function updateMonitoredImage(name, initialImage, tooltip)
		{
			var image = getObjectById('MonitoredImage_' + name);

			if (image != null)
			{
				image.src = initialImage;

				if (tooltip != null && image.alt != null)
					image.alt = tooltip;
			}
		}

		function removeMonitoredImage(name)
		{
			var imagesTable = getObjectById('monitoredImagesTable');
			var index = 0;

			if (imagesTable == null)
				return;

			for (index = 0; index < imagesTable.rows[0].cells.length; index++)
			{
				var re = /Monitored_([[:alnum:]]+)/;
				var m;

				m = String(imagesTable.rows[0].cells[index].innerHTML).match(re);

				if ((m != null) && (m[1] == name))
				{
					imagesTable.rows[0].deleteCell(index);

					numMonitoredImages--;

					break;
				}
			}

			if (numMonitoredImages == 0)
			{
				var images = getObjectById('monitoredImagesCell');
				var spacer = getObjectById('monitoredImagesCellSpacer');

				images.style.display = 'none';
				spacer.style.display = 'none';
			}
		}

		function updateStatusImage(image)
		{
			var img = getObjectById('statusImage');

			if (img != null)
				img.src = image;
		}

		function updateStatusImageClass(cls)
		{
			if (cls == 'red')
				updateStatusImage('LocalWebLib/red_dot.jpg');
			else if (cls == 'yellow')
				updateStatusImage('LocalWebLib/yellow_dot.jpg');
			else if (cls == 'green')
				updateStatusImage('LocalWebLib/green_dot.jpg');
		}

		function updateStatusText(text)
		{
			var label = getObjectById('statusLabelText');

			if (label != null)
				label.innerHTML = '&nbsp;' + text;
		}

		function updateStatusImageText(cls, text)
		{
			updateStatusImageClass(cls);
			updateStatusText(text);
		}

		function toggleInputTrafficLight()
		{
		}

		function toggleOutputTrafficLight()
		{
		}

		function updateStatusWindowImage(image)
		{
			var img = getObjectById('statusWindowImage');

			if (img != null)
				img.src = image;
		}

		function launchStatusPopupWindow()
		{
			if ((statusPopupWindow == null) ||
			    (statusPopupWindow.closed == true))
				statusPopupWindow = window.open('main.pl?bottomFrameStatus=1&" . $client->getSessionParams() . "', 'OcxStatus', 'toolbar=no,location=no,status=no,scrollbars=no,width=380,height=340');

			if (statusPopupWindow)
				statusPopupWindow.opener = parent;
		}

		function launchSupportPopupWindow()
		{
			win = window.open('main.pl?bottomFrameSupport=1&pVwsh=$sessionHash&pVwsi=$sessionId', 'OcxSupport', 'toolbar=no,location=no,status=no,scrollbars=no,width=380,height=200');

			if (win)
				win.opener = parent
		}

		function refreshStatusPopupWindow()
		{
			if ((statusPopupWindow != null) &&
			    (!statusPopupWindow.closed))
				statusPopupWindow.refreshStatusItems();
		}

		// 
		// Core 
		//
		function initializePage()
		{
			var failed = getObjectById('intranetControlLoadFailed');

			if (failed != null)
			{
                            var ocxCounter = 0;
                            var ocxTimer = setInterval(function()
                            {
                                if(getObjectById('ocx').readyState == 4)
                                {
                                    clearInterval(ocxTimer);
                                    initializeOcx();
                                }
                                else if (ocxCounter < 5)
                                    ocxCounter++;
                                else
                                {
                                    clearInterval(ocxTimer);
                                    onOcxLoadFailure();
                                }
                            },1000)
                        }
			else
				initializeOcx();
		}

		function deinitializePage()
		{
			deinitializeOcx();
		}
" . ($mac ? "
		//
		// Start Mac applet javascript
		//

		var appletDownloadIntervalId = 0;

		var WEBTOP_POLL_INTERVAL_MSEC = 250;

		// Poll framework for events
		function pollWebtop() 
		{
			ocx.pollWebtopEvents();
		}
		
		function checkForAppletDownload() 
		{
			// Check if the applet download is complete.
			//
			if (ocx.checkForDownloadComplete() != 1) 
			{
				return;
			}

			//alert('download is complete');
			// Turn off the interval timer
			clearInterval(appletDownloadIntervalId);
			
			// Set timer for that polls for Webtop events
			setInterval('pollWebtop();', WEBTOP_POLL_INTERVAL_MSEC);
			
			setTimeout('checkBodyFrameLoaded();', 100);
		}

		function getUserAgent()
                {
                         return navigator.userAgent;
                }

		function launchMacClient()
                {
                        var id = parseInt('" . $macAppId . "', 10);
                        ocx.installExecuteClientApplication('POLICY', 2, id, 'UseDynamic');
                }

		//
		// End Mac applet javascript
		//
" : "") . "
	
		function initializeOcx()
		{
			statusPopupWindow = null;
			ocxLoaded         = false;
			ocxOnline         = false;
			body              = null;
			ocx               = null;

			ocx = getObjectById('ocx');

			if (ocx == null)
			{
				onOcxLoadFailure();
			}
			else
			{
				ocxLoaded = true;
" . ($mac ? "
				// Start the interval timer that checks if the applet download is
				// complete
				appletDownloadIntervalId = setInterval('checkForAppletDownload();', 1000);
" : "
				setTimeout('checkBodyFrameLoaded();', 100);
" ) . "
			}
		}

		function deinitializeOcx()

		{
			if (ocx != null)
				ocx.deinitialize();
		}

		function checkBodyFrameLoaded()
		{
			getBodyFrame();

			if (body != null)
			{
				updateStatusText('Connecting...');
				
				body.showProgressTable('overall', true);

				" . (((defined($keyServerHostname)) and (defined($keyServerPublicKey))) ? "
				ocx.setKeyServer('$keyServerPublicKey', '$keyServerHostname');
				" : "") . "
				
				" . ($majorRelease >= 55 ? "
				ocx.setReleaseVersion($majorRelease,$minorRelease,'webtop-$majorRelease.$minorRelease');
				" : "") . "

				ocx.initialize($sessionId, '$sessionHash', 'DisableHttpProxy DisableBrowserReconfig');
			}
			else
				setTimeout('checkBodyFrameLoaded();', 100);
		}

		//
		// Frame-to-Frame API
		//
		function getBodyFrame()
		{
			var lbody = parent.bodyFrame;

			if ((lbody == null) ||
			    (lbody.isLoaded == null) ||
			    (!lbody.isLoaded()))
				body = null;
			else
				body = lbody;

			return body;
		}

		function redirectBodyToPortal()
		{
			parent.bodyFrame.location = 'portal.pl?" . $client->getSessionParams() . "';
		}
	
		" . ($isMobile ? "
		function redirectBodyToMain()
		{
			parent.bodyFrame.location = 'main.pl?" . $client->getSessionParams() . "';
		} " : "" ) . "
	</script>

	<!--
	  -  Signon callbacks and routines
	  -->
	<script language='javascript' version='1.3'>

		var signonOverallStateRange = 0;
		var signonCurrentStateRange = 0;
		var signoffOverallStateRange;

		// 
		// Events
		//
		function onOcxLoadFailure()
		{
			updateStatusImageText('green', 'Secure connection established: Compatible mode');
			
			// Notify the top frame that we failed
			notifyLoadFailure();
		}

		function onOcxLoadSuccess()
		{
			var b = getBodyFrame();

			updateStatusWindowImage('$oemIconSrc/online.png');

			ocxOnline = true;
			
			// Redirection time if necessary
			if (b != null)  {
                                var label = getObjectById('statusLabelText' )
                                var portalBody = b.getObjectById('portalBody');

                                if(label.innerHTML.search('Corporate network security policy violated') > -1 && portalBody.style.display == 'none')
                                        setTimeout('onOcxLoadSuccess()', 1000);

                                b.checkCaptivePortal();
                        }

" . ($mac ? "
			var statusLabel = getObjectById('statusLabelText' )
                        if(statusLabel.innerHTML.search('Corporate network security policy violated') == -1) {
                                setTimeout('launchMacClient();', 5000);
                        }	
" : "" ) . "
		}

		function notifyLoadFailure()
		{
			getBodyFrame();

			if (body != null)
				body.onOcxLoadFailure();
			else
				setTimeout('notifyLoadFailure();', 1000);
		}

		function notifyCsiSignonFailure()
		{
			getBodyFrame();

			if (body != null)
				body.onCsiSignonFailure();
			else
				setTimeout('notifyCsiSignonFailure();', 1000);
		}

	</script>

	<script>
		function OnStatusChange(status)
		{
			switch (status)
			{
				case 0: // initializing
					break;
				case 1: // initialized successfully
					break;
				case 9: // connection reset
					updateStatusImageClass('red', 'Your connection was reset');
					break;
				case 10: // idle time out
					window.top.location = 'login.pl?idle=1';
					break;
				default:
					break;
			}
		}

		function OnLoadFailure()
		{
			notifyCsiSignonFailure(); // signon failed, but we did load the ocx
			onOcxLoadFailure();
		}

		function OnLoadSuccess()
		{
			onOcxLoadSuccess();
		}

		function OnInternalEvent(event)
		{
			switch (event)
			{
				case 1:
					launchSupportPopupWindow();
					break;
				default:
					break;
			}
		}

		function OnSignonOverallStateRange(range)
		{
			signonOverallStateRange = range;
		}

		function OnSignonOverallStateStep(step, text)
		{
			var b = getBodyFrame();

			if (b == null)
				return;

			b.setProgressPercent('overall', step, signonOverallStateRange);
			b.setProgressText('overall', text);
		
			// Hide the current progress table as were moving to a new overall step
			b.showProgressTable('current', false);
		}


		function OnSignonCurrentStateRange(range)
		{
			var b = getBodyFrame();

			signonCurrentStateRange = range;

			if (b == null)
				return;

			if (range > 0)
				b.showProgressTable('current', true);
		}
	
		function OnSignonCurrentStateStep(step, text)
		{
			var b = getBodyFrame();

			if (b == null)
				return;

			// Regardless of range, update the text
			if (String(text).length > 0)
				b.setProgressText('current', text);

			// If range is zero, no sense in calculating a percentage.
			if (signonCurrentStateRange == 0)
			{
				b.showProgressTable('current', false);
				return;
			}

			b.setProgressPercent('current', step, signonCurrentStateRange);

			// If the end has been reached, hide the table
			if (step >= signonCurrentStateRange)
				b.showProgressTable('current', false);

		}
	
		function OnModuleLoad(name)
		{
			if (name == 'Virus')
				onModuleVirusLoaded();
			if (name == 'Spyware')
				onModuleSpywareLoaded();
		}

		function OnModuleUnload(name)
		{
			if (name == 'Virus')
				onModuleVirusUnloaded();
			if (name == 'Spyware')
				onModuleSpywareUnloaded();
		}

		function OnModuleStatusChange(module, name, value)
		{
			if (module == 'Virus')
				onModuleVirusStatusChange(name, value);
			if (module == 'Spyware')
				onModuleSpywareStatusChange(name, value);

			// If the status name is general, this is an indication that the module's general status
			// is being updated.  As such, update the image for the module.
			if (name == 'General')
			{
				if ((value == 'green') || 
					 (value == 'yellow') ||
					 (value == 'red'))
					updateStatusImageClass(module, value);
			}
			
			// Refresh the status window if it's opened
			refreshStatusPopupWindow();
		}

	</script>
	
	<script language='javascript' for='ocx' event='OnStatusChange(status)'>
		switch (status)
		{
			case 0: // initializing
				break;
			case 1: // initialized successfully
				break;
			case 9: // connection reset
				updateStatusImageClass('red', 'Your connection was reset');
				break;
			case 10: // idle time out
				window.top.location = 'login.pl?idle=1';
				break;
			default:
				break;
		}
	</script>

	<script language='javascript' for='ocx' event='OnLoadFailure()'>
		notifyCsiSignonFailure(); // signon failed, but we did load the ocx
		onOcxLoadFailure();
	</script>

	<script language='javascript' for='ocx' event='OnLoadSuccess()'>
		onOcxLoadSuccess();
	</script>

	<script language='javascript' for='ocx' event='OnInternalEvent(event)'>
		switch (event)
		{
			case 1:
				launchSupportPopupWindow();
				break;
			default:
				break;
		}
	</script>

	<script language='javascript' for='ocx' event='OnSignonOverallStateRange(range)'>
		signonOverallStateRange = range;
	</script>

	<script language='javascript' for='ocx' event='OnSignonOverallStateStep(step, text)'>
		var b = getBodyFrame();

		if (b == null)
			return;

		b.setProgressPercent('overall', step, signonOverallStateRange);
		b.setProgressText('overall', text);
	
		// Hide the current progress table as we're moving to a new overall step
		b.showProgressTable('current', false);
	</script>

	<script language='javascript' for='ocx' event='OnSignonCurrentStateRange(range)'>
		var b = getBodyFrame();

		signonCurrentStateRange = range;

		if (b == null)
			return;

		if (range > 0)
			b.showProgressTable('current', true);
	</script>

	<script language='javascript' for='ocx' event='OnSignonCurrentStateStep(step, text)'>
		var b = getBodyFrame();

		if (b == null)
			return;

		// Regardless of range, update the text
		if (String(text).length > 0)
			b.setProgressText('current', text);

		// If range is zero, no sense in calculating a percentage.
		if (signonCurrentStateRange == 0)
		{
			b.showProgressTable('current', false);
			return;
		}

		b.setProgressPercent('current', step, signonCurrentStateRange);

		// If the end has been reached, hide the table
		if (step >= signonCurrentStateRange)
			b.showProgressTable('current', false);

	</script>


	<!-- 
	  - Module notification events 
	  -->

	<script language='javascript' for='ocx' event='OnModuleLoad(name)'>
		if (name == 'Virus')
			onModuleVirusLoaded();
		if (name == 'Spyware')
			onModuleSpywareLoaded();
	</script>

	<script language='javascript' for='ocx' event='OnModuleUnload(name)'>
		if (name == 'Virus')
			onModuleVirusUnloaded();
		if (name == 'Spyware')
			onModuleSpywareUnloaded();
	</script>

	<script language='javascript' for='ocx' event='OnModuleStatusChange(module, name, value)'>
		if (module == 'Virus')
			onModuleVirusStatusChange(name, value);
		if (module == 'Spyware')
			onModuleSpywareStatusChange(name, value);

		// If the status name is general, this is an indication that the module's general status
		// is being updated.  As such, update the image for the module.
		if (name == 'General')
		{
			if ((value == 'green') || 
			    (value == 'yellow') ||
			    (value == 'red'))
				updateStatusImageClass(module, value);
		}
		
		// Refresh the status window if it's opened
		refreshStatusPopupWindow();
	</script>


	<!-- 
	  -  Captive portal related event handlers 
	  -->
	<script language='javascript' version='1.3'>

		var cacheBackwardsMovement = true;
		var cacheForwardsMovement  = true;
		var cacheSummaryText       = null;
		var cacheDetailText        = \"\";
		var cacheCurrentStep       = 0;
		var cacheMaxSteps          = 0;
		var captivePortalized      = true;

		function setCaptivePortalized(tf)
		{
			captivePortalized = tf;

			if (tf == false)
			{
				cacheSummaryText = null;
				cacheDetailText  = null;
				cacheMaxSteps    = 0;
				cacheCurrentStep = 0;

				updateStatusImageText('green', 'Secure connection established: " . $intranetAccessMethod . " mode');
			}
			else
				updateStatusImageText('red', 'Corporate network security policy violated');
		}

		function isCaptivePortalized()
		{
			return captivePortalized;
		}

		function getCaptivePortalBackwardsMovement()
		{
			return cacheBackwardsMovement;
		}

		function getCaptivePortalForwardsMovement()
		{
			return cacheForwardsMovement;
		}

		function getCaptivePortalStepSummaryText()
		{
			return cacheSummaryText;
		}

		function getCaptivePortalStepDetailText()
		{
			return cacheDetailText;
		}

		function getCaptivePortalCurrentStep()
		{
			return cacheCurrentStep;
		}

		function getCaptivePortalMaxSteps()
		{
			return cacheMaxSteps;
		}

	</script>

	<script>
		function OnCaptivePortalSetBackwardsMovement(enable)
		{
			var b = getBodyFrame();

			cacheBackwardsMovement = enable;

			if (b != null)
				b.onCaptivePortalSetBackwardsMovement(enable);
		}

		function OnCaptivePortalSetForwardsMovement(enable)
		{
			var b = getBodyFrame();

			cacheForwardsMovement = enable;

			if (b != null)
				b.onCaptivePortalSetForwardsMovement(enable);
		}

		function OnCaptivePortalSetStepSummaryText(summary)
		{
			var b = getBodyFrame();

			cacheSummaryText = summary;

			if (b != null)
				b.onCaptivePortalSetStepSummaryText(summary);
		}

		function OnCaptivePortalSetStepSummaryText(summary)
		{
			var b = getBodyFrame();

			cacheSummaryText = summary;

			if (b != null)
				b.onCaptivePortalSetStepSummaryText(summary);
		}

		function OnCaptivePortalSetStepDetailText(detail)
		{
			var b = getBodyFrame();

			cacheDetailText = detail;

			if (b != null)
				b.onCaptivePortalSetStepDetailText(detail);
		}

		function OnCaptivePortalSetCurrentStep(step)
		{
			var b = getBodyFrame();

			cacheCurrentStep = step;

			if (b != null)
				b.onCaptivePortalSetCurrentStep(step);
		}

		function OnCaptivePortalSetMaxSteps(steps)
		{
			var b = getBodyFrame();

			var prevMaxSteps = cacheMaxSteps;

			cacheMaxSteps = steps;

			// If we have steps, we're in the captive portal
			if (steps)
				setCaptivePortalized(true);
			else
				setCaptivePortalized(false);

			// Kick off the resolution process if we're starting
			if (steps && prevMaxSteps == 0)
				onCaptivePortalResolutionEvent('start', 0);

			// If the body frame is loaded on the portal, refresh the maximum steps.  Otherwise,
			// if the body frame is not the portal screen, redirect to the portal.
			if (b != null)
			{
				// Call the body's portal handler
				b.onCaptivePortalSetMaxSteps(steps);
			}
			else if (isCaptivePortalized())
				redirectBodyToPortal();
		}

		function OnCaptivePortalStepFinished(tf)
		{
			var b = getBodyFrame();

			if (b != null)
				b.onCaptivePortalStepFinished(tf);
		}

		function OnCaptivePortalResolutionFinished(tf)
		{
			var b = getBodyFrame();

			// We're not longer in the captive portal
			setCaptivePortalized(false);
" . ($mac ? "
                        setTimeout('launchMacClient();', 5000);
" : "" ) . "
			
			if (b != null)
				b.onCaptivePortalResolutionFinished(tf);
		}

	</script>

	<script language='javascript' for='ocx' event='OnCaptivePortalSetBackwardsMovement(enable)'>
		var b = getBodyFrame();

		cacheBackwardsMovement = enable;

		if (b != null)
			b.onCaptivePortalSetBackwardsMovement(enable);
	</script>

	<script language='javascript' for='ocx' event='OnCaptivePortalSetForwardsMovement(enable)'>
		var b = getBodyFrame();

		cacheForwardsMovement = enable;

		if (b != null)
			b.onCaptivePortalSetForwardsMovement(enable);
	</script>

	<script language='javascript' for='ocx' event='OnCaptivePortalSetStepSummaryText(summary)'>
		var b = getBodyFrame();

		cacheSummaryText = summary;

		if (b != null)
			b.onCaptivePortalSetStepSummaryText(summary);
	</script>

	<script language='javascript' for='ocx' event='OnCaptivePortalSetStepSummaryText(summary)'>
		var b = getBodyFrame();

		cacheSummaryText = summary;

		if (b != null)
			b.onCaptivePortalSetStepSummaryText(summary);
	</script>

	<script language='javascript' for='ocx' event='OnCaptivePortalSetStepDetailText(detail)'>
		var b = getBodyFrame();

		cacheDetailText = detail;

		if (b != null)
			b.onCaptivePortalSetStepDetailText(detail);
	</script>

	<script language='javascript' for='ocx' event='OnCaptivePortalSetCurrentStep(step)'>
		var b = getBodyFrame();

		cacheCurrentStep = step;

		if (b != null)
			b.onCaptivePortalSetCurrentStep(step);
	</script>

	<script language='javascript' for='ocx' event='OnCaptivePortalSetMaxSteps(steps)'>
		var b = getBodyFrame();

		var prevMaxSteps = cacheMaxSteps;

		cacheMaxSteps = steps;

		// If we have steps, we're in the captive portal
		if (steps)
			setCaptivePortalized(true);
		else
			setCaptivePortalized(false);

		// Kick off the resolution process if we're starting
		if (steps && prevMaxSteps == 0)
			onCaptivePortalResolutionEvent('start', 0);

		// If the body frame is loaded on the portal, refresh the maximum steps.  Otherwise,
		// if the body frame is not the portal screen, redirect to the portal.
		if (b != null)
		{
			// Call the body's portal handler
			b.onCaptivePortalSetMaxSteps(steps);
		}
		else if (isCaptivePortalized())
			redirectBodyToPortal();
	</script>

	<script language='javascript' for='ocx' event='OnCaptivePortalStepFinished(tf)'>
		var b = getBodyFrame();

		if (b != null)
			b.onCaptivePortalStepFinished(tf);
	</script>

	<script language='javascript' for='ocx' event='OnCaptivePortalResolutionFinished(tf)'>
		var b = getBodyFrame();

		// We're not longer in the captive portal
		setCaptivePortalized(false);
		
		if (b != null)
			b.onCaptivePortalResolutionFinished(tf);
	</script>

	<html>
		<meta http-equiv='pragma' content='no-cache'/>
		<link rel='STYLESHEET' type='text/css' href='LocalWebLib/stylesheet.css'>
		<link rel='STYLESHEET' type='text/css' href=\"$oemIconSrc/stylesheet.css?version='$oemStylesheetFileVersion'\">

		<style type='text/css'>
			.RAISETABLE  { border: 2px solid #d4d0c8; border-left: 0px; border-right: 0xp; border-bottom: 0px; font-size: 11px; font-family: tahoma,sans-serif; background-color: #d4d0c8 }
			.RAISECELL   { border: 1px solid; border-left: 1px solid #808080; border-right: 1px solid white; border-bottom: 1px solid white; border-top: 1px solid #808080 }
			.RAISESPACER { margin: 0px; padding: 0px; width: 2px }
		</style>

		<body onLoad='initializePage()' onUnload='deinitializePage()'>
			<table cellspacing='0' cellpadding='0' width='100%' valign='center' class='RAISETABLE'>
				<tr>
					<td id='monitoredImagesCell' name='monitoredImagesCell' class='RAISECELL' style='display: none'>
						<nobr>
							<table cellpadding='0' cellspacing='1' id='monitoredImagesTable' name='monitoredImagesTable' border: none'>
								<tr>
								</tr>
							</table>
						</nobr>
					</td>
					<td id='monitoredImagesCellSpacer' name='monitoredImagesCellSpacer' class='RAISESPACER' style='display: none'>
						<img border='0' src='LocalWebLib/space.gif' width='2'>
					</td>
					<td id='statusImageCell' name='statusImageCell' class='RAISECELL'>
						<img id='statusImage' name='statusImage' src='LocalWebLib/yellow_dot.jpg'>
					</td>
					<td class='RAISESPACER'>
						<img border='0' src='LocalWebLib/space.gif' width='2'>
					</td>
					<td id='statusLabelCell' name='statusLabelCell' class='RAISECELL' width='100%'>
						<div id='statusLabelText' name='statusLabelText'>
							&nbsp;" . ($isMobile ? "Mobile Webtop" : "Initializing..." ) . "
						</div>
					</td>
					<td class='RAISESPACER'>
						<img border='0' src='LocalWebLib/space.gif' width='2'>
					</td>
					<td id='trafficLightsCell' name='trafficLightsCell' class='RAISECELL'>
						<nobr>
						" . ($isMobile ? "<a href='javascript:redirectBodyToMain();'>" : "<a href=\"javascript:launchStatusPopupWindow()\">" ) . "
							<img id='statusWindowImage' name='statusWindowImage' src='$oemIconSrc/offline.png' width='16' height='16' border='0'></a>
						</nobr>
					</td>
				</tr>
			</table>
			
			" . ($mac ? "
				<applet id='ocx' name='ocx' MAYSCRIPT code=\"WebtopApplet\" archive=\"$jarUrl\" height=\"100\" width=\"500\" align=\"center\">
					<param name =\"ServerFile\" value=\"$coreUrl\">
					<param name =\"Checksum\" value=\"$coreSha1\">
					<div id='appletFailed'/>
				</applet>" : "
				<object id='ocx' name='ocx' classid=\"clsid:03CC02A3-6098-4d0e-89D9-71041E7F5F86\" codebase=\"$ocxUrl#Version=$ocxVersion\" height=\"0\" width=\"0\" align=\"center\">
					<input id='intranetControlLoadFailed' name='intranetControlLoadFailed' type='hidden' name='intranetControlLoadFailed' value='1'/>
				</object> " ) . "


			</body>
		</html>
	
	<script language='javascript' version='1.3'>

		function isStatusLoaded()
		{
			return 1;
		}

		function isOcxLoaded()
		{
			return ocxLoaded;
		}

		function isOcxOnline()
		{
			return ocxOnline;
		}

		// Called when a user performs an event, such as back, next, cancel, etc.
		function onCaptivePortalResolutionEvent(event, addend)
		{
			ocx.signalCaptivePortalEvent(event, addend);
		}

	</script>
	";

	return $res;
}

sub getFrameStatusHtml
{
	my ($tb) = @{{@_}}{qw/tb/};
	my $oemId = $tb->getOemId();
	my $res;
	my $oem;
	my $codeOemId = Pos::Webtop::Web::OEMLoader::getSkinOemId(oemId=> $oemId);
	my $oemIconSrc = "LocalWebLib/OEM/$codeOemId";

	$oem = $tb->getOem();

	$res = "
		" . $tb->getDomJs . "
		
		<html>
			<title>" . $oem->getSetting(setting => 'webtopProductName') . " - Status</title>

			<script language='javascript' version='1.3'>

				var numItems = 0;

				function getStatusFrame()
				{
					return window.opener.statusFrame;
				}
		
				function refreshStatusItems()
				{
					var status = getStatusFrame();
					var online;

					if (status == null)
						online = false;
					else
					{
						if (status.isVirusLoaded())
							updateVirusStatus(status);
						if (status.isSpywareLoaded())
							updateSpywareStatus(status);

						online = status.isOcxOnline();
					}

					if (online)
						updateOverallStatusImageText('Online', '$oemIconSrc/online.png');
					else
						updateOverallStatusImageText('Online', '$oemIconSrc/offline.png');

					if (numItems == 0 && !online)
						updateNoItems();
				}

				function createStatusItem(name)
				{
					var exists = getStatusItemImage(name);

					if (exists == null)
					{
						var statusItems = getObjectById('statusItems');
						var statusRow   = statusItems.insertRow(0);
						var imageCell   = statusRow.insertCell(0);
						var textCell    = statusRow.insertCell(1);
	
						imageCell.innerHTML = '<img id=\\'StatusImage_' + name + '\\' src=\\'\\'>';
						textCell.innerHTML  = '<span id=\\'StatusText_' + name + '\\'></span>';

						numItems++;
					}

					return 1;
				}

				function getStatusItemImage(name)
				{
					return getObjectById('StatusImage_' + name);
				}

				function getStatusItemText(name)
				{
					return getObjectById('StatusText_' + name);
				}

				function updateOverallStatusImageText(text, image)
				{
					var textElement = getObjectById('overallStatusText');
					var imageElement = getObjectById('overallStatusImage');

					if (textElement != null)
						textElement.innerHTML = '<b>' + text + '</b>';

					if (imageElement != null)
						imageElement.src = image;
				}

				function updateNoItems()
				{
					var statusItems = getObjectById('statusItems');
					var statusRow   = statusItems.insertRow(0);
					var textCell    = statusRow.insertCell(0);

					textCell.innerHTML  = 'Compatible mode.  Control/Plugin/Applet not loaded.  Additional features may be available if not enabled in the browser.';
				}

				//
				// Virus module status row
				//
				function updateVirusStatus(status)
				{
					var scannerStatus = status.getVirusScannerStatus();
					var image;
					var text;

					createStatusItem('Virus');
					
					image = getStatusItemImage('Virus');
					text  = getStatusItemText('Virus');

					if (scannerStatus == 'Enabled')
						image.src = 'LocalWebLib/status/shield_okay_64.jpg';
					else
						image.src = 'LocalWebLib/status/shield_warning_64.jpg';

					text.innerHTML = '<nobr><b>Brand:</b> ' + status.getVirusBrand() + '<br/>' +
					                 '<b>DAT Date:</b> ' + status.getVirusDatDate() + '<br/>' +
					                 '<b>Scanner:</b> ' + status.getVirusScannerStatus() + '<br/>' +
					                 '</nobr>';
				}
				
				//
				// Spyware module status row
				//
				function updateSpywareStatus(status)
				{
					var scannerStatus = status.getSpywareScannerStatus();
					var image;
					var text;

					createStatusItem('Spyware');

					image = getStatusItemImage('Spyware');
					text = getStatusItemText('Spyware');

					if(scannerStatus == 'Enabled')
						image.src = 'LocalWebLib/status/spy_ok64.jpg';
					else
						image.src = 'LocalWebLib/status/spy_warning64.jpg';

					text.innerHTML = '<nobr><b>Brand:</b> ' + status.getSpywareBrand() + '<br/>' +
					                 '<b>Scanner:</b> ' + status.getSpywareScannerStatus() + '<br/>' +
										  '<b>DEF Date:</b> ' + status.getSpywareDefDate() + '<br/>' +
										  '<b>Last Scan Date:</b> ' + status.getSpywareLastScanDate() + '<br/>' +
					                 '</nobr>';
				}
			</script>

			<table cellspacing='0' cellpadding='0' width='100%' style='font-size: 8pt; font-family: \"Helvetica\", \"Arial\", \"Verdana\", sans-serif; color: black;'>
				<tr>
					<td align='center' style='background-color: #c6c6c6' width='60' valign='top'>
						&nbsp;
					</td>
					<td align='center' valign='top' width='300'>
						<table cellspacing='0' cellpadding='0' style='font-size: 8pt; font-family: \"Helvetica\", \"Arial\", \"Verdana\", sans-serif; color: black;' width='100%'>
							<tr>
								<td>
									&nbsp;
								</td>
								<td style='background-color: #c6c6c6' align='center' width='100%'>
									<b>" . $oem->getSetting(setting => 'webtopProductName') . " Modules</b>
								</td>
								<td>
									&nbsp;
								</td>
							</tr>
						</table>
					</td>
				</tr>
				<tr>
					<td align='center' style='background-color: #c6c6c6' width='60' height='239' valign='top'>
						<img id='overallStatusImage' name='overallStatusImage' src='$oemIconSrc/offline.png' width=25 height=25>
						<br/>
						Status:<br/>
						<span id='overallStatusText' name='overallStatusText' style='font-size: 11px'>
						</span>
					</td>
					<td align='center' valign='top'>
						<br/>
						<table id='statusItems' name='statusItems' cellpadding='2' cellspacing='2' style='font-size: 8pt; font-family: \"Helvetica\", \"Arial\", \"Verdana\", sans-serif; color: black;'>
						</table>
					</td>
				</tr>
				<tr>
					<td colspan='2' width='100%'>
						<img src='$oemIconSrc/ContentModulePreviewBoxB.png' width='100%' height='11' border='0'>
					</td>
				</tr>
				<tr>
					<td colspan='2'>
						<table  cellspacing='0' cellpadding='0' style='font-size: 8pt; font-family: \"Helvetica\", \"Arial\", \"Verdana\", sans-serif; color: black;'>
							<tr>
								<td align='left' width='100%'>
							".	
								( $oemId != 20 && $oemId != 28 ? "
								<b>Technical Support:</b> <br/>
									&nbsp;&nbsp;" . $oem->getSetting(setting => 'customerServicePhone') . "<br/>
									&nbsp;&nbsp;<a href='" . $oem->getSetting(setting => 'supportEmail') . "' target='_blank'>Email Support</a><br/>
									&nbsp;&nbsp;<a href='http://server.iad.liveperson.net/hc/45311511/?cmd=file&file=visitorWantsToChat&site=45311511&byhref=1&imageUrl=http://www.positivenetworks.com/images/client-uploads/sidebar/images/contact-sidebar_03.jpg'>Live Chat</a><br/>
								" : "" ) 
							
							."
							".	
								( $oemId == 28 ? "
								<b>Technical Support:</b> <br/>
									&nbsp;&nbsp;" . $oem->getSetting(setting => 'customerServicePhone') . "<br/>
									&nbsp;&nbsp;<a href='" . $oem->getSetting(setting => 'supportEmail') . "' target='_blank'>Email Support</a><br/>
								" : "" ) 
							
							."
								</td>
								<td align='right'>
									<nobr>
									<input type='button' value='Help' onClick='window.open(\"" . $oem->getSetting(setting => 'helpUrl') . "\")'>&nbsp;&nbsp;
									<input type='button' value='Close' onClick='window.close();'>
									</nobr>
								</td>
							</tr>
						</table>
					</td>
				<tr/>
			</table>

			<script language='javascript' version='1.3'>

				refreshStatusItems();

			</script>

		</html>

	";

	return $res;
}

sub getFrameSupportHtml
{
	my ($tb) = @{{@_}}{qw/tb/};
	my $oemId = $tb->getOemId();
	my $res;
	my $oem;
	my $codeOemId = Pos::Webtop::Web::OEMLoader::getSkinOemId(oemId=> $oemId);
	my $oemIconSrc = "LocalWebLib/OEM/$codeOemId";

	$oem = $tb->getOem();

	$res = "
	
		" . $tb->getDomJs . "
		
		<script language='javascript' version='1.3'>

			var errorText = 'Your browser does not support this feature.  To proceed, please launch Internet Explorer and sign back into " . $oem->getSetting(setting=> 'webtopProductName') . ".';

			function getOcx()
			{
				var ocx = getObjectById('ocx', window.opener.statusFrame.document);

				if (!window.opener.statusFrame.isOcxLoaded())
					ocx = null;
				
				return ocx;
			}

			function getOcxOnline()
			{
				var ocx = getOcx();

				if (!window.opener.statusFrame.isOcxOnline())
					ocx = null;

				return ocx;
			}
			
			function installApplication(appId) {

				var locx = getOcxOnline();

				if (locx != null)
					locx.installApplication(appId);
				else
					alert(errorText);

			}

		</script>

		<html>
			<title>Send Logs</title>

			<table cellspacing='0' cellpadding='0' width='100%' style='font-size: 8pt; font-family: \"Helvetica\", \"Arial\", \"Verdana\", sans-serif; color: black;'>
				<tr>
					<td style='background-color: #c6c6c6' align='center' width='100%'>
						<b>Support Request</b>
					</td>
				</tr>
				<tr>
					<td width='100%'>
						<br/> 
						The " . $oem->getSetting(setting => "rebrandName") . " Support Desk wants to
						automatically capture logs to troubleshoot a problem, but it
						appears the Support Tool is not installed. Please install it,
						then sign on again. Click <a href=\"javascript:installApplication(862);\">here</a> to install the Support Tool.
						<br/>
						<br/>
					</td>
				</tr>
				<tr>
					<td>
						<table  cellspacing='0' cellpadding='0' style='font-size: 8pt; font-family: \"Helvetica\", \"Arial\", \"Verdana\", sans-serif; color: black;'>
							<tr>
								<td align='left' width='100%'>
							".	
								( $oemId != 20 and $oemId != 28? "
								<b>Technical Support:</b> <br/>
									&nbsp;&nbsp;" . $oem->getSetting(setting => 'customerServicePhone') . "<br/>
									&nbsp;&nbsp;<a href='" . $oem->getSetting(setting => 'supportEmail') . "' target='_blank'>Email Support</a><br/>
									&nbsp;&nbsp;<a href='http://server.iad.liveperson.net/hc/45311511/?cmd=file&file=visitorWantsToChat&site=45311511&byhref=1&imageUrl=http://www.positivenetworks.com/images/client-uploads/sidebar/images/contact-sidebar_03.jpg'>Live Chat</a><br/>
								" : "" ) 
							
							."
							".	
								( $oemId == 28 ? "
								<b>Technical Support:</b> <br/>
									&nbsp;&nbsp;" . $oem->getSetting(setting => 'customerServicePhone') . "<br/>
									&nbsp;&nbsp;<a href='" . $oem->getSetting(setting => 'supportEmail') . "' target='_blank'>Email Support</a><br/>
								" : "" ) 
							
							."
								</td>
								<td align='right'>
									<nobr>
									<input type='button' value='Help' onClick='window.open(\"" . $oem->getSetting(setting => 'helpUrl') . "\")'>&nbsp;&nbsp;
									<input type='button' value='Close' onClick='window.close();'>
									</nobr>
								</td>
							</tr>
						</table>
					</td>
				<tr/>
			</table>

		</html>
		";

	return $res;
}

1;