From: short <> Date: Sun, 5 Aug 2001 18:05:06 +0000 (+0000) Subject: Implemented form data acceptor (store&mail) X-Git-Url: https://git.jankratochvil.net/?p=www.energie.vellum.cz.git;a=commitdiff_plain;h=531512a017bb0f9d16a63480d565cda648dd1955 Implemented form data acceptor (store&mail) --- diff --git a/index.php b/index.php index af6897b..0f61421 100644 --- a/index.php +++ b/index.php @@ -8,12 +8,12 @@ $head=' '; - $want_js=true; + $detect_js=true; include("common.php"); ?>

Objednávka

-
+
@@ -25,20 +25,20 @@ "); - tab_left("want_cd_$o_year"); - print("\n"); - } - fclose($f); + if (!($f=fopen("objednavka.js","r"))) + fatal("Nepodaøilo se naèíst seznam dostupného zbo¾í"); + while (($s=fgets($f,0x1000))) { + if (!($s=trim($s))) + break; + if (!(ereg("^want_price\\[ *'cd_([^']*)'\\]=([0-9]*);\$",$s,$o_matched))) + continue; + $o_year =$o_matched[1]; + $o_price=$o_matched[2]; + print(""); + tab_left("want_cd_$o_year"); + print("\n"); } + fclose($f); if ($have_js) { ?> @@ -59,7 +59,7 @@ function print_addr($title,$pfx,$ico)
roèník 2000 za cenu 150 Kè
roèník $o_year na CD za cenu $o_price Kè
roèník $o_year na CD za cenu $o_price Kè

Adresa: - +
Ulice:" size="60" />
Mìsto:" size="30" />
Mìsto:" size="30" /> PSÈ: " size="5" maxlength="5" />
diff --git a/objednavka.php b/objednavka.php new file mode 100644 index 0000000..8482bab --- /dev/null +++ b/objednavka.php @@ -0,0 +1,120 @@ + $value) { + if (!ereg("^want_",$key)) + continue; + if (ereg("[^0-9]",$value)) { + print("

Jako poèet je mo¾no povoleno zadat jen èíselnou hodnotu!

\n" + ."

Opravte prosím polo¾ku " + ."".htmlspecialchars($key).": " + ."".htmlspecialchars($value)."" + ."

\n"); + $err=true; + continue; + } + if (!$value) + continue; + $out.="$key:\t$value\n"; + $total+=$value; + } + +if (!$err && !$total) { + print("

Musíte si objednat alespoò jeden èasopis, napi¹te 1 do dané polo¾ky!

\n"); + $err=true; + } + +function out_addr($title,$pfx) +{ + global $HTTP_POST_VARS; + $fields=array( + "Název" ,"name", + "Ulice" ,"ulice", + "Mìsto" ,"mesto", + "PSÈ" ,"psc", + "IÈO" ,"ico", + "DIÈ" ,"dic", + "Kontakt","contakt", + "Tel" ,"tel", + "Fax" ,"fax", + "e-mail" ,"mail", + ); + + $r=""; + $first=true; + while ($fields) { + $pretty=array_shift($fields); + $var=$pfx.array_shift($fields); + if (!isset($HTTP_POST_VARS[$var])) + continue; + if (""==($value=trim($HTTP_POST_VARS[$var]))) + continue; + if ($first) { + $r.="$title\n"; + $first=false; + } + $r.="\t$pretty:\t$value\n"; + } + return($r); +} + +if (""==($addr1=out_addr("Adresa pro vystavení a zaslání faktury","addr1_"))) { + print("

Nebyla zadána ¾ádná fakturaèní adresa!

\n"); + $err=true; + } +$out.=$addr1; +$out.=out_addr("Adresa pro zasílaní èasopisu" ,"addr2_"); + +if (isset($HTTP_POST_VARS["comments"])) + $out.="Jiné sdélení:" + .ereg_replace("\n","\\0\t","\n" + .trim(ereg_replace("[\r\n]+","\n", + $HTTP_POST_VARS["comments"]))) + ."\n"; + +// Data acquision error checking: + +if ($err) { + print("

Nyní se prosím "); + if ($have_js) + print(""); + else + print(" (tlaèítkem " + .""Zpìt" èi " + .""Back" prohlí¾eèe)"); + print(" na pøedchozí stránku a chybu zadaných dat opravte.

\n"); + footer(); + } + +// Successful data acquisition, write&send: + +$out_file=$out.str_repeat("-",78)."\n\n"; +if (!($f=fopen("objednavka.txt","a")) || strlen($out_file)!=fputs($f,$out_file) || !fclose($f)) + fatal("Nepodaøilo se zapsat objednávku"); + +// 5th mail argument is supported from PHP-4.0.5 +if (!mail($mail_to,"EnergieWeb: objednavka",$out,"From: EnergieWeb <$admin_mail>")) + fatal("Chyba pøi odesílání upozornìní na objednávku, data objednávky ji¾ ale byla úspì¹nì ulo¾ena"); + +?> +

Objednávka byla úspì¹nì pøijata

+

V nejbli¾¹ích dnech Vám bude zaslána faktura a po jejím zaplacení i objedané zbo¾í.

+

Nyní se mù¾ete vrátit na ">úvodní stránku.

+