use strict;
use Pos::Webtop::Toolbox ();
use Pos::Policy::LayeredBurrito ();
use Pos::Webtop::Web::ContentModule::UserPrefs::PrefModule ();

# derived class
package Pos::Webtop::Web::ContentModule::UserPrefs::PrefModule::DesktopWallpaper;
my $className = "Pos::Webtop::Web::ContentModule::UserPrefs::PrefModule::DesktopWallpaper";

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

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

	if ( not defined $self )
	{
		$self = {};
		bless($self,$class);
	}
	
	my %args = @_;
	$args{'self'} = $self;
	Pos::Webtop::Web::ContentModule::UserPrefs::PrefModule->new( %args );

	$self->setPreferenceName( preferenceName=> "Desktop Wallpaper" );
	$self->setPolicyTypeId( policyTypeId=> 160 );

	return $self;	
}

# these can be cut and pasted from the polyp script .. I have
# made the pref form use the same hash to generate the color
# map on the page for the end user

my %colors	= ();
$colors{'BLACK'}	= "0 0 0";
$colors{'BLUE'}		= "0 0 255";
$colors{'DARK BLUE'}	= "0 0 139";
$colors{'DARK GREEN'}	= "0 139 0";
$colors{'DARK RED'}	= "139 0 0";
$colors{'GREEN'}	= "0 255 0";
$colors{'LIGHT BLUE'}	= "173 216 230";
$colors{'PINK'}		= "255 20 147";
$colors{'PURPLE'}	= "160 32 240";
$colors{'TURQOISE'}	= "64 224 208";
$colors{'RED'}		= "255 0 0";
$colors{'WHITE'}	= "255 255 255";
$colors{'YELLOW'}	= "255 255 0";
$colors{'GREY'} = "100 100 100";
$colors{'LIGHT GREY'} = "238 238 238";

# implemented pure virtual
sub getEmbeddedHtml
{
	my $self = shift;
	my $toolBox = $self->getToolBox();
	my $client = $toolBox->getClient();
	my $cgi = $toolBox->getCgi();
	my $pdb = $toolBox->getPolicyDb();
	my $dbr = $toolBox->getWebtopDbReader();

	my $policyValues = $self->getPolicyValues();

	my $value = "";

	foreach my $val ( @{ $policyValues } )
	{
		$value = $val->{'policyValue'};
	}

	my @info = ();

	my ($file,$align,$color) = split /\s*;\s*/, $value;

	$file = "" unless defined $file;
	$align = 'CENTER' unless defined $align;
	$color = 'WHITE' unless defined $color;

	# we also check the persisted values just in case we are moving back or between steps

	my $persistedFile = $client->getPersistedValue( name=> "file" );
	my $persistedAlign = $client->getPersistedValue( name=> "align" );
	my $persistedColor = $client->getPersistedValue( name=> "color" );

	if ( defined $persistedFile )
	{
		$file = $persistedFile;
		$client->repersistValues( values=> ["file"] );
	}
	
	if ( defined $persistedAlign )
	{
		$align = $persistedAlign;
		$client->repersistValues( values=> ["align"] );
	}
	
	if ( defined $persistedColor )
	{
		$color = $persistedColor;
		$client->repersistValues( values=> ["color"] );
	}

	my $providedFileId = "";
	my $existingFile = "";

	if ( $file =~ /^\d+$/ )
	{
		# it's a pk
		$providedFileId = $file;
	}
	else
	{
		$existingFile = $file;
	}
	
	my $totalSteps = 3;
	
	my $ret = "";

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

	$ret .= "
		<form method='post'>
	";

	# the following was in step 2 but we took it out and just check for defined on fileType

	my $fileType = $cgi->param('fileType');
	my $bgImage;
	
	if ( defined $fileType )
	{
		if ( $fileType eq "1" )
		{
			# they picked a pk.. get val from the providedFile
			$bgImage = $cgi->param('providedFile');
		}
		elsif ( $fileType eq "2" )
		{
			$bgImage = $cgi->param('existingFile');
		}
		else
		{
			# no image
			$bgImage = "";
		}

		$client->setPersistedValue( name=> 'file', value=> $bgImage );
	}
	
	my $wizStep = $cgi->param('wizStep');
	$wizStep = -1 unless defined $wizStep;

	my $cancel = 0;
	my $finished = 0;
	
	my $wizAction = $cgi->param('wizAction');

	my $skippedAlign = 0;

	if ( defined $cgi->param('skippedAlign') and not $cgi->param('skippedAlign') ) 
	{
		$skippedAlign = 0;
		$client->setPersistedValue( name=> "skippedAlign", value=> 0 );
	}
	elsif ( 
		( defined $cgi->param('skippedAlign') and $cgi->param('skippedAlign') ) or
		( defined $client->getPersistedValue(name=>"skippedAlign") and $client->getPersistedValue(name=>"skippedAlign") )
		)
	{
		$skippedAlign = 1;
		$client->setPersistedValue( name=> "skippedAlign", value=> 1 );
	}

	if ( defined $wizAction and (uc($wizAction) eq "BACK") )
	{
		$wizStep--;

		if ( $wizStep eq "1" and $skippedAlign )
		{
			$wizStep--; # skip the step again
		}
	}
	elsif ( defined $wizAction and (uc($wizAction) eq "CANCEL") )
	{
		$cancel = 1;
	}
	elsif ( defined $wizAction and (uc($wizAction) eq "FINISH") )
	{
		$finished = 1;
	}
	else
	{
		$wizStep++;

		if ( $wizStep eq "1" and $skippedAlign )
		{
			$wizStep++; # skip the step again
		}
	}


	if ( $cancel )
	{
		$self->setDone();
		return "";
	}
	elsif ( $finished )
	{
		my $color = $cgi->param('color');
		my $policyValue = "$file;$align;$color";

		$self->setPolicyValues( 
			values=> [ { type=> "DEFAULT", value=> $policyValue } ]
		);

		$self->setDone();
		return "";
	}
	elsif ( $wizStep eq "2" )
	{
		my $align = $cgi->param('align');
		$client->setPersistedValue( name=> 'align', value=> $align );
			
		$ret .= "
			<table border='0' cellspacing='2' cellpadding='4' width='400'>
			<tr>
				<th class='BOXTH' align='left'>
					Step 3 of $totalSteps
				</th>
			</tr>
			<tr>
				<td class='BOXTD2' align='left'>
					Please choose the background color for your desktop.  The color you pick below will be the default color used where your
					background image is not applicable.
				</td>
			</tr>
			<tr>
				<td class='BOXTD1' align='left'>
					<br/>
					<table border='0' cellspacing='1' cellpadding='4' bgcolor='black' width='100%'>
		";

		foreach my $colorName ( sort( keys %colors ) )
		{
			my ($r,$b,$g) = split(/\s/,$colors{$colorName});
			my $bgcolor = sprintf("#%02x%02x%02x",$r,$b,$g);

			$ret .= "
						<tr>
							<td class='BOXDEF' valign='middle' align='center' bgcolor='$bgcolor'>
								\&nbsp;
								<input type='radio' name='color' value=\"" . HTML::Entities::encode($colorName) . "\"" . ( $color eq $colorName ? " CHECKED" : "" ) . ">
								\&nbsp;
							</td>
							<td class='BOXTD2' valign='middle' align='left'>
								<B>$colorName</b>
							</td>
						</tr>
			";
		}

		$ret .= "
					</table>
					<br/>
				</td>
			</tr>
			<tr>
				<td>
					<table border='0' cellspacing='0' cellpadding'0' width='100%'>
					<tr>
						<td class='BOXDEF' align='left'>
		";

		$ret .= $client->getFormInputs();

		# make the next and back links
		$ret .= "
							<input type='hidden' value='2' name='wizStep'>
							<input type='submit' name='wizAction' value='Cancel'>
						</td>
						<td class='BOXDEF' align='right'>
							<input type='submit' name='wizAction' value='Back'>
							<input type='submit' name='wizAction' value='Finish'>
						</td>
					</tr>
					</table>
				</td>
			</tr>
					
			</table>
		";
		

	}
	elsif ( $wizStep eq "1" )
	{
			
		$ret .= "
			<table border='0' cellspacing='2' cellpadding='4' width='400'>
			<tr>
				<th class='BOXTH' align='left'>
					Step 2 of $totalSteps
				</th>
			</tr>
			<tr>
				<td class='BOXTD2' align='left'>
					Please choose how you want your background image displayed on your desktop.
				</td>
			</tr>
			<tr>
				<td class='BOXTD1' align='left'>
					<br/>
					<table border='0' cellspacing='2' cellpadding='4'>
					<tr>
						<td class='BOXDEF' valign='middle' align='center'>
							<input type='radio' name='align' value='CENTER'" . ( $align eq "CENTER" ? " CHECKED" : "" ) . ">
						</td>
						<td class='BOXDEF' valign='middle' align='left'>
							<B>Center</b><br/>
							<span class='SMALL'><i>(Your image will be placed in the 
								center of your desktop background--It may or may not cover the
								entire desktop area)</i>
							</span>
						</td>
					</tr>
					<tr>
						<td class='BOXDEF' valign='middle' align='center'>
							<input type='radio' name='align' value='TILE'" . ( $align eq "TILE" ? " CHECKED" : "" ) . ">
						</td>
						<td class='BOXDEF' valign='middle' align='left'>
							<B>Tile</b><br/>
							<span class='SMALL'>
								<I>
									(Your image will be placed at the upper left corner of your screen
									and tiled to fill the remaining area on your desktop)
								</I>
							</span>
						</td>
					</tr>
					<tr>
						<td class='BOXDEF' valign='middle' align='center'>
							<input type='radio' name='align' value='STRETCH'" . ( $align eq "STRETCH" ? " CHECKED" : "" ) . ">
						</td>
						<td class='BOXDEF' valign='middle' align='left'>
							<B>Stretch</b><br/>
							<span class='SMALL'>
								<I>
									(Your image will be stretched to fill the entire desktop area)
								</I>
							</span>
						</td>
					</tr>
					</table>
					<br/>
				</td>
			</tr>
			<tr>
				<td>
					<table border='0' cellspacing='0' cellpadding'0' width='100%'>
					<tr>
						<td class='BOXDEF' align='left'>
		";

		$ret .= $client->getFormInputs();

		# make the next and back links
		$ret .= "
							<input type='hidden' value='1' name='wizStep'>
							<input type='submit' name='wizAction' value='Cancel'>
						</td>
						<td class='BOXDEF' align='right'>
							<input type='submit' name='wizAction' value='Back'>
							<input type='submit' name='wizAction' value='Next'>
						</td>
					</tr>
					</table>
				</td>
			</tr>
					
			</table>
		";
		
	}
	else
	{
		$ret .= "
			<table border='0' cellspacing='2' cellpadding='4' width='400'>
			<tr>
				<th class='BOXTH' align='left'>
					Step 1 of $totalSteps
				</th>
			</tr>
			<tr>
				<td class='BOXTD2' align='left'>
					Please choose the background image for your desktop wallpaper.  You may either pick a image that has been
					provided to you from your organization or you may provide the full path to an image allready on the computer
					you will be using the Positive Networks VPN Client on.
				</td>
			</tr>
			<tr>
				<td class='BOXTD1' align='left'>
					<br/>
					<table border='0' cellspacing='2' cellpadding='4'>
					<tr>
						<td class='BOXDEF' align='left' valign='middle' rowspan='2'>
							<input type='radio' name='fileType' value='1'" . ( length($providedFileId) ? " CHECKED" : "" ) . ">
						</td>
						<td class='BOXDEF' align='left' valign='middle'>
							<B>Provided Image</b><br/>
							<span class='SMALL'><i>(an image provided for use by your organization--this file will be sent to your computer at login)</i></span>
						</td>
					</tr>
					<tr>
						<td class='BOXDEF' align='left' valign='middle'>
							<select name='providedFile' style='width: 300px;'>
		";
		
		my $customerId = $client->getCustomerId();

		my @customerFiles = $dbr->query( sql=> "
			select queue_file_id,source_name
			from customer_queue_files
			where customer_id = $customerId
			order by source_name
		");

		foreach ( @customerFiles )
		{
			my ($id,$name) = @{ $_ };
			$ret .= "<option value='$id'" . ( $id eq $providedFileId ? " SELECTED" : "" ) . ">" . HTML::Entities::encode($name) . "</option>\n";
		}

		$ret .= "
							</select>
						</td>
					</tr>
					</table>
					<br/>
					<table border='0' cellspacing='2' cellpadding='4'>
					<tr>
						<td class='BOXDEF' align='left' valign='middle' rowspan='2'>
							<input type='radio' name='fileType' value='2'" . ( length($providedFileId) ? "" : " CHECKED" ) . ">
						</td>
						<td class='BOXDEF' align='left' valign='middle'>
							<B>Existing Image</b><br/>
							<span class='SMALL'><i>(an image on your computer that you wish to use--provide full path to image)</i></span>
						</td>
					</tr>
					<tr>
						<td class='BOXDEF' align='left' valign='middle'>
							<input type='text' name='existingFile' style='width: 300px;' maxlength='255' value=\"" . HTML::Entities::encode($existingFile) . "\">
						</td>
					</tr>
					</table>
					<br/>
					<table border='0' cellspacing='2' cellpadding='4'>
					<tr>
						<td class='BOXDEF' align='left' valign='middle' rowspan='1'>
							<input type='radio' name='fileType' value='3'" . ( length($file) < 1 ? " CHECKED" : "" ) . ">
						</td>
						<td class='BOXDEF' align='left' valign='middle'>
							<B>No Image</b><br/>
							<span class='SMALL'><i>(Only the background color will be used)</i></span>
						</td>
					</tr>
					</table>
				</td>
			</tr>
			<tr>
				<td class='BOXDEF' align='right'>
					<table border='0' cellspacing='0' cellpadding'0' width='100%'> 
					<tr>
						<td class='BOXDEF' align='left'>
		";

		$ret .= $client->getFormInputs();

		$ret .= "
							<script language='JavaScript'>
								function checkNoImage( f )
								{
									if ( f.fileType[2].checked )
									{
										// no image.. skip next step...
										f.align.value='CENTER';
										f.skippedAlign.value = 1;
									}
									else
									{
										f.align.value='';
										f.skippedAlign.value = 0;
									}

									f.submit();
								}
							</script>

							<input type='hidden' value='0' name='wizStep'>
							<input type='hidden' value='' name='align'>
							<input type='hidden' value='0' name='skippedAlign'>
							<input type='submit' name='wizAction' value='Cancel'>
						</td>
						<td class='BOXDEF' align='right'>
							<input type='button' name='wizAction' value='Next' onClick='checkNoImage( this.form );'>
						</td>
					</tr>
					</table>
				</td>
			</tr>
					
			</table>
		";

	}

	$ret .= "</form>\n";
	
	$ret .= $self->getEmbeddedFooter();

	return $ret;
}

# implemented pure virtual
sub getPreviewText
{
	my $self = shift;
	my $policyValues = $self->getPolicyValues();
	my $value = "";
	my $tb = $self->getToolBox();
	my $client = $tb->getClient();

	foreach my $val ( @{ $policyValues } )
	{
		$value = $val->{'policyValue'};
	}

	my @info = ();

	my ($file,$align,$color) = split /\s*;\s*/, $value;
	
	if ( defined $file and length($file) )
	{
		if ( $file =~ /^\d+$/ )
		{
			# if all digits, it's a pk to customer file table
			my $db = $tb->getWebtopDbReader();
			my $customerId = $client->getCustomerId();

			($file) = $db->query( sql=> "
				select source_name 
				from customer_queue_files
				where customer_id = $customerId and queue_file_id = $file
			");
		}

		push @info, "Background Image '$file' with $align orientation"
	}

	if ( defined $color and length( $color ) )
	{
		push @info, "Background Color $color";
	}

	return join(", ", @info);
}

1;