#!/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/Process.pm"};
#    delete $INC{"Kantelpunten/MyRobots.pm"};
    delete $INC{"Kantelpunten/MyBudy.pm"};
}
use Kantelpunten::Helper;
use Kantelpunten::Process;
use Kantelpunten::MyRobots;
use Kantelpunten::MyBudy;
use CGI   qw(:standard);
use Data::Dumper;

local our $param;
local our $sign;
local our $sign_floppy;
local our $webmaster_email;
local our $reg_ref;

reg_info();
exit(0);

sub reg_info()
{	
	my $remote_ip = init_helper();

	my $q = CGI->new;

	$param->{action} = $q->param('action');
	$param->{reason} = $q->param('reason');
	
	$param->{action} = 'Info' unless defined($param->{action});
	if (defined($param->{reason}))
	{
		$param->{reason} = 'None' if (($param->{reason} ne 'Graph') && ($param->{reason} ne 'ExitStrat')); 
	}
	else
	{
		$param->{reason} = 'None';
	}

	my $domain = get_domain();
	$webmaster_email = "<a href=\"mailto:webmaster\@$domain\" target=\"_blank\">webmaster\@$domain</a>";
#	$sign = "Toppy, Webmaster & beursprogammeur.<br>$webmaster_email<br><br><i>Deze website is geoptimaliseerd voor<br>een resolutie van minimaal 1024*768.</i>";
	$sign = "<br><br><i>Deze website is geoptimaliseerd voor een resolutie van minimaal 1024*768.</i>";
	my $floppy_email = "<a href=\"mailto:floppy\@$domain\" target=\"_blank\">floppy\@$domain</a>";
	$sign_floppy = "Floppy, auteur.<br>$floppy_email";
	
	$reg_ref = "<a href=\"/pl/ShowMain.pl?page=10027\" rel=\"nofollow\" title=\"Hier kunt u zich registeren als nieuwe gebruiker\">";
	my $title;
	my $content = "";
	get_user_rec();
	if ($param->{action} eq 'Welkom')
	{
		$param->{budy} = init_budy(1);
		$content .= add_welkom_tekst() if ($param->{reason} eq 'None');
		$content .= add_graph_tekst() if ($param->{reason} eq 'Graph');
		$content .= add_exitstrat_tekst() if ($param->{reason} eq 'ExitStrat');
#		$content .= add_header_tabel();
#		$content .= add_mogelijkheden();
#		$content .= add_toelichting_tekst();
	}
	elsif ($param->{action} eq 'Einde')
	{
		$content .= add_einde_tekst();
		$content .= add_header_tabel();
		$content .= add_mogelijkheden();
	}
	elsif ($param->{action} eq 'Trial')
	{
		$content .= add_trial_tekst();
		$content .= add_header_tabel();
		$content .= add_mogelijkheden();
	}
	elsif ($param->{action} eq 'Regi')
	{
		$content .= add_regi_tekst();
		$content .= add_header_tabel();
		$content .= add_mogelijkheden();
		$content .= add_toelichting_tekst();
		$content .= add_sign();
	}
	elsif ($param->{action} eq 'Info')
	{
		$content .= add_header_functies();
		$content .= add_toelichting_tekst();
#		$content .= add_introductie_tabel();
		$content .= add_mogelijkheden();
		$content .= add_sign();
	}
	else
	{
    	print_error_doc("Ongeldige aktie $param->{action} gevraagd");
    	exit(0);
	}

    my $pop_menu = make_pop_menu(0, 0);
    my $top_menu = make_top_menu(0, 0);
	
	print_header();
	print_pre_doc();
	print_head("Gebruiker", undef, undef, undef, undef, "reg_info", undef, undef, undef, undef, "top_script");
	print_body("info", undef, undef, undef, undef, undef, undef, 
						(($param->{action} eq "Welkom") ? undef : "kader"), "&nbsp;", $pop_menu, $top_menu);
    print_budy($param->{budy}, 12000, undef, "nodis");
	print_div("center");
	print $content;
	print_voet();
	print_div("end");
	print_body("end_kader");
	print_post_doc();
}

sub add_sign
{
	return <<EndOfText;
<div align="center">
<span style="font-family: verdana; color: rgb(51, 51, 51);">
 <small>
  <br>
  $sign<br>
 </small>
</span>
</div>
EndOfText
}

sub add_header_functies
{
	my $add = "";
#	if (is_trial_period())
#	{
#		 $add = "Kennis makings periode actief t/m " . date_to_string(set_trialuntil()) . "<br>";
#	}
#<span style="font-family: verdana; color: rgb(51, 51, 51);">
# <small>
#De pagina "Alle adviezen" wordt betalend in 2009. ( 179 €/jaar )<br>
#<br></small></span>
	return <<EndOfText;
<br>
<font style="font-weight: bold; font-style: italic; color: rgb(0, 0, 153);" color="black" face="Verdana" size="5">
Mogelijkheden Kantelpunten
</font>
<br>
$add
EndOfText
}

sub add_header_tabel
{
	return <<EndOfText;
<div align="center">
<span style="font-family: verdana; color: rgb(51, 51, 51);">
 <small><br><br></small>
 <big>
   Overzicht mogelijkheden<br>
 </big> 
</span>
</div>
EndOfText
}

sub add_introductie_tabel
{
	return <<EndOfText;
<div align="center">
<span style="font-family: verdana; color: rgb(51, 51, 51);">
 <small>
  <br>
  Wij bieden functies die U ook op andere beurswebsites aantreft.<br>
  We hopen echter een meerwaarde te creeëren door voor iedereen de<br>
  recenste kantelpuntstijgers te tonen, onze volumeonderschepper,<br>
  èn een overzichtslijst van alle verkochte aandelen in de dag.<br>
  <br>
  Daarnaast zijn er functies, voorbehouden aan geregistreerde gebruikers.<br>
  U ziet de belangrijkste in de tabel hieronder. Als U uw muis boven het icoon<br>
  met het vraagteken beweegt, krijgt U uitleg over de functionaliteit.<br>
  U kunt zich eventueel ${reg_ref}hier</a> gratis registeren.<br>
  <br>
 </small> 
</span>
</div>
EndOfText
}

sub add_mogelijkheden
{
	my $header_class = "kantel";
	my $text = <<EndOfText;
<span style="font-family: verdana; color: rgb(51, 51, 51);">
<small>
Onder het blauwe icoon met het vraagteken, vindt U uitleg over de betreffende functionaliteit.
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="80%" align="center" style="font-size: 11px;">
 <tbody>
<tr style="font-size: 11px;">
 <th class="$header_class">&nbsp;Beschrijving functionaliteit&nbsp;</th>
 <th class="$header_class">Gewone<br>gebruiker</th>
 <th class="$header_class">Publiek<br>&nbsp;account&nbsp;</th>
 <th class="$header_class">Privé<br>&nbsp;account&nbsp;</th>
</tr>
EndOfText
# <th class="$header_class">Kennis<br>making<div align="left"></th>

	my $items = {
#		'06' => { 'func'  => "Alle kantelpunten van de laatste 2 jaar.",
#				  'extra' => "Toont alle historische kantelpunten van de afgelopen 2 jaar. Op de laatste na.",
#				  'stat1' => 1,
#				  'stat2' => 1,
#		          'stat3' => 1,
#		          'stat4' => 1, },
#		'09' => { 'func'  => "Doorsturen overzichtspagina's.",
#				  'extra' => "Sommige pagina's zoals winstpakkers, juistheid en kantelpunten kunnen verstuurd worden via email.",
#				  'stat1' => 1,
#				  'stat2' => 1,
#		          'stat3' => 1,
#		          'stat4' => 1, },
#		'12' => { 'func'  => "Verkochte aandelen van de dag per order.",
#				  'extra' => "De mogelijkheid tot het tonen het combineren van de ticks per order.",
#		          'stat1' => 1,
#		          'stat2' => 1,
#		          'stat3' => 1,
#		          'stat4' => 1, },
#		'13' => { 'func'  => "Verkochte aandelen van de dag per koers.",
#				  'extra' => "Per koers wordt het aantal orders en het totale volume getoond.",
#		          'stat1' => 1,
#		          'stat2' => 1,
#		          'stat3' => 1,
#		          'stat4' => 1, },
#		'15' => { 'func'  => "De laatste trigger. Zeer belangrijk!",
#				  'extra' => "Zeer belangrijk om miskoop te voorkomen.",
#				  'stat1' => 1,
#				  'stat2' => 1,
#		          'stat3' => 1,
#		          'stat4' => 1, },
#		'17' => { 'func'  => "Kantelpunt grafiek bij 3 maand grafiek.",
#				  'extra' => "Op de 3 maand grafiek is grafisch weergegeven hoe dicht we bij een nieuw kantelpunt zijn.",
#				  'stat1' => 1,
#				  'stat2' => 1,
#		          'stat3' => 1,
#		          'stat4' => 1, },
#		'18' => { 'func'  => "Kantelpunt op 5 daagse grafiek.",
#				  'extra' => "Op de 5 daags grfaiek wordt het laatste kantelpunten getoond.",
#				  'stat1' => 1,
#				  'stat2' => 1,
#		          'stat3' => 1,
#		          'stat4' => 1, },
#		'19' => { 'func'  => "Trigger op overzichtspagina.",
#				  'extra' => "Voor gebruiks gemak ziet u op de overzicht pagina (open/recent) ook dettrigger.",
#				  'stat1' => 1,
#				  'stat2' => 1,
#		          'stat3' => 1,
#		          'stat4' => 1, },
#		'18' => { 'func'  => "Textuele beschrijving adviezen per aandeel.",
#				  'extra' => "Op de aandelen pagina beschrijven we de recente adviezen van dat aandeel.",
#				  'stat1' => 0,
#				  'stat2' => 1,
#		          'stat3' => 1,
#		          'stat4' => 1, },
#		'19' => { 'func'  => "Overzicht verkochte aandelen per koers.",
#				  'extra' => "Het totaal volume en het volume per koers wordt als extra getoond.",
#				  'stat1' => 0,
#				  'stat2' => 1,
#		          'stat3' => 0,
#		          'stat4' => 1, },
		'00' => { 'func'  => "", },
		'01' => { 'func'  => "Aandelen informatie op 1 pagina.",
		          'extra' => "Overzichtspagina per aandeel. Waarop u handige links vindt, grafieken (week, 2jaar, 5jaar), de laatste kantelpunten en het laatste nieuws.",
		          'stat1' => 1,
		          'stat2' => 1,
		          'stat3' => 1,
		          'stat4' => 1, },
		'02' => { 'func'  => "Lopende juiste Adviezen.",
		          'extra' => "Overzicht van de lopende adviezen die minimaal 1.83% hebben behaald.",
		          'stat1' => 1,
		          'stat2' => 1,
		          'stat3' => 1,
		          'stat4' => 1, },
		'03' => { 'func'  => "Adviesjuistheid.",
		          'extra' => "Overzicht van de adviesjuistheid per aandeel over de afgelopen 2 jaar.",
		          'stat1' => 1,
		          'stat2' => 1,
		          'stat3' => 1,
		          'stat4' => 1, },
		'04' => { 'func'  => "Inzicht in onze portefeuilles.",
		          'extra' => "Volledig inzicht in onze portefeuilles met alle bijbehorende transacties.",
		          'stat1' => 1,
		          'stat2' => 1,
		          'stat3' => 1,
		          'stat4' => 1, },
		'05' => { 'func'  => "Inzicht in onze jaarresultaten.",
		          'extra' => "Volledig inzicht in alle onze resultaten en transacties van alle jaren.",
		          'stat1' => 1,
		          'stat2' => 1,
		          'stat3' => 1,
		          'stat4' => 1, },
		'06' => { 'func'  => "Overzicht alle laatste beursnieuws.",
				  'extra' => "Overzichtspagina met al het recente nieuws. Momenteel tonen we het nieuws van vandaag, meer mogelijkheden worden onderzocht.",
		          'stat1' => 1,
		          'stat2' => 1,
		          'stat3' => 1,
		          'stat4' => 1, },
		'07' => { 'func'  => "Overzicht bedrijfsnieuws per aandeel.",
				  'extra' => "Het historische nieuws per aandeel. Bij de items van afgelopen week wordt tevens een samenvatting getoond.",
		          'stat1' => 1,
		          'stat2' => 1,
		          'stat3' => 1,
		          'stat4' => 1, },
		'08' => { 'func'  => "Alle adviezen van 2 jaar per aandeel.",
				  'extra' => "Mogelijkheid tot het tonen van alle historische adviezen en trades.",
		          'stat1' => 1,
		          'stat2' => 1,
		          'stat3' => 1,
		          'stat4' => 1, },
#		'09' => { 'func'  => "", },
		'10' => { 'func'  => "Verkochte aandelen van de dag in detail.",
				  'extra' => "Toont de daghandel met 15 minuten vertraging. Alle of laatste 50, gecombineerd of per order en informatie per koers.",
		          'stat1' => 1,
		          'stat2' => 1,
		          'stat3' => 1,
		          'stat4' => 1, },
		'11' => { 'func'  => "Detail van oude koersen en volumes.",
				  'extra' => "Alle histrosiche data van de aandelen koersen open/low/high/close/volume.",
				  'stat1' => 1,
				  'stat2' => 1,
		          'stat3' => 1,
		          'stat4' => 1, },
		'12' => { 'func'  => "Volumeonderschepper.",
				  'extra' => "Afwijking t.o.v. 20-daags gemiddelde. Kantelpunt + extra volume = sterk signaal!",
				  'stat1' => 1,
				  'stat2' => 1,
		          'stat3' => 1,
		          'stat4' => 1, },
		'13' => { 'func'  => "Overzicht alle verwachte trends.",
				  'extra' => "Handig overzicht met alle verwachte trends. Deze lijst wordt elke dag rond 18:15 uur geupdate.",
				  'stat1' => 1,
				  'stat2' => 1,
		          'stat3' => 1,
		          'stat4' => 1, },
#		'14' => { 'func'  => "Overzicht pagina AEX, AMX, BEL20, ...",
		'14' => { 'func'  => "Overzicht pagina NEDERLAND, BEL20, ...",
				  'extra' => "Toont een overzicht van alle aandelen in een index.",
				  'stat1' => 1,
				  'stat2' => 1,
		          'stat3' => 1,
		          'stat4' => 1, },
		'15' => { 'func'  => "Overzicht alle openstaande adviezen.",
				  'extra' => "Handig overzicht met alle openstaande adviezen. Dit zijn de kantelpunten die nog niet getriggerd zijn en aan onze advies voorwaarden voldoen.",
				  'stat1' => 1,
				  'stat2' => 1,
		          'stat3' => 1,
		          'stat4' => 1, },
		'16' => { 'func'  => "Beschrijving adviezen in tabel formaat.",
				  'extra' => "Op de aandelen pagina geven we de adviezen in tabel, formaat inclusief de resultaten laatste 3 maanden.",
				  'stat1' => 0,
				  'stat2' => 0,
		          'stat3' => 1,
		          'stat4' => 1, },
		'17' => { 'func'  => "Mogelijkheid tot wijzigen layout aandelen pagina.",
				  'extra' => "Kies zelf of u eerst de grafieken of eerst de adviezen wilt zien.",
				  'stat1' => 0,
				  'stat2' => 0,
		          'stat3' => 1,
		          'stat4' => 1, },
		'18' => { 'func'  => "Dagelijkse mail met trends en/of advies.",
				  'extra' => "Wij bieden de mogelijheid om dagelijks de nieuwe kantelpunten per email te ontvangen. U kunt ook kiezen om alleen uw eigen favoriete aandelen te ontvangen.",
				  'stat1' => 0,
				  'stat2' => 0,
		          'stat3' => 0,
		          'stat4' => 1, },
		'19' => { 'func'  => "", },
		'20' => { 'func'  => "<b>Uw favorieten : </b>Verwachte trends.",
				  'extra' => "Overzicht met verwachte trends van uw eigen favorieten.",
				  'stat1' => 0,
				  'stat2' => 0,
		          'stat3' => 1,
		          'stat4' => 1, },
		'21' => { 'func'  => "<b>Uw favorieten : </b>koopadvies.",
				  'extra' => "Overzicht met alle koopadviezen van uw eigen favorieten.",
				  'stat1' => 0,
				  'stat2' => 0,
		          'stat3' => 1,
		          'stat4' => 1, },
		'22' => { 'func'  => "<b>Uw favorieten : </b>opvolging advies.",
				  'extra' => "Overzicht met alle lopende adviezen eventueel te zetten stoplossen.",
				  'stat1' => 0,
				  'stat2' => 0,
		          'stat3' => 1,
		          'stat4' => 1, },
#		'23' => { 'func'  => "", },
		'24' => { 'func'  => "<b>Uw favorieten : </b>overzicht.",
				  'extra' => "Als u favorieten heeft aangemaakt kunt u deze ook in een overzichtspagina (à la AEX) opvragen.",
				  'stat1' => 0,
				  'stat2' => 0,
		          'stat3' => 1,
		          'stat4' => 1, },
		'25' => { 'func'  => "<b>Uw favorieten : </b>nieuws.",
				  'extra' => "Toon alle het nieuws van uw eigen favorieten. Het grote voordeel is dat hier ook de samenvatting getoond wordt.",
				  'stat1' => 0,
				  'stat2' => 0,
		          'stat3' => 1,
		          'stat4' => 1, },
		'26' => { 'func'  => "<b>Uw favorieten : </b>back-testen.",
				  'extra' => "Uw eigen favoriete aandelen kunt u testen met het kantel concept. U kunt de periode, de aandelen en het aantal reeksen aanpassen.",
				  'stat1' => 0,
				  'stat2' => 0,
		          'stat3' => 1,
		          'stat4' => 1, },
		'27' => { 'func'  => "<b>Uw favorieten : </b>email.",
				  'extra' => "Wij bieden de mogelijkheid om dagelijks uw eigen favorieten per email te ontvangen.",
				  'stat1' => 0,
				  'stat2' => 0,
		          'stat3' => 0,
		          'stat4' => 1, },
#		'23' => { 'func'  => "<b>Mijn instellingen.</b><br>Bewaren van eigen instellingen.",
#				  'extra' => "Door te registreren en in te loggen, heeft U toegang tot Uw persoonlijke instellingen. Vanop elke PC.",
#				  'stat1' => 0,
#				  'stat2' => 0,
#		          'stat3' => 1,
#		          'stat4' => 1, },
#		'24' => { 'func'  => "<b>Mijn favorieten.</b><br>Lijst met Uw favoriete aandelen.",
#				  'extra' => "U kunt elk aandeel toevoegen aan uw favorieten lijst waardoor uw een persoonlijk navigatie menu krijgt",
#				  'stat1' => 0,
#				  'stat2' => 0,
#		          'stat3' => 1,
#		          'stat4' => 1, },
	};
	
	my $num;
	foreach my $id (sort keys %$items)
	{
		$text .= add_item_row($items->{$id}, $num); 
		$num++;
	}

	$text .= <<EndOfText;
 </tbody>
</table>
</small>
</span>
</div>
EndOfText
	return $text;
}

sub add_item_row(@)
{
	my ($item, $num) = @_;

	my $class = (($num % 2) == 0) ? "even" : "odd";
	my $text;
	my $i;
	my $height = "22px";
	
	if ($item->{func} ne "")
	{
	    $text  = "<tr>";
    	$text .= " <td class=\"$class\" height=\"$height\"><a class=\"info\" title=\"$item->{extra}\"></a><div class=\"left\">$item->{func}</div></td>";
    	$text .= " <td class=\"$class\" height=\"$height\" width=\"10%\"><a class=\"" . ($item->{stat1} ? "ok" : "nok") . "\">&nbsp;</a></td>";
#   		$text .= " <td class=\"$class\" height=\"$height\" width=\"10%\"><a class=\"" . ($item->{stat2} ? "ok" : "nok") . "\">&nbsp;</a></td>";
   		$text .= " <td class=\"$class\" height=\"$height\" width=\"10%\"><a class=\"" . ($item->{stat3} ? "ok" : "nok") . "\">&nbsp;</a></td>";
    	$text .= " <td class=\"$class\" height=\"$height\" width=\"10%\"><a class=\"" . ($item->{stat4} ? "ok" : "nok") . "\">&nbsp;</a></td>";
    	$text .= "</tr>\n";
	}
	else
	{
		$height = "16px";
		$text  = "<tr>";
		$text .= "<td class=\"$class\" height=\"$height\">&nbsp;</td>";
		$text .= "<td class=\"$class\" height=\"$height\">&nbsp;</td>";
#		$text .= "<td class=\"$class\" height=\"$height\">&nbsp;</td>";
		$text .= "<td class=\"$class\" height=\"$height\">&nbsp;</td>";
		$text .= "<td class=\"$class\" height=\"$height\">&nbsp;</td>";
		$text .= "</tr>\n";
	}

    return $text;
}

sub make_success_table()
{	
	init_process();

	my $stocks = get_stocks_market(0xff);
	return "" if (!defined($stocks));
	my $data = read_all_quote_data();
	return "" if (!defined($data));

	my $d;
	my $difs;	
    foreach my $i (keys %$data)
    {
    	next if ($i == 0);
        next if (!defined($stocks->{$i}));
        next if ($data->{$i}->{state} <= 1);	# never bought
#        next if ($data->{$i}->{scan_time} != $data->{$i}->{kantel_time});

        $d = sprintf("%04d.%03d:%03d", int(abs($data->{$i}->{max_dif})), (abs($data->{$i}->{max_dif})*1000)%1000, $i);
        $difs->{$d} = $i;
    }

	my $text = <<EndOfText;
<div style="text-align: center;">
<table border="0" cellpadding="0" cellspacing="0" width="75%" align="center" style="font-size: 14px;">
 <tbody>
<tr>
 <th class="kantel">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Aandeel&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</th>
 <th class="kantel">&nbsp;&nbsp;Markt&nbsp;&nbsp;</th>
 <th class="kantel">&nbsp;&nbsp;Max%&nbsp;&nbsp;</th>
 <th class="kantel">&nbsp;Dagen#&nbsp;</th>
 <th class="kantel">&nbsp;Juistheid&nbsp;</th>
</tr>
EndOfText
	my $num = 0;
    foreach my $i (reverse sort keys %$difs)
   	{
		my $class = (($num % 2) == 0) ? "even" : "odd";
    	my $id  = $difs->{$i};
    	my $ref =  "/pl/ShowStock.pl?stock=$id";
	    my $days = int(($data->{$id}->{max_date}-$data->{$id}->{bought_on})/(24*3600));
	    $days++;
	    $days = 0 if ($days <= 0);
	    $text .= "<tr>";
    	$text .= "<td class=\"$class\"><a href=\"$ref\">" . $stocks->{$id}->{index_name} . "</a></td>";
    	$text .= "<td class=\"$class\">" . make_mini_mkt_img($stocks->{$id}->{mkt_bit}, 1) . "</td>";
	    $text .= "<td class=\"max\">" . (($data->{$id}->{max_dif} != 0.0) ? sprintf("+%.2f%", abs($data->{$id}->{max_dif})) : "&nbsp;") . "</td>";
    	$text .= "<td class=\"max\">" . (($days != 0) ? $days : "zelfde") . "</td>";
    	my $img = make_midi_pie_img($stocks->{$id}->{stock}, $stocks->{$id}->{cur_idx}, $data->{$id}, 'ref');
    	$img = "&nbsp;" unless defined($img);
    	$text .= "<td class=\"$class\">$img</td>";
    	$text .= "</tr>\n";
	   	$num++;
	   	last if ($num >= 10);
   	}
    $text .= <<EndOfText;
 </tbody>
</table>
EndOfText
}
	
sub add_welkom_tekst
{
	my $add = make_success_table();
	
	$add = "Ziehier een overzicht van enkele recente successen :<br><br>\n" . $add . "<br>\n" if ($add ne "");
	
	my $test = <<EndOfText;
<table  border="0" cellpadding="0" cellspacing="0" width="70%" align="center" style="font-size: 12px;">
 <tbody>
<tr>
 <th class="kantel"></th>
 <th class="kantelr">&nbsp;Aankoop&nbsp;</th>
 <th class="kantelr">&nbsp;Huidige&nbsp;</th>
 <th class="kantel" colspan="2"></th>
 <th class="kantelr">&nbsp;Aantal&nbsp;</th>
 <th class="kantel">&nbsp;</th>
 <th class="kantel"></th>
</tr>
<tr>
 <th class="kantel">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Aandeel&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</th>
 <th class="kantelr">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Waarde&nbsp;</th>
 <th class="kantelr">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Waarde&nbsp;</th>
 <th class="kantelr">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Winst&nbsp;</th>
 <th class="kantelr">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Hoogst&nbsp;</th>
 <th class="kantelr">&nbsp;kantelpunten&nbsp;</th>
 <th class="kantel">&nbsp;Juist%&nbsp;</th>
 <th class="kantel"></th>
</tr> 
<tr><td class="oddl">&nbsp;&nbsp;<a href="/pl/ShowStock.pl?stock=AAL" rel="nofollow">Aalberts</a></td><td class="oddr" title="21 aandelen gekocht voor 65.60 kostem 8.00">1377.60 €&nbsp;</td><td class="oddr" title="84 aandelen met slot 13.68">1149.12 €&nbsp;</td><td class="oddr dred">-16.59%&nbsp;</td><td class="oddr dgreen">+32.50%&nbsp;</td><td class="oddr" title="Normaal aantal adviezen (6)">6&nbsp;&nbsp;&nbsp;&nbsp;</td><td class="odd" title="Normale juistheid (83%)"><a class="p p17" href="/pl/ShowKantelpunten.pl?stock=AAL" title="5 juist van de 6 adviezen (83%)."></a></td><td class="odd"><a class="mfav_del" rel="nofollow" href="/pl/ShowFavorites.pl?action=remove&stock=AAL" title="Verwijder Aalberts van mijn favorieten">&nbsp;</a></td></tr>
<tr><td class="evenl">&nbsp;&nbsp;<a href="/pl/ShowStock.pl?stock=SBM" rel="nofollow">SBM Offshore</a></td><td class="evenr" title="54 aandelen gekocht voor 26.18 kostem 8.00">1413.72 €&nbsp;</td><td class="evenr" title="54 aandelen met slot 22.00">1188.00 €&nbsp;</td><td class="evenr dred">-15.97%&nbsp;</td><td class="evenr dgreen">+18.37%&nbsp;</td><td class="evenr" title="Normaal aantal adviezen (11)">11&nbsp;&nbsp;&nbsp;&nbsp;</td><td class="even" title="Normale juistheid (82%)"><a class="p p16" href="/pl/ShowKantelpunten.pl?stock=SBM" title="9 juist van de 11 adviezen (82%)."></a></td><td class="even"><a class="mfav_del" rel="nofollow" href="/pl/ShowFavorites.pl?action=remove&stock=SBM" title="Verwijder SBM Offshore van mijn favorieten">&nbsp;</a></td></tr>
<tr><td class="oddl">&nbsp;&nbsp;<a href="/pl/ShowStock.pl?stock=VED" rel="nofollow">Vedior</a></td><td class="oddr" title="90 aandelen gekocht voor 15.76 kostem 8.00">1418.40 €&nbsp;</td><td class="oddr" title="90 aandelen met slot 16.80">1512.00 €&nbsp;</td><td class="oddr dgreen">+6.60%&nbsp;</td><td class="oddr dgreen">+47.02%&nbsp;</td><td class="oddr" title="Normaal aantal adviezen (11)">11&nbsp;&nbsp;&nbsp;&nbsp;</td><td class="max" title="Hoge juistheid (91% >= 85)"><a class="p p18" href="/pl/ShowKantelpunten.pl?stock=VED" title="10 juist van de 11 adviezen (91%)."></a></td><td class="odd"><a class="mfav_del" rel="nofollow" href="/pl/ShowFavorites.pl?action=remove&stock=VED" title="Verwijder Vedior van mijn favorieten">&nbsp;</a></td></tr>
<tr><td class="evenl">&nbsp;&nbsp;<a href="/pl/ShowStock.pl?stock=AKZ" rel="nofollow">AKZO Nobel</a></td><td class="evenr" title="30 aandelen gekocht voor 46.31 kostem 8.00">1389.30 €&nbsp;</td><td class="evenr" title="30 aandelen met slot 52.66">1579.80 €&nbsp;</td><td class="evenr dgreen">+13.71%&nbsp;</td><td class="evenr dgreen">+40.36%&nbsp;</td><td class="evenr" title="Normaal aantal adviezen (12)">12&nbsp;&nbsp;&nbsp;&nbsp;</td><td class="even" title="Normale juistheid (83%)"><a class="p p17" href="/pl/ShowKantelpunten.pl?stock=AKZ" title="10 juist van de 12 adviezen (83%)."></a></td><td class="even"><a class="mfav_del" rel="nofollow" href="/pl/ShowFavorites.pl?action=remove&stock=AKZ" title="Verwijder AKZO Nobel van mijn favorieten">&nbsp;</a></td></tr>
<tr><td class="oddl">&nbsp;&nbsp;<a href="/pl/ShowStock.pl?stock=WKL" rel="nofollow">Wolters Kluwer</a></td><td class="oddr" title="64 aandelen gekocht voor 21.93 kostem 8.00">1403.52 €&nbsp;</td><td class="oddr" title="64 aandelen met slot 23.00">1472.00 €&nbsp;</td><td class="oddr dgreen">+4.88%&nbsp;</td><td class="oddr dgreen">+8.48%&nbsp;</td><td class="oddr" title="Normaal aantal adviezen (12)">12&nbsp;&nbsp;&nbsp;&nbsp;</td><td class="odd" title="Normale juistheid (67%)"><a class="p p13" href="/pl/ShowKantelpunten.pl?stock=WKL" title="8 juist van de 12 adviezen (67%)."></a></td><td class="odd"><a class="mfav_del" rel="nofollow" href="/pl/ShowFavorites.pl?action=remove&stock=WKL" title="Verwijder Wolters Kluwer van mijn favorieten">&nbsp;</a></td></tr>
<tr><td class="evenl">&nbsp;&nbsp;<a href="/pl/ShowStock.pl?stock=ASML" rel="nofollow">ASM Lithograp.</a></td><td class="evenr" title="75 aandelen gekocht voor 18.91 kostem 8.00">1418.25 €&nbsp;</td><td class="evenr" title="75 aandelen met slot 23.56">1767.00 €&nbsp;</td><td class="evenr dgreen">+24.59%&nbsp;</td><td class="evenr dgreen">+32.15%&nbsp;</td><td class="evenr" title="Normaal aantal adviezen (12)">12&nbsp;&nbsp;&nbsp;&nbsp;</td><td class="max" title="Hoge juistheid (100% >= 85)"><a class="p p20" href="/pl/ShowKantelpunten.pl?stock=ASML" title="12 juist van de 12 adviezen (100%)."></a></td><td class="even"><a class="mfav_del" rel="nofollow" href="/pl/ShowFavorites.pl?action=remove&stock=ASML" title="Verwijder ASM Lithograp. van mijn favorieten">&nbsp;</a></td></tr>
<tr><td class="oddl">&nbsp;&nbsp;<a href="/pl/ShowStock.pl?stock=MIT" rel="nofollow">Mittal </a></td><td class="oddr" title="44 aandelen gekocht voor 32.00 kostem 8.00">1408.00 €&nbsp;</td><td class="oddr" title="44 aandelen met slot 49.82">2192.08 €&nbsp;</td><td class="oddr dgreen">+55.69%&nbsp;</td><td class="oddr dgreen">+80.59%&nbsp;</td><td class="oddr" title="Normaal aantal adviezen (15)">15&nbsp;&nbsp;&nbsp;&nbsp;</td><td class="max" title="Hoge juistheid (87% >= 85)"><a class="p p17" href="/pl/ShowKantelpunten.pl?stock=MIT" title="13 juist van de 15 adviezen (87%)."></a></td><td class="odd"><a class="mfav_del" rel="nofollow" href="/pl/ShowFavorites.pl?action=remove&stock=MIT" title="Verwijder Mittal  van mijn favorieten">&nbsp;</a></td></tr>
<tr><th class="kantelr">Kopen & Houden&nbsp;</th><th class="kantelr" title="10000,- € waarvan 56.00 € kosten en 115.21 € cash">10000,- €&nbsp;</th><th class="kantelr dgreen" title="10975.21 € waarvan 115.21 € cash">10975.21 €&nbsp;</th><th class="kantelr dgreen"><b>+9.75%</b>&nbsp;</th><th class="kantelr dgreen"><b>+25.96%</b>&nbsp;</th><th colspan="3"></th></tr>
<tr><th class="kantelr">Kantelen&nbsp;</th><th class="kantelr" title="10000,- € startkapitaal">10000,- €&nbsp;</th><th class="kantelr dgreen" title="13529.44 € beschikbaar eindkapitaal alle kosten reeds inbegrepen">13529.44 €&nbsp;</th><th class="kantelr dgreen"><b>+35.29%</b>&nbsp;</th><th class="kantelr dgreen"><b>+50.15%</b>&nbsp;</th><th colspan="3"></th></tr>
 </tbody>
</table>
EndOfText

	return <<EndOfText;
<br>
 <font style="font-weight: bold; font-style: italic; color: rgb(0, 0, 153);" color="black" face="Verdana" size="5">
 Welkom,
</font>
<br><br>
<div align="center">
<span style="font-family: verdana; color: rgb(51, 51, 51);">
 <small>
  <br>
  Kantelpunten is een beursscanner, gebouwd<br>
  voor het verhandelen van aandelen binnen de twee weken.<br>
  <br>
  Iedereen krijgt inzicht in onze up- en downtrends.<br>
  <br>
  Adviezen zijn voorbehouden aan geregistreerden.<br>
  <br> 
  U kunt ons kantelpuntensysteem testen met uw eigen favorieten.<br>
  Dit kan met of zonder registreren.  We vergelijken dan Uw aandelen in een<br>
  " kopen en houden strategie "  tegenover ons systeem.<br>
  <br>
  Een voorbeeld:<br>
  $test
  <br>
  $add
  Onze portefeuilles zijn bereikt met onze koopadviezen en hun opvolging.<br>
  Belangrijk om weten is dat de resultaten bereikt zijn zonder rekening te houden<br>
  met enige fundamentele markt- of bedrijfsonderbouwing. !!! Een oplettende belegger<br>
  die adviezen kiest met fundamenteel bedrijfsnieuws, moet een beter<br>
  resultaat kunnen neerzetten dan onze blinde aankopen.<br>
  <br>
  We wensen U alle succes,<br>
  en hopen dat onze kantelpunten kunnen helpen.<br>
  <br>
  $sign_floppy
  <br>
  <br>
  $sign<br>
 </small>
</span>
</div>
EndOfText
}

sub add_graph_tekst
{
	return <<EndOfText;
<font style="font-weight: bold; font-style: italic; color: rgb(0, 0, 153);" color="black" face="Verdana" size="5">
 Kennismaking tbv scangrafieken,
</font>
<br><br>
<div align="center">
<span style="font-family: verdana; color: rgb(51, 51, 51);">
 <small>
  <br>
  <img src="http://www.kantelpunten.com/pics/info/voorbeeld_kantel.png" border="0">
  <br>
  We hebben sinds kort nieuwe grafieken toegevoegd.<br>
  We willen u graag daarmee kennis mee laten maken,<br>
  vandaar dat we U opnieuw <b>een week</b> lang inzicht zullen<br>
  geven in deze nieuwe functionaliteit.<br>
  <br>
  Meer lezen over de functionaliteit van de nieuwe grafieken kan 
  <a href="http://www.kantelpunten.com/pl/ShowMain.pl?page=10014">hier</a>.<br>
  Vanuit het eerst item kunt u via de grafiek door klikken naar extra uitleg.<br>
  <br>
  $sign<br>
 </small>
</span>
</div>
EndOfText
}

sub add_exitstrat_tekst
{
	return <<EndOfText;
<font style="font-weight: bold; font-style: italic; color: rgb(0, 0, 153);" color="black" face="Verdana" size="5">
 Leer nu hoe u geld kunt verdienen met kantelpunten,<br>
</font>
<br><br>
<div align="center">
<span style="font-family: verdana; color: rgb(51, 51, 51);">
 <small>
  <b>NIEUW : de exit-strategie.</b><br>
  <br>
  Geachte gebruiker,<br>
  <br>
  Voortaan tonen we onze exit-strategie. Dat is uitstapadvies.<br> 
  <br>
  Met een simpele techniek wordt vaak in een tot twee weken<br> 
  leuke winst gerealiseerd.<br>
  <br>
  En dit door alleen nabeurs te handelen.<br>
  <br>
  Een leuk detail is dat er onze exit strategie rekening<br> 
  gehouden werd met alle in- en uitstap kosten.<br> 
  <br>
  Transactiekosten, is iets wat vele beursadviseurs liever niet vermelden.<br>
  1.82 Brutto is maar 1.50 netto bij 5000 €. Na 2 jaar handelen zien resultaten<br>
  er héél wat mooier uit als je de transactiekosten vergeet ...<br>
  <br> 
  Wij laten al onze gedane transacties 24 maanden zichtbaar op deze website.<br>
  We vinden dat onze gebruikers daar recht op hebben.<br>
  Wij tonen precies hoe er van dag tot dag gehandeld werd 
  om het netto-eindresultaat te behalen.<br>
  <br> 
  We willen u graag hiermee kennis mee laten maken,<br>
  vandaar dat we U <b>twee weken</b> lang inzicht zullen<br>
  geven in deze nieuwe functionaliteit.<br>
  <br>
  Op de site kunt u dan precies zien hoeveel winst u met deze<br>
  strategie had kunnen maken zie ook de <a href="/pl/ShowMain.pl?page=9985">juistheid</a> pagina.
  <br>
  <br>
  $sign<br>
 </small>
</span>
</div>
EndOfText
}

sub add_einde_tekst
{
	return <<EndOfText;
<br>
<font style="font-weight: bold; font-style: italic; color: rgb(0, 0, 153);" color="black" face="Verdana" size="5">
 Geachte gebruiker,
</font>
<br><br>
<div align="center">
<span style="font-family: verdana; color: rgb(51, 51, 51);">
 <small>
  <br>
  U heeft gedurende 2 weken een gedeelte onze website kunnen testen.<br>
  Sommige items, waarvan de adviezen, bleven voorbehouden aan geregistreerden.<br>
  <br>
  Wilt u nog gratis inzicht in de website, zonder te registreren, dan kan dat via ons test-account.<br>
  De adviezen en hun exit-strategie blijven echter voorbehouden aan de geregisteerden.<br>
  <br> 
  Zo kan U inloggen op onze gratis test-account :<br>
  EMAIL : <i>test\@kantelpunten.com</i><br> 
  WACHTWOORD : <i>gast</i><br> 
  Of klik <a href="http://www.kantelpunten.com/pl/Register.pl?action=Inloggen&email=test\@kantelpunten.com&password=gast" target=\"register\" rel=\"nofollow\">hier</a>.<br>
  <br>
  Het test-account is één portefeuille die door verschillende mensen<br>
  tegelijk kan gebruikt worden. Het is dus zelfs mogelijk dat Uw instellingen veranderen terwijl<br>
  u er zit op te kijken. Er is dus niets mis met uw computer of onze kantelpunten site.<br>
  <br>
  Deze problemen heeft u natuurlijk niet als u registreert,<br>
  want dan krijgt u een eigen persoonlijke account.<br>
  <br>
  Wilt u zich registreren? Dan kunt u dat ${reg_ref}hier</a> doen.<br>
  <br> 
  <br>
  $sign<br>
 </small>
</span>
</div>
EndOfText
}

sub add_trial_tekst
{
	return <<EndOfText;
<font style="font-weight: bold; font-style: italic; color: rgb(0, 0, 153);" color="black" face="Verdana" size="5">
<br><br>
 Test Account.
</font>
<br><br>
<div align="center">
<span style="font-family: verdana; color: rgb(51, 51, 51);">
 <small>
  Welkom,<br>
  <br>
  U bent nu ingelogd in ons publieke testaccount.<br>
  Het kan gebeuren dat Uw favorieten wijzigen terwijl U bezig bent.<br>
  <br>
  Als U registeert, heeft U dit probleem niet. U kunt dan ook onze adviezen zien.<br>
  <br>
  <br>
  Wilt u zich gratis registreren? Dan kunt u dat ${reg_ref}hier</a> doen.<br>
  We vragen enkel een nicknaam en emailadres.<br>
  Er is geen vragenlijst in te vullen.<br>
  <br>
  <br>
  $sign<br>
 </small>
</span>
</div>
EndOfText
}

sub add_regi_tekst
{
	return <<EndOfText;
<font style="font-weight: bold; font-style: italic; color: rgb(0, 0, 153);" color="black" face="Verdana" size="5">
 Alleen voor geregistreerde gebruikers
</font>
<br><br>
<div align="center">
<span style="font-family: verdana; color: rgb(51, 51, 51);">
 <small>
  De functionaliteit die u probeert te gebruiken is alleen voor<br>
  geregistreerde gebruikers. Registratie kunt u ${reg_ref}hier</a> doen en is <i>gratis</i>.<br>
  In de tabel hieronder kunt u de voordelen zien van registratie.<br>
  <br>
  Wilt u inzicht in de mijn favorieten en de bijbehorende handigheden?<br>
  dan kan dat via ons test account:<br>
  EMAIL : <i>test\@kantelpunten.com</i><br> 
  WACHTWOORD : <i>gast</i><br> 
  Klik <a href="http://www.kantelpunten.com/pl/Register.pl?action=Inloggen&email=test\@kantelpunten.com&password=gast" target=\"register\" rel=\"nofollow\">hier</a> om direct in te loggen op het test account.<br>
  <br>
  Als verschillende mensen het test account gebruiken, kunnen<br>
  deze allen aan de favorietenlijst prutsen. Zolang als u gebruik maakt van mogelijkheid 2<br>
  zal er bij elk bezoek een mededeling komen. Deze problemen heeft u natuurlijk niet<br>
  als u registreert met uw eigen persoonlijke account.<br>
  <br> 
  $sign<br>
 </small>
</span>
</div>
EndOfText
}

sub add_toelichting_tekst
{
	return <<EndOfText;
<div align="center">
<span style="font-family: verdana; color: rgb(51, 51, 51);">
 <small>
  <br>
  Test ons ! Het is vrijblijvend. Het kan mèt of zonder registratie.<br>
  Backtest ons systeem met een groepje van uw eigen favoriete aandelen.<br>
  Vergelijk "kopen & houden" met "meeliften met stijgende favorieten".<br>
  <br>  
  ---<br>
  <br> 
  <b>Publieke Account.</b> Zonder registratie.<br>
  <br>
  Dit is één gezamelijke account voor ALLE gebruikers tezamen.<br>
  Het kan gebeuren dat de lijst uw favoriete aandelen zomaar verandert.<br>
  Terwijl u bezig bent. Omdat iemand anders ook aan het testen is.<br>
  <br>
  Klik <a href="http://www.kantelpunten.com/pl/Register.pl?action=Inloggen&email=test\@kantelpunten.com&password=gast" target=\"register\" rel=\"nofollow\">hier</a> voor het Publieke Account.<br>
  <br>
  ---<br>
  <br>
  <b>Privé Account.</b> Met registratie.<br>
  <br>
  Privé account met persoonlijke favorietenlijst.<br>
  U kan backtesten zonder dat de aandelenlijst verandert.<br>
  Dagelijkse mail, met trends en/of advies.<br>
  <br>
  Registratie bestaat uit een emailadres en nicknaam.<br>
  Dat is alles. Er is geen vragenlijst. Geen spam. Geen adware.<br>
  <br>
  Klik ${reg_ref}hier</a> voor het aanmaken van een Privé Account.<br>
  <br>
  ---<br>
  <br>
 </small>
</span>
</div>
EndOfText
}

	