#!/usr/bin/perl -I.

# 
# This software is copyright (c) 2001-2002 Positive Networks, Inc.  All rights reserved. 
# 
# This software is the proprietary and confidential property of Positive Networks, Inc.
# Possession, transmission, publication, or use of this software is prohibited except by prior written consent.
#

use strict;
use Pos::Webtop::Web::TreeNode;
use Pos::Webtop::Web::ContentModule ();
use Pos::Webtop::OcxLauncher ();

use Pos::Webtop::Web::ContentModule::Mail::Pop3Proxy;
use Pos::Webtop::Web::ContentModule::Mail::ImapProxy;
use Pos::Webtop::Web::ContentModule::Mail::ExchangeProxy;
use Pos::Webtop::Web::ContentModule::Mail::AttachmentFile;
use URI::Escape;

my $outgoingDirectory = "/data/webtop/outgoing/";

package Pos::Webtop::Web::ContentModule::Mail;

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 getUserMainHtml {
	my $self    = shift;
	my $toolBox = $self->getToolBox();
	my $client  = $toolBox->getClient();
	my $cgi     = $toolBox->getCgi();
	my $db      = $toolBox->getWebtopDbReader();
	my $action  = $cgi->param('action');

	my $html   = "";
	my $p      = $toolBox->getPage();
	my $type   = $self->getUserEmailType(db => $db);
	my $noPage = $cgi->param('noPage');


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

	if (!$noPage) {
		$html .= $p->getHeaderHtml(title => "Webtop: Mail") . "<center>" . $toolBox->getDomJs;
	}

	if (not defined($type)) {

		$html .= "You do not have Email settings configured.";

	} elsif ( $type eq 'OWA') {

		my @res = $db->query(sql => "
			select
				owa_server
			from
				w_user_email_settings_owa
			where
				user_id = '" . $client->getUserId . "'
			");

		if (scalar(@res) == 0) {
			return undef;
		}

		my $server = $res[0];
		
		#$html .= Pos::Webtop::OcxLauncher::getLauncherHtml( tb=> $toolBox );
		$html .= "
			<a class='CLMPREVIEWTD4' href=\"javascript:popupWindowIntranet('$server','Mail');\">Web Mail Access</a>
			<br/><br/>
			";	

	} else {
	
		if (not defined($action) or $action eq 'login') {
			$html .= $self->actionLogin(type => $type, db => $db);
		} elsif ($action eq 'viewEmail') {
			$html .= $self->actionViewEmail(type => $type, db => $db, noPage => $noPage);
		} elsif ($action eq 'deleteEmail') {
			$html .= $self->actionDeleteEmail(type => $type, db => $db, noPage => $noPage);
		} elsif ($action eq 'createFolderPrompt') {
			$html .= $self->actionCreateFolderPrompt(type => $type, db => $db, noPage => $noPage);
		} elsif ($action eq 'createFolderExecute') {
			$html .= $self->actionCreateFolderExecute(type => $type, db => $db, noPage => $noPage);
		} elsif ($action eq 'moveToFolderPrompt') {
			$html .= $self->actionMoveToFolderPrompt(type => $type, db => $db, noPage => $noPage);
		} elsif ($action eq 'moveToFolderExecute') {
			$html .= $self->actionMoveToFolderExecute(type => $type, db => $db, noPage => $noPage);
		} elsif ($action eq 'composeEmail') {
			$html .= $self->actionComposeEmail(type => $type, db => $db, noPage => $noPage);
		} elsif ($action eq 'addAttachment') {
			$html .= $self->actionAddAttachment(type => $type, db => $db, noPage => $noPage);
		} elsif ($action eq 'sendEmail') {
			$html .= $self->actionSendEmail(type => $type, db => $db, noPage => $noPage);
		} elsif ($action eq 'downloadEmailAttachment') {
			$html .= $self->actionDownloadEmailAttachment(type => $type, db => $db, noPage => $noPage);
		} elsif ($action eq 'getEmailFrame') {
			$html .= $self->actionGetEmailFrame(type => $type, db => $db, noPage => $noPage);
		} else {
			$html .= 'invalid action ' . $action;
		}

	}

	if (!$noPage) {
		$html .= "</center>" . $p->getFooterHtml;
	}

	return $html;
}

sub getUserPreviewHtml {
	my $self    = shift;
	my $toolBox = $self->getToolBox();
	my $client  = $toolBox->getClient();
	my $cgi     = $toolBox->getCgi();
	my $db      = $toolBox->getWebtopDbReader();
	my $ret     = "";
	my @res;

	my $type = $self->getUserEmailType(db => $db);

	if (not defined($type)) {
		return undef;
	}

	if ($type eq 'POP3') {

		$ret .= "
			<b>Access your email:</b><br/>
			" . $client->getFormGetCode(text => "Login...", values => [
						{
							name  => 'module',
							value => 'Mail'
						}
					],
					tagAttributes => [
						{
							name  => 'class',
							value => 'CLMPREVIEWTD4'
						}
					]) . "
			<br/><br/>
			";	

	} elsif ($type eq 'IMAP') {

		$ret .= "
			<b>Access your email:</b><br/>
			" . $client->getFormGetCode(text => "Login...", values => [
						{
							name  => 'module',
							value => 'Mail'
						}
					],
					tagAttributes => [
						{
							name  => 'class',
							value => 'CLMPREVIEWTD4'
						}
					]) . "
			<br/><br/>
			";	

	} elsif ($type eq 'EXCHANGE') {

		$ret .= "
			<b>Access you email:</b><br/>
			" . $client->getFormGetCode(text => "Login...", values => [
						{
							name  => 'module',
							value => 'Mail'
						}
					],
					tagAttributes => [
						{
							name  => 'class',
							value => 'CLMPREVIEWTD4'
						}
					]) . "
			<br/><br/>
			";	

	} elsif ($type eq 'OWA') {

		@res = $db->query(sql => "
			select
				owa_server
			from
				w_user_email_settings_owa
			where
				user_id = '" . $client->getUserId . "'
			");

		if (scalar(@res) == 0) {
			return undef;
		}

		my $server = $res[0];

		$ret .= "
			<a class='CLMPREVIEWTD4' href=\"javascript:popupWindowIntranet('$server','Mail');\">Web Mail Access</a>
			<br/><br/>
			";	
	} else {
		$ret = undef;
	}

	return $ret;
}

# (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();

	print $self->getUserMainHtml;

	return 1;
}

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

	$ret = $self->getPreviewHeader();

	$preview = $self->getUserPreviewHtml;

	if (not defined($preview)) {
		return undef;
	} else {
		$ret .= $preview;
	}

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

	return $ret;
}

sub getUserEmailType {
	my $self    = shift;
	my $toolBox = $self->getToolBox();
	my $client  = $toolBox->getClient();
	my $cgi     = $toolBox->getCgi();
	my ($db)    = @{{@_}}{qw/db/};

	my @res = $db->query(sql => "
		select
			wes.email_setting_name
		from
			w_email_settings wes,
			w_user_email_settings wues
		where
			wues.email_setting_id = wes.email_setting_id
			AND wues.user_id = '" . $client->getUserId . "'
		");
		
	if (scalar(@res) == 0) {
		return undef;
	}

	return $res[0];
}

sub getUserEmailParams {
	my $self    = shift;
	my $toolBox = $self->getToolBox();
	my $client  = $toolBox->getClient();
	my $cgi     = $toolBox->getCgi();
	my $ret     = undef;
	my ($type,$db) = @{{@_}}{qw/type db/};

	my %emailParams;

	if ($type eq 'POP3') {

		my @res = $db->query(sql => "
			select
				smtp_server,
				pop3_server,
				username,
				password
			from
				w_user_email_settings_pop3
			where
				user_id = '" . $client->getUserId . "'
			");

		if (scalar(@res) > 0) {

			my ($smtp,$pop3,$username,$password) = @{ $res[0] };

			$emailParams{'SMTP_SERVER'} = $smtp;
			$emailParams{'POP3_SERVER'} = $pop3;
			$emailParams{'USERNAME'}    = $username;
			$emailParams{'PASSWORD'}    = $password;

		}

	} elsif ($type eq 'IMAP') {

		my @res = $db->query(sql => "
			select
				smtp_server,
				imap_server,
				username,
				password
			from
				w_user_email_settings_imap
			where
				user_id = '" . $client->getUserId . "'
			");

		if (scalar(@res) > 0) {

			my ($smtp,$imap,$username,$password) = @{ $res[0] };

			$emailParams{'SMTP_SERVER'} = $smtp;
			$emailParams{'IMAP_SERVER'} = $imap;
			$emailParams{'USERNAME'}    = $username;
			$emailParams{'PASSWORD'}    = $password;

		}

	} elsif ($type eq 'EXCHANGE') {

		my @res = $db->query(sql => "
			select
				exchange_server,
				username,
				password,
				exchange_server_name
			from
				w_user_email_settings_exchange
			where
				user_id = '" . $client->getUserId . "'
			");

		if (scalar(@res) > 0) {

			my ($exchange,$username,$password,$exchangeName) = @{ $res[0] };

			$emailParams{'EXCHANGE_SERVER'}      = $exchange;
			$emailParams{'USERNAME'}             = $username;
			$emailParams{'PASSWORD'}             = $password;
			$emailParams{'EXCHANGE_SERVER_NAME'} = $exchangeName;

		}

	} elsif ($type eq 'OWA') {

		%emailParams = undef;

	}

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

	if (defined($password)) {
		$emailParams{'PASSWORD'} = $password;
	}

	return %emailParams;
}

sub getMailProxyFromType {
	my $self    = shift;
	my $toolBox = $self->getToolBox();
	my $client  = $toolBox->getClient();
	my $cgi     = $toolBox->getCgi();
	my ($db, $type, $emailParamsSc)  = @{{@_}}{qw/db type emailParams/};

	my $mailProxy = undef;
	my %emailParams = %$emailParamsSc;

	if ($type eq 'POP3') {

		$mailProxy = Pos::Webtop::Web::ContentModule::Mail::Pop3Proxy->new(
							tb         => $toolBox,
							db         => $db,
							smtpServer => $emailParams{'SMTP_SERVER'},
							pop3Server => $emailParams{'POP3_SERVER'},
							username   => $emailParams{'USERNAME'},
							password   => $emailParams{'PASSWORD'});

	} elsif ($type eq 'IMAP') {

		$mailProxy = Pos::Webtop::Web::ContentModule::Mail::ImapProxy->new(
							tb         => $toolBox,
							db         => $db,
							smtpServer => $emailParams{'SMTP_SERVER'},
							imapServer => $emailParams{'IMAP_SERVER'},
							username   => $emailParams{'USERNAME'},
							password   => $emailParams{'PASSWORD'});

	} elsif ($type eq 'EXCHANGE') {

		$mailProxy = Pos::Webtop::Web::ContentModule::Mail::ExchangeProxy->new(
							tb                 => $toolBox,
							db                 => $db,
							exchangeServer     => $emailParams{'EXCHANGE_SERVER'},
							username           => $emailParams{'USERNAME'},
							password           => $emailParams{'PASSWORD'},
							exchangeServerName => $emailParams{'EXCHANGE_SERVER_NAME'});

	}

	return $mailProxy;
}

sub actionLogin {
	my $self    = shift;
	my $toolBox = $self->getToolBox();
	my $client  = $toolBox->getClient();
	my $cgi     = $toolBox->getCgi();
	my $ret     = "";
	my ($type,$db) = @{{@_}}{qw/type db/};

	my %emailParams = $self->getUserEmailParams(type => $type, db => $db);

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

	if (defined($username)) {
		$emailParams{'USERNAME'} = $username;
	} else {
		$username = $emailParams{'USERNAME'};
	}

	my $mailProxy   = $self->getMailProxyFromType(type => $type, db => $db, emailParams => \%emailParams);

	# XXX -- wording
	if (!%emailParams or not defined($mailProxy)) {
		return "Your mail service does not support logins.";
	}

	my $prompt = 1;

	my $password = $emailParams{'PASSWORD'};

	# If they have a password defined we should go ahead and try to login
	if (defined($password)) {

		if (not defined($mailProxy->login())) {
			$ret = "<br/>You could not be logged in.<br/>";
		} else {
			$mailProxy->cacheCredentials(username => $username, password => $password);
			$prompt = 0;
		}
	}

	if ($prompt) {

		my $box = $toolBox->createBox(title => "Login", width => '100');

		$ret .= "
			<br/>
			<form method='POST'>
					" . $client->getFormInputs(
						values => [
							{
								name  => 'action',
								value => 'login'
							}
						]) . "
				" . $box->getHeaderHtml . "
				<table width='100%' border='0'>
					<tr>
						<td class='CLMPREVIEWDEF' align='left'>
							Username:
						</td>
						<td class='CLMPREVIEWDEF' align='left'>
							<input type='text' name='username' size='20' value=\"" . ((defined($username)) ? HTML::Entities::encode($username) : "") . "\">
						</td>
					</tr>
					<tr>
						<td class='CLMPREVIEWDEF' align='left'>
							Password:
						</td>
						<td class='CLMPREVIEWDEF' align='left'>
							<input type='password' name='password' size='20'>
						</td>
					</tr>
					<tr>
						<td class='CLMPREVIEWDEF' align='right' colspan='2'>
							<input type='submit' value='Login'/>
						</td>
					</tr>
				</table>
				" . $box->getFooterHtml . "
			</form>";

	} else {

		$ret = $self->getMajorLayout(mailProxy => $mailProxy);
	}

	return $ret;
}

sub getMajorLayout {
	my $self        = shift;
	my $toolBox     = $self->getToolBox();
	my $client      = $toolBox->getClient();
	my $cgi         = $toolBox->getCgi();
	my ($mailProxy,$requestedFolder) = @{{@_}}{qw/mailProxy requestedFolder/};
	my $ret         = "";

	if (not defined($requestedFolder) or length($requestedFolder) == 0) {
		$requestedFolder = $client->getPersistedValue(name => 'requestedFolder');

		if (not defined($requestedFolder) or length($requestedFolder) == 0) {
			if ($mailProxy->doesFolderExist(folderName => 'INBOX')) {
				$requestedFolder = 'INBOX';
			} elsif ($mailProxy->doesFolderExist(folderName => 'Inbox')) {
				$requestedFolder = 'Inbox';
			} else {
				$requestedFolder = 'Inbox';
			}
		}
	}

	# XXX: optimize
	$mailProxy->checkEmail;

	my @folders = $mailProxy->getFolders();

	$client->setPersistedValue(
				name  => 'requestedFolder',
				value => $requestedFolder);

	$ret .= "

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

			function submitCheck(action) {

				var formElement   = getObjectById(\"mainForm\");

				formElement.action.value = action;
				formElement.submit();

			}

			function browseToFolder(folderName) {

				var emailListFrameForm    = getObjectById(\"emailListFrameForm\");
				var emailListFrameLoading = getObjectById(\"emailListFrameLoading\");
				var emailListFrameWrap    = getObjectById(\"emailListFrameWrap\");

				// Show the loading div
				emailListFrameLoading.style.display = 'block';
				emailListFrameWrap.style.display    = 'none';

				emailListFrameForm.requestedFolder.value = folderName;
				emailListFrameForm.submit();

			}

		</script>
		<br/>

		<form id='emailListFrameForm' method='POST' target='emailListFrame'>
			" . $client->getFormInputs(values => [
				{
					name  => 'action',
					value => 'getEmailFrame'
				},
				{
					name  => 'noPage',
					value => '1'
				},
				{
					name  => 'requestedFolder',
					value => $requestedFolder
				}
				]) . "
		</form>
		
		<form id='emailPreviewFrameForm' method='POST' target='emailPreviewFrame'>
			" . $client->getFormInputs(values => [
				{
					name  => 'action',
					value => 'viewEmail'
				},
				{
					name  => 'noPage',
					value => '1'
				},
				{
					name  => 'requestedFolder',
					value => $requestedFolder
				},
				{
					name  => 'emailId',
					value => ''
				}
				]) . "
		</form>

		<form id='operationForm' method='POST' action='main.pl'>
			" . $client->getFormInputs(values => [
				{
					name  => 'action',
					value => ''
				}
				]) . "

				<select style='display: none' multiple name='checkedItems'>
				</select>
		</form>

		<form id='mainForm' method='GET'>
			<input type='hidden' name='action'/>
			<input type='hidden' name='emailId'/>
			<input type='hidden' name='composeType'/>
			<input type='hidden' name='origFrom'/>
			<input type='hidden' name='origSubject'/>
			<input type='hidden' name='origBody'/>
			" . $client->getFormInputs();

	$ret .= "
		<table width='100%' border='0' cellpadding='0' cellspacing='1' style='background: black'><tr><td class='CLMPREVIEWDEF'><table width='100%' border='0' style='background: white' cellpadding='0' cellspacing='0'><tr><td>
			<table width='100%' border='0' cellspacing='0'> 
				<tr>
					<td valign='top' align='left' class='CLMPREVIEWTD1' width='120'>
						<div style='overflow: auto; height: 50em; width: 120px'>
							<table width='100%' border='0' cellspacing='0'>
								<tr>
									<td align='left' class='CLMPREVIEWTD1'>
										<b>Folders</b>
									</td>
								</tr>
								<tr>
									<td align='left' class='CLMPREVIEWTD1'>
										" . $self->getFoldersInSupportedFormat(folders => \@folders, js => 'browseToFolder') . "
									</td>
								</tr>
							</table>
						</div>
					</td>
					<td align='left' class='CLMPREVIEWTD2' width='100%' height='100%' valign='top'>
						<table width='100%' height='100%' border='0' cellspacing='1' cellpadding='0' style='background: black;'>
							<tr>
								<td align='left' class='CLMPREVIEWDEF' height='50%' valign='top' style='background: white'>
									<div id='emailListFrameLoading' style='display: block' align='center'>
										<b>Loading...</b>
									</div>
									<iframe scrolling='yes' id='emailListFrameWrap' name='emailListFrame' width='100%' style='height: 100%;' frameborder='0' src='main.pl?pVwsi=" . $client->getSessionId . "&pVwsh=" . $client->getSessionHash . "&pVmodule=Mail&requestedFolder=" . HTML::Entities::encode($requestedFolder) . "&noPage=1&action=getEmailFrame'>
									</iframe>
								</td>
							</tr>
							<tr>
								<td align='left' class='CLMPREVIEWDEF' height='50%' valign='top' style='background: white'>
									<iframe scrolling='yes' name='emailPreviewFrame' width='100%' style='height: 100%;' frameborder='0' src='main.pl?pVwsi=" . $client->getSessionId . "&pVwsh=" . $client->getSessionHash . "&pVmodule=Mail&noPage=1&action=viewEmail'>
									</iframe>
								</td>
							</tr>
						</table>
					</td>
				</tr>
				<tr>
					<td align='left' colspan='2' class='CLMPREVIEWTD2'>
						<table width='100%' border='0'>
							<tr>
								<td align='left' class='CLMPREVIEWTD2'>
									<input type='button' value='Create Folder' onClick='submitCheck(\"createFolderPrompt\");'/>
								</td>
								<td align='left' class='CLMPREVIEWTD2' width='100%'>
									<input type='button' value='Compose Email' onClick='submitCheck(\"composeEmail\");'/>
								</td>
							</tr>
						</table>
					</td>
				</tr>
			</table>
		</td></tr></table></td></tr></table>
	</form>
		";

	return $ret;
}
		
sub actionGetEmailFrame {
	my $self        = shift;
	my $toolBox     = $self->getToolBox();
	my $client      = $toolBox->getClient();
	my $cgi         = $toolBox->getCgi();
	my ($type,$db)  = @{{@_}}{qw/type db/};
	my ($requestedFolder) = $cgi->param('requestedFolder');
	my $ret         = "";

	my %emailParams = $self->getUserEmailParams(type => $type, db => $db);
	my $mailProxy   = $self->getMailProxyFromType(type => $type, db => $db, emailParams => \%emailParams);

	$mailProxy->checkEmail;

	my @emails  = $mailProxy->getPreviewEmails(max    => 30, 
															 folder => $requestedFolder);

	my $link = "main.pl?pVwsi=" . $client->getSessionId . "&pVwsh=" . $client->getSessionHash . "&pVmodule=Mail&&requestedFolder=" . HTML::Entities::encode($requestedFolder) . "&noPage=1&action=getEmailFrame";

	$ret .= "Content-type: text/html\n\n";
	$ret .= $toolBox->getDomJs . "

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

			function previewEmail(emailId) {

				var emailPreviewFrameForm = getObjectById(\"emailPreviewFrameForm\", parent.document);

				emailPreviewFrameForm.emailId.value = emailId;
				emailPreviewFrameForm.submit();

				
				// Mark the email as having been read

				var fromId    = emailId + '-from';
				var subjectId = emailId + '-subject';
				var dateId    = emailId + '-date';

				var fromSpan = getObjectById(fromId);
				var subjectSpan = getObjectById(subjectId);
				var dateSpan = getObjectById(dateId);
				
				// Decrement the new count if necessary
				if (fromSpan != null)
				{
					if (fromSpan.style.fontWeight != 'normal')
					{
						// add search/replace code here -- make sure first page load has last select initialized
						var text = getObjectById(\"nodeText\" + parent.getLastSelectedNodeId(), parent.document);
						var re1 = /^(.*)\\((\\d+)\\)([^\\(]+)\$/;
						var groups;

						if (text != null)
							groups = String(text.innerHTML).match(re1);
						
						if ( groups != null && groups.length )
						{
							var emailCount = groups[2];
							
							emailCount--;

							if ( emailCount < 1 )
							{
								var reToastHtml = /<[^>]+>/g;
								var reToastParens = /\\([^\\)]+\\)\$/g;
								var newContent = String(text.innerHTML).replace(reToastHtml, '');
								
								newContent = String(newContent).replace(reToastParens, '');

								text.innerHTML        = newContent;
								text.style.fontWeight = 'normal';
							}
							else
							{
								var newContent = groups[1] + '(' + emailCount + ')' + groups[3];
								text.innerHTML = newContent;
							}
						}
					}
				}
				
				if (fromSpan != null)
					fromSpan.style.fontWeight = 'normal';
				
				if (subjectSpan != null)
					subjectSpan.style.fontWeight = 'normal';
				
				if (dateSpan != null)
					dateSpan.style.fontWeight = 'normal';
			}

			function performOperation() {

				var operation        = getObjectById(\"operationSelect\");
				var operationForm    = getObjectById(\"operationForm\", parent.document);
				var operationChecked = operationForm.checkedItems;

				if (operation.value == '') {
					return;
				}

				var tag   = null;
				var count = 1;
				var selected = 0;

				while ((tag = getObjectById(\"checkedItems-\" + count)) != null) {

					// Is it checked?
					if (tag.checked == true) {
				
						var o = new Option(
									tag.value,
									tag.value
								  );

						o.selected = true;

						operationChecked.options[operationChecked.options.length] = o;

						selected++;

					}

					count++;
				}

				if (selected == 0) {

					alert('You do not have any items selected.');

					return 0;

				}

				if (operation.value == 'delete') {
					operationForm.action.value = 'deleteEmail';
				} else if (operation.value == 'move') {
					operationForm.action.value = 'moveToFolderPrompt';
				}

				operationForm.submit();

			}

			function composeEmail() {
				
				var mainForm = getObjectById(\"mainForm\", parent.document);

				mainForm.action.value = 'composeEmail';
				mainForm.submit();

			}

			function setCurrentFolderNewCount(count) {

				var text = getObjectById(\"nodeText\" + parent.getLastSelectedNodeId(), parent.document);
				var reToastHtml = /<[^>]+>/g;
				var reToastParens = /\\([^\\)]+\\)\$/g;
				var name;
			
				// make sure text is valid
				if (text != null)
					name = String(text.innerHTML).replace(reToastHtml, '');
		
				// make sure name is valid
				if (name)
				{
					name = String(name).replace(reToastParens, '');
	
					if (count == 0) {
	
						text.innerHTML        = name;
						text.style.fontWeight = 'normal';
	
					} else {
	
						text.innerHTML        = '<b> ' + name + ' (' + count + ')</b>';
						text.style.fontWeight = 'bold';
	
					}

				}

			}

		</script>

		<LINK REL='STYLESHEET' TYPE='text/css' HREF='LocalWebLib/stylesheet.css'/>	
		<meta http-equiv='refresh' content=\"300;URL=$link\"/>

		<table width='100%' border='0' cellspacing='0'>
			<tr>
				<td align='left' class='CLMPREVIEWTD1' colspan='4'>
					&nbsp;<select id='operationSelect' onChange='performOperation();'>
						<option value=''>Operation...
						<option value='delete'>Delete...
						<option value='move'>Put in Folder...
					</select>

					<input type='button' value='Compose Email' onClick='composeEmail();'/>
				</td>
			</tr>
			<tr>
				<td align='left' class='CLMPREVIEWTD1' colspan='2'>
					<nobr><b>&nbsp;From</b></nobr>
				</td>
				<td align='left' class='CLMPREVIEWTD1' width='100%'>
					<b>&nbsp;Subject</b>
				</td>
				<td align='left' class='CLMPREVIEWTD1'>
					<nobr><b>&nbsp;Received</b></nobr>
				</td>
			</tr>
			";

	my $newCount = 0;
	my $count    = 0;

	if (scalar(@emails) > 0) {
		foreach my $email (@emails) {
			if (not defined($email)) { next; }
			my ($emailId,$msgId,$to,$from,$subject,$date,$isNew) = @{ $email };

			$count++;

			if ($from =~ /(.*) <(.*)>/) {
				($from) = split /\</, $from;
				$from =~ s/\"//g;
			}

			if (not defined($subject)) {
				$subject = "";
			}

			my $cleanId = $emailId;

			$cleanId =~ s/\\/\\\\/g;

			if ($isNew) { $newCount++; }

			$ret .= "
			<tr>
				<td align='left' class='CLMPREVIEWDEF'>
					<input type='checkbox' name='checkedItems' id='checkedItems-" . $count . "' value=\"" . HTML::Entities::encode($emailId) . "\"/>
				</td>
				<td align='left' class='CLMPREVIEWDEF'>
					<span id='" . HTML::Entities::encode($emailId) . "-from' style='font-weight: " . (($isNew)?"bold":"normal") . "'>
						<nobr><a href='javascript:previewEmail(\"" . HTML::Entities::encode($cleanId) . "\");'>" . HTML::Entities::encode($from) . "</a></nobr>
					</span>
				</td>
				<td align='left' class='CLMPREVIEWDEF'>
					<span id='" . HTML::Entities::encode($emailId) . "-subject' style='font-weight: " . (($isNew)?"bold":"normal") . "'>
						&nbsp;" . HTML::Entities::encode($subject) . "
					</span>
				</td>
				<td align='left' class='CLMPREVIEWDEF'>
					<span id='" . HTML::Entities::encode($emailId) . "-date' style='font-weight: " . (($isNew)?"bold":"normal") . "'>
						<nobr>&nbsp;" . HTML::Entities::encode($date) . "</nobr>
					</span>
				</td>
			</tr>
		";
		}
	} else {
		$ret .= "
			<tr>
				<td align='left' class='CLMPREVIEWDEF' colspan='3'>
					No Emails.
				</td>
			</tr>";
	}

	$ret .="
		</table>

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

			function hideLoading() {

				var loadingDiv         = getObjectById(\"emailListFrameLoading\", parent.document);
				var emailListFrameWrap = getObjectById(\"emailListFrameWrap\", parent.document);

				if (loadingDiv != null)
					loadingDiv.style.display = 'none';

				if (emailListFrameWrap != null)
					emailListFrameWrap.style.display = 'block';
			}

			hideLoading();

			setCurrentFolderNewCount('$newCount');

		</script>
		";

}

sub actionViewEmail {
	my $self        = shift;
	my $toolBox     = $self->getToolBox();
	my $client      = $toolBox->getClient();
	my $cgi         = $toolBox->getCgi();
	my ($type,$db,$noPage)  = @{{@_}}{qw/type db noPage/};
	my $ret         = "";

	if (defined($noPage) and $noPage == 1) {
		$ret .= "Content-type: text/html\n\n";
		$ret .= "
			<LINK REL='STYLESHEET' TYPE='text/css' HREF='LocalWebLib/stylesheet.css'/>	
			";
	}

	my $emailId     = $cgi->param('emailId');
	my %emailParams = $self->getUserEmailParams(type => $type, db => $db);
	my $mailProxy   = $self->getMailProxyFromType(type => $type, db => $db, emailParams => \%emailParams);

	if (not defined($emailId)) { 
		return $ret;
	}

	# XXX -- wording
	if (!%emailParams or not defined($mailProxy)) {
		return "Your mail service does not support logins.";
	}

	if (not defined($mailProxy->login())) {
		return "<br/>You could not be logged in.<br/>";
	}

	my %emailInformation = $mailProxy->getEmail(emailId => $emailId);
	my $attachments      = $emailInformation{'EMAIL_ATTACHMENTS'};

	if (not defined($emailInformation{'EMAIL_SUBJECT'})) {
		$emailInformation{'EMAIL_SUBJECT'} = "";
	}

	if (not defined($emailInformation{'TO'})) {
		$emailInformation{'EMAIL_TO'} = "";
	}

	my %hash   = %{ $mailProxy->getAdjacentEmails(emailId => $emailId) };
	my $prevId = defined($hash{'PREV'}) ? $hash{'PREV'} : "";
	my $nextId = defined($hash{'NEXT'}) ? $hash{'NEXT'} : "";

	$prevId =~ s/\\/\\\\/g;
	$nextId =~ s/\\/\\\\/g;

	$ret .= $toolBox->getDomJs . "
		<script language='javascript' version='1.3'>

			function onFormSubmit(action, type) {

				var form = document.getElementById(\"form\");

				form.action.value      = action;
				form.composeType.value = type;

				if (type == 'prev') {
					form.emailId.value  = '$prevId';
				} else if (type == 'next') {
					form.emailId.value  = '$nextId';
				}

				if (action == 'viewEmail') {
					var emailPreviewFrameForm = getObjectById(\"emailPreviewFrameForm\", parent.document);

					emailPreviewFrameForm.emailId.value = form.emailId.value;
					emailPreviewFrameForm.submit();

				} else {
				
					var mainForm = getObjectById(\"mainForm\", parent.document);

					if (action == 'composeEmail') {

						mainForm.origFrom.value    = form.origFrom.value;
						mainForm.origSubject.value = form.origSubject.value;
						mainForm.origBody.value    = form.origBody.value;

					}
					
					mainForm.action.value      = action;
					mainForm.emailId.value     = form.emailId.value;
					mainForm.composeType.value = form.composeType.value;
					mainForm.submit();

				}

			}

		</script>
		<form id='form' method='POST'>
		";
	$ret .= "
			" . $client->getFormInputs(values => [
					{
						name  => 'origFrom',
						value => $emailInformation{'EMAIL_FROM'}
					},
					{
						name  => 'origTo',
						value => $emailInformation{'EMAIL_TO'}
					},
					{
						name  => 'origSubject',
						value => $emailInformation{'EMAIL_SUBJECT'}
					},
					{
						name  => 'origBody',
						value => $emailInformation{'EMAIL_BODY'}
					},
					{
						name  => 'emailId',
						value => $emailId
					}
					]) . "
			<input type='hidden' name='action' value=''/>
			<input type='hidden' name='composeType' value=''/>
			<table width='100%' border='0' cellspacing='0'>
				<tr>
					<td align='left' class='CLMPREVIEWTD1'>
						<b>&nbsp;From:</b>
					</td>
					<td align='left' class='CLMPREVIEWTD1' width='100%'>
						&nbsp;" . HTML::Entities::encode($emailInformation{'EMAIL_FROM'}) . "
					</td>
				</tr>
				<tr>
					<td align='left' class='CLMPREVIEWTD1'>
						<b>&nbsp;To:</b>
					</td>
					<td align='left' class='CLMPREVIEWTD1' width='100%'>
						&nbsp;" . HTML::Entities::encode($emailInformation{'EMAIL_TO'}) . "
					</td>
				</tr>
				<tr>
					<td align='left' class='CLMPREVIEWTD1'>
						<b>&nbsp;Subject:</b>
					</td>
					<td align='left' class='CLMPREVIEWTD1' width='100%'>
						&nbsp;" . HTML::Entities::encode($emailInformation{'EMAIL_SUBJECT'}) . "
					</td>
				</tr>
				<tr>
					<td align='left' class='CLMPREVIEWTD1'>
						<b>&nbsp;Received:</b>
					</td>
					<td align='left' class='CLMPREVIEWTD1' width='100%'>
						&nbsp;" . HTML::Entities::encode($emailInformation{'EMAIL_DATE'}) . "
					</td>
				</tr>
		";

	if (scalar(@{ $attachments })) {
		my $counter = 0;

		$ret .= "
				<tr>
					<td align='left' class='CLMPREVIEWTD1'>
						<b>&nbsp;Attachments:</b>
					</td>
					<td align='left' class='CLMPREVIEWTD1' width='100%'>
				";

		foreach my $attachment (@{ $attachments }) {
			my %hash = %{ $attachment };

			my $desc = $hash{'ATTACHMENT_DESC'};
			my $body = $hash{'ATTACHMENT_BODY'};

			if (not defined($desc)) {
				$desc = 'attachment';
			}

			my $kb = length($body) / 1024;

			my $fmt = sprintf ("%.2f", $kb);

			$ret .= "&nbsp;" . $client->getFormGetCode(text => $desc,
								values => [
								{
									name  => 'action',
									value => 'downloadEmailAttachment'
								},
								{
									name  => 'noPage',
									value => 1
								},
								{
									name  => 'emailId',
									value => $emailId
								},
								{
									name  => 'attachmentId',
									value => $counter
								}]) . " ($fmt KB)<br/>";
					
			$counter++;
		}

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

	my $body = HTML::Entities::encode($emailInformation{'EMAIL_BODY'});

	# If we're using quoted-printable, =[hex] be translated into the corresponding ascii character
	if ($emailInformation{'EMAIL_BODY_ENCODING'} eq 'quoted-printable') {

		# Need a faster way to do this some day.
		while ( $body =~ /(.*)=([ABCDEF1234567890]{2})(.*)/msi )
		{
			$body = $1 . chr(hex($2)) . $3;
		}

		$body =~ s/=(\r|)$//gms;

	}

	$body =~ s/\n/<br>/g;
	$body =~ s/\t/&nbsp;&nbsp;&nbsp;&nbsp;/g;

	$ret .= "
				<tr>
					<td align='left' class='CLMPREVIEWTD1' colspan='2'>
						<nobr>
							<input type='button' value='Reply' onClick='onFormSubmit(\"composeEmail\", \"reply\");'/>
							<input type='button' value='Forward' onClick='onFormSubmit(\"composeEmail\", \"forward\");'/>
							<input type='button' value='Delete' onClick='onFormSubmit(\"deleteEmail\", \"delete\");'/>
					";

	if (defined($prevId) and length($prevId)) {
		$ret .= "
							<input type='button' value='< Prev' onClick='onFormSubmit(\"viewEmail\", \"prev\");'/>
						";
	}

	if (defined($nextId) and length($nextId)) {
		$ret .= "
							<input type='button' value='Next >' onClick='onFormSubmit(\"viewEmail\", \"next\");'/>
				";
	}

	$ret .= "
						</nobr>
					</td>
				</tr>
				<tr>
					<td align='left' class='CLMPREVIEWTD3' colspan='2'>
						<blockquote style='margin-left: 4px'>
							$body
						</blockquote>
					</td>
				</tr>
			</table>
		</form>";

	$mailProxy->markEmailAsRead(emailId => $emailId);

	return $ret;
} 
			
sub actionDownloadEmailAttachment {
	my $self        = shift;
	my $toolBox     = $self->getToolBox();
	my $client      = $toolBox->getClient();
	my $cgi         = $toolBox->getCgi();
	my ($type,$db)  = @{{@_}}{qw/type db/};
	my $ret         = "";

	my %emailParams = $self->getUserEmailParams(type => $type, db => $db);
	my $mailProxy   = $self->getMailProxyFromType(type => $type, db => $db, emailParams => \%emailParams);

	# XXX -- wording
	if (!%emailParams or not defined($mailProxy)) {
		return "Your mail service does not support logins.";
	}

	my $emailId          = $cgi->param('emailId');
	my $attachmentId     = $cgi->param('attachmentId');
	my %emailInformation = $mailProxy->getEmail(emailId => $emailId);
	my $attachments      = $emailInformation{'EMAIL_ATTACHMENTS'};
	my $counter          = 0;
	my $contentType      = undef;
	my $contentEncoding  = undef;
	my $disposition      = undef;
	my $desc             = undef;
	my $body             = undef;

	foreach my $attachment (@{ $attachments }) {
		my %hash = %{ $attachment };

		$contentType     = $hash{'ATTACHMENT_CONTENT_TYPE'};
		$contentEncoding = $hash{'ATTACHMENT_CONTENT_ENCODING'};
		$disposition     = $hash{'ATTACHMENT_DISPOSITION'};
		$desc            = $hash{'ATTACHMENT_DESC'};
		$body            = $hash{'ATTACHMENT_BODY'};

		if (not defined($desc)) {
			$desc = 'attachment';
		}

		if (not defined($contentType)) {
			$contentType = 'text/plain';
		} else {
	
			my @info = split /;/, $contentType;

			$contentType = $info[0];

		}

		if (defined($disposition)) {
			$disposition =~ s/"//g;
			$disposition =~ s/attachment/inline/g;
		}

		if ($counter == $attachmentId) {
			last;
		}

		$counter++;
	}

	if (not defined($desc) or not defined($body)) {
		$ret .= "Content-Type: text/html\r\n\r\nnot found";
	} else {
		print STDERR "sending type=$contentType disp=$disposition encoding=$contentEncoding\n";

		$ret .= "Content-Type: $contentType\r\n";

		if (defined($disposition)) {
			$ret .= "Content-Disposition: $disposition\r\n";
		}
		
		if (defined($contentEncoding)) {

			# If it's base64, decode it.

			if ($contentEncoding =~ /base64/i) {
				$body = MIME::Base64::decode_base64($body);
			}

		}

		$ret .= "\r\n";
		$ret .= $body;
	}

	return $ret;
}

sub actionDeleteEmail {
	my $self        = shift;
	my $toolBox     = $self->getToolBox();
	my $client      = $toolBox->getClient();
	my $cgi         = $toolBox->getCgi();
	my ($type,$db)  = @{{@_}}{qw/type db/};
	my $ret         = "";
	my @emails      = $cgi->param('checkedItems');

	my %emailParams = $self->getUserEmailParams(type => $type, db => $db);
	my $mailProxy   = $self->getMailProxyFromType(type => $type, db => $db, emailParams => \%emailParams);

	# XXX -- wording
	if (!%emailParams or not defined($mailProxy)) {
		return "Your mail service does not support logins.";
	}

	if (not defined($mailProxy->login())) {
		return "<br/>You could not be logged in.<br/>";
	}

	if (defined($cgi->param('emailId'))) {
		push(@emails, $cgi->param('emailId'));
	}

	foreach my $emailId (@emails) {
		$mailProxy->deleteEmail(emailId => $emailId);
	}

	return $self->getMajorLayout(mailProxy => $mailProxy, requestedFolder => $cgi->param('folder'));
}

sub actionCreateFolderPrompt {
	my $self        = shift;
	my $toolBox     = $self->getToolBox();
	my $client      = $toolBox->getClient();
	my $cgi         = $toolBox->getCgi();
	my ($type,$db)  = @{{@_}}{qw/type db/};
	my $ret         = "";

	my %emailParams = $self->getUserEmailParams(type => $type, db => $db);
	my $mailProxy   = $self->getMailProxyFromType(type => $type, db => $db, emailParams => \%emailParams);

	# XXX -- wording
	if (!%emailParams or not defined($mailProxy)) {
		return "Your mail service does not support logins.";
	}

	my $box = $toolBox->createBox(title => "Create New Folder", width => "285");

	my @folders = $mailProxy->getFolders();

	$ret .= $toolBox->getDomJs . "
		<script language='javascript' version='1.3'>

			function updateParent(parentName) {
			
				var createForm = getObjectById(\"createForm\");

				createForm.parentName.value = parentName;

			}

			function onSubmitFunction() {

				var createForm = getObjectById(\"createForm\");

				if (createForm.folderRelativeName.value == '') {

					alert('You must specify a folder name');

					return false;

				}
				
				createForm.folderName.value = createForm.parentName.value + '\\\\' + createForm.folderRelativeName.value;

				return true;

			}

		</script>

		<form id='createForm' method='GET' onSubmit='return onSubmitFunction();'>
			<br/>
		" . $box->getHeaderHtml;

	$ret .= "
			" . $client->getFormInputs(values => [
					{
						name  => 'action',
						value => 'createFolderExecute'
					},
					{
						name  => 'parentName',
						value => ''
					},
					{
						name  => 'folderName',
						value => ''
					}]) . "
			<table width='100%' border='0'>
				<tr>
					<td align='left' class='CLMPREVIEWDEF' width='100%'>
						Folder name:
					</td>
					<td align='left' class='CLMPREVIEWDEF'>
						<input type='text' size='35' name='folderRelativeName'/>
					</td>
				</tr>
				<tr>
					<td align='left' class='CLMPREVIEWDEF' width='100%' colspan='2'>
						<nobr><b>Select the parent folder</b></nobr><br/>
						<div style='height: 120px; overflow: auto'>
							" . $self->getFoldersInSupportedFormat(folders => \@folders, js => 'updateParent') . "
						</div>
					</td>
				</tr>
				<tr>
					<td align='right' class='CLMPREVIEWDEF' colspan='2'>
						<input type='submit' value='Create'/>
					</td>
				</tr>
			</table>
		";

	$ret .= $box->getFooterHtml . 
		"</form>";
}

sub actionCreateFolderExecute {
	my $self        = shift;
	my $toolBox     = $self->getToolBox();
	my $client      = $toolBox->getClient();
	my $cgi         = $toolBox->getCgi();
	my ($type,$db)  = @{{@_}}{qw/type db/};
	my $ret         = "";
	my $folderName  = $cgi->param('folderName');

	my %emailParams = $self->getUserEmailParams(type => $type, db => $db);
	my $mailProxy   = $self->getMailProxyFromType(type => $type, db => $db, emailParams => \%emailParams);

	# XXX -- wording
	if (!%emailParams or not defined($mailProxy)) {
		return "Your mail service does not support logins.";
	}

	if (not defined($folderName) or length($folderName) == 0) {

		$ret = "
			<br/>
			You did not specify a valid folder name.
			<br/>";

		$ret .= $self->actionCreateFolderPrompt(type => $type, db => $db);

	} elsif ($mailProxy->doesFolderExist(folderName => $folderName)) {

		$ret = "
			<br/>
			A folder by that name already exists.
			<br/>";

		$ret .= $self->actionCreateFolderPrompt(type => $type, db => $db);

	} elsif (!($mailProxy->createFolder(folderName => $folderName))) {

		$ret = "
			<br/>
			The folder '" . HTML::Entities::encode($folderName) . "' could not be created.
			<br/>";

		$ret .= $self->actionCreateFolderPrompt(type => $type, db => $db);

	} else {

		$ret = $self->getMajorLayout(mailProxy => $mailProxy);

	}

	return $ret;
}

sub actionMoveToFolderPrompt {
	my $self         = shift;
	my $toolBox      = $self->getToolBox();
	my $client       = $toolBox->getClient();
	my $cgi          = $toolBox->getCgi();
	my ($type,$db)   = @{{@_}}{qw/type db/};
	my $ret          = "";
	my @checkedItems = $cgi->param('checkedItems');

	my %emailParams  = $self->getUserEmailParams(type => $type, db => $db);
	my $mailProxy    = $self->getMailProxyFromType(type => $type, db => $db, emailParams => \%emailParams);

	# XXX -- wording
	if (!%emailParams or not defined($mailProxy)) {
		return "Your mail service does not support logins.";
	}

	my $box = $toolBox->createBox(title => "Move Emails to Folder...", width => "500");

	$ret .= $toolBox->getDomJs . "
		<script language='javascript' version='1.3'>

			function updateFolderPath(folderName) {

				var moveToFolderForm = getObjectById(\"moveToFolderForm\");

				moveToFolderForm.folderName.value = folderName;

			}

			function onSubmitFunction() {
				
				var moveToFolderForm = getObjectById(\"moveToFolderForm\");

				if (moveToFolderForm.folderName.value == '') {
					alert('You must select a destination folder.');
					
					return false;
				}

				return true;
			}

		</script>

		<form method='GET' id='moveToFolderForm' onSubmit='return onSubmitFunction();'>
			<br/>
		" . $box->getHeaderHtml;

	$ret .= "
			" . $client->getFormInputs(values => [
					{
						name  => 'action',
						value => 'moveToFolderExecute'
					},
					{
						name  => 'folderName',
						value => ''
					}
					]) . "
			<table width='100%' border='0' cellspacing='0' cellpadding='1'>
				<tr>
					<td align='left' class='CLMPREVIEWTD1' colspan='2'>
						<nobr><b>&nbsp;From</b></nobr>
					</td>
					<td align='left' class='CLMPREVIEWTD1' width='100%'>
						<b>&nbsp;Subject</b>
					</td>
					<td align='left' class='CLMPREVIEWTD1'>
						<nobr><b>&nbsp;Received</b></nobr>
					</td>
				</tr>

			";

	foreach my $item (@checkedItems) {
		my %emailInformation = $mailProxy->getEmail(emailId => $item);

		if (!%emailInformation) {
			next;
		}

		$ret .= "
				<tr>
					<td align='left' class='CLMPREVIEWDEF'>
						<input type='checkbox' name='checkedItems' value=\"" . HTML::Entities::encode($item) . "\" CHECKED> 
					</td>
					<td align='left' class='CLMPREVIEWDEF'>
						<nobr>" . HTML::Entities::encode($emailInformation{'EMAIL_FROM'}) . "</nobr>
					</td>
					<td align='left' class='CLMPREVIEWDEF'>
						&nbsp;" . HTML::Entities::encode($emailInformation{'EMAIL_SUBJECT'}) . "
					</td>
					<td align='left' class='CLMPREVIEWDEF'>
						<nobr>" . HTML::Entities::encode($emailInformation{'EMAIL_DATE'}) . "</nobr>
					</td>
				</tr>";
	}

	my @folders = $mailProxy->getFolders;

	$ret .= "
				<tr>
					<td align='left' class='CLMPREVIEWDEF' colspan='4'>
						<b>Select the folder you wish to move to:</b><br/>
						<div style='overflow: auto; width: 100%; height: 10em; margin-left: 5px'>
							" . $self->getFoldersInSupportedFormat(folders => \@folders, js => 'updateFolderPath') . "
						</div>
					</td>
				</tr>
				<tr>
					<td align='right' class='CLMPREVIEWDEF' colspan='4'>
						<input type='submit' value='Move'/>
					</td>
				</tr>
			</table>
		";

	$ret .= $box->getFooterHtml . 
		"</form>";

}

sub actionMoveToFolderExecute {
	my $self         = shift;
	my $toolBox      = $self->getToolBox();
	my $client       = $toolBox->getClient();
	my $cgi          = $toolBox->getCgi();
	my ($type,$db)   = @{{@_}}{qw/type db/};
	my $ret          = "";
	my $folderName   = $cgi->param('folderName');
	my @checkedItems = $cgi->param('checkedItems');

	my %emailParams  = $self->getUserEmailParams(type => $type, db => $db);
	my $mailProxy    = $self->getMailProxyFromType(type => $type, db => $db, emailParams => \%emailParams);

	# XXX -- wording
	if (!%emailParams or not defined($mailProxy)) {
		return "Your mail service does not support logins.";
	}

	if (not defined($folderName) or length($folderName) == 0) {

		$ret = "
			<br/>
			You did not specify a valid folder name.
			<br/>";

		$ret .= $self->actionMoveToFolderPrompt(type => $type, db => $db);

	} elsif (!($mailProxy->moveToFolder(emails => \@checkedItems, folderName => $folderName))) {

		$ret = "
			<br/>
			The emails could not be moved to '" . HTML::Entities::encode($folderName) . "'.
			<br/>";

		$ret .= $self->actionMoveToFolderPrompt(type => $type, db => $db);

	} else {

		$ret = $self->getMajorLayout(mailProxy => $mailProxy);

	}

	return $ret;
}

sub actionComposeEmail {
	my $self         = shift;
	my $toolBox      = $self->getToolBox();
	my $client       = $toolBox->getClient();
	my $cgi          = $toolBox->getCgi();
	my ($type,$db)   = @{{@_}}{qw/type db/};
	my $ret          = "";

	my %emailParams = $self->getUserEmailParams(type => $type, db => $db);
	my $mailProxy   = $self->getMailProxyFromType(type => $type, db => $db, emailParams => \%emailParams);

	# XXX -- wording
	if (!%emailParams or not defined($mailProxy)) {
		return "Your mail service does not support logins.";
	}

	my $box = $toolBox->createBox(title => "Compose Email", width => "500");

	my $outgoingId  = ((defined($cgi->param('outgoingMailId')))?$cgi->param('outgoingMailId'):$mailProxy->getNextOutgoingMailId);
	my $to          = ((defined($cgi->param('to')))?$cgi->param('to'):"");
	my $cc          = ((defined($cgi->param('cc')))?$cgi->param('cc'):"");
	my $bcc         = ((defined($cgi->param('bcc')))?$cgi->param('bcc'):"");
	my $subject     = ((defined($cgi->param('subject')))?$cgi->param('subject'):"");
	my $body        = ((defined($cgi->param('body')))?$cgi->param('body'):"");
	my $composeType = $cgi->param('composeType');

	if (not defined($subject)) {
		$subject = "";
	}

	if (defined($composeType) and $composeType eq 'reply') {

		if (defined($cgi->param('origBody'))) {
			$body = $cgi->param('origBody');
			$body =~ s/^/> /gm;
		}

		if (defined($cgi->param('origFrom'))) {
			$to = $cgi->param('origFrom');

			# needs to match:
			# blah <email@home.com>
			# email@home.com

		#	/(?:.*?<(.*)>|(.*))/

			$to =~ s/(?:.*?<(.*)>|(.*))/$1$2/;
		}

		if (defined($cgi->param('origSubject'))) {
			$subject = "Re: " . $cgi->param('origSubject'); 
		}
	} elsif (defined($composeType) and $composeType eq 'forward') {

		if (defined($cgi->param('origBody'))) {
			$body =  $cgi->param('origBody');
			$body =~ s/^/> /gm;
		}

		if (defined($cgi->param('origSubject'))) {
			$subject = "Fw: " . $cgi->param('origSubject'); 
		}
	}

	$ret .= "
		<script language='javascript' version='1.3'>

			function showAttachmentPane() {

				var row    = document.getElementById(\"attachmentRow\");
				var button = document.getElementById(\"addAttachmentButton\");

				if (row.style.display == 'none') {
					
					row.style.display = '';

				} else {

					row.style.display = 'none';
		
				}

			}

			function uploadAttachment() {

				var form = document.getElementById(\"form\");

				form.action.value = 'addAttachment';

				form.submit();

			}

		</script>

		<br/>
		<form id='form' method='POST' enctype='multipart/form-data'>
				" . $box->getHeaderHtml;

	$ret .= "
			" . $client->getFormInputs(values => [
					{
						name  => 'action',
						value => 'sendEmail',
					},
					{
						name  => 'outgoingMailId',
						value => $outgoingId
					}]) . "
			<table width='100%' border='0' cellspacing='0'>
				<tr>
					<td align='left' class='CLMPREVIEWTD1'>
						&nbsp;<b>To:</b>
					</td>
					<td align='left' class='CLMPREVIEWTD1' width='100%'>
						&nbsp;<input type='text' size='30' name='to' value=\"" . HTML::Entities::encode($to) . "\"/>
					</td>
				</tr>
				<tr>
					<td align='left' class='CLMPREVIEWTD1'>
						&nbsp;<b>Cc:</b>
					</td>
					<td align='left' class='CLMPREVIEWTD1' width='100%'>
						&nbsp;<input type='text' size='30' name='cc' value=\"" . HTML::Entities::encode($cc) . "\"/>
					</td>
				</tr>
				<tr>
					<td align='left' class='CLMPREVIEWTD1'>
						&nbsp;<b>Bcc:</b>
					</td>
					<td align='left' class='CLMPREVIEWTD1' width='100%'>
						&nbsp;<input type='text' size='30' name='bcc' value=\"" . HTML::Entities::encode($bcc) . "\"/>
					</td>
				</tr>
		";

	my $temporaryFile  = $outgoingDirectory . $client->getSessionId . '-' . $client->getUserId . '-' . $outgoingId;
	my $attachmentFile = Pos::Webtop::Web::ContentModule::Mail::AttachmentFile->new();
	my $attachments    = $attachmentFile->getAttachments(file => $temporaryFile);

	if (defined($attachments) and scalar(@{ $attachments }) > 0) {

		$ret .= "
				<tr>
					<td align='left' class='CLMPREVIEWTD1' valign='top'>
						&nbsp;<b>Attachments:</b>
					</td>
					<td align='left' class='CLMPREVIEWTD1'>
					";

		foreach my $attachment (@{ $attachments }) {
			my %hash = %{ $attachment };

			my $fileName = $hash{'ATTACHMENT_FILENAME'};
			my $fileSize = $hash{'ATTACHMENT_SIZE'} / 1024;

			$fileSize = sprintf("%.2f", $fileSize);

			$ret .= "
						&nbsp;" . HTML::Entities::encode($fileName) . " ($fileSize KB)<br/>
						";
		}

		$ret .= "
					</td>
				</tr>
			";

	}

	$ret .= "
				<tr>
					<td align='left' class='CLMPREVIEWTD1'>
						&nbsp;<b>Subject:</b>
					</td>
					<td align='left' class='CLMPREVIEWTD1' width='100%'>
						&nbsp;<input type='text' size='50' name='subject' value=\"" . HTML::Entities::encode($subject) . "\"/>
					</td>
				</tr>
				<tr>
					<td align='left' class='CLMPREVIEWTD1' colspan='2'>
						
						<table border='0' cellspacing='0' cellpadding='0'>
						<tr>
							<td class='CLMPREVIEWTD1'>&nbsp;</td>
							<td class='CLMPREVIEWTD1' width='100%'>
								<textarea style='width: 100\%;' name='body' rows='20'>" . HTML::Entities::encode($body) . "</textarea>
							</td>
							<td class='CLMPREVIEWTD1'>&nbsp;</td>
						</tr>
						</table>

					</td>
				</tr>
				<tr>
					<td align='left' class='CLMPREVIEWTD1' colspan='2'>
						&nbsp;<input type='submit' value='Send'/>&nbsp;&nbsp;<input type='button' id='addAttachmentButton' value='Add attachment...' onClick=\"showAttachmentPane();\"/>	
					</td>
				</tr>
				<tr id='attachmentRow' style='display: none'>
					<td align='left' class='CLMPREVIEWTD2' colspan='2'>
						<table width='100%' border='0'>
							<tr>
								<td align='left' class='CLMPREVIEWTD2'>
									<br/>
									&nbsp;<b>File:</b> <input type='file' name='attachedFile'/><br/>
									<br/>
									&nbsp;<input type='button' value='Save attachment' onClick=\"uploadAttachment();\"/>
									<br/>
									<br/>
								</td>
							</tr>
						</table>
					</td>
				</tr>
			</table>";

	$ret .= $box->getFooterHtml . "
		</form>";

	return $ret;

}

sub actionAddAttachment {
	my $self         = shift;
	my $toolBox      = $self->getToolBox();
	my $client       = $toolBox->getClient();
	my $cgi          = $toolBox->getCgi();
	my ($type,$db)   = @{{@_}}{qw/type db/};
	my $ret          = "";

	my %emailParams = $self->getUserEmailParams(type => $type, db => $db);
	my $mailProxy   = $self->getMailProxyFromType(type => $type, db => $db, emailParams => \%emailParams);

	# XXX -- wording
	if (!%emailParams or not defined($mailProxy)) {
		return "Your mail service does not support logins.";
	}

	my $outgoingId = $cgi->param('outgoingMailId');

	# Now we shall add the attachment to the temporary file 
	my $temporaryFile = $outgoingDirectory . $client->getSessionId . '-' . $client->getUserId . '-' . $outgoingId;
	my $boundary      = $client->getSessionId . $client->getUserId . $outgoingId;
	my $fd;

	my $filename = $cgi->param('attachedFile');
	my $handle   = $cgi->upload('attachedFile');

	my $attachmentFile = Pos::Webtop::Web::ContentModule::Mail::AttachmentFile->new();

	if (defined($attachmentFile)) {
		$attachmentFile->append(
				file          => $temporaryFile,
				boundary      => $boundary,
				inputHandle   => $handle,
				inputFileName => $filename);
	}

	return $self->actionComposeEmail(type => $type, db => $db);
}

sub actionSendEmail {
	my $self         = shift;
	my $toolBox      = $self->getToolBox();
	my $client       = $toolBox->getClient();
	my $cgi          = $toolBox->getCgi();
	my ($type,$db)   = @{{@_}}{qw/type db/};
	my $ret          = "";

	my %emailParams = $self->getUserEmailParams(type => $type, db => $db);
	my $mailProxy   = $self->getMailProxyFromType(type => $type, db => $db, emailParams => \%emailParams);

	# XXX -- wording
	if (!%emailParams or not defined($mailProxy)) {
		return "Your mail service does not support logins.";
	}

	my $outgoingId     = $cgi->param('outgoingMailId');
	my $temporaryFile  = $outgoingDirectory . $client->getSessionId . '-' . $client->getUserId . '-' . $outgoingId;
	my $attachmentFile = Pos::Webtop::Web::ContentModule::Mail::AttachmentFile->new();
	my $attachments    = $attachmentFile->getAttachments(file => $temporaryFile);

	if (not defined($mailProxy->sendEmail(to          => $cgi->param('to'),
													  cc          => $cgi->param('cc'),
													  bcc         => $cgi->param('bcc'),
													  subject     => $cgi->param('subject'),
													  body        => $cgi->param('body'),
													  attachments => $attachments))) {
	
		$ret .= "<center><font size='2'><b>The mail message could not be transmitted</b></font></center>";

		$ret .= $self->actionComposeEmail(type => $type, db => $db);

	} else {

		# We no longer need the attachments file
		$temporaryFile =~ /(.*)/;
		$temporaryFile = $1;
		unlink($temporaryFile);

		$ret .= "<center><font size='1'><b>Mail sent successfully</b></font></center>";

		$ret .= $self->getMajorLayout(mailProxy => $mailProxy);

	}

	return $ret;
}

# Internal methods

sub getFoldersInSupportedFormat {
	my $self = shift;
	my ($folders, $js) = @{{@_}}{qw/folders js/};

	# Convert folders into a tree
	my $tree = Pos::Webtop::Web::TreeNode->new();

	foreach my $folder (@{ $folders }) {
		my ($folderName, $folderEmailNewCount) = @{ $folder };

		my @nodes = split /\\/, $folderName;
		my $parent = $tree;
		my $count  = 0;

		foreach my $nodeName (@nodes) {
			my $appendFrontText = "";
			my $appendBackText  = "";

			$count++;

			if ($folderEmailNewCount and $count == scalar(@nodes)) {
				$appendFrontText = "<b>";
				$appendBackText  = "($folderEmailNewCount)</b>";
			}

			my $encode = HTML::Entities::encode($folderName);
			$encode =~ s/\\/\\\\/g;
			$encode =~ s/\"/\\\"/g;
			$encode =~ s/\'/\\\'/g;

			my $new = Pos::Webtop::Web::TreeNode->new(text => $nodeName, 
								appendFrontText => $appendFrontText,
								appendBackText  => $appendBackText,
								js              => "$js(\"$encode\");");

			$new = $parent->pushNode(node => $new);
			$parent = $new;
		}
	}

	return $tree->sprout();
}

1;