~dont_cache() ~includeonce('../config.tmpl') ~include('../updateuser.tmpl') ~include('../site/header.tmpl')
~include('../box/submit.tmpl') ~include('../box/newsletter.tmpl')

~includeonce('../admin/filter.tmpl') ~defunc('csv_filter',~preg_replace( '/[\s;]/um', ' ', ~sparam(1))) ~set('ok',1) ~if( ~empty(~call('field_fi','name')) || ~empty(~call('field_fi','address')), '~set('ok',0)Certains champs sont manquants, retournez en arrière.
' ) ~if(~empty(~call('field_fi','email')), '~set('ok',0)L\'adresse e-mail est manquante.
' ) ~if(~empty(~getpost('quiz_id')), 'Pas de concours actuellement...
~set('ok',0)' ) ~set('textcrc',~getpost('quiz_id')) ~if( ~get('ok'), ~list(~get('database'), "SELECT id from quizzes_questions WHERE quiz_id='~call('simple_fi','quiz_id')' AND state=~get('state_ok')", 'LM', '~set('textcrc', '~get('textcrc')~fld('id')', 'i2id[~gfld('counter')]',~fld('id')) ~if( ~empty(~call('field_fi','text~gfld('counter')')), '~set('ok',0)La réponse ~gfld('counter') est absente...
' ) ', 'LL', '~set('textcrc','~get('textcrc')~gfld('counter')') ~set('lastcount',~gfld('counter')) ~if( ~md5(~get('textcrc')) != ~getpost('md5'), '~set('ok',0)Données corrompues, retournez en arrière et rechargez la page.
' ) ') ) ~set('token',0) ~if(~get('ok'), ~list(~get('database'), "SELECT id FROM turing WHERE random='~call('field_fi','token')' AND timestamp>=date_sub(CURRENT_TIMESTAMP(), interval 10 minute)", 'LM','~set('token',1) ~list(~get('database'), "DELETE FROM turing WHERE random='~call('field_fi','token')'" )' ) ) ~if( ~get('ok'), ' ~list(~get('database'), "INSERT INTO quizzes_forms(quiz_id,user_id,name,email,address,referer,ip,hostname,token) VALUES( '~csv_filter(~simple_fi('quiz_id'))', '~ifne(~get('user_id',1))', '~csv_filter(~field_fi('name'))', '~csv_filter(~field_fi('email'))', '~csv_filter(~field_fi('address'))', '~addslashes(~base64_decode(~getpost('referer')))', '~addslashes(~ip2hex(~getip()))', '~addslashes(~gethostbyaddr(~getip()))', '~get('token')' )" ) ~list(~get('database'), "SELECT last_insert_id() as last", 'LM',~set('form_id',~fld('last')) ) ~for(~set('i',1), ~get('i')<=~get('lastcount'), ~set('i',~get('i')+1), ~list(~get('database'), "INSERT INTO quizzes_answers(text,quiz_form_id,quiz_question_id) VALUES( '~csv_filter(~field_fi('text~get('i')'))', '~get('form_id')', '~get('i2id[~get('i')]')' )" ) ) ')
~if(~get('ok'), 'Merci pour votre participation.
Vos réponses ont bien été enregistrées.
Les résultats seront diffusés dans la newsletter.
' ,'Quelque chose s\'est mal passé.
Merci de recommencer.
' ) ~if(~get('ok'), ~list(~get('database'), "SELECT title,msg FROM quizzes WHERE id='~call('simple_fi','quiz_id')'", 'LM', ~if(~fld('msg'),~rem(~noeval(~getpost('email'),"[Concours W-Fenec] ~fld('title')", '~fld('msg') -- Ceci est une confirmation automatique, inutile d\'y répondre, vous ne recevrez plus d\'e-mail à ce propos.' , "From: null@w-fenec.org Reply-To: null@w-fenec.org X-Sender: null@w-fenec.org X-Priority: 1 Return-Path: null@w-fenec.org") ))) )

~includewithcache('../front.tmpl')
~include("../site/footer.tmpl")