#!/usr/bin/perl
# ----------------------------------------------------------------------------
#
#  (c) Copyright 2006 TradeExtender
# 
#  This software is proprietary to and embodies the confidential technology 
#  of TradeExtender. Possession, use, duplication or dissemination of the 
#  software and media is authorized only pursuant to a valid written license 
#  from TradeExtender.
#

use strict;
use lib "/var/www/vhosts/kantelpunten.com/httpdocs/pl/lib";
use lib "lib";
#BEGIN {
#    delete $INC{"Kantelpunten/Helper.pm"};
#    delete $INC{"Kantelpunten/MyRobots.pm"};
#}
use Kantelpunten::Helper;
use Kantelpunten::MyRobots;
#use Data::Dumper;

local our $stocks = undef;
local our $param  = undef;

show_favorites();
exit(0);

sub show_favorites()
{
	my $q = CGI->new;

	$param->{action}	= $q->param('action');
	$param->{stock} 	= $q->param('stock');
	$param->{rb} 		= $q->param('rb');

	my $remote_ip = init_helper();
	$param->{rb} = get_robot() if (!defined($param->{rb}) || $param->{rb});
	set_robot($param->{rb});

	$param->{action} = "show" unless defined($param->{action});
	my $sesid = get_session_cookie();   # try to get the session cookie
	my $userid = get_userid_cookie();   # or the userid cookie

	if (!defined($sesid) || !defined($userid))
	{
   		print_redirect("ShowMain.pl?page=10024");
   		exit(0);
	}
	get_user_rec();
	my $registered = set_registered();
	# will stop if nog registered otherwise continue ...
   	only_allowed_for_registered_users();

   	$stocks = get_stocks(undef, undef, "stock", undef, "old");
	if (!defined($stocks))
	{
    	print_error_doc("SF: Probleem met het lezen van de aandelen data.");
    	exit(0);
	}

	if (($param->{action} eq "add") || ($param->{action} eq "remove"))
	{
    	if (!defined($param->{stock}))
	    {
    	    print_error_doc ("Geen stock opgegeven om action $param->{action} uit te voeren");
        	exit(0);
    	}
    	$param->{stock} = get_stock_name($param->{stock});
	    if (!defined($stocks->{$param->{stock}}))
    	{
        	print_error_doc ($param->{stock} . "<br>Dit aandeel wordt niet ondersteund");
        	exit(0);
    	}
	}

	my $ref_script =  "<SCRIPT TYPE=\"text/javascript\">\n" .
    	              "function reloadFrames()\n" .
        	          "{\n" .
            	      "parent.fondsen.location.reload()\n" .
#               	   "parent.fondsen.location=\"NavMarket.pl?start=1&market1=eigen\"\n" .
	                  "}\n" .
    	              "//-->\n" .
        	          "</SCRIPT>\n";
#    $ref_script = undef;

	my $script;
	my $info;
	my $content;
	my $username = set_username();
	my $favorites = set_favorites();
	if ($param->{action} eq "add")
	{
    	substr($favorites, $stocks->{$param->{stock}}->{id}, 1) = "1";
	    set_favorites($favorites);
    	write_user_rec();
	    $script = $ref_script;
    	$info = make_list($favorites);
	    $content = <<EndOfText;
<br><br>
<font style="font-weight: bold; font-style: italic; color: rgb(0, 0, 153);" color="black" face="Verdana" size="5">
 Ziezo $username,<br>
 uw favorieten zijn aangepast!
</font>
<br><br>
<span style="font-family: verdana; color: rgb(51, 51, 51);">
 <small>
  <br>
  <div style="text-align: center;">
  $stocks->{$param->{stock}}->{html_name} is toegevoegd aan uw favorieten.
  <br>
  Uw lijst met favorieten:
  </div>
  $info
 </small>
</span>
EndOfText
	}
	elsif ($param->{action} eq "remove")
	{
    	substr($favorites, $stocks->{$param->{stock}}->{id}, 1) = "0";
	    set_favorites($favorites);
    	write_user_rec();
	    $script = $ref_script;
    	$info = make_list($favorites);
	    $content = <<EndOfText;
<br><br>
<font style="font-weight: bold; font-style: italic; color: rgb(0, 0, 153);" color="black" face="Verdana" size="5">
 Ziezo $username,<br>
 uw favorieten zijn aangepast
</font>
<br><br>
<span style="font-family: verdana; color: rgb(51, 51, 51);">
 <small>
  <br>
  <div style="text-align: center;">
  $stocks->{$param->{stock}}->{html_name} is verwijderd van uw favorieten.
  <br>
  Uw lijst met favorieten:
  </div>
  $info
 </small>
</span>
EndOfText
	}
	elsif ($param->{action} eq "user")
	{
    	$info = make_list($favorites);
    	$content = <<EndOfText;
<span style="font-family: verdana; color: rgb(51, 51, 51);">
 <small>
  Uw lijst met favorieten:
  <br>
  $info
 </small>
</span>
EndOfText
	}
	else
	{
    	$info = make_list($favorites);
    	$content = <<EndOfText;
<br><br>
<font style="font-weight: bold; font-style: italic; color: rgb(0, 0, 153);" color="black" face="Verdana" size="5">
 Hallo $username dit zijn uw favorieten
</font>
<br><br>
<span style="font-family: verdana; color: rgb(51, 51, 51);">
 <small>
  <br>
  $info
 </small>
</span>
EndOfText
	}

    my $pop_menu;	
    my $top_menu;	
	if ($param->{action} ne 'user')
	{
        $pop_menu = make_pop_menu(2, 0);
        $top_menu = make_top_menu(2, 0);
    }

	print_header("+1s");
	print_pre_doc();
	print_head("Favorieten", "hoofd", undef, undef, $script, undef, "eigen", undef, undef, undef, defined($top_menu) ? "top_script" : undef);
	print_body("eigen", (defined($script) ? "reloadFrames()" : undef), undef, undef, undef, undef, undef, ($param->{action} ne "user") ? "kader" : undef, undef, $pop_menu, $top_menu);
	print_div("center");
	print $content;
	print_body(($param->{action} ne "user") ? "end_kader" : "end");
	print_post_doc();
}

sub make_list(@)
{
	my ($favorites) = @_;
    my @i_names = ();
    my @i_ids = ();
    my $list = "";
    
	# make array with stock ids;
	my @ids;
	foreach  my $i (keys %$stocks)
	{
    	@ids[$stocks->{$i}->{id}] = $i;
	}

	for (my $i = 1; $i < 256; $i++)
    {
        if (substr($favorites, $i, 1) eq "1")
        {
            next if (!defined($stocks->{@ids[$i]}));
            push @i_names, $stocks->{@ids[$i]}->{html_name};
            push @i_ids, @ids[$i];
        }
    }
    if (@i_names == 0)
    {
        $list .= "U heeft nog geen favorieten geseleceerd";
    }
    else
    {
        $list .= "<table align=\"center\" width=\"25%\" style=\"font-family: comic sans ms; color: rgb(0, 0, 153);\" border=\"0\" cellpadding=\"0\" cellspacing=\"0\" rightmargin=\"0\" topmargin=\"0\" bottommargin=\"0\">\n";
        for (my $i = 0; $i < @i_names; $i++)
        {
            $list .= "<tr>\n";
            $list .= " <td><small><a href=\"/pl/ShowStock.pl?stock=" . @i_ids[$i] ."\">" . @i_names[$i] . "</a></small></td>\n";
            $list .= " <td width=\"15px\"><a href=\"ShowFavorites.pl?action=remove&stock=" . @i_ids[$i] . "\">\n";
            $list .= "  <img vspace=\"0\" hspace=\"0\" style=\"border: 0px solid ; width: 16px; height: 16px;\"\n";
            $list .= "       alt=\"\" title=\"Verwijder dit aandeel uit uw favorieten lijst\"\n";
            $list .= "       src=\"http://www.kantelpunten.com/pics/icon/MINI_ICOONfavorietenuit.gif\"></a>\n";
            $list .= " </td>\n";
            $list .= "<tr>\n";
        }
    }

    return $list;
}