#!/usr/bin/perl
# ----------------------------------------------------------------------------
#
#  (c) Copyright 2006 TradeExtender
# 
#  This software is proprietary to  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/MyContent.pm"};
#    delete $INC{"Kantelpunten/MyRobots.pm"};
#    delete $INC{"Kantelpunten/MyAdds.pm"};
}
use Kantelpunten::Helper;
use Kantelpunten::MyContent;
use Kantelpunten::MyRobots;
use Kantelpunten::MyAdds;
use POSIX qw(strftime);
use Data::Dumper;


local our $stocks;
local our $data;
local our $type;
local our $param;

show_free_adds();
exit(0);

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

	$param->{type}	    = $q->param('type');
	$param->{type}      = "width_banner"  unless defined($param->{type});

	$type = translate_content_type($param->{type});
	if (!defined($type))
	{
		# force to button
		$param->{type}      = "button";
		$type = translate_content_type($param->{type});
	}	
	
	my $remote_ip = init_helper();
	init_content();
	set_robot(get_robot());
	get_user_rec();
	
	$param->{page} = 9970;
	
	write_access_data($remote_ip, $param->{page});

	make_free_adds_html();
}

	    
sub make_free_adds_html()
{
    my $script;
#    $script = make_home_script($param->{page}) if (!is_admin_user());
	my $title = "Bereik meer publiek met gratis kantelpunten content";
	my $desc  = "Bereik meer publiek met gratis kantelpunten content. Plaats onze content op uw beurssite en verschijn regelmatig bij de tip-site.";

    my $pop_menu = make_pop_menu(14);
    my $top_menu = make_top_menu(14);

   	print_header();
    print_pre_doc();
    print_head($title, undef, undef, undef, $script, "kantelhist", undef, undef, $desc, undef, "top_script");
    print_body("info", undef, undef, undef, undef, undef, undef, "kader", undef, $pop_menu, $top_menu);
    make_free_adds();
    print_body("end");
    print_post_doc();
}

sub make_free_adds(@)
{
	
    print_div("center");   
	print_banner_ads("main_banner", "info", undef, 1) if (show_adds());
    my $table = make_beurs_link_table("70%");
    my $name = $type->{type};
    $name =~ s/_/ /g;
    
    print <<EndOfText;
<br>
<span>
<big><b>Gratis kantelpunten informatie voor uw site</big><br>
en<br>
<big>exposure voor beurs-gerelateerde sites.</b></big><br>
<br>
<small>
Heeft u een eigen website?<br>
U wilt u graag de dagelijkse kantelpunten plaatsen?<br>
<br>
Dat kan! Met onze gratis kantelpunten content.<br>
Afhankelijk van de gekozen ruimte wordt er meer/minder informatie getoond.<br>
Bij elke view is de inhoud anders want er wordt random gekozen uit de<br>
beschikbare kantelpunten van de dag.<br>
<br>
Voorbeeld van een <b>$name</b>, zie hieronder voor de code:<br><br>
<IFRAME SRC="http://www.kantelpunten.com/pl/gratis-kantelpunten-content.pl
?type=$type->{type}
&content=kantel
&country=alle
&bg_color=C8E1FA
&text_color=0000CC
&mbg_color=00FF00
&mtext_color=000000
&link_color=0000CC
&vlink_color=000099"
name="kantelpunt_content"
width="$type->{width}"
height="$type->{height}"
marginwidth="0"
marginheight="0"
border="0"
frameborder="0"
scrolling="no"></IFRAME> 
<br>
<br>
<big><b>Maar er is meer!</b></big><br>
<br>
Als u een beurs-gerelateerde site heeft dan kunt u getoond worden als <b>partner-site</b>.<br>
Tevens rouleert uw site dan ook op onze pagina's<br>
en krijgt u hieronder en bij de link-partners een vermelding.<br>
Waardoor uw site meer <b>exposure</b> krijgt. Lees hier beneden voor de voorwaarden.<br>
<br>
Beurs-gerelateerde sites, waar u voorbeelden kunt zien:<br>
<br>
$table
<br><br>
<big><b>Hoe te plaatsen?</b></big><br>
<br>
Door middel van een een <i>IFRAME</i> kunt u de content plaatsen of uw site.<br>
Verder kunt u met parameters de <span class="dgreen">kleuren</span> van de content aanpassen aan uw eigen site.<br>
Heeft u vragen of aanpassingen (ander formaten) stuur dan een mailtje naar de <a href="mailto:webmaster\@kantelpunten.com">webmaster</a>.<br>
Verder kunt u aangeven welke content u wilt. "beide": toont zowel kantel als winstapakkers,<br>
"kantel" toont alleen kantelpunten, "winst" toont alleen winstpakkers.<br>
U kunt ook bepalen of u alleen nederlandse ("nl"), belgische ("be") of alle aandelen ("all") wilt tonen.<br>
<br>
Momenteel onstersteunen we de volgende formaten.<br>
<a href="/pl/gratis-beurssite-adverteren.pl?type=button" ref="nofollow">button 125x125</a><br>
<a href="/pl/gratis-beurssite-adverteren.pl?type=half_banner" ref="nofollow">half banner 250x70</a><br>
<a href="/pl/gratis-beurssite-adverteren.pl?type=banner" ref="nofollow">banner 500x70</a><br>
<a href="/pl/gratis-beurssite-adverteren.pl?type=vert_banner" ref="nofollow">vert banner 125x250</a><br>
<a href="/pl/gratis-beurssite-adverteren.pl?type=width_banner" ref="nofollow">width banner 180x250</a><br>
<a href="/pl/gratis-beurssite-adverteren.pl?type=small_square" ref="nofollow">small square 200x200</a><br>
<a href="/pl/gratis-beurssite-adverteren.pl?type=rectangle" ref="nofollow">rectangle 336x280</a><br>
Klik op het formaat om een voorbeeld en de bijbehorende code te zien.<br>
<br>
Voorbeeld code van een <b>$name</b>:<br>
<br>
<textarea style="width:500px;height:125px">&lt;IFRAME SRC=&quot;http://www.kantelpunten.com/pl/gratis-kantelpunten-content.pl?type=$type->{type}&amp;content=beide&amp;country=alle&amp;bg_color=C8E1FA&amp;text_color=0000CC&amp;mbg_color=00FF00&amp;mtext_color=000000&amp;link_color=0000CC&amp;vlink_color=000099&quot;&nbsp;name=&quot;kantelpunt_content&quot;&nbsp;width=&quot;$type->{width}&quot;&nbsp;height=&quot;$type->{height}&quot;&nbsp;marginwidth=&quot;0&quot;&nbsp;marginheight=&quot;0&quot;&nbsp;border=&quot;0&quot;&nbsp;frameborder=&quot;0&quot;&nbsp;scrolling=&quot;no&quot;&gt;&lt;/IFRAME&gt;</textarea>
<br><br>
Beschrijving parameters om de content aan te passen aan uw eigen site:<br>
<br>
<table border="1" cellpadding="2" cellspacing="2" width="60%" align="center" style="font-size: 12px;">
<tbody>
<tr><th><b>parameter</b></th><th><b>beschrijving</b></th></tr>
<tr><td>src</td><td>verplichte source URL</td></tr>
<tr><td>type</td><td>keuze uit bovenstaande lijst</td></tr>
<tr><td>content</td><td>keuze uit: beide, kantel, winst</td></tr>
<tr><td>country</td><td>keuze uit: alle, nl, be</td></tr>
<tr><td>bg_color</td><td>keuze background color (rgb)</td></tr>
<tr><td>text_color</td><td>keuze text (koers) color (rgb)</td></tr>
<tr><td>mbg_color</td><td>keuze max background color (rgb)</td></tr>
<tr><td>mtext_color</td><td>keuze maximum text color (rgn)</td></tr>
<tr><td>link_color</td><td>link color teksten (rgb)</td></tr>
<tr><td>vlink_color</td><td>visited link color (na bezoek) (rgb)</td></tr>
<tr><td>name</td><td>aanbevolen frame naam</td></tr>
<tr><td>width</td><td>setting matchen met breedte van gekozen type</td></tr>
<tr><td>height</td><td>setting matchen met hoogte van gekozen type</td></tr>
<tr><td>marginwidth</td><td>verplichte margin</td></tr>
<tr><td>marginheigth</td><td>verplichte margin</td></tr>
<tr><td>border</td><td>aanbevolen border</td></tr>
<tr><td>frameborder</td><td>aanbevolen frame border</td></tr>
<tr><td>scrolling</td><td>verplichte setting</td></tr>
</tbody>
</table>
<br>
<br>
<br>
<big><b>Extra voorwaarden voor een vermelding bij tip-sites</b></big><br>
- Uw site moet beurs-gerelateerd zijn.<br>
- De gratis content moet minimaal zichtbaar zijn op een actieve pagina.<br>
- De volledig content moet zichtbaar zijn (geen scrollbars).<br>
- Stuur na plaatsing een mail naar de <a href="mailto:webmaster\@kantelpunten.com">webmaster</a>.<br>
- Na beoordeling wordt uw site toegevoegd aan de lijst met tip-sites.<br>
- Wij behouden ten alle tijde het recht om uw site weer te verwijderen van deze lijst.<br>
<br>
<big><b>Voordelen aanmelden van uw site</b></big><br>
- Exposure op onze kantelpunten site.<br>
- Exposure op alle andere sites waar de content getoond wordt.<br>
- Onafhankelijk van uw eigen views wordt u toch even vaak getoond als andere.<br>
- Het is en blijft gratis.<br>
- Automatisch nieuwe content bij elke pageview.<br>
- Pagina's worden geopend in een nieuw venster. Zodat uw bezoeker makkelijker terugkomt.<br>
- Heeft u ideeen of ander wensen. Stuur een mailtje en we komen er zeker uit.<br>
<br>
  <a href="http://www.kantelpunten.com" title="Nieuwsgierig geworden? Ga dan nu naar kantelpunten de beursscanner" target="_top">
  <img src="http://www.kantelpunten.com/pics/icon/ga-naar-kantelpunten-de-beursscanner.gif" alt="Nieuwsgierig geworden? Ga dan nu naar www.kantelpunten.com" 
  	border="0">
  </a>
<br>
</small></span>
EndOfText

    print_voet();
    print_div("end");   
}

sub print_heading(@)
{
    my ($heading, $img) = @_;
    
    printf "\n<!-- heading for %s -->\n", $heading;
    print  "$img" if (defined($img));
    print  "<span style=\"color: rgb(0, 0, 153); font-family: verdana;\">\n";
    printf " <small style=\"font-weight: bold;\"><big><big>%s<br></big></big>\n", $heading;
    print  " </small>\n";
    print  "</span>\n";
}