");
echo("body {background-color:#ffffcc; color:#333366; text:#333366; font-size:12pt}");
echo(".anraste{font-size:15pt;font-weight:normal}");
echo(".mygtukas{background-color:#33cc33;font-size:12pt;color:#009900;font-weight:bold}");
echo("");
return;
}
function papildyk_statistika($vardas,$stat){
global $snew;
$snew="";
$s[]="\$$vardas = array (\r\n";
foreach ($stat as $raktas => $reiksme){
$vardas_raktas = "\$$vardas"."_".$raktas;
eval("global $vardas_raktas;");
// echo(eval("return isset($vardas_raktas);")."$vardas_raktas
");
if (eval("return isset($vardas_raktas);")) {
$stat[$raktas]++;
$snew.="\t$vardas"."_"."$raktas\r\n";
}
$s[]="\t'$raktas' \t=> $stat[$raktas],\r\n";
}
$s[count($s)-1] = ereg_replace(",", ");", $s[count($s)-1]);
return $s;
}
function yra_eladresas_eladresu_faile($s, $failo_vardas){
return in_array($s."\r\n",file($failo_vardas));
}
function errormsg($s){
global $email; unset($email);
echo("$s");
}
HTMLstyle();
$visilaukai=1;
foreach ($BendraInfo as $r => $v) if (strlen($v)<1)
{echo("Neapibrėžtas $r
"); $visilaukai=0;}
if (!$visilaukai) {errormsg("Reikia užpildyti visas blanko skiltis Vardas, Paradė, ..., Kursas"); return;}
if (isset($email)|(strlen($email)<1)){
$email = ereg_replace("(\r\n|\n|\r|\>|\<|\t|\'|\")", "#", $email);
if (substr_count($email," ")!=0) {errormsg("eladrese '$email' yra tarpų"); return;}
if (substr_count($email,"#")!=0) {errormsg("eladrese '$email' yra specialių simbolių"); return;}
if ((strlen($email)<3)|(substr_count($email,"@")!=1)) {errormsg("'$email' nepripažintas korektišku eladresu"); return;}
if (yra_eladresas_eladresu_faile($email,"ATEmeilai.txt")) {errormsg("Jūsų nurodytas eladresas '$email' jau buvo aksčiau atsiuntęs anketą!
Pakartotinai pildyti anketą nereikia."); return;}
}
else
{errormsg("Neapibrėžtas eladresas"); return;}
// $sold=file($statfailas); eval(implode('',$sold));
include($statfailas);
$f=fopen($statfailas,"w");
global $snew;
$zinauinfo = papildyk_statistika('zinau',$zinau); $zinaunew=$snew;
$noriuinfo = papildyk_statistika('noriu',$noriu); $noriunew=$snew;
fputs($f,"\r\n");
fclose($f);
$f=fopen($emailfailas,"a");
fputs($f,$email."\r\n");
fclose($f);
$nr=count(file($emailfailas));
$S="";
foreach ($BendraInfo as $r => $v) if (strlen($v)>0) $S.="$r \t= $v;\r\n";
$S.="email = $email;\r\n";
// echo($zinaunew);echo($noriunew);
$S.=$zinaunew.$noriunew;
$S.="Komentarai = $Komentarai;\r\n";
if ($siuskiemeilu) mail($manomeilas,"ATE anketa Nr $nr",$S,$email);
?>
Ačiū už anketą! Anketos duomenys sėkmingai apdoroti.