~dont_cache() ~includeonce('../config.tmpl') ~include('../updateuser.tmpl') ~include('../site/header.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")
)))
)