#!/usr/bin/perl -I.

use strict;
use Pos::Webtop::Web::ContentModule;
use Pos::Webtop::OcxLauncher;
use URI::Escape;

package Pos::Webtop::Web::ContentModule::RemoteDesktop;

our $timeoutMinutes = 10;

our @ISA = qw(
	Pos::Webtop::Web::ContentModule
);

sub new 
{
	my $this = shift;
	my $class = ref($this) || $this;
	my ($self) = @{{@_}}{qw/self/};

	if ( not defined $self )
	{
		$self = {};
		bless($self,$class);
	}

	# setup base class 
	my %args = @_;
	$args{'self'} = $self;
	Pos::Webtop::Web::ContentModule->new( %args );

	return $self;	
}

sub canManuallyConnectRemoteDesktop
{
	my $self = shift;
	my $tb = $self->getToolBox();
	my $client = $tb->getClient();
	
	if ( not defined( $self->{'canManuallyConnectRemoteDesktop'} ) )
	{
		my $moduleAccess = $client->getAllowedContentModules();
		
		$self->{'canManuallyConnectRemoteDesktop'} = $moduleAccess->{'RemoteDesktop'}->{'sm_manuallyConnect'};
	}

	return $self->{'canManuallyConnectRemoteDesktop'};
}

sub canInstallRemoteDesktop
{
	my $self = shift;
	my $tb = $self->getToolBox();
	my $client = $tb->getClient();
	
	if ( not defined( $self->{'canInstallRemoteDesktop'} ) )
	{
		my $moduleAccess = $client->getAllowedContentModules();
		
		$self->{'canInstallRemoteDesktop'} = $moduleAccess->{'RemoteDesktop'}->{'sm_installAgent'};
	}

	return $self->{'canInstallRemoteDesktop'};
}

# (pure virtual defined in Pos::Webtop::Web::ContentModule)
sub main
{
	my $self = shift;
	my $toolBox = $self->getToolBox();
	my $client = $toolBox->getClient();
	my $cgi = $toolBox->getCgi();
	my $db = $toolBox->getWebtopDbReader();
	my $ret = undef;

	my $action = $cgi->param('action');

	$client->checkSession();

	# if the user was clicked sign off while they were at the Remote Desktop page
	# this makes sure that if they are not using the activex that they get returned 
	# to the download page instead of the main remote desktop page and stuff
	(!$client->isWebtopVpnConnectionEstablished(tb=>$toolBox, db=>$db) && !defined($action)) and $action = "newDesktop";
	
	my ($rdaAllowed) = $db->query( sql => "
				SELECT can_use_rda
				FROM user_abilities
				WHERE user_id = '" . $client->getUserId() . "'
			");
	
	(!$client->isWebtopVpnConnectionEstablished(tb=>$toolBox, db=>$db) && !$self->canInstallRemoteDesktop()) and $rdaAllowed = 0;

	$rdaAllowed = 1 unless defined $rdaAllowed;

	if ( ! $rdaAllowed )
	{
		my $p = $toolBox->getPage();
		print $p->getHeaderHtml(title => "Webtop: Remote Desktop: Disabled");
		print Pos::Webtop::OcxLauncher::getLauncherHtml(tb => $toolBox);
		print "<b><center>Remote Desktop is currently disabled</center></b>\n";
		print $p->getFooterHtml();
		return;
	}

	if (defined($action)) 
	{
		if ($action eq 'newDesktop') 
		{

			my $installNow   = $cgi->param('installNow');
			my $currVersion  = $cgi->param('currVersion');
	
			$self->newDesktop(
						installNow    => $installNow,
						currVersion   => $currVersion);

		} 
		elsif ($action eq 'removeComputer') 
		{
			my $okay         = $cgi->param('okay');
			my $computerName = $cgi->param('computerName');
			my $computerId   = $cgi->param('computerId');

			$self->removeComputer(
						computerName  => $computerName,
						computerId    => $computerId,
						okay          => $okay);

		} 
		elsif ($action eq 'renameComputer') 
		{
			my $okay         = $cgi->param('okay');
			my $computerName = $cgi->param('computerName');
			my $computerId   = $cgi->param('computerId');
			my $wantCancel   = $cgi->param('Cancel');
		
			$self->renameComputer(
						computerName  => $computerName,
						computerId    => $computerId,
						okay          => $okay,
						wantCancel    => $wantCancel);

	
		} 
		elsif ($action eq 'trouble') 
		{
			$self->showTroubleHelp();
		} 
		else 
		{
			$self->printMainPage();
		}
	} 
	else 
	{
		$self->printMainPage();
	}

	return 1;
}

# (pure virtual defined in Pos::Webtop::Web::ContentModule)
sub getPreviewHtml
{
	my $self           = shift;
	my $tb             = $self->getToolBox();
	my $db             = $tb->getWebtopDbReader();
	my $client         = $tb->getClient();
	my $activeXConnected = $client->isWebtopVpnConnectionEstablished(db=> $db) && !$client->isMacWebtop();
	my $ret            = undef;

	# TODO: the dates here should probably be timestamp with timezone
	my @computersOnline = $db->query(sql => "
			select
				w_user_computer_id,
				computer_name,
				RAWIP32_TO_DOTTED_QUAD(computer_ip),
				rda_software_id
			from
				w_user_computers
			where
				last_update > " .  $db->getCurrentTimeStampString() . 
				( (Pos::defaults::isPostgresDb()) ? "- interval '$timeoutMinutes Minutes'" 
						: "- $timeoutMinutes/(24 * 60)" ) . "
				AND user_id = '" . $client->getUserId . "'
			order by
				computer_name
			asc");

	my @computersOffline = $db->query(sql => "
			select
				computer_name,
				RAWIP32_TO_DOTTED_QUAD(computer_ip),
				rda_software_id
			from
				w_user_computers
			where
				last_update <= " . $db->getCurrentTimeStampString() .
				( (Pos::defaults::isPostgresDb()) ? " - interval '$timeoutMinutes Minutes'" 
						: " - $timeoutMinutes/(24 * 60)" ) . "
				AND user_id = '" . $client->getUserId . "'
			order by
				computer_name
			asc");

	my @computersShared = $db->query(sql => "
			select
				agent_name,
				agent_ip,
				rda_software_id,
				agent_port
			from
				w_user_shared_rda
			where
				user_id = '" . $client->getUserId . "'
				and agent_ip is not null
			order by
				agent_name
			asc
			");

	my ($rdaAllowed) = $db->query( sql => "
				SELECT can_use_rda
				FROM user_abilities
				WHERE user_id = '" . $client->getUserId() . "'
			");

	if(!defined $rdaAllowed)
	{
		$rdaAllowed = 1;
	}

	$ret = $self->getPreviewHeader();

	$ret .= "
		<center>
			<table border='0' width='100%' cellspacing='1' cellpadding='0'>
				<tr>
					<td class='CLMPREVIEWDEF' align='left'>
			";

	if ($rdaAllowed == 0) 
	{
		$ret .= "<span class='INFODEF'>REMOTE DESKTOP IS CURRENTLY DISABLED.</span><br/>";
	}
	elsif ((scalar(@computersOnline) == 0 && scalar(@computersOffline) == 0 && scalar(@computersShared) == 0) || !$activeXConnected) 
	{

	} 
	else 
	{

		$ret .= "<b>Click on a computer to connect to a remote desktop:</b><br/><br/>

					<table border='0' width='100%' cellspacing='0' cellpadding='0'>
					";

		foreach my $computer (@computersOnline) 
		{

			my ($computerId, $computerName, $computerIp, $rdaSoftwareId) = @{ $computer };

			my $cleanName = $computerName;
			
			$cleanName =~ s/\\/\\\\/g;
			$cleanName =~ s/\'/\\\'/g;

			if ($rdaSoftwareId == 1)
			{

				$ret .= "	
							<tr>
								<td class='CLMPREVIEWTD4' align='right' width='10%'>
									<nobr>&nbsp;&nbsp;&nbsp;<a href=\"javascript:popupWindowVnc('$computerIp','5900','" . HTML::Entities::encode($cleanName) . "','0');\" border='0'><img src='LocalWebLib/computerIcon.gif' border='0'></a></nobr>
								</td>
								<td class='CLMPREVIEWTD4' align='left' width='90%'>
									&nbsp;<a class='CLMPREVIEWTD4' href=\"javascript:popupWindowVnc('$computerIp','5900','" . HTML::Entities::encode($cleanName) . "','0');\">" . HTML::Entities::encode($computerName) . "</a>
								</td>
							</tr>
						";
			}
			elsif ($rdaSoftwareId == 2)
			{
					$ret .= "	
							<tr>
								<td class='CLMPREVIEWTD4' align='right' width='10%'>
									<nobr>&nbsp;&nbsp;&nbsp;<a href=\"javascript:popupWindowXPRDA('$computerIp','3389','" . HTML::Entities::encode($cleanName) . "','0');\" border='0'><img src='LocalWebLib/xpremotedesktop.gif' border='0'></a></nobr>
								</td>
								<td class='CLMPREVIEWTD4' align='left' width='90%'>
									&nbsp;<a class='CLMPREVIEWTD4' href=\"javascript:popupWindowXPRDA('$computerIp','3389','" . HTML::Entities::encode($cleanName) . "','0');\">" . HTML::Entities::encode($computerName) . "</a>
								</td>
							</tr>
						";
			}
			else
			{
				$ret .= "	
							<tr>
								<td class='CLMPREVIEWTD4' align='right' width='10%'>
									<nobr>&nbsp;&nbsp;&nbsp;<a href=\"javascript:popupWindowVnc('$computerIp','5900','" . HTML::Entities::encode($cleanName) . "','0');\" border='0'><img src='LocalWebLib/computerIcon.gif' border='0'></a></nobr>
								</td>
								<td class='CLMPREVIEWTD4' align='left' width='90%'>
									&nbsp;<a class='CLMPREVIEWTD4' href=\"javascript:popupWindowVnc('$computerIp','5900','" . HTML::Entities::encode($cleanName) . "','0');\">" . HTML::Entities::encode($computerName) . "</a>
								</td>
							</tr>
						";

			}

		}

		$ret .= "</table>
					<table border='0' width='100%' cellspacing='0' cellpadding='0'>";
	
		foreach my $computer (@computersShared) {

			my ($computerName, $computerIp, $rdaSoftwareId, $port) = @{ $computer };

			my $cleanName = $computerName;

			$cleanName =~ s/\\/\\\\/g;
			$cleanName =~ s/\'/\\\'/g;

			if ($rdaSoftwareId == 1)
			{
				(!defined($port) || !length($port)) and $port = "5900";
				$ret .= "
							<tr>
								<td class='CLMPREVIEWTD4' align='right' width='10%'>
									<nobr>&nbsp;&nbsp;&nbsp;<a href=\"javascript:popupWindowVnc('$computerIp','$port','" . HTML::Entities::encode($cleanName) . "','0');\" border='0'><img src='LocalWebLib/computerIcon.gif' border='0'></a></nobr>
								</td>
								<td class='CLMPREVIEWTD4' align='left' width='90%'>
									&nbsp;<a class='CLMPREVIEWTD4' href=\"javascript:popupWindowVnc('$computerIp','$port','" . HTML::Entities::encode($cleanName) . "','0');\">" . HTML::Entities::encode($computerName) . "</a> (shared)
								</td>
							</tr>
							";
			}
			elsif ($rdaSoftwareId == 2)
			{
				(!defined($port) || !length($port)) and $port = "3389";
				$ret .= "
							<tr>
								<td class='CLMPREVIEWTD4' align='right' width='10%'>
									<nobr>&nbsp;&nbsp;&nbsp;<a href=\"javascript:popupWindowXPRDA('$computerIp','$port','" . HTML::Entities::encode($cleanName) . "','0');\" border='0'><img src='LocalWebLib/xpremotedesktop.gif' border='0'></a></nobr>
								</td>
								<td class='CLMPREVIEWTD4' align='left' width='90%'>
									&nbsp;<a class='CLMPREVIEWTD4' href=\"javascript:popupWindowXPRDA('$computerIp','$port','" . HTML::Entities::encode($cleanName) . "','0');\">" . HTML::Entities::encode($computerName) . "</a> (shared)
								</td>
							</tr>
							";
			}
			else
			{
				$ret .= "
							<tr>
								<td class='CLMPREVIEWTD4' align='right' width='10%'>
									<nobr>&nbsp;&nbsp;&nbsp;<a href=\"javascript:popupWindowVnc('$computerIp','5900','" . HTML::Entities::encode($cleanName) . "','0');\" border='0'><img src='LocalWebLib/computerIcon.gif' border='0'></a></nobr>
								</td>
								<td class='CLMPREVIEWTD4' align='left' width='90%'>
									&nbsp;<a class='CLMPREVIEWTD4' href=\"javascript:popupWindowVnc('$computerIp','5900','" . HTML::Entities::encode($cleanName) . "','0');\">" . HTML::Entities::encode($computerName) . "</a> (shared)
								</td>
							</tr>
							";
			}

		}

		$ret .= "</table>
					<table border='0' width='100%' cellspacing='0' cellpadding='0'>";
		
		foreach my $computer (@computersOffline) {

			my ($computerName, $computerIp, $rdaSoftwareId) = @{ $computer };

			if( $rdaSoftwareId == 1)
			{

				$ret .= "
							<tr>
								<td class='CLMPREVIEWDEF' align='right' width='10%' valign='middle'>
									<nobr>&nbsp;&nbsp;&nbsp;<img src='LocalWebLib/computerIcon.gif' border='0'></nobr>
								</td>
								<td class='CLMPREVIEWDEF' align='left' width='90%' valign='middle'>
									<span style='color: #999999'>
										&nbsp;<span style='font-size: 8pt'>" . HTML::Entities::encode($computerName) . "</span> (offline)
									</span>
								</td>
							</tr>
							";
			}
			elsif ($rdaSoftwareId == 2)
			{
					$ret .= "
							<tr>
								<td class='CLMPREVIEWDEF' align='right' width='10%' valign='middle'>
									<nobr>&nbsp;&nbsp;&nbsp;<img src='LocalWebLib/xpremotedesktop.gif' border='0'></nobr>
								</td>
								<td class='CLMPREVIEWDEF' align='left' width='90%' valign='middle'>
									<span style='color: #999999'>
										&nbsp;<span style='font-size: 8pt'>" . HTML::Entities::encode($computerName) . "</span> (offline)
									</span>
								</td>
							</tr>
							";
			}
			else
			{
				$ret .= "
							<tr>
								<td class='CLMPREVIEWDEF' align='right' width='10%' valign='middle'>
									<nobr>&nbsp;&nbsp;&nbsp;<img src='LocalWebLib/computerIcon.gif' border='0'></nobr>
								</td>
								<td class='CLMPREVIEWDEF' align='left' width='90%' valign='middle'>
									<span style='color: #999999'>
										&nbsp;<span style='font-size: 8pt'>" . HTML::Entities::encode($computerName) . "</span> (offline)
									</span>
								</td>
							</tr>
							";

			}
			
		}

		$ret .= "</table>";
	}
	
	$ret .= "
					</td>
				</tr>
			</table>
		</center>
	";


	if($rdaAllowed == 1)
	{

		$ret .= "
				<br/>
	
				<table border='0' width='100%'>
					<tr>
		";

		if ($self->canInstallRemoteDesktop())
		{

			$ret .="
						<td class='CLMPREVIEWTD4' align='left'>
							" . $client->getFormGetCode(
										text   => 'Install a Remote Desktop Agent',
										values => [
											{
												name  => 'module',
												value => 'RemoteDesktop'
											},
											{
												name  => 'action',
												value => 'newDesktop'
											}
										]) . "
						</td>
			";
		}
		
		$ret .="
						<td class='CLMPREVIEWDEF' align='right'>
							" . $client->getFormGetCode(
										text   => 'More...',
										values => [
											{
												name  => 'module',
												value => 'RemoteDesktop'
											}
										]) . "
						</td>
					</tr>
				</table>
			";
	}

	$ret .= $self->getPreviewFooter();

	return $ret;
}

sub printMainPage 
{
	my $self   = shift;
	my $tb     = $self->getToolBox();
	my $db     = $tb->getWebtopDbReader();
	my $client = $tb->getClient();
	my ($topText) = @{{@_}}{qw/topText/};
	my $ret;

	my $p;
	my $box;

	my $currTd = 'BOXTD1';

	my @computersOnline = $db->query(sql => "
			select
				w_user_computer_id,
				computer_name as NAME,
				to_char(last_access, 'MM/DD/YYYY HH24:MI AM'),
				RAWIP32_TO_DOTTED_QUAD(computer_ip),
				'ONLINE' as TYPE,
				rda_software_id,
				NULL
			from
				w_user_computers
			where
				last_update > " . $db->getCurrentTimeStampString() . 
				( (Pos::defaults::isPostgresDb()) ? " - interval '$timeoutMinutes Minutes'" 
						: " - $timeoutMinutes/(24 * 60)" ) . "
				AND user_id = '" . $client->getUserId . "'
			union all
			select
				user_shared_rda_id,
				agent_name as NAME,
				to_char(last_access, 'MM/DD/YYYY HH24:MI AM'),
				agent_ip,
				'SHARED' as TYPE,
				rda_software_id,
				agent_port
			from
				w_user_shared_rda
			where
				user_id = '" . $client->getUserId . "'
				and agent_ip is not null
			order by
				TYPE,
				NAME
			asc");

	my @computersOffline = $db->query(sql => "
			select
				w_user_computer_id,
				computer_name,
				to_char(last_access, 'MM/DD/YYYY HH24:MI AM'),
				RAWIP32_TO_DOTTED_QUAD(computer_ip),
				rda_software_id
			from
				w_user_computers
			where
				last_update <= " . $db->getCurrentTimeStampString() .
				( (Pos::defaults::isPostgresDb()) ? " - interval '$timeoutMinutes Minutes'" 
						: " - $timeoutMinutes/(24 * 60)" ) . "
				AND user_id = '" . $client->getUserId . "'
			order by
				computer_name
			asc");

	$p = $tb->getPage();

	print $p->getHeaderHtml(title => "Webtop: Remote Desktop interface") . "<center>";
	print Pos::Webtop::OcxLauncher::getLauncherHtml(tb => $tb);

	if (defined($topText)) {
		print $topText;
	}

	$box = $tb->createBox(title => "Access a Remote Desktop", width => "550");

	print $box->getHeaderHtml;

	print "<br/><b>Please click on a computer to connect to a Remote Desktop Agent.</b><br/><br/>";

	print "<table border='0' cellspacing='3' cellpadding='1' width='100%'>
				<th class='BOXTH' align='left'>Name</th>
				<th class='BOXTH' align='left'>Last Access</th>
				<th class='BOXTH' align='left'>Options</th>
			";

	foreach my $computer (@computersOnline) {

		my ($computerId, $computerName, $computerLastAccess, $computerIp, $computerType, $rdaSoftwareId, $remotePort) = @{ $computer };

		my $cleanName = $computerName;

		$cleanName =~ s/\\/\\\\/g;
		$cleanName =~ s/\'/\\\'/g;

		print "
				<tr>
					<td class='$currTd' align='left'>
						<table border='0' cellspacing='0' cellpadding='0'>
							<tr>";
		if ($rdaSoftwareId == 1)
		{

			(!defined($remotePort) && !length($remotePort)) and $remotePort = 5900;
				print"
								<td class='$currTd' valign='middle'>
									<nobr><a href=\"javascript:popupWindowVnc('$computerIp','$remotePort','" . HTML::Entities::encode($cleanName) . "','0');\" border='0'><img src='LocalWebLib/computerIcon.gif' border='0'></a></nobr>
								</td>
								<td class='$currTd' valign='middle'>
									&nbsp;<a href=\"javascript:popupWindowVnc('$computerIp','$remotePort','" . HTML::Entities::encode($cleanName) . "','0');\">" . HTML::Entities::encode($computerName) . "</a>
								</td>";
		}
		elsif ($rdaSoftwareId == 2)
		{
			(!defined($remotePort) && !length($remotePort)) and $remotePort = 3389;
				print"
							<td class='$currTd' valign='middle'>
								<nobr><a href=\"javascript:popupWindowXPRDA('$computerIp','$remotePort','" . HTML::Entities::encode($cleanName) . "','0');\" border='0'><img src='LocalWebLib/xpremotedesktop.gif' border='0'></a></nobr>
							</td>
							<td class='$currTd' valign='middle'>
								&nbsp;<a href=\"javascript:popupWindowXPRDA('$computerIp','$remotePort','" . HTML::Entities::encode($cleanName) . "','0');\">" . HTML::Entities::encode($computerName) . "</a>
							</td>";
	
		}
		else
		{
			(!defined($remotePort) && !length($remotePort)) and $remotePort = 5900;
				print"
							<td class='$currTd' valign='middle'>
								<nobr><a href=\"javascript:popupWindowVnc('$computerIp','$remotePort','" . HTML::Entities::encode($cleanName) . "','0');\" border='0'><img src='LocalWebLib/computerIcon.gif' border='0'></a></nobr>
							</td>
							<td class='$currTd' valign='middle'>
								&nbsp;<a href=\"javascript:popupWindowVnc('$computerIp','$remotePort','" . HTML::Entities::encode($cleanName) . "','0');\">" . HTML::Entities::encode($computerName) . "</a>
							</td>";

		}

		
		print"
							</tr>
						</table>
					</td>
					<td class='$currTd' align='left'>
						" . ((defined($computerLastAccess) && length($computerLastAccess) > 0)?"$computerLastAccess":"Never") . "
					</td>
					<td class='$currTd' align='left'>
						" . (($computerType ne 'SHARED')?"[ " . $client->getFormGetCode(
								text   => 'remove',
								values => [
									{
										name  => 'module',
										value => 'RemoteDesktop'
									},
									{
										name  => 'action',
										value => 'removeComputer'
									},
									{
										name  => 'computerId',
										value => $computerId
									},
									{
										name  => 'computerName',
										value => $computerName
									}
								]) . " ]	[ " . $client->getFormGetCode(
								text   => 'rename',
								values => [
									{
										name  => 'module',
										value => 'RemoteDesktop'
									},
									{
										name  => 'action',
										value => 'renameComputer'
									},
									{
										name  => 'computerId',
										value => $computerId
									},
									{
										name  => 'computerName',
										value => $computerName
									}
								]) . " ] ":"none") . "
					</td>
				</tr>
			";

		if ($currTd eq 'BOXTD1') { $currTd = 'BOXTD2'; }
		else { $currTd = 'BOXTD1'; }

	}
	
	foreach my $computer (@computersOffline) {

		my ($computerId, $computerName, $computerLastAccess, $computerIp, $rdaSoftwareId) = @{ $computer };

		print "
				<tr>
					<td class='$currTd' align='left' valign='middle'>
						<table border='0' cellspacing='0' cellpadding='0'>
							<tr>";
		if ($rdaSoftwareId == 1)
		{
			print "
								<td class='$currTd' valign='middle'>
									<img src='LocalWebLib/computerIcon.gif'/>
								</td>";
		}
		elsif ($rdaSoftwareId == 2)
		{
			print "
								<td class='$currTd' valign='middle'>
									<img src='LocalWebLib/xpremotedesktop.gif'/>
								</td>";
	
		}
		else
		{
			print "
								<td class='$currTd' valign='middle'>
									<img src='LocalWebLib/computerIcon.gif'/>
								</td>";
	
		}

		print "
								<td class='$currTd' valign='middle'>
									&nbsp;<span style='color: #666666'>$computerName (offline)</span>
								</td>
							</tr>
						</table>
					</td>
					<td class='$currTd' align='left'>
						" . ((length($computerLastAccess) > 0)?"$computerLastAccess":"Never") . "
					</td>
					<td class='$currTd' align='left'>
						[ " . $client->getFormGetCode(
								text   => 'remove',
								values => [
									{
										name  => 'module',
										value => 'RemoteDesktop'
									},
									{
										name  => 'action',
										value => 'removeComputer'
									},
									{
										name  => 'computerId',
										value => $computerId
									},
									{
										name  => 'computerName',
										value => $computerName
									}
								]) . " ]	[ " . $client->getFormGetCode(
								text   => 'rename',
								values => [
									{
										name  => 'module',
										value => 'RemoteDesktop'
									},
									{
										name  => 'action',
										value => 'renameComputer'
									},
									{
										name  => 'computerId',
										value => $computerId
									},
									{
										name  => 'computerName',
										value => $computerName
									}
								]) . " ]
					</td>
				</tr>
			";
		
		if ($currTd eq 'BOXTD1') { $currTd = 'BOXTD2'; }
		else { $currTd ='BOXTD1'; }

	}

	print "</table>";

	if($self->canInstallRemoteDesktop())
	{

		print "
				<br/> [ " . $client->getFormGetCode(
										text   => 'Install a new Remote Desktop Agent',
										values => [
											{
												name  => 'module',
												value => 'RemoteDesktop'
											},
											{
												name  => 'action',
												value => 'newDesktop'
											}
										]) . " ]<br/><br/>";
	}

	print $box->getFooterHtml;

	print "<br/>";

	$box = $tb->createBox(title => "Manually Access a Remote Desktop", width => "550");

	if ($self->canManuallyConnectRemoteDesktop())
	{	
		print $box->getHeaderHtml;

		print "<br/><b>Please enter an address to connect to a Remote Desktop Agent or a VNC server.</b><br/><br/><br/>
			
				<form id='vncMe' method='GET' onSubmit= 'return onSubmit(this)'>
					<span align='left'>
						<table border='0' width='100%' cellspacing='1' cellpadding='0' align='left'>
							<tr>
								<td class='BOXTD1' align='right'>
									Type:
								</td>
								<td class='BOXTD1' align='left'>
									<select id=rdaType name=rdaType onChange = 'onChangeRDA()'>";

									my @rdaTypes = $db->query(sql => "
													select
														rda_software_name
													from
														rda_software
													");
									if (@rdaTypes)
									{
										foreach my $rdaType(@rdaTypes)
										{
											print "<option value = '$rdaType'>$rdaType</option>";
										}
									}
														
			print"												
							</tr>
							<tr>
								<td> </td>
								<td> </td>
							</tr>
							<tr>
								<td class='BOXTD1' align='right'>
									Remote Desktop Agent address:
								</td>
								<td class='BOXTD1' align='left'>
									<input type='text' name='remoteAddress' value='' size='30'/>
								</td>
							</tr>
							<tr>
								<td class='BOXTD1' align='left'>
									<span class='SMALL'>&nbsp;</span>
								</td>
								<td class='BOXTD1' align='left' valign='top'>
									<span class='SMALL'><i>(eg: desktop.intranet.com or 123.2.32.1)</i></span><br/><br/>
								</td>
							</tr>
							<tr>
								<td class='BOXTD1' align='right'>
									Remote Desktop Agent port:
								</td>
								<td class='BOXTD1' align='left'>
									<input type='text' id = 'remotePort' name='remotePort' value='5900' size='7'/>
								</td>
							</tr>
							<tr>
								<td class='BOXTD1' align='center' colspan='2'>
									<br/><input type='submit' name='submit' value='Connect'/><br/><br/>
								</td>
							</tr>
						</table>
					</span>
				</form>

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

				function onChangeRDA()
				{
					var rdaTypeId	=	document.getElementById(\"rdaType\");
					var port = document.getElementById(\"remotePort\");
					
					for(var i = 0; i < rdaTypeId.options.length; i++)
					{
						if(rdaTypeId.options[i].selected)
						{
							if(i == 1)
							{
							
								port.value = 3389;
							}
							else
							{
								port.value = 5900;
							}
							
						}
					}
				
				}
		</script>

		";
		
		print $box->getFooterHtml;
	}
	
	print $p->getFooterHtml();
		
}

sub removeComputer {
	my $self   = shift;
	my $tb     = $self->getToolBox();
	my $db     = $tb->getWebtopDbReader();
	my $client = $tb->getClient();
	my ($computerName, $computerId, $okay) = @{{@_}}{qw/computerName computerId okay/};

	if (defined($okay) and $okay eq '1') {

		$db->do(sql => "
			delete from
				w_user_computers
			where
				w_user_computer_id = '" . $db->escape(dirty => $computerId) . "'
				AND user_id = '" . $client->getUserId . "'
			");

		$self->printMainPage(topText => "<b><span class='SMALL'>Successfully removed agent \"$computerName\".</span></b><br/><br/>");

	} else {
	
		my $p = $tb->getPage();
		
		$p->addNavBarElement(description => "Remove Computer",
										values      => [
											{
												name  => "action",
												value => "removeComputer"
											},
											{
												name  => "computerName",
												value => $computerName
											},
											{
												name  => "computerId",
												value => $computerId
											}
										]);


		print $p->getHeaderHtml(title => "Webtop: Remote Desktop: Remove") . "<center>";
		print Pos::Webtop::OcxLauncher::getLauncherHtml(tb => $tb);

		my $box = $tb->createBox(title => "Remove a Remote Desktop Agent", width => "400");

		print $box->getHeaderHtml;

		print "<br/><b>This will remove \"$computerName\" from your list of Remote Desktop Agents.</b><br/><br/>

				<table border='0' width='100%' cellspacing='2' cellpadding='0'>
					<tr>
						<td class='BOXTD1' align='right' width='50%'>
							<form method='GET'>
								<input type='submit' value='OK' style='width: 60'/>
								" . $client->getFormInputs(
										values => [
											{
												name  => 'action',
												value => 'removeComputer'
											},
											{
												name  => 'okay',
												value => '1'
											},
											{
												name  => 'computerName',
												value => $computerName
											},
											{
												name  => 'computerId',
												value => $computerId
											}
										]) . "
							</form>
						</td>
						<td class='BOXTD1' align='left' width='50%'>
							<form method='GET'>
								<input type='submit' value='Cancel' style='width: 60'/>
								" . $client->getFormInputs() . "
							</form>
						</td>
					</tr>
				</table>
				";

		print $box->getFooterHtml;

		print "</center>" . $p->getFooterHtml;

	}

}

sub renameComputer {
	my $self   = shift;
	my $tb     = $self->getToolBox();
	my $db     = $tb->getWebtopDbReader();
	my $client = $tb->getClient();
	my ($computerName, $computerId, $okay, $wantCancel) = @{{@_}}{qw/computerName computerId okay wantCancel/};

	if (defined($wantCancel) and length($wantCancel) > 0) {
	
		$self->printMainPage();

	} elsif (defined($okay) and $okay eq '1') {

		$db->do(sql => "
			update
				w_user_computers
			set
				computer_name = '" . $db->escape(dirty => $computerName) . "'
			where
				w_user_computer_id = '" . $db->escape(dirty => $computerId) . "'
				AND user_id = '" . $client->getUserId . "'
			");

		$self->printMainPage(topText => "<span class='SMALL'><b>Successfully renamed Remote Desktop Agent to \"$computerName\".</b></span><br/><br/>");

	} else {

		my $p = $tb->getPage();
		
		$p->addNavBarElement(description => "Rename Computer",
										values      => [
											{
												name  => "action",
												value => "removeComputer"
											},
											{
												name  => "computerName",
												value => $computerName
											},
											{
												name  => "computerId",
												value => $computerId
											}
										]);


		print $p->getHeaderHtml(title => "Webtop: Remote Desktop: Rename Desktop Agent") . "<center>";
		print Pos::Webtop::OcxLauncher::getLauncherHtml(tb => $tb);

		my $box = $tb->createBox(title => "Rename a Remote Desktop Agent", width => "400");

		print $box->getHeaderHtml;

		print "<br/><b>Please provide a new name for the Remote Desktop Agent.</b><br/><br/>

				<form method='GET' name='form1'>
					<table border='0' width='100%' cellspacing='2' cellpadding='2'>
						<tr>
							<td class='BOXTD1' align='right'>
								New Remote Desktop Agent name:
							</td>
							<td class='BOXTD1' align='left'>
								<input type='text' name='computerName' value=\"" . HTML::Entities::encode($computerName) . "\" size='20'/>
							</td>
						</tr>
						<tr>
							<td class='BOXTD1' align='right'>
									<input type='submit' value='OK' style='width: 60'/>
									" . $client->getFormInputs(
											values => [
												{
													name  => 'action',
													value => 'renameComputer'
												},
												{
													name  => 'okay',
													value => '1'
												},
												{
													name  => 'computerId',
													value => $computerId
												}
											]) . "
							</td>
							<td class='BOXTD1' align='left' width='50%' valign='middle'>
								<form method='GET' name='form2'>
									<input type='submit' value='Cancel' style='width: 60' name='Cancel'/>
									" . $client->getFormInputs() . "
							</td>
						</tr>
					</table>
				</form>
				";

		print $box->getFooterHtml;

		print "</center>" . $p->getFooterHtml;
	
	}
}

sub newDesktop {
	my $self   = shift;
	my $tb     = $self->getToolBox();
	my $db     = $tb->getWebtopDbReader();
	my $client = $tb->getClient();
	my $activeXConnected = $client->isWebtopVpnConnectionEstablished(db=> $db) && !$client->isMacWebtop();
	my $cgi = $tb->getCgi();
	my ($installNow, $currVersion) = @{{@_}}{qw/installNow currVersion/};

	my $oem = $tb->getOem;

	my $p = $tb->getPage();
	
	$p->addNavBarElement(description => "New Remote Desktop Agent",
										values      => [
											{
												name  => "action",
												value => "newDesktop"
											}
										]);


	print $p->getHeaderHtml(title => "". $oem->getSetting(setting=>'webtopProductName') .": Remote Desktop: Install Now") . "<center>";
	print Pos::Webtop::OcxLauncher::getLauncherHtml(tb => $tb);

	print "<br/>";

	if (not defined($installNow)) 
	{

		my $box;
		
		if(not defined $cgi->param('is98'))
		{	
			print "
					<form method='POST' name='winOldCheck'>
						<input type='hidden' id='is98' name='is98' value='0' />
						<input type='hidden' name='action' value='newDesktop' />
						<input type='hidden' name='module' value='RemoteDesktop' />
						
						<script type=\"text/javascript\">
							if((is_win95) || (is_win98) || (is_winme))
							{
								document.getElementById('is98').value = 1;
							}

							winOldCheck.submit();
						</script>
					</form>
			";
			print $p->getFooterHtml();
			exit;
		}

		$box = $tb->createBox(title => "Installing a new Remote Desktop Agent", width => 400);

		print $box->getHeaderHtml;

		print "The Remote Desktop Agent allows you to remotely access your
		Windows-based computer from the " . $oem->getSetting(setting => 'webtopProductName') . " through a
		standard Internet browser. To access your computer from the ". $oem->getSetting(setting=>'webtopProductName') .", your
		computer must be connected to your corporate network and the Remote
		Desktop Agent must be running.";

		print $box->getFooterHtml . "<br/>";

		$box = $tb->createBox(title => "System Requirements", width => 400);

		print $box->getHeaderHtml;

		print "The Remote Desktop Agent is compatible with Windows 95, 98, ME, NT, 2000
		and XP.";

		print $box->getFooterHtml . "<br/>";

		$box = $tb->createBox(title => "Install", width => 400);

		print $box->getHeaderHtml;

		print "To install the Remote Desktop Agent on the computer you wish to access
		remotely, click the \"Install Now\" button below and follow the on-screen
		prompts. When the download begins, you may receive Security Warnings
		from your browser. If these warnings appear, please allow the
		installation to proceed.<br/><br/><center>";

		my ($realVersion) = $db->query(sql => "
				select
					version_string
				from
					w_rda_version
				");

		print "The current version of the RDA software is <b>$realVersion</b><br/><br/>";

		if (defined($currVersion)) 
		{

			print "You are currently using RDA version <b>$currVersion</b><br/><br/>";

		}

		print $client->getFormGetCode(
					text   => "<img src='LocalWebLib/installNow.gif' border='0'>",
					values => [
						{
							name  => 'installNow',
							value => '1'
						},
						{
							name  => 'action',
							value => 'newDesktop'
						},
						{
							name  => 'is98',
							value => (defined($cgi->param('is98')) ? $cgi->param('is98') : "0")
						}
					]) . "<br/><br/><hr/>";

		print "
				<form method='GET'>
					<input type='submit' value='Cancel'/>
					" . ($activeXConnected ? $client->getFormInputs() : "") . "
				</form></center>
			";

		print $box->getFooterHtml;
		

	} else {
	
		my (@info) = $db->query(sql => "
						select oem_rda_installer_path, rda_app_id
						from oems
						where oem_id = (
									select oem_id
									from customers
									where customer_id = (
											select customer_id
											from groups 
											where group_id = (
													select group_id
													from users
													where user_id = '" . $client->getUserId() . "'
																	)
																)
												)
								");
		my $oemRDAPath;
		my $oemRdaAppId;

		if (scalar(@info))
		{
			($oemRDAPath, $oemRdaAppId) = @{ $info[0] };
		}

		# Figure out if they're using the ActiveX control...
		my ($hasActiveX) = $db->query(sql => "
			select
				activex_disabled
			from
				client_sessions
			where
				client_session_id = " . $client->getSessionId . "
			");

		$hasActiveX = ($hasActiveX) ? 0 : 1;

		if(not defined($oemRDAPath))
		{
			$oemRDAPath = Pos::defaults::getRDAPath;
		}
	
		if ($hasActiveX and $oemRdaAppId) 
		{
	
			print Pos::Webtop::OcxLauncher::getLauncherHtml(tb => $tb) . "

			<script language='javascript' version='1.3'>
				installApplication('$oemRdaAppId');	
			</script>
			";

		} 
		else 
		{
			my $exeUrl = $oemRDAPath;
			if ($cgi->param('is98'))
			{
				$exeUrl .= "RDAInstaller98.exe";
			}
			else
			{
				$exeUrl .= "RDAInstaller.exe";
			}
			print "
				<META HTTP-EQUIV=REFRESH CONTENT='0; URL=$exeUrl'>
				";

		}

		my $box = $tb->createBox(title => "Installing Remote Desktop Agent", width => 400);

		print $box->getHeaderHtml;

		print "You should be prompted to install the Remote Desktop Agent.<br/><br/>
			
				After completing the prompts and installing the Remote Desktop Agent, " . $client->getFormGetCode(
					text =>'click here',
					values => [
						{
							name=> 'module',
							value=> 'RemoteDesktop'
						},
					]) . " to return.
					
				<br>
				<br>

				If you are not prompted to install the Remote Desktop Agent or have issues installing, " . $client->getFormGetCode(
					text   => 'click here',
					values => [
						{
							name  => 'action',
							value => 'trouble'
						},
						{
							name  => 'is98',
							value => $cgi->param('is98')
						}
					]) . ".
					
					";		

		print $box->getFooterHtml;

	}

	print "</center>" . $p->getFooterHtml;

}

sub showTroubleHelp {
	my $self   = shift;
	my $tb     = $self->getToolBox();
	my $db     = $tb->getWebtopDbReader();
	my $client = $tb->getClient();
	my $cgi = $tb->getCgi();

	my $p = $tb->getPage();
	my $oem = $tb->getOem;

	$p->addNavBarElement(description => "Download Problems",
										values      => [
											{
												name  => "action",
												value => "trouble"
											}
										]);

	print $p->getHeaderHtml(title => "". $oem->getSetting(setting=>'webtopProductName') . ": Remote Desktop: Install Now") . "<center>";
	print Pos::Webtop::OcxLauncher::getLauncherHtml(tb => $tb);

	print "<br/>";

	my $box = $tb->createBox(title => "Download Problems", width => 400);

	print $box->getHeaderHtml;

	my ($oemRDAPath) = $db->query(sql => "
									select oem_rda_installer_path
									from oems
									where oem_id = (
												select oem_id
												from customers
												where customer_id = (
														select customer_id
														from groups 
														where group_id = (
																select group_id
																from users
																where user_id = '" . $client->getUserId() . "'
																				)
																			)
															)
											");
	if(not defined($oemRDAPath))
	{
		$oemRDAPath = Pos::defaults::getRDAPath;
	}
	my $exeUrl = $oemRDAPath;

	if ($cgi->param('is98'))
	{
		$exeUrl .= "RDAInstaller98.exe";
	}
	else
	{
		$exeUrl .= "RDAInstaller.exe";
	}
										
	print "If a window did not appear, or the download did not begin, please <a href='$exeUrl'>click here</a> to download the installer. When the \"File Download\" window appears, select the option to \"Run this program from its current location\", and then click the \"OK\" button.<br/><br/>If you experience additional problems or have any questions, please
	contact <a
	href=\"http://positive.chaffee.com/page.jsp?pageID=43\">Customer
	Support</a>.";

	print $box->getFooterHtml;

	print "</center>" . $p->getFooterHtml;

}

1;