#!/usr/bin/perl -I.

use strict;
use Pos::Webtop::Web::ContentModule;
use Pos::Policy::LayeredBurrito ();
use Pos::Webtop::OcxLauncher;

package Pos::Webtop::Web::ContentModule::Intranet;

my $global_scheme = "https";

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;	
}

# (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 $ret = undef;

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

	not defined($action) and $action = 0;

	$client->checkSession();

	if (($action ne 'rwPopup') and ($action ne 'rwGetPage') and ($action ne 'rwTopframe')) 
	{

		my $p = $toolBox->getPage();

		if (!$action) {
	
			print $p->getHeaderHtml(title => "Webtop: Intranet interface: Main") . "<center>";
			#print Pos::Webtop::OcxLauncher::getLauncherHtml(tb => $toolBox);

			$self->printMainPage();
		
		} elsif ($action eq 'manageBookmarks') {

			$p->addNavBarElement(description => "Manage Bookmarks",
										values      => [
											{
												name  => "action",
												value => "manageBookmarks"
											}
										]);

			print $p->getHeaderHtml(title => "Webtop: Intranet interface: Manage Bookmarks") . "<center>";
			#print Pos::Webtop::OcxLauncher::getLauncherHtml(tb => $toolBox);
	
			$self->printPersonalBookmarks(manage => 1);
		
		} elsif ($action eq 'createCategory') {
	
			$p->addNavBarElement(description => "Manage Bookmarks",
										values      => [
											{
												name  => "action",
												value => "manageBookmarks"
											}
										]);

			print $p->getHeaderHtml(title => "Webtop: Intranet interface: Manage Bookmarks") . "<center>";
			#print Pos::Webtop::OcxLauncher::getLauncherHtml(tb => $toolBox);

			$self->manageCreateCategory(categoryName => $cgi->param('categoryName'));
	
			$self->printPersonalBookmarks(manage => 1);
	
		} elsif ($action eq 'createBookmark') {
	
			$p->addNavBarElement(description => "Manage Bookmarks",
										values      => [
											{
												name  => "action",
												value => "manageBookmarks"
											}
										]);

			print $p->getHeaderHtml(title => "Webtop: Intranet interface: Manage Bookmarks") . "<center>";
			#print Pos::Webtop::OcxLauncher::getLauncherHtml(tb => $toolBox);

			$self->manageCreateBookmark(bookmarkName     => $cgi->param('bookmarkName'),
												 bookmarkUrl      => $cgi->param('bookmarkUrl'),
												 bookmarkCategory => $cgi->param('bookmarkCategory'));
	
			$self->printPersonalBookmarks(manage => 1);
	
		} elsif ($action eq 'removeThings') {

			$p->addNavBarElement(description => "Manage Bookmarks",
										values      => [
											{
												name  => "action",
												value => "manageBookmarks"
											}
										]);

			print $p->getHeaderHtml(title => "Webtop: Intranet interface: Manage Bookmarks") . "<center>";
			#print Pos::Webtop::OcxLauncher::getLauncherHtml(tb => $toolBox);

			my @things = $cgi->param('multiRemoves');

			$self->manageRemoveThings(things => \@things);

			$self->printPersonalBookmarks(manage => 1);

		}

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

	} else {

		if ($action eq 'rwPopup') {

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

			$self->rwPopupHtml(url => $cgi->param('url'),
									displayName => $displayName);

		} elsif ($action eq 'rwGetPage') {
			
			$self->rwGetPageHtml(url => $cgi->param('url'),
										initial => $cgi->param('initial'));

		} elsif ($action eq 'rwTopframe') {
			
			$self->rwTopframeHtml(url => $cgi->param('url'));

		}

	}

	return 1;
}

# (pure virtual defined in Pos::Webtop::Web::ContentModule)
sub getPreviewHtml
{
	my $self   = shift;
	my $ret    = undef;
	my $tb     = $self->getToolBox();
	my $client = $tb->getClient();
	my $cgi    = $tb->getCgi();
	my $db     = $tb->getWebtopDbWriter();
	my $ld     = Pos::Policy::LayeredBurrito->new(db => $db);
	my @topFive;
	my $skinOemId = Pos::Webtop::Web::OEMLoader::getSkinOemId( oemId=> $tb->getOemId() );
	my $isMobile = $client->isMobileWebtop();

	# policyTypeId 131 = homepage
	my $homepage = $ld->getPolicyValues(
				id           => $client->getUserId,
				cache        => 0,
				layer        => "USER_PREF",
				policyTypeId => 131);
	
	my $restrictionSetId = $client->getRestrictionSetId();
	
	my @bookmarks = $db->query(sql => "
			select 
				url,
				display_name
			from
				w_user_bookmarks a
				inner join w_user_bookmark_categories b on a.category_id = b.category_id
			where
				user_id = '" . $client->getUserId . "'
			union
			select
				bookmark_url,
				bookmark_display_name
			from
				user_bookmarks
			where
				user_id = '" . $client->getUserId . "'
				and 
				restrict_set_id = " . ((not defined($restrictionSetId)) ? "NULL" : "'$restrictionSetId'" ) . "
			order by
				display_name
			asc
			");

	my @mru = $db->query(sql => "
			select
				bookmark_rank_id,
				url,
				display_name
			from
				w_user_bookmark_ranks
			where
				user_id = '" . $client->getUserId . "'
			order by
				hits	
			desc
			");

# not top five anymore cause of a huge potential customer
# but i am not gonna change the variable name just yet so
# topFive is actually all bookmarks
	foreach my $bookmarks (@bookmarks)
	{
		my ($url, $displayName) = @{ $bookmarks };
		
		push(@topFive, {
					url  => $url,
					name => $displayName
				});

	}

#	foreach my $mru (@mru) {
#
#		my ($rankId, $url, $displayName) = @{ $mru };
#		my $found = 0;
#			
#		foreach my $bookmark (@bookmarks) {
#
#			my ($bookmarkUrl, $bookmarkName) = @{ $bookmark };
#
#			if (($url eq $bookmarkUrl) and ($displayName eq $bookmarkName)) {
#
#				$found = 1;
#
#				last;
#
#			}
#
#		}
#
#		if (!$found) {
#
#			$db->do(sql => "
#				delete from
#					w_user_bookmark_ranks
#				where
#					url = '" . $db->escape(dirty => $url) . "'
#					AND display_name = '" . $db->escape(dirty => $displayName) . "'
#					AND user_id = '" . $client->getUserId . "'
#				");
#
#		} else {
#
#			push(@topFive, {
#						url  => $url,
#						name => $displayName
#					});
#
#			if (scalar(@topFive) >= 5) {
#				last;
#			}
#		}
#
#	}

#	@topFive = reverse @topFive;

	if (scalar(@topFive) < 5) {

		foreach my $bookmark (@bookmarks) {
				
			my ($bookmarkUrl, $bookmarkName) = @{ $bookmark };

			if (scalar(@topFive) >= 5) {
				last;
			}

			my $found = 0;

			foreach my $exists (@topFive) {

				if (($exists->{'url'} eq $bookmarkUrl) and ($exists->{'name'} eq $bookmarkName)) {
					$found = 1;
					last;
				}

			}

			if ($found) {
				next;
			}

			push(@topFive, {
						url  => $bookmarkUrl,
						name => $bookmarkName
					});
		}

	}

	$ret = $self->getPreviewHeader();

	$ret .= "
		<center>
			<table border='0' width='100%' cellspacing='1'>
				<tr>
					<td class='CLMPREVIEWDEF' align='center'>
						<span class='INFODEF'>" . $self->printAddressBar(nobox => 1, isMobile=> $isMobile) . "</span>
					</td>
				</tr>
				<tr>
					<td class='CLMPREVIEWDEF' align='left'>
						<span class='CLMPREVIEWDEF'>
						";

	if (scalar(@{ $homepage }) > 0) {

		my $temp = @{ $homepage }[0];
		my	$value = $temp->{'policyValue'};
		
		if ( $value eq "" )
		{
			$ret .= "";
		}
		else
		{
		$ret .= "&nbsp;<b>Your current homepage is:</b></td></tr>
				 <tr><td>&nbsp;&nbsp;<img src='LocalWebLib/OEM/" . $skinOemId . "/OrangeBullet.png'>&nbsp;<a class='CLMPREVIEWTD4' href=\"javascript:popupWindowIntranet('$value','');\">$value</a><br/><br>
				 ";
		}

	} else {

		$ret .= "";

	}

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

					";

	if (scalar(@topFive) == 0) {

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

	} else {

		#$ret .= "&nbsp;<b>Most used bookmarks:</b></td></tr>";
		$ret .= "&nbsp;<b>Bookmarks:</b></td></tr>";

		foreach my $top (@topFive) {

			my $name = $top->{'name'};
			my $url  = $top->{'url'};

			my ($grouping, $actual) = split /\\/, $name;

			if (not defined($actual)) {
				$actual = $name;
			}

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

			$ret .= "<tr><td>&nbsp;&nbsp;<img src='LocalWebLib/OEM/" . $skinOemId . "/OrangeBullet.png'>&nbsp;<a class='CLMPREVIEWTD4' href=\"javascript:popupWindowIntranet(\'$url\', \'$name\');\">$actual</a></td></tr>";
		}

	}

	$ret .= "
						</table>
					</td>
				</tr>
				<tr>
					<td class='CLMPREVIEWTD4' align='right'>
						&nbsp" . $client->getFormGetCode(
								text   => 'More...',
								values => [
									{
										name  => 'module',
										value => 'Intranet'
									}
								]) . "
					</td>
				</tr>
			</table>
		</center>
	";

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

	return $ret;
}

sub printMainPage 
{
	my $self   = shift;
	my $tb     = $self->getToolBox();
	my $db     = $tb->getWebtopDbReader();
	my $client = $tb->getClient();
	my $isMobile = $client->isMobileWebtop();

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

				function showHideCategory(header, category) {

					var catDiv = document.getElementById(header + '_div_' + category);
					var catImg = document.getElementById(header + '_img_' + category);

					if (catImg.name == 'plus') {
						catDiv.style.display = 'block';
						catImg.src           = 'LocalWebLib/minusSign.gif';
						catImg.name          = 'minus'
					} else {
						catDiv.style.display = 'none';
						catImg.src           = 'LocalWebLib/plusSign.gif';
						catImg.name          = 'plus';
					}

				}

			</script>
			";

	$self->printAddressBar(isMobile=>$isMobile);
	print "<br/>";

	my $box = $tb->createBox(title => "Homepage", width => '300');
	my $ld     = Pos::Policy::LayeredBurrito->new(db => $db);

	# policyTypeId 131 = homepage
	my $homepage = $ld->getPolicyValues(
				id           => $client->getUserId,
				cache        => 0,
				layer        => "USER_PREF",
				policyTypeId => 131);

	print $box->getHeaderHtml();

  	if (defined($homepage) and scalar(@{ $homepage }) > 0) {
		
		print "&nbsp;<b>Your current homepage is:</b><br/>";
  
		my $temp = @{ $homepage }[0];
		my $value = $temp->{'policyValue'};

		print "&nbsp;&nbsp;&nbsp;<a href=\"javascript:popupWindowIntranet('$value','');\">$value</a>";

	} else {

		print "";

	}

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

	$self->printCorporateBookmarks();
	print "<br/>";
	$self->printPersonalBookmarks();
}

sub printCorporateBookmarks 
{
	my $self   = shift;
	my $tb     = $self->getToolBox();
	my $db     = $tb->getWebtopDbReader();
	my $client = $tb->getClient();
	my $skinOemId = Pos::Webtop::Web::OEMLoader::getSkinOemId( oemId=> $tb->getOemId() );

	my $userId = $client->getUserId;
	my $currTd = 'BOXTD2';
	my $lastCategory;
	
	my $restrictionSetId = $client->getRestrictionSetId();

	my @bookmarks = $db->query(sql => "
		select
			bookmark_display_name,
			bookmark_url
		from
			user_bookmarks
		where
			user_id = '$userId'
			and restrict_set_id = $restrictionSetId
		order by
			bookmark_display_name
		asc
		");

	my $box1 = $tb->createBox(title => "Corporate Bookmarks", width => '300');
	
	print $box1->getHeaderHtml();

	print scalar(@bookmarks) . " corporate bookmarks<br/><br/>
			<table border=0 width='95%' cellspacing='0' cellpadding='1'>
		";

	my @generalBookmarks;
	
	$lastCategory = undef;

	foreach my $bookmark (@bookmarks) {
		my ($bookmarkDisplayName, $bookmarkUrl) = @{ $bookmark };

		my ($category, $displayName) = split /\\/, $bookmarkDisplayName;

		$category = "General" if (not defined($category) or length($category) == 0);

		if (not defined($displayName)) {
			$displayName = $category;

			push (@generalBookmarks, { name => $displayName, url => $bookmarkUrl });

			next;
		}

		if ($category ne $lastCategory) {
			if (defined($lastCategory)) {
				print "
								</table>
							</div>
						</td>
					</tr>
					";
			}

			print "
					<tr>
						<td class='BOXTD2' align='left' width='2%'>
							<img id='corp_img_$category' name='minus' src='LocalWebLib/minusSign.gif' onClick=\"javascript:showHideCategory('corp', '$category');\"/>
						</td>
						<td class='BOXTD2' align='left' width='98%'>
							$category
						</td>
					</tr>
					<tr>
						<td class='BOXTD1' colspan='2'>
							<div id='corp_div_$category'>
								<table border='0'>
				";
		}
			

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

		print "
									<tr>
										<td class='BOXTD1' align='left' width='5%'>
											\&nbsp;\&nbsp;
										</td>
										<td class='BOXTD1' align='left' width='95%'>
											<img src='LocalWebLib/OEM/" . $skinOemId . "/OrangeBullet.png'>&nbsp;<a href=\"javascript:popupWindowIntranet(\'$bookmarkUrl\', \'$cleanName\');\">$displayName</a>
										</td>
									</tr>
		";

		$lastCategory = $category;

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

	}

	# This part prints bookmarks that weren't in a category

	if (scalar(@generalBookmarks) > 0) {

		if (defined($lastCategory)) {
			print "
							</table>
						</div>
					</td>
				</tr>
				";
		}

		$lastCategory = 'No Grouping';

		print"
				<tr>
					<td class='BOXTD2' align='left' width='2%'>
						<img id='corp_img_No Grouping' name='minus' src='LocalWebLib/minusSign.gif' onClick=\"javascript:showHideCategory('corp', 'No Grouping');\"/>
					</td>
					<td class='BOXTD2' align='left' width='98%'>
						No Grouping
					</td>
				</tr>
				<tr>
					<td class='BOXTD1' colspan='2'>
						<div id='corp_div_No Grouping'>
							<table border='0'>
		";

		foreach my $general (@generalBookmarks) {

			my $cleanName  = $general->{'name'};
			$cleanName =~ s/\\/\\\\/g;
			$cleanName =~ s/\'/\\\'/g;

			print "
								<tr>
									<td class='BOXTD1' align='left' width='5%'>
										\&nbsp;\&nbsp;
									</td>
									<td class='BOXTD1' align='left' width='95%'>
										<img src='LocalWebLib/OEM/" . $skinOemId . "/OrangeBullet.png'>&nbsp;<a href=\"javascript:popupWindowIntranet(\'" . $general->{'url'} . "\', \'$cleanName\');\">" . $general->{'name'} . "</a>
									</td>
								</tr>
			";
		}

	}

	if (defined($lastCategory)) {
		print "
							</table>
						</div>
					</td>
				</tr>
			"
	}

	print "		</table>";

	print $box1->getFooterHtml();
}

sub printPersonalBookmarks {

	my $self   = shift;
	my $tb     = $self->getToolBox();
	my $db     = $tb->getWebtopDbReader();
	my $client = $tb->getClient();
	my ($manage) = @{{@_}}{qw/manage/};
	my $isMobile = $client->isMobileWebtop();

	my $sessionId   = $client->getSessionId;
	my $sessionHash = $client->getSessionHash;

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

	my $userId = $client->getUserId;
	my $lastCategory = undef;

	if ($manage) {

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

				function showHideCategory(header, category) {

					var catDiv = document.getElementById(header + '_div_' + category);
					var catImg = document.getElementById(header + '_img_' + category);

					if (catImg.name == 'plus') {
						catDiv.style.display = 'block';
						catImg.src           = 'LocalWebLib/minusSign.gif';
						catImg.name          = 'minus'
					} else {
						catDiv.style.display = 'none';
						catImg.src           = 'LocalWebLib/plusSign.gif';
						catImg.name          = 'plus';
					}

				}

				function addRemoveCategory(checkBox, category) {

					//var multi = document.getElementById(\"multiRemoves\");
					var multi = document.removeBookmarks['multiRemoves'];
					

					if (checkBox.checked) {

						var o = new Option(
							'category;' + category,
							'category;' + category);

						o.selected = true;

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

					} else {

						for (var i = 0; i < multi.options.length; i++) {
				
							if (multi.options[i].value == ('category;' + category)) {

								multi.options[i] = null;

								break;

							}

						}

					}

				}

				function addRemoveBookmark(checkBox, category, bookmarkName) {

					//var multi = document.getElementById(\"multiRemoves\");
					var multi = document.removeBookmarks[\"multiRemoves\"];

					if (checkBox.checked) {

						var o = new Option(
							'bookmark;' + category + ';' + bookmarkName,
							'bookmark;' + category + ';' + bookmarkName);

						o.selected = true;

						multi.options[multi.options.length] = o;
					} else {

						for (var i = 0; i < multi.options.length; i++) {
				
							if (multi.options[i].value == ('bookmark;' + category + ';' + bookmarkName)) {

								multi.options[i] = null;

								break;

							}

						}

					}

				}

			</script>

			";

		$self->printPersonalBookmarkAdditionBoxes();
	}

	my $box1 = $tb->createBox(title => (($manage && !$isMobile)?"Remove Bookmarks":"Personal Bookmarks"), width => '300');

	my @bookmarks = $db->query(sql => "
		select
			wubc.category_name,
			wub.display_name,
			wub.url
		from
			w_user_bookmarks wub,
			w_user_bookmark_categories wubc
		where
			wub.category_id = wubc.category_id
			AND wubc.user_id = " . $client->getUserId() . "
		order by
			wubc.category_name,
			wub.display_name
		asc");

	print $box1->getHeaderHtml();

	if ($manage == 1) 
	{
		!$isMobile and	print "
			<br>You have chosen to manage your bookmarks.<br>
			You can remove categories and bookmarks by clicking on them.<br><br>
			";
	} 
	else 
	{
	
		print "
			<table border=0 width='100%' cellspading='0' cellpadding='1'>
				<th class='BOXTD3' align='center'>
			" . $client->getFormGetCode(
					text   => "Manage Bookmarks",
					values => [
						{ 
							name  => "action",
							value => "manageBookmarks"
						}
					]) . "
				</th>
			</table>";

		print scalar(@bookmarks) . " personal bookmarks<br/><br/>";
	}

	if (scalar(@bookmarks) > 0) 
	{
		print "
			<table border=0 id='categoryTable' border=0 width='95%' cellspacing='0' cellpadding='1'>
		";
	}

	foreach my $bookmark (@bookmarks) 
	{

		my ($category, $displayName, $bookmarkUrl) = @{ $bookmark };

		if ($category ne $lastCategory) 
		{
			if (defined($lastCategory)) 
			{
				print "
								</table>
							</div>
						</td>
					</tr>
					";
			}

			print "
					<tr> " . ($manage && !$isMobile?"
						<td class='BOXTD1' align='left' width='5%'>
							\&nbsp;<input type='checkbox' onClick=\"javascript:addRemoveCategory(this, '$category');\"/>
						</td>":"") . "
						<td class='BOXTD2' align='left' width='2%'>
							<img id='pers_img_$category' name='minus' src='LocalWebLib/minusSign.gif' onClick=\"javascript:showHideCategory('pers', '$category');\"/>
						</td>
						<td class='BOXTD2' align='left' width='" . (($manage && !$isMobile)?"93":"98") . "%'>
							$category
						</td>
					</tr>
					<tr>
						<td class='BOXTD1' colspan='" . (($manage && !$isMobile)?"3":"2") . "'>
							<div id='pers_div_$category'>
								<table border='0' id='instanceTable$category' border='0'>
				";
		}

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

		print "
									<tr> " . ($manage && !$isMobile ?"
										<td class='BOXTD1' align='left' width='5%'>
											<input type='checkbox' onClick=\"javascript:addRemoveBookmark(this, '$category', '$displayName');\"/>
										</td>":"") . "
										<td class='BOXTD1' align='left' width='5%'>
											\&nbsp;\&nbsp;
										</td>
										<td class='BOXTD1' align='left' width='" . (($manage && !$isMobile)?"90":"95") . "%'>
											<a href=\"javascript:popupWindowIntranet(\'$bookmarkUrl\', \'$cleanName\');\">$displayName</a>
										</td>
									</tr>
		";

		$lastCategory = $category;
	}

	if (defined($lastCategory)) 
	{
		if (scalar(@bookmarks) > 0) 
		{

			print "
							</table>
						</div>
					</td>
				</tr>
			</table>";
		}
	}

	if ($manage && !$isMobile) 
	{
		print "
			<form method='POST' name='removeBookmarks'>
				" . $client->getFormInputs(
						values => [
							{
								name  => 'action',
								value => 'removeThings'
							}
						]) . "
				
				<table border='0' width='100%'>
					<tr>
						<td class='CLMPREVIEWDEF' align='left'>	
							<input type='submit' value='Remove'/>
						</td>
						<td class='CLMPREVIEWDEF' align='right'>
							<input type='button' value='Back' onClick=\"javascript:location.href='main.pl?module=Intranet&pVwsh=$sessionHash&pVwsi=$sessionId;'\">
						</td>
					</tr>
				</table>

				<select style='display: none' id='multiRemoves' name='multiRemoves' multiple></select>
			</form>";
	}
	else
	{
		print "
				<table border='0' width='100%'>
					<tr>
						<td class='CLMPREVIEWDEF' align='left'>	
						</td>
						<td class='CLMPREVIEWDEF' align='right'>
						</td>
					</tr>
				</table>
			";
	}


	print $box1->getFooterHtml();

}

sub printPersonalBookmarkAdditionBoxes
{
	my $self   = shift;
	my $tb     = $self->getToolBox();
	my $db     = $tb->getWebtopDbReader();
	my $client = $tb->getClient();
	my $isMobile = $client->isMobileWebtop();
	print "
		<script language='javascript' version='1.3'>

			function onCreateCategory() {
		
				//var catName = document.getElementById(\"categoryName\");
				var catName = document.createCategoryForm[\"categoryName\"];

				if (catName.value == '') {
				
					alert('You specified an invalid category name.');

					return false;

				}

				return true;
			}

			function onCreateBookmark() {

				//var bookmarkName = document.getElementById(\"bookmarkName\");
				//var bookmarkUrl  = document.getElementById(\"bookmarkUrl\");
				//var bookmarkCat  = document.getElementById(\"bookmarkCategory\");
				var bookmarkName = document.createBookmarkForm[\"bookmarkName\"];
				var bookmarkUrl  = document.createBookmarkForm[\"bookmarkUrl\"];
				var bookmarkCat  = document.createBookmarkForm[\"bookmarkCategory\"];

				if ((bookmarkName.value == '') || (bookmarkUrl.value == '') || (bookmarkCat.value == '')) {
				
					alert('You specified an invalid bookmark name, url, or category.');

					return false;

				}

				return true;

			}

		</script>
		";

	# 
	# Category addition stuff
	#

	my $categoryBox = $tb->createBox(title => 'Add Category', width => 300);

	print $categoryBox->getHeaderHtml();

	print "
		<center>
			<form name='createCategoryForm' method='POST' onSubmit='return onCreateCategory();'>
				" . $client->getFormInputs(
						values => [
							{
								name  => 'action',
								value => 'createCategory'
							}
						]) . "

				<table border='0' cellspacing='1' cellpadding='1'>
					<tr>
						<td class='BOXTD1' align='left'>
							Category
						</td>
						<td class='BOXTD1' align='left'>
							<input id='categoryName' type='text' name='categoryName' value='' size=\"" . ($isMobile ? "10" : "30") . "\"/>
						</td>
					</tr>
					<tr>
						<td class='BOXTD1' align='right' colspan='2'>
							<input type='submit' value='Create' name='createCategory'/>
						</td>
					</tr>
				</table>
			</form>
		</center>
		";

	print $categoryBox->getFooterHtml();

	print "<br/>";

	#
	# bookmark addition stuff
	#

	my $bookmarkBox = $tb->createBox(title => 'Add Bookmark', width => 300);

	print $bookmarkBox->getHeaderHtml();

	print "
		<center>
			<form name='createBookmarkForm' method='POST' onSubmit='return onCreateBookmark();'>
			" . $client->getFormInputs(
						values => [
							{
								name  => 'action',
								value => 'createBookmark'
							}
						]) . "

				<table border='0' cellspacing='1' cellpadding='1'>
					<tr>
						<td class='BOXTD1' align='left'>
							Name
						</td>
						<td class='BOXTD1' align='left'>
							<input id='bookmarkName' type='text' name='bookmarkName' value='' size=\"" . ($isMobile ? "10" : "30") . "\"/>
						</td>
					</tr>
					<tr>
						<td class='BOXTD1' align='left'>
							URL
						</td>
						<td class='BOXTD1' align='left'>
							<input id='bookmarkUrl' type='text' name='bookmarkUrl' value=''  size=\"" . ($isMobile ? "10" : "30") . "\"/>
						</td>
					</tr>
					<tr>
						<td class='BOXTD1' align='left'>
							Category
						</td>
						<td class='BOXTD1' align='left'>
							<select id='bookmarkCategory' name='bookmarkCategory'>
			";

	my @categories = $db->query(sql => "
		select
			category_id,
			category_name
		from
			w_user_bookmark_categories
		where
			user_id = '" . $client->getUserId() . "'
		order by
			category_name
		asc
		");

	foreach my $category (@categories) {

		my ($categoryId, $categoryName) = @{ $category };

		print " <option value='$categoryId'>$categoryName</option>";

	}

	print "
							</select>
						</td>
					</tr>
					<tr>
						<td class='BOXTD1' align='right' colspan='2'>
							<input type='submit' value='Create' name='createBookmark'/>
						</td>
					</tr>
				</table>
			</form>
		</center>
		";

	print $bookmarkBox->getFooterHtml();

	print "<br/>";
}

sub printAddressBar 
{
	my $self   = shift;
	my $tb     = $self->getToolBox();
	my $db     = $tb->getWebtopDbWriter();
	my $client = $tb->getClient();
	my ($nobox,$isMobile) = @{{@_}}{qw/nobox isMobile/};
	my $box;
	my $buf = "";

	if (not defined($nobox) or $nobox != 1) {

		$box = $tb->createBox(title => "Browse the Intranet", width => '300');

		print $box->getHeaderHtml;

	}

	$buf .=  "
			<center>
				<form id='browseMe' name='browseMe' method='POST' onSubmit=\"return popupWindowIntranet(document.browseMe.url.value,'','',1);\">
					<table border='0' width='100%'>
						" . ((defined($nobox))?"
							<tr>
								<td class='CLMPREVIEWDEF' align='left' width='0%' colspan='2'>
									<span class='CLMPREVIEWDEF'>
										<b>Enter a Web Site:</b><br/>
									</span>
								</td>
							</tr>
							<tr>
								<td class='CLMPREVIEWDEF' align='left' width='0%'>
									<input type='text' name='url' value='' " . ($isMobile ? "size='10'" : "") . " />
								</td>
								<td class='CLMPREVIEWDEF' align='right' width='100%'>
									<a href='javascript:popupWindowIntranet(document.browseMe.url.value,\"\");void(0);'><img src='LocalWebLib/intranetGoButton.gif' border='0'/></a>
								</td>
						":"
							<tr>
								<td class='BOXTD1' align='left' width='100%' colspan='2'>
									<b>Enter a web site:</b><br/>
								</td>
							</tr>
							<tr>
								<td class='BOXTD1' align='left' width='0%'>
									<input type='text' name='url' value='' " . ($isMobile ? "size='10'" : "") . "/>
								</td>
								<td class='CLMPREVIEWDEF' align='left' width='100%'>
									<a href='javascript:popupWindowIntranet(document.browseMe.url.value,\"\");void(0);'><img src='LocalWebLib/intranetGoButton.gif' border='0'/></a>
								</td>
							</tr>
						") . "
					</table>
				</form>
			</center>
			";

	if (not defined($nobox) or $nobox != 1) {
	
		print $buf . $box->getFooterHtml;
	
	}

	return $buf;
}

sub manageCreateCategory
{
	my $self   = shift;
	my $tb     = $self->getToolBox();
	my $db     = $tb->getWebtopDbWriter();
	my $client = $tb->getClient();
	my ($categoryName) = @{{@_}}{qw/categoryName/};

	if (not defined ($categoryName)) { return; }

	my $cleanCategoryName = $db->escape(dirty => $categoryName);

	my ($exists) = $db->query(sql => "
		select
			category_name
		from
			w_user_bookmark_categories
		where
			category_name = '$cleanCategoryName'
			AND user_id = '" . $client->getUserId() . "'
		");

	if (not defined($exists)) {

		$db->do(sql => "
			insert into 
				w_user_bookmark_categories
			(
				user_id,
				category_id,
				category_name
			) values(
				" . $client->getUserId() . ",
				" . $db->getNextValueString( sequence => 'w_user_bookmark_categories_pk') . ",
				'$cleanCategoryName'
			)");

	}	

	print "
		<center>
			<b>Successfully created category '$categoryName'.</b>
			<br/>
		</center>
		";
}

sub manageCreateBookmark 
{
	my $self   = shift;
	my $tb     = $self->getToolBox();
	my $db     = $tb->getWebtopDbWriter();
	my $client = $tb->getClient();
	my ($bookmarkName, $bookmarkUrl, $bookmarkCategory) = @{{@_}}{qw/bookmarkName bookmarkUrl bookmarkCategory/};

	if (not defined($bookmarkCategory)) { 
		print "
			<center>
				<b>You did not specify a category.</b>
				<br/>
			</center>
		";

		return;
	}

	my $cleanBookmarkName = $db->escape(dirty => $bookmarkName);
	my $cleanBookmarkUrl  = $db->escape(dirty => $bookmarkUrl);
	my $cleanBookmarkCatId= $db->escape(dirty => $bookmarkCategory);

	$db->do(sql => "
		insert into
			w_user_bookmarks
		(
			category_id,
			user_bookmark_id,
			url,
			display_name
		) values (
			'$cleanBookmarkCatId',
			(
				select " .
					( ( Pos::defaults::isPostgresDb()) ? "case when max(user_bookmark_id) is null then 0 else max(user_bookmark_id) end + 1" :
						"decode(max(user_bookmark_id), null, 0, max(user_bookmark_id))+1" ) . "
				from
					w_user_bookmarks wub,
					w_user_bookmark_categories wubc
				where
					wubc.category_id = wub.category_id
					AND wubc.user_id = '" . $client->getUserId . "'
			),
			'$cleanBookmarkUrl',
			'$cleanBookmarkName'
		)");

	print "
		<center>
			<b>Successfully created bookmark '$bookmarkName'.</b>
			<br/>
		</center>
		";
}

sub manageRemoveThings
{
	my $self   = shift;
	my $tb     = $self->getToolBox();
	my $db     = $tb->getWebtopDbWriter();
	my $client = $tb->getClient();
	my ($things) = @{{@_}}{qw/things/};
	my $catRemove = 0;
	my $bookRemove = 0;

	foreach my $thing (@{ $things }) {

		my ($type, $categoryName, $bookmarkName) = split /;/, $thing;

		if ($type eq 'category') {

			my $cleanCategoryName = $db->escape(dirty => $categoryName);
			my ($numBooksRemoved) = $db->query(sql => "
				select
					count(user_bookmark_id)
				from
					w_user_bookmarks a
					inner join w_user_bookmark_categories b on a.category_id = b.category_id
				where
					user_id = '" . $client->getUserId . "'
				");

			$db->do(sql => "
				delete from
					w_user_bookmark_categories
				where
					category_name = '$cleanCategoryName'
					AND user_id   = '" . $client->getUserId . "'
				");

			$bookRemove += $numBooksRemoved;
			$catRemove++;

		} else {

			my $cleanBookmarkName = $db->escape(dirty => $bookmarkName);
			my $cleanCategoryName = $db->escape(dirty => $categoryName);

			$db->do(sql => "
				delete from
					w_user_bookmarks
				where
					user_bookmark_id = (
						select
							max(wub.user_bookmark_id)
						from
							w_user_bookmarks wub,
							w_user_bookmark_categories wubc
						where
							wubc.category_name = '$cleanCategoryName'
							AND wub.display_name = '$cleanBookmarkName'
							AND wubc.category_id = wub.category_id
							AND wubc.user_id = '" . $client->getUserId . "'
					)
				");
			
			$bookRemove++;
		}

	}

	my $message = "Successfully removed";

	$message .= " $bookRemove bookmark" . (($bookRemove != 1)?"s":"") if ($bookRemove > 0);
	$message .= " and " if ($bookRemove > 0 and $catRemove > 0);
	$message .= " $catRemove categor" . (($catRemove != 1)?"ies":"y") if ($catRemove > 0);

	print "
		<center>
			<b>$message.</b>
			<br/>
		</center>
		";
}

sub rwPopupHtml 
{
	my $self   = shift;
	my $tb     = $self->getToolBox();
	my $db     = $tb->getWebtopDbReader();
	my $client = $tb->getClient();
	my ($url, $displayName) = @{{@_}}{qw/url displayName/};

	my $sessionId   = $client->getSessionId;
	my $sessionHash = $client->getSessionHash;

	my $oem = $tb->getOem;

	$self->updateBookmarkRank(displayName => $displayName, url => $url);

	print "Content-type: text/html\r\n\r\n
				<html>
					<head>
					<meta http-equiv='pragma' content='no-cache'/>
						<title>
							" . $oem->getSetting(setting => 'webtopProductName') . " Intranet Proxy
						</title>
					</head>

					<!--
                                        <frameset rows='32,*' border='0'>
                                                <frame src='main.pl?module=Intranet&pVwsh=$sessionHash&pVwsi=$sessionId&action=rwTopframe&url=$url' name='rw_topframe' scrolling='no'>
                                                <frame src='main.pl?module=Intranet&pVwsh=$sessionHash&pVwsi=$sessionId&action=rwGetPage&url=$url&initial=1' name='rw_bottomframe'>
                                        </frameset>
					-->

					<frameset>
						<frame src='main.pl?module=Intranet&pVwsh=$sessionHash&pVwsi=$sessionId&action=rwGetPage&url=$url&initial=1' name='rw_bottomframe' > 
					</frameset>

				</html>
			";
				
}

sub rwTopframeHtml
{
	my $self   = shift;
	my $tb     = $self->getToolBox();
	my $db     = $tb->getWebtopDbReader();
	my $client = $tb->getClient();
	my ($url, $notype) = @{{@_}}{qw/url notype/};

	if (not defined($notype)) {

		print "Content-type: text/html\r\n\r\n";

	}

	my $oem = $tb->getOem;

	print "
			<html><head><meta http-equiv='pragma' content='no-cache'/>
			<title>" . $oem->getSetting(setting => 'webtopProductName') . " Intranet Browser</title></head><body leftmargin='0' topmargin='0' marginwidth='0' marginheight='0' bgcolor='#dddddd'>
				<form action='main.pl' method='POST'>
				<table border='0' cellspacing='0' cellpadding='4' width='100%'>
				<tr>
					<td valign='middle' width='2%'>
						<span style='font-family: sans-serif; font-size: 10pt;'> <b>Address:</b> </span>
					</td>
					<td valign='middle' width='98%'>
						<input type='text' name='url' style='width: 100%' value=\"" . HTML::Entities::encode($url) . "\"/>
						" . $client->getFormInputs(
								values => [
									{
										name  => 'action',
										value => 'rwGetPage'
									},
									{
										name  => 'module',
										value => 'Intranet'
									}
								]) . "
					</td>
				</tr>
				</table>
				</form>
			</body></html>
			";
}

sub rwGetPageHtml
{
	my $self   = shift;
	my $tb     = $self->getToolBox();
	my $db     = $tb->getWebtopDbReader();
	my $client = $tb->getClient();
	my ($url, $initial) = @{{@_}}{qw/url initial/};

	my $origurl = $url;

	my $prefix    = "http";

	my $url_chars = "A-Za-z0-9\-\.";
	my $scheme;
	my $host;
	my $port;
	my $req;
	my $out;

	#add a scheme
	if($url !~ /^https?:\/\//)
	{
  		$url =~ s/(.*)/http:\/\/$1/;
	}

	#add a port

	if($url =~ /^(https?):\/\//) {
  		$scheme = $1;
	} else {
  		$scheme = "http";
	}

	if($url =~ /(^https?:\/\/|)([$url_chars]+\.?[$url_chars]*)(:.*|\/.*|$)/) { 
		$host = $2; 
	}

	if($url =~ /(^https?:\/\/|)([$url_chars]+\.?[$url_chars]*):([\d]+)(\/.*|$)/)
	{
  		$port = $3;
	}

	if($url =~ /(https?:\/\/|)[$url_chars]+\.[$url_chars]+(:[\d]{1-5}|)(\/[\S]+)/) {
  		$req = $3;
	} else {
  		$req = "/";
	}
	my ($oemName) = $db->query(sql => "
										select rewriter_prefix
										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($oemName))
	{
		$oemName = Pos::defaults::getRewriterPrefix;
	}
	if($port) {
#  		$out = $global_scheme . "://rewrite.stage.positivenetworks.net/$scheme:\/\/$host:$port$req";
#		$out = Pos::defaults::getRewriterPrefix."$scheme:\/\/$host:$port$req";
		$out = "$oemName$scheme:\/\/$host:$port$req";
	} else {
 # 		$out = $global_scheme . "://rewrite.stage.positivenetworks.net/$scheme:\/\/$host$req";
 #		$out = Pos::defaults::getRewriterPrefix."$scheme:\/\/$host$req";
 		$out = "$oemName$scheme:\/\/$host$req";
	}

	$url = $out;

	if (not defined($initial) or ($initial == 0)) {
	
		$self->rwTopframeHtml(url => $origurl);
	
	} else {

		print "Content-type: text/html\r\n\r\n";

	}

	#print "
	#	<script language='javascript' version='1.3'>
#
#			parent.rw_bottomframe.location = '$url';
#
#		</script>
#		";

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

			parent.location = '$url';

		</script>
		";

}

sub updateBookmarkRank {
	my $self   = shift;
	my $tb     = $self->getToolBox();
	my $db     = $tb->getWebtopDbReader();
	my $client = $tb->getClient();
	my ($url, $displayName) = @{{@_}}{qw/url displayName/};

	if (defined($displayName) and length($displayName) > 0) {

		# Do mark up

		my ($rankId) = $db->query(sql => "
			select
				bookmark_rank_id
			from
				w_user_bookmark_ranks
			where
				url = '" . $db->escape(dirty => $url) . "'
				AND display_name = '" . $db->escape(dirty => $displayName) . "'
				AND user_id = '" . $client->getUserId() . "'
			");

		if (not defined($rankId)) {

			$db->do(sql => "
				insert into
					w_user_bookmark_ranks
				(
					user_id,
					bookmark_rank_id,
					url,
					display_name,
					hits
				) values(
					'" . $client->getUserId() . "',
					" . $db->getNextValueString('w_user_bookmark_ranks_pk') . ",
					'" . $db->escape(dirty => $url) . "',
					'" . $db->escape(dirty => $displayName) . "',
					1
				)");

		} else {

			$db->do(sql => "
				update
					w_user_bookmark_ranks
				set
					hits = hits+1
				where
					bookmark_rank_id = '$rankId'
				");

		}

	}
}

1;