¡Felicidades! Tu viaje de liderazgo empieza aquí.

Ya has iniciado el viaje mediante la inscripción, ahora debes completar 3 pasos muy importantes antes de tu primer retiro. Estos pasos son críticos y deben presentarse a tiempo: Si no se rellenan a tiempo podrían comprometer tu participación en el programa.

Por favor, para empezar, inicia la sesión un poco más abajo utilizando tu nombre y apellidos.
Introduce tu nombre y apellidos:

<& /google_analytics.mas &> <%once> use CTI::Secret; use Digest::SHA1; <%init> my $args = $m->request_args(); my ($email) = @{$args}{'email'}; my $err = ''; my %c = eval{ Apache2::Cookie->fetch }; my ($username,$MAC); my %values; if(exists $c{sessionES}){ %values = $c{sessionES}->value; $username = lc $values{username}; # lower case so that it matches database $MAC = $values{MAC}; } my $session_ok = $MAC eq Digest::SHA1::sha1_hex( $username, Secret::value() ); if ($email) { $email =~ s/[^a-zA-Z0-9\.\-\_\@]//g; # remove invalid chars $email = lc $email; # make login cookie Apache2::Cookie->new ( $r, -name => 'sessionES', -value => { username => $email, # add expires as additional data MAC => Digest::SHA1::sha1_hex ( $email, Secret::value() ) }, -path => '/', -domain => '.coactive.com', -expires => '+60d', )->bake($r); # add to database if not already exists ($username) = $dbh->selectrow_array('SELECT email FROM landing WHERE email=?',undef,$email); if(not $username){ $dbh->do('INSERT INTO landing (email,created,updated) values (?,NOW(),NOW())',undef,$email); $username = $email; } $session_ok = 1; } $m->redirect('/launchpad/es/home.html') if $session_ok;