#!/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 " U bevind zich in onze beveiligde omgeving. Klik op het logo om terug te gaan naar de website.\n"; print " | \n";
print "
\n";
}
print " \n";
if ($action eq "Gefaald")
{
print_logo_klein();
print " \n";
if ($https && ($action ne "Toon"))
{
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"; } 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";
print "