");
if ($noservermode){
$namai="E:/bastys/DHTML/index.php";
if (!isset($meilas)) $meilas="algirdas.bastys@maf.vu.lt";
if (!isset($vardas)) $vardas="algirdas";
if (!isset($tema)) $tema="Testuoju";
if (!isset($zinute)) $zinute="Čia žinutės tekstas";
if (!isset($registracija)) $registracija=1;
if (!isset($istorija)) $istorija="";
}
else $namai="http://www.mif.vu.lt/~bastys/academic/ATE/ate.htmD";
$namai_anketa=$namai."#ateanketa";
function nbsp($count){
$s=""; for ($i=0; $i<$count; $i++) $s.=" ";
return $s;
}
function killeol($s){ return ereg_replace("(\r\n|\n|\r)", "", $s);}
function mynl2br($s,$saveHTML){
// $s = ereg_replace("&", " ir ",$s);
if ($saveHTML==0){
$s = ereg_replace(">", " ",$s);
$s = ereg_replace("<", " ",$s);
}
else
{
$s = ereg_replace(">", ">",$s);
$s = ereg_replace("<", "<",$s);
}
$s = ereg_replace("\|", "|",$s);
$s1=$s;
// $s = ereg_replace("\$", "\$",$s);
$s = strtr($s,"$", "|"); $s = ereg_replace("\|", "$",$s);
// if ($s1!=$s){ echo($s1.":s1"); echo($s.":s
"); }
// $s = strtr($s, "|", "|");
$s = ereg_replace("(\r\n|\n|\r)", "
", $s);
return $s;
}
function form_atsakau($nr,$tema,$hist,$vardas,$senazinute,$senadata,$today){
global $init_vardas;
global $init_meilas;
$vardas=htmlspecialchars($vardas);
$string_atsakau="Atsakau";
$Re_tema="Re: ".mynl2br($tema,0);
// htmlspecialchars
return "";
}
function form_klausiu($nr,$hist,$vardas,$today,$s){
global $init_vardas;
global $init_meilas;
$vardas=htmlspecialchars($vardas);
$string_klausiu="Klausiu";
// htmlspecialchars
return "";
}
function uzregistruok($lastmsgnrfile,$irashaifile,$istorija,$s){
$ID_new=file($lastmsgnrfile);
$ID_new=$ID_new[0]+1;
$istorija=$istorija."_".$ID_new;
$byla=fopen($lastmsgnrfile,"w");
fputs($byla,$ID_new);
fclose($byla);
$bylaadd=fopen($irashaifile,"a");
fputs($bylaadd,"$ID_new|$istorija|$s\n");
fclose($bylaadd);
return $ID_new;
}
function HTMLhead(){
echo("");
echo("");
echo("Klauskite, atsakykite, siūlykite");
echo("");
echo("");
return;
}
function HTMLstyle(){
echo("");
return;
}
function namo(){
global $namai;
echo ("Namo");
return;
}
function antraste(){
echo ("Klauskite siūlykite padėkite");
return;
}
function yra_eladresas_eladresu_faile($s, $failo_vardas){
return in_array($s."\r\n",file($failo_vardas));
}
//echo($istorija." - atejo istorija
");
//echo("ateja post parametrai:
");
//foreach ($HTTP_POST_VARS as $va => $valu) echo("$va = $valu
\n");
$yraregistracija=($registracija==1);
//echo($yraregistracija." registr
");
$saveHTML=1;
$noHTML=0;
$i_ID=0; $i_istorija=$i_ID+1; $i_email=$i_istorija+1;
$i_vardas=$i_email+1; $i_data=$i_vardas+1; $i_tema=$i_data+1;
$i_zinute=$i_tema+1;
$n_fields=$i_zinute+1;
$br="
";
$el_adresu_failo_vardas = "ATEmeilai.txt";
$savemeilas=$meilas;
$meilas=mynl2br($meilas,$noHTML);
if (yra_eladresas_eladresu_faile($meilas,$el_adresu_failo_vardas)){
htmlhead();
HTMLstyle();
namo(); echo(""); antraste(); echo($br);
$today=mynl2br(date("Y.m.d").nbsp(2).date("H:i:s"),$noHTML);
// $nr=mynl2br($vardas,$noHTML);
$istorija=mynl2br($istorija,$noHTML);
$vardas=mynl2br($vardas,$noHTML);
if (count($init_vardas)<1) $init_vardas=$vardas;
if (count($init_meilas)<1) $init_meilas=$meilas;
$tema=mynl2br($tema,$noHTML);
$zinute=mynl2br($zinute,$saveHTML);
if (!$yraregistracija){
$ID_new = uzregistruok($lastmsgnrfile,$irashaifile,$istorija,"$meilas|$vardas|$today|$tema|$zinute|");
$istorija="$istorija_$ID_new";
}
$sf=file($irashaifile);
$N=count($sf);
// papildome, kad yterpti klausimo butona
$sf[]="0|.$istorija|$meilas|$vardas|$today|||";
$paskutinis_irasas[$i_ID]=-3;
for ($i=$N; $i>=0; $i--){
$irasas_i=explode("|", $sf[$i]);
if ((count($irasas_i)==$n_fields+1)&&(is_numeric($irasas_i[$i_ID])==1)){ // spausdiname tik korektishkaus yrashus
if (($i!=$N)&&($paskutinis_irasas[$i_ID]<0)) $paskutinis_irasas[$i_ID]=$irasas_i[$i_ID];
if ($i==$N){
echo(form_klausiu(0,"",$vardas,$today,"$button_$irasas_i[$i_vardas]
"));
// echo("$button_$irasas_i[$i_vardas], ".nbsp(4)."$irasas_i[$i_data]
");
}
else{
$button_ =form_atsakau($irasas_i[$i_ID],$irasas_i[$i_tema],$irasas_i[$i_istorija],$irasas_i[$i_vardas],$irasas_i[$i_zinute],$irasas_i[$i_data],$today);
echo("$irasas_i[$i_vardas], ".nbsp(4)."$irasas_i[$i_data]$br
$button_Žinutė:
$irasas_i[$i_zinute]
");
}
}
}
// echo("Klauskite, atsakykite, siūlykite ...");
}
else echo("Jūsų e-adresas \"$savemeilas\" nerastas tarp asmenų užpildžiusių anketas!
".
"Patikslinkite e-adresą arba užpildykite anketą.");
?>