#!/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. # # Remakr there are still some leftovers for succes and correct parameters 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"}; delete $INC{"Kantelpunten/MyAdds.pm"}; delete $INC{"Kantelpunten/MyContent.pm"}; } use Kantelpunten::Helper; use Kantelpunten::Process; use Kantelpunten::MyRobots; use Kantelpunten::MyBudy; use Kantelpunten::MyAdds; use POSIX qw(strftime); use Data::Dumper; use constant MAX_COLUMN => 9; local our $stocks; local our $data; local our $param; local our $page; local our $total_ok = 0; local our $total_nok = 0; local our $cur_kdate; show_scan_overview(); exit(0); sub show_scan_overview() { my $q = CGI->new; $param->{sort} = 1; $param->{trigger} = defined($q->param('trigger')) ? 1 : undef; $param->{mail} = defined($q->param('mail')) ? 1 : undef; $param->{all} = defined($q->param('all')) ? 1 : undef; $param->{mine} = defined($q->param('mine')) ? 1 : undef; $param->{recent} = defined($q->param('recent')) ? 1 : undef; $param->{open} = defined($q->param('open')) ? 1 : undef; $param->{type} = $q->param('type'); $param->{reverse} = $q->param('reverse'); $param->{column} = $q->param('column'); $param->{market} = $q->param('market'); $param->{rb} = $q->param('rb'); $param->{redirect} = defined($q->param('redirect')) ? 1 : undef; my $remote_ip = init_helper(); $param->{rb} = get_robot() if (!defined($param->{rb}) || $param->{rb}); set_robot($param->{rb}); init_process(); $total_ok = 0; $total_nok = 0; $cur_kdate = undef; get_user_rec(); $param->{budy} = init_budy($q->param('uitleg')); # check for a market change my $market = set_market(); # oops I'v to add bel if no enabled anymore if (defined($market) && ($market & (1 << get_market_bit('bel20'))) && !($market & (1 << get_market_bit('bel')))) { $market |= (1 << get_market_bit('bel')); } if (defined($param->{market}) && defined($market)) { $param->{market} = 0xff if (($param->{market} & 0x7f) == 0); if ($param->{market} != $market) { set_market($param->{market}); write_user_rec(); } $market = $param->{market}; } $market = 0xff if (!defined($market)); # translate old type into the new method if (defined($param->{type})) { $param->{all} = 1 if (($param->{type} eq "alle") || ($param->{type} eq "open")); $param->{mine} = 1 if ($param->{type} eq "eigen"); $param->{recent} = 1 if (($param->{type} eq "alle") || ($param->{type} eq "eigen")); $param->{open} = 1 if ($param->{type} eq "open"); # disable old features if (!is_admin_user()) { $param->{recent} = undef; $param->{open} = 1; } $param->{type} = undef; } # fix wrongly selected items if (!is_admin_user()) { $param->{trigger} = undef; $param->{recent} = undef; } $param->{all} = undef if (defined($param->{all}) && defined($param->{mine})); $param->{recent} = undef if (defined($param->{recent}) && defined($param->{open})); $param->{reverse} = undef if (defined($param->{reverse}) && ($param->{reverse} != 0) && ($param->{reverse} != 1)); $param->{column} = undef if (defined($param->{column}) && (($param->{column} < 0) || ($param->{column} > MAX_COLUMN))); # disable if no sort $param->{column} = undef if (!$param->{sort}); $param->{reverse} = undef if (!$param->{sort}); # first check if we have to disable some current info my $cinfo = get_scan_cookie(); $cinfo &= 0xfffd if (defined($param->{all})); $cinfo &= 0xfffe if (defined($param->{mine})); $cinfo &= 0xfff7 if (defined($param->{recent})); $cinfo &= 0xfffb if (defined($param->{open})); $cinfo &= 0xffef if (defined($param->{reverse})); $cinfo &= 0xfe1f if (defined($param->{column})); # now make the new info my $info = 0; $info |= 0x0001 if (defined($param->{all})); $info |= 0x0002 if (defined($param->{mine})); $info |= 0x0004 if (defined($param->{recent})); $info |= 0x0008 if (defined($param->{open})); $info |= 0x0010 if (defined($param->{reverse}) && ($param->{reverse} == 1)); $info |= ($param->{column} << 5) if (defined($param->{column})); $info |= $cinfo; add_scan_cookie($info) if ($cinfo != $info); # now make the new values using the new info $param->{all} = ($info & 0x0001) ? 1 : undef; $param->{mine} = ($info & 0x0002) ? 1 : undef; $param->{recent} = ($info & 0x0004) ? 1 : undef; $param->{open} = ($info & 0x0008) ? 1 : undef; $param->{reverse} = ($info & 0x0010) ? 1 : 0; $param->{column} = ($info & 0x03e0) >> 5; # finaly set the default if not selected yet $param->{all} = 1 if (!defined($param->{all}) && !defined($param->{mine})); # default is all $param->{recent} = undef; $param->{open} = 1 if (!defined($param->{open}) && !defined($param->{recent})); # default is open # disable again if it was set by a cookie $param->{column} = 0 if (!$param->{sort}); $param->{reverse} = 0 if (!$param->{sort}); # make sure values are disabled if not needed for this type $param->{column} = 0 if (($param->{column} == 6) || ($param->{column} == 7) || ($param->{column} == 8)); # change default into correct column $param->{column} = 3 if (($param->{column} == 0) && defined($param->{open})); $param->{column} = 1 if ($param->{column} == 0); $page = undef; if (!defined($page)) { $page = 9990 if (defined($param->{mine}) && defined($param->{recent})); $page = 9989 if (defined($param->{all}) && defined($param->{recent})); $page = 9984 if (defined($param->{mine}) && defined($param->{open})); $page = 9983 if (defined($param->{all}) && defined($param->{open})); $page = 9940 if (defined($page) && $page == 9983 && defined($param->{redirect})); $page = 9941 if (defined($page) && $page == 9984 && defined($param->{redirect})); } # $param->{kantelpunt} = (!is_trial_user() && (is_logged_in() || is_trial_period())) ? 1 : undef; $param->{kantelpunt} = (is_basis_user()) ? 1 : undef; $param->{regi} = (!is_trial_user() && (is_logged_in() || is_trial_period())) ? 1 : undef; if (!defined($page)) { print_error_doc("Gekozen scan overview $param->{type} wordt niet ondersteund."); exit(0); } if (defined($param->{mail})) { if (defined($param->{rb}) && $param->{rb}) { # no send mail if identified as robot log_problem("show_scan_overview: Send mail requested by robot?"); exit(0); } if (($page != 9989) && ($page != 9987)) { $param->{mail} = undef; } } if (defined($param->{mine})) { # will stop if not registered otherwise continue ... only_allowed_for_registered_users(); $stocks = get_stocks_mine(); } else { $stocks = get_stocks_market($market); if (!defined($stocks)) { print_error_doc("SSO: Probleem met het lezen van de aandelen data."); exit(0); } } $data = read_all_quote_data(); if (!defined($data)) { print_error_doc("Probleem met het lezen van de kantelpunten data."); exit(0); } add_last_page_cookie($page) if (!defined($param->{mail})); write_access_data($remote_ip, $page) if (!defined($param->{mail})); make_scanpunten_overview_html($market) if (!defined($param->{mail})); send_scanpunten_overview() if (defined($param->{mail})); } sub make_scanpunten_overview_html(@) { my ($market) = @_; my $script; my $script = ""; # make_script(); $script .= make_home_script($page) if (!is_admin_user()); my $title = "Beursscanner : Overzicht scansignalen - Ook voor de actieve belegger."; my $desc = "Elke dag nieuw scansignalen die u als actieve belegger kan gebruiken als leidraad" . " om uw eigen beslissingen te nemen. Het kan allemaal bij ons, naast de volledige" . " kantelpunten adviezen, de technische analyse signalen waarop u zelf kan beslissen."; my $pop_menu = make_pop_menu(defined($param->{mine}) ? 2 : 4, $page); my $top_menu = make_top_menu(defined($param->{mine}) ? 2 : 4, $page); print_header("+1s"); print_pre_doc(); print_head($title, undef, undef, undef, $script, "kantelpunt", defined($param->{mine}) ? "eigen" : undef, undef, $desc, undef, "top_script"); print_body(defined($param->{mine}) ? "eigen" : "kantel", undef, undef, undef, undef, undef, undef, "kader", undef, $pop_menu, $top_menu); print make_bb_popup(); make_scanpunten_overview($market); print_body("end_kader"); print_post_doc(); } sub send_scanpunten_overview() { # first we need to write the information to a file my $sesid = get_session_cookie(); my $userid = get_userid_cookie(); $sesid = 0 unless defined($sesid); $userid = 0 unless defined($userid); my $time = time(); my $filename = "${userid}_${sesid}_${page}_${time}.html"; my $file = get_public_dir() . "mail/$filename"; if (open(TXT, ">$file")) { make_scanpunten_overview(0xff); close TXT; } else { print_error_doc("Probleem met het aanmaken van de pagina."); exit(0); } print_redirect("SendPage.pl?page=$page&time=$time"); } sub get_scanpunten_ids(@) { my ($sel_type) = @_; my @ids; my @date_ids; my @int_ids; my $names; my $mkts; my $difs; my $days; my $type; my $t; my $trigs; my $follow; if (defined($param->{open}) || defined($param->{recent})) { # if it is open show every kantelpunten not having a trigger date yet ... foreach my $i (keys %$data) { next if ($i == 0); next if (!defined($stocks->{$i})); next if (defined($param->{open}) && (($data->{$i}->{scan_type} eq 'T') || ($data->{$i}->{scan_type} eq 't'))); next if (defined($param->{recent}) && !is_new_kantelpunt($data->{$i}->{scan_time})); $names->{$stocks->{$i}->{index_name}} = $i; $mkts->{$stocks->{$i}->{market}}++; push @date_ids, $data->{$i}->{scan_time}; push @int_ids, $i; $t = sprintf("%04d.%03d:%03d", int(abs($data->{$i}->{scan_trigger})), (abs($data->{$i}->{scan_trigger})*1000)%1000, $i); $trigs->{$t} = $i; $follow = $data->{$i}->{follow}; $follow = 0 if ($follow && (($data->{$i}->{state} == 0) || (($data->{$i}->{state} >= 2) && ($data->{$i}->{state} <= 6))) ); $t = sprintf("%s:%d:%03d", $data->{$i}->{scan_type}, !$follow, $i); $type->{$t} = $i; } } else { log_problem("get_scanpunten_ids: No selection"); } my @sort; # 0 = default, 1 = name, 2 = markt, 3 = date, 4 = trend, 5 = trigger, 6 = action, 7 = max, 8 = dagen, 9 = juistheid if ($param->{column} == 3) # sort on date { my %seen = (); foreach my $item (@date_ids) { $seen{$item}++; } @sort = ($param->{reverse} == 0) ? (reverse sort keys %seen) : (sort keys %seen); foreach my $date (@sort) { foreach my $i (@int_ids) { next if ($date != $data->{$i}->{scan_time}); push @ids, $i; } } } elsif ($param->{column} == 4) # sort on trend { @sort = ($param->{reverse} == 0) ? (sort keys %$type) : (reverse sort keys %$type); foreach my $i (@sort) { push @ids, $type->{$i}; } } elsif ($param->{column} == 5) # sort on trigger { @sort = ($param->{reverse} == 0) ? (reverse sort keys %$trigs) : (sort keys %$trigs); foreach my $i (@sort) { push @ids, $trigs->{$i}; } } elsif (($param->{column} == 7) && defined($param->{success})) # sort on max { @sort = ($param->{reverse} == 0) ? (reverse sort keys %$difs) : (sort keys %$difs); foreach my $i (@sort) { push @ids, $difs->{$i}; } } elsif (($param->{column} == 8) && defined($param->{success})) # sort on dagen { @sort = ($param->{reverse} == 0) ? (reverse sort keys %$days) : (sort keys %$days); foreach my $i (@sort) { push @ids, $days->{$i}; } } elsif ($param->{column} == 9) # sort on juistheid { my $num; my $perc; my $c; my $cor; foreach my $i (@int_ids) { $num = $data->{$i}->{num_ok} + $data->{$i}->{num_nok}; $num = 1 if ($num == 0); $perc = $data->{$i}->{num_ok} / $num * 100; $c = sprintf("%03d.%03d:%03d", int($perc), ($perc*1000)%1000, $i); $cor->{$c} = $i; } @sort = ($param->{reverse} == 0) ? (reverse sort keys %$cor) : (sort keys %$cor); foreach my $i (@sort) { push @ids, $cor->{$i}; } } elsif ($param->{column} == 2) # sort on market { @sort = ($param->{reverse} == 0) ? (sort keys %$mkts) : (reverse sort keys %$mkts); my @name_idx = (sort keys %$names); foreach my $j (@sort) { foreach my $i (@name_idx) { next if ($stocks->{$names->{$i}}->{market} ne $j); push @ids, $names->{$i}; } } } else # sort on name { @sort = ($param->{reverse} == 0) ? (sort keys %$names) : (reverse sort keys %$names); foreach my $i (@sort) { push @ids, $names->{$i}; } } return @ids; } sub make_scanpunten_overview(@) { my ($market) = @_; my $ref = "ShowScanOverview.pl?"; $ref .= "all=1" if (defined($param->{all})); $ref .= "mine=1" if (defined($param->{mine})); $ref .= "&uitleg=" . ($param->{budy} ? '0' : '1'); print_budy($param->{budy}, $page, $ref); my $no_stocks; $no_stocks = 1 if (!defined($stocks) && defined($param->{mine})); my @ids = get_scanpunten_ids(); # make the list with symbols which had a kantelpunt my $favorites; $favorites = set_favorites() if (defined($param->{open})); my @stks; if (!defined($no_stocks)) { for (my $i = 0; $i < @ids; $i++) { next if (defined($param->{mine}) && defined($favorites) && (substr($favorites, @ids[$i], 1) eq "0")); push @stks, @ids[$i] if (defined($stocks->{@ids[$i]})); } } return write_scanpunten_overview(@stks) if (defined($param->{mail})); print "
\n"; my $option = print_market_table(); print "
\n"; print_div("center"); # print disclaimer(); print "
\n"; if (defined($param->{recent}) && !is_new_kantelpunt(time())) { print_h1("Geen recente trend informatie beschikbaar tussen 17u30 en 18u15"); print_banner_ads("main_banner", defined($param->{mine}) ? "eigen" : "info", undef, 1) if (show_adds("hoofd")); print_banner_ads("main_banner", defined($param->{mine}) ? "eigen" : "info", undef, 2) if (show_adds("hoofd")); my $ref = ""; print_dual_heading(undef, "\"${ref}Klik hier\" voor alle trends in aanmaak."); print "
\n"; } else { my $perc = 5; my $num = @stks; my $time = $num ? $data->{@stks[0]}->{quote_last} : $data->{1}->{quote_last}; my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time); my @days = ('zondag', 'maandag', 'dinsdag', 'woensdag', 'donderdag', 'vrijdag', 'zaterdag'); my $upd = @days[$wday] . " " . strftime("%d-%m-%Y\n", localtime($time)); if (defined($param->{all}) || defined($param->{mine})) { my $title; $title = defined($param->{all}) ? "" : "Uw "; $title .= "Trends van $upd" if (defined($param->{recent})); $title .= "Trends in aanmaak." if (defined($param->{open})); if (defined($param->{mine})) { print_h1($title, undef, undef, "bm0"); } else { # my $img = ""; # print_h1($title, "$img  ", "  $img", "bm0"); print_h1($title, undef, undef, "bm0"); } print_dual_heading(undef, "Bijgewerkt t/m $upd. Updates rond 18u15."); print_banner_ads("main_banner", defined($param->{mine}) ? "eigen" : "info", 1) if (show_adds("hoofd")); if (0) { my $ref1; my $ref2; $ref1 = "" if (defined($param->{mine})); $ref1 = "" if (defined($param->{all})); $ref2 = "" if (defined($param->{open})); $ref2 = "" if (defined($param->{recent})); print "
\n"; print interim_heading(undef, "We tonen nu alle kantelpunten.
\"${ref1}Klik hier\" als U uw favorieten wil zien.") if (defined($param->{all})); print interim_heading(undef, "We tonen nu Uw favorieten.
\"${ref1}Klik hier\" als U alle kantelpunten wil zien.") if (defined($param->{mine})); print "
\n"; print interim_heading(undef, "We tonen de recente kantelpunten.
\"${ref2}Klik hier\" als U de openstaande kantelpunten wil zien.") if (defined($param->{recent})); print interim_heading(undef, "We tonen de openstaande kantelpunten.
\"${ref2}Klik hier\" als U de recente kantelpunten wil zien.") if (defined($param->{open})); print "\n"; } } print "
\n"; my $nieuw = ""; $nieuw = "nieuwe " if (($num > 1) || ($num == 0)); $nieuw = "nieuw " if ($num == 1); $nieuw = "" if (defined($param->{open})); if ($num == 0) { print "
\n"; if (defined($param->{recent})) { print_dual_heading("GEEN", "${nieuw}Trends in de aanmaak."); print "
\n"; my $ref = ""; print_dual_heading(undef, "\"${ref}Klik hier\" voor alle trends in aanmaak."); print "
\n"; } elsif (defined($no_stocks)) { print_dual_heading("U HEEFT GEEN FAVORIETEN GEDEFINIËERD"); print "
\n"; my $ref = ""; print_dual_heading(undef, "\"${ref}Klik hier\" voor alle trends in aanmaak."); $ref = ""; print_dual_heading(undef, "${ref}Lees hier meer over uw favoriteten."); print "
\n"; } else { print_dual_heading("ER ZIJN GEEN TRENDS."); } } else { if (defined($param->{all}) || defined($param->{mine})) { my $trend; $trend = "${num} nieuwe trends in aanmaak." if ($num > 1); $trend = "${num} nieuwe trend in aanmaak." if ($num == 1); print_dual_heading($num, "${trend}") if (0); print <
We tonen hieronder $trend
Zolang de trigger niet geraakt is, blijft de oude trend gelden.
Klik hier, voor onze koopadviezen.

U kan de tabel schikken per aandeel, land, trend, datum of onze adviesjuistheid.
 EndOfText print "
\n"; print <
De signalen hieronder zijn onze basis.
Ze moeten nog aan bijkomende voorwaarden voldoen, voor we ze aanbevelen.
Dit zijn GEEN adviezen. Voor advies : zie "adviezen".
De trend wordt pas bevestigd als de vanaf koers doorbroken wordt!
EndOfText } print_table(0, undef, 0, 0, 0, undef, "100%"); print "\n"; my $sep_width = 25; my $width = 100 - ($sep_width * 2); my $n_trend = "                "; # "Trend"; my $n_juistheid = "juist%"; # left buttons print " \n"; print_div("center"); print " \n"; print_div("end"); print " \n"; my @class; my @ind; my @ref; my $refend = $param->{sort} ? "" : ""; my $ref = "{all})); $ref .= "mine=1" if (defined($param->{mine})); $ref .= "recent=1" if (defined($param->{recent})); $ref .= "open=1" if (defined($param->{open})); for (my $i = 1; $i <= MAX_COLUMN; $i++) { if ($param->{sort}) { @ref[$i] = ($param->{column} == $i) ? ("$ref&reverse=" . (($param->{reverse} == 0) ? "1" : "0") . "&column=$i\">") : ("$ref&reverse=$param->{reverse}&column=$i\">"); @class[$i] = ($param->{column} == $i) ? "dkantel" : "kantel"; @ind[$i] = ($param->{column} == $i) ? (($param->{reverse} == 0) ? "v" : "^"): "  "; } else { @ref[$i] = ""; @class[$i] = "kantel"; @ind[$i] = "  "; } } # center scansignalen my $slot = ((is_weekend() || is_before_stock_hours() || is_after_stock_hours())) ? 1 : 0; print " \n"; print_div("center"); print_table(0, undef, 0, 0, 0, undef, "100%", "center", "font-size: 13px;"); print "\n"; # print " "; # voor de kantel pijl print "   "; # voor de pie print "        @ind[1]@ref[1]Aandeel$refend         "; print " "; # voor de news flash print " @ind[2]@ref[2]Markt$refend  "; print "        @ind[3]@ref[3]Datum$refend         " if (defined($param->{all}) || defined($param->{mine})); print "  Slot " if ($slot); print "                     @ind[4]@ref[4]Vanaf$refend"; print "         "; print "     @ind[6]@ref[6]Action$refend      " if (defined($param->{trigger})); print " @ind[7]@ref[7]Max%$refend  " if (defined($param->{success})); print " @ind[8]@ref[8]Dagen#$refend  " if (defined($param->{success})); my $colspan = 0; $colspan++ if (defined($param->{open}) && defined($favorites)); print "   " if ($colspan); print "\n"; print " \n"; my $stk; my $num = 1; foreach $stk (@stks) { print_short_scanpunt($stk, $num, $slot, $favorites); $num++; } print_table(0, "end"); print_div("end"); print " \n"; # right buttons print " \n"; print_div("center"); print " \n"; print_div("end"); print " \n"; print_table(0, "end"); print <{regi}));
" "  " " : Signalen die voldoen aan de adviesvoorwaarden. Zie "adviezen"
EndOfText if (!$param->{rb} && ( ($page == 9987) || ($page == 9989) ) ) { my $type = ($page == 9987) ? "success" : "all"; print "
\n"; print "\n"; print "\"\"\n";Doorsturen\n"; print "
\n"; } print_banner_ads("scan_onder", defined($param->{mine}) ? "eigen" : "info", 1, 1) if (show_adds("hoofd")); print_banner_ads("scan_onder", defined($param->{mine}) ? "eigen" : "info") if (show_adds("hoofd")); print "
\n"; # print "
Kantelpunten kunnen nuttig zijn als reservesignalen.
\n"; # print "- Als men kantelpunt of stoploss liet voorbijgaan,
\n"; # print "- een deel van een verlieslatende positie wil verkopen,
\n"; # print "- een deel winst wil verzilveren, - wilt bijkopen.

\n"; # print_dual_heading(undef, "Door te klikken op de:"); # print_dual_heading(undef, "naam/pijl komt men bij het aandeeloverzicht."); # print_dual_heading(undef, "juist% ziet men alle gevolgde kantelpunten van de laatste 2 jaar."); # print_dual_heading(undef, "- hieronder zoeken naar artikelen/adviezen over het aandeel."); # print "

\n"; # print_dual_heading(undef, "Zoektip: copieer achter Uw aandeel het volgende:"); # print_dual_heading(undef, "koers OR slot OR volume OR aandeel OR beurs OR winst OR verlies OR persbericht OR", "dark_red"); print "\n"; # print_google_search("kantelpunten"); } } print "
\n"; # print interim_heading(undef, "Voor verdere uitleg verwijzen we u graag"); # print interim_heading(undef, "naar de informatie-pagina's aan de linkerkant."); # print "
\n"; print_voet(); print_ads("yahoo_klein"); print_empty_lines(1, 0); print_div("end"); } sub print_market_table() { my $market = set_market(); return 0 if (!defined($market)); return 0 if (defined($param->{mine})); my $iref; my $tref; my $ref = "ShowScanOverview.pl?"; $iref = $ref; $iref .= "column=$param->{column}&reverse=$param->{reverse}" if ($param->{sort}); # option table print_div("right"); print_table(0, undef, 0, 0, 0, undef, "", "right", "font-size: 11px;"); print "\n"; $tref = $iref; $tref .= "&market=" . ($market | make_market("aex", "amx", "overig")) if (!is_nl_enabled($market)); $tref .= "&market=" . ($market & make_market("bel20", "bel")) if (is_nl_enabled($market)); print "\n"; print_midi_button($tref, is_nl_enabled($market) ? "nl" : "no_nl"); print "\n"; print "  \n"; $tref = $iref; $tref .= "&market=" . ($market | make_market ("bel20", "bel")) if (!is_be_enabled($market)); $tref .= "&market=" . ($market & make_market ("aex", "amx", "overig")) if (is_be_enabled($market)); print "\n"; print_midi_button($tref, is_be_enabled($market) ? "be" : "no_be"); print "\n"; my $extra; if (show_adds("scan")) { print "  \n"; print "
\n"; print_banner_ads("scan_boven", defined($param->{mine}) ? "eigen" : "info"); print "
\n"; $extra = "
\n"; } print "     \n"; print "\n"; print_table(0, "end"); print_div("end"); print $extra if (defined($extra)); return 1; } sub print_short_scanpunt(@) { my ($id, $num, $slot, $favorites) = @_; $slot = 0 unless defined($slot); my $stock = $stocks->{$id}->{stock}; my $txt = make_smart_scan_img($stock, $data->{$id}, 'ref', undef, 'text'); my $img; my $class = (($num % 2) == 0) ? "even" : "odd"; my $text; $text = ""; if (($param->{column} == 3) && defined($cur_kdate) && ($data->{$id}->{scan_time} != $cur_kdate)) { $text .= " \n"; } $cur_kdate = $data->{$id}->{scan_time}; my $ref = "/pl/ShowStock.pl?stock=$stock"; my $days = int(($data->{$id}->{max_date}-$data->{$id}->{bought_on})/(24*3600)); $days++; $days = 0 if ($days < 0); if (0) # geen kantelpijl { if (defined($param->{regi})) { $img = make_smart_scan_img($stock, $data->{$id}, 'ref', undef, 'kantel'); $img = " " unless defined($img); $text .= "$img"; } else { $text .= ""; } } $img = make_midi_pie_img($stock, $stocks->{$id}->{cur_idx}, $data->{$id}, 'ref'); $img = " " unless defined($img); $text .= "$img"; my $add = ""; # " onMouseOver=\"RenderMenu(event,'$stocks->{$id}->{stock}','$stocks->{$id}->{index_name}')\" onMouseOut=\"HideMenu(event,'bb_menu')\""; $text .= " " . $stocks->{$id}->{index_name} . ""; if (is_news_flash($data->{$id}->{last_news})) { $text .= ""; } else { $text .= ""; } $text .= "" . make_mini_mkt_img($stocks->{$id}->{mkt_bit}, 1) . ""; $text .= "" . strftime("%a %d-%m-%Y", localtime($data->{$id}->{scan_time})) . " " if (defined($param->{all}) || defined($param->{mine})); $text .= "" . sprintf("%.2f", $data->{$id}->{close}) . " " if ($slot); $text .= "$txt vanaf"; if (defined($param->{kantelpunt})) { $text .= " " . sprintf("%.2f", $data->{$id}->{scan_trigger}) . " "; } else { my $nreg_ref = ""; $text .= "${nreg_ref}???"; } $text .= "" . strftime("%d-%m-%Y", localtime($data->{$id}->{bought_on})) . "" if (defined($param->{trigger})); $text .= "" . (($data->{$id}->{max_dif} != 0.0) ? sprintf("+%.2f%", abs($data->{$id}->{max_dif})) : " ") . "" if (defined($param->{success})); $text .= "" . (($days != 0) ? $days : "zelfde") . "" if (defined($param->{success})); if (defined($favorites)) { if (substr($favorites, $id, 1) eq "0") { $text .= "{$id}->{index_name} toe aan mijn favorieten\"> "; } else { $text .= "{$id}->{index_name} van mijn favorieten\"> "; } } $text .= "\n"; print $text; } sub write_scanpunten_overview(@) { my $winst = ($page == 9987) ? 1 : 0; my $num = @_; my $time = $num ? $data->{@_[0]}->{quote_last} : $data->{1}->{quote_last}; my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time); my @days = ('zondag', 'maandag', 'dinsdag', 'woensdag', 'donderdag', 'vrijdag', 'zaterdag'); my $upd = @days[$wday] . " " . strftime("%d-%m-%Y\n", localtime($time)); my $img = ""; my $text; my $head = $winst ? "Winstpakkers $img" : "Alle Kantelpunten van $upd"; $text = <
$head
EndOfText print TXT $text; if ($winst) { $text = <          Aandeel              Trend       Max%    Dagen#   juist%  EndOfText } else { $text = <          Aandeel                   Datum              Trend     EndOfText } print TXT $text; my $stk; my $num = 0; foreach $stk (@_) { write_short_scanpunt($stk, $winst, (($num % 2) ? "light_kantel" : undef)); $num++; last if ($winst && $num >= 10); } $text = <
Meer informatie bezoek dan deze pagina

EndOfText print TXT $text; } sub write_short_scanpunt(@) { my ($id, $winst, $bcolor) = @_; my $stock = $stocks->{$id}->{stock}; my $ref_id = sprintf("%03d", $id); my $ref = "http://www.kantelpunten.com/pl/Redirect.pl?page"; my $dif = ($data->{$id}->{max_dif} != 0.0) ? sprintf("+%.2f%", abs($data->{$id}->{max_dif})) : " "; my $num = $data->{$id}->{num_ok} + $data->{$id}->{num_nok}; $num = 1 if ($num == 0); my $perc = sprintf("%.1f%", $data->{$id}->{num_ok} / $num * 100); my $days = int(($data->{$id}->{max_date}-$data->{$id}->{bought_on})/(24*3600)); my $date = strftime("%a %d-%m-%Y\n", localtime($data->{$id}->{scan_time})); $days++; $days = 0 if ($days < 0); my $text; $bcolor = defined($bcolor) ? " background-color: rgb(255, 216, 176);" : " background-color: rgb(255, 204, 153);"; my $img = make_kantel_img($stock, $stocks->{$id}->{cur_idx}, $data->{$id}, undef, 'info', 'always'); $img = " " unless defined($img); if ($winst) { $text = < $stocks->{$id}->{index_name} $img $dif $days $perc EndOfText } else { $text = < $stocks->{$id}->{index_name} $date $img EndOfText } print TXT $text; } sub make_script() { my $add_script = <