#!/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"; use lib "../../httpdocs/pl/lib"; BEGIN { delete $INC{"Kantelpunten/Helper.pm"}; # delete $INC{"Kantelpunten/Process.pm"}; } use Kantelpunten::Helper; #use Kantelpunten::Process; use CGI qw(:standard); #use Data::Dumper; local our $https; local our $url_base; register(); exit(0); sub register() { my $remote_ip = init_helper(); $https = is_https_doc(); $url_base = $https ? "https://www.kantelpunten.com/" : "http://www.kantelpunten.com/"; my $url_opnieuw = $https ? "${url_base}pl/ShowHttps.pl?page=10058" : "${url_base}pl/Register.pl?action=Aanmelden"; my $action = param('action'); $action = "Toon" unless defined($action); my $sesid; my $userid; my $email; $action = "Toon" if ( ($action eq "Gefaald") && defined(get_user_rec(undef, undef, undef, undef, 'logged_in'))); if ($action eq "Inloggen") { my $password = param('password'); my $email = param('email'); my $code = param('code'); my $uid = param('userid'); if (defined($password) && defined($email)) { # called by pressing the button, verify login $uid = login_user($email, $password); # log_problem("found uid: $uid"); if (defined($uid)) { if (set_registered() ne '2') { # its ok, redirect my $url = "${url_base}pl/Register.pl?action=Inloggen&userid=$uid&code=" . set_password(); print_redirect($url); exit(0); } else { $action = "Bezig"; $userid = $uid; } } else { # if we com here the verification failed print_redirect("${url_base}pl/Register.pl?action=Gefaald"); exit(0); } } elsif (defined($code) && defined($uid)) { # called by redirect or direct login $userid = get_and_set_userid($remote_ip, undef, $uid, $code); if (set_registered() ne '4') { # hmm somehting failed with the login $action = "Gefaald" } else { if (set_lastlogin() == 0) { set_lastlogin(time()); set_lastvisit(time()); write_user_rec(); $action = "Gelukt"; } else { # probably a reload of the page just show the info $action = "Toon"; } } } } if ($action ne "Gefaald") { $sesid = get_session_cookie(); # try to get the session cookie $userid = get_and_set_userid($remote_ip) if (($action ne "Gelukt") && ($action ne "Bezig")); if (!defined($sesid)) { $sesid = get_new_id("ses"); # try to set session cookie add_session_cookie($sesid); write_session_start($sesid, $userid, $remote_ip); } if (($action eq "Uitloggen") && (set_registered() eq '4')) { if (is_trial_user()) { $userid = get_and_set_userid($remote_ip, 'force'); set_registered('3'); # don't write the user rec !! } else { set_registered('3'); write_user_rec(); } } # don't enforce showing know email # $email = set_email(); } my $script; my $refresh; my $sec = 2; if (($action eq "Gelukt") || ($action eq "Uitloggen") || ($action eq "Bezig")) { my $what = ($action eq "Bezig") ? "login" : "start"; param(-name => 'action', -value => undef); if ($https == 0) { $script = "\n"; } else { # no script will use a refresh statement $refresh = "$sec;URL=http://www.kantelpunten.com"; } } # This show a changing graphic which has been disabled. Alo use proccess.pm is required. # if (is_admin_user() && $action ne "Gefaald" && $action ne "Aanmelden") # { # $script .= make_script(); # } print_header("+1s"); print_pre_doc(); my $target = $https ? "_top" : "register"; my $title = "Registreer gratis. Kantelpunten de beursscanner maakt beleggen eenvoudiger!"; my $desc = "Registratie voor Kantelpunten de beursscanner is gratis. Door middel van registratie krijgt u". "toegang tot al onze beleggingsadviezen en beurstips. Dagelijks nieuwe adviezen, nieuws, daghandel" . "en uw eigen favorieten onder handbereik voor de actieve belegger."; print_head($title, $target, "register", undef, $script, undef, undef, $refresh, $desc); print "\n"; if ($https && ($action ne "Toon") && ($action ne "Aanmelden")) { print "\n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print "
\n"; print " \n"; print " \"\"\n";
\n"; print " U bevind zich in onze beveiligde omgeving. Klik op het logo om terug te gaan naar de website.\n"; print "
\n"; } print "
\n"; if ($action eq "Gefaald") { print_logo_klein(); print "
\n"; print "Login mislukt
\n"; print "Probeer opnieuw
\n"; print "Reset Wachtwoord\n"; # print "Nieuwe Registratie\n"; print "
\n"; print "Maakt beurzen
eenvoudiger.\n"; print "
\n"; } else { if ($action eq "Aanmelden") { print "
\n"; print_logo_klein(); print "
\n"; print "U kunt hieronder
\n"; print "inloggen.
\n"; print "
\n"; print "Inloggen\n" if ($https); my $width = $https ? "50%" : "98%"; print "\n"; print "\n"; print "\n"; print "\n"; print "
Email
Wachtwoord
\n"; print "
\n"; if (!$https) { print "\n"; print "Beveiligd inloggen\n"; } print "
\n"; } elsif (!defined($userid) || (set_registered() ne '4')) { print_logo_groot(); print "
\n"; print "Hallo bezoeker,
\n"; print "U bent niet aangemeld
\n"; print "
\n"; print "\n"; print " Aanmelden. 
\n"; print "\n"; # print " Nieuwe Registratie. \n"; print "
\n"; } else { # print "
\n"; print_logo_groot(); print "
\n"; print "" . set_username() . ",
\n"; print "we wensen U veel succes.
\n"; print "\n"; print " Log uit. \n"; print "
\n"; if ($https && ($action ne "Toon")) { print "U wordt binnen $sec seonden doorverwezen naar de kantelpunten site
\n"; print "\n"; print " Klik hier \n"; print "als u niet automatisch doorverwezen wordt.\n"; print "
\n"; } } } print "
\n"; if ($https && ($action ne "Toon")) { print "
\n"; } print "\n"; print "\n"; } sub print_logo_groot() { return if $https; print "\n"; print "\"\"\n";\n"; print "\n"; if (0) { print "
\n"; print "KANTELPUNTEN\n"; print "
\n"; print "Maakt beurzen
eenvoudiger.\n"; } } sub print_logo_klein() { return if $https; print "\"\"\n";\n"; if (0) { print "
\n"; print "KANTELPUNTEN\n"; print "
\n"; print "Maakt beurzen
eenvoudiger.\n"; } } sub make_script() { # I could make it uikcer to make the list of stocks by writing them into to a file on a day by day basis my $stocks = get_stocks_market(0xff); if (!defined($stocks)) { print_error_doc("SKO: Probleem met het lezen van de aandelen data."); return ""; } init_process(); my $data = read_all_quote_data(); if (!defined($data)) { print_error_doc("Probleem met het lezen van de advies data."); return ""; } my $s_arr = ""; my $s_lab = ""; my $in; 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}->{state} < 7) || ($data->{$i}->{state} > 11)); # only in market onces next if ($data->{$i}->{max_dif} < 3); # at least 3 percent # for now do not sort further we could sort on max_dif $in = $stocks->{$i}->{index_name}; $in =~ s/ /%20/g; $s_arr .= "\t\t\"$stocks->{$i}->{stock}\","; $s_lab .= "\t\t\"$in\","; } return "" if ($s_arr eq ""); my $script = < // show urls ? var display_url=0; // todo make list of stock + labels var stock_array = [ $s_arr "" ]; var label_array = [ $s_lab "" ]; var current_index = 0; window.setTimeout(ShowNextGraph, 5000); function ShowNextGraph() { var logoRef = document.getElementById("logo_ref"); var logoId = document.getElementById("logo_groot"); if (logoId) { if (stock_array[current_index] != "") { logoId.setAttribute("src", "http://www.kantelpunten.com/php/ShowKantel.php?type=scans&stock=" + stock_array[current_index] + "&label=" + label_array[current_index]); logoRef.setAttribute("href", "/pl/ShowStock.pl?stock=" + stock_array[current_index]); } else { logoId.setAttribute("src", "${url_base}pics/logo/logo-kantelpunten-beursscanner.jpg"); logoRef.setAttribute("href", "http://www.kantelpunten.com/pl/ShowMain.pl?page=10000"); } current_index = (current_index + 1) % stock_array.length; window.setTimeout(ShowNextGraph, 5000); } } EndOfText return $script; }