Implemented "radkova inzerce"
[www.energie.vellum.cz.git] / inzerat-submit.php
1 <?php $cvs_id='$Id$';
2
3         include("common.php");
4
5         $title_tail="Elektronické podání øádková inzerce";
6         heading(true/*title*/);
7
8 prepvar("text");
9 prepvar("name");
10 prepvar("adresa");
11 prepvar("doklad",".*",false/*require*/);
12 prepvar("ico");
13 prepvar("dic");
14 prepvar("pocet");
15 prepvar("mail");
16
17 prepvar("confirm",".*",false/*require*/);
18
19
20 $out=stamp_line();
21 $err=false;
22
23 if (""==($text=trim($text))) {
24         print("<h1 class=\"red\">Chybí jakýkoliv text inzerátu!</h1>\n");
25         $err=true;
26         }
27
28 if (!ereg("^[0-9]*\$",$pocet)) {
29         print("<h1 class=\"red\">Jako poèet zveøejnìní je povoleno zadat jen èíselnou hodnotu!</h1>\n");
30         $err=true;
31         $pocet=1;
32         }
33 if (""==$pocet) {
34         print("<h1 class=\"red\">Nutno zadat platný poèet opakování! (pro jediné uveøejnìní zadejte 1)</h1>\n");
35         $err=true;
36         $pocet=1;
37         }
38 if ($pocet<=0 || $pocet>120) {
39         print("<h1 class=\"red\">Takový poèet zveøejnìní není povolen!</h1>\n");
40         $err=true;
41         }
42
43 if (!($f=fopen("inzerat.js","r")))
44         fatal("Nepodaøilo se naèíst ceny inzerce");
45 $price_a=array();
46 while (($s=fgets($f,0x1000))) {
47         if (!($s=trim($s)))
48                 break;
49         if (!(ereg("^var price_([a-z]*) *=([0-9]*);$",$s,$matched)))
50                 continue;
51         $price_a[$matched[1]]=$matched[2];
52         }
53 fclose($f);
54
55 $total=(ceil((strlen($text)+3)/40)*$pocet-1)*$price_a["line"];
56 if ($total<=0) {
57         $total=0;
58         $total_pretty="zdarma";
59         // hack for common.php/format_fields_to_text()
60         unset($HTTP_POST_VARS["doklad"]);
61         }
62 else {
63         if (isset($doklad))
64                 $total+=$price_a["doklad"];
65         $total_pretty="$total Kè";
66         // hack for common.php/format_fields_to_text()
67         $HTTP_POST_VARS["doklad"]=isset($doklad);
68         }
69
70 if (""==$name) {
71         print("<h1 class=\"red\">Chybí zadání názvu firmy èi jména osoby!</h1>\n");
72         $err=true;
73         }
74
75 if (""==$adresa) {
76         print("<h1 class=\"red\">Chybí zadání úplné adresy!</h1>\n");
77         $err=true;
78         }
79
80 if ($total>0 && isset($doklad)) {
81         if (""==$ico) {
82                 print("<h1 class=\"red\">Po¾adujete zaslání daòového dokladu, ale chybí IÈO!</h1>\n");
83                 $err=true;
84                 }
85         if (""==$dic) {
86                 print("<h1 class=\"red\">Po¾adujete zaslání daòového dokladu, ale chybí DIÈ!</h1>\n");
87                 $err=true;
88                 }
89         }
90
91 if (""!=$mail && !ereg(".@..",$mail)) {
92         print("<h1 class=\"red\">Jakmile jste uvedli e-mailovou adresu, tak ale musí být v&nbsp;platném tvaru!</h1>\n");
93         $err=true;
94         }
95
96 $out.=format_fields_to_text();
97 $out.="Celkem:\t$total_pretty\n";
98
99 if ($err)
100         datacheck_fail();
101
102 if (!isset($confirm)) {
103         print("<p>");
104         if (!$total)
105                 print("Tento inzerát bude oti¹tìn zdarma.");
106         else
107                 print("Cena tohoto inzerátu je $total Kè.");
108         print(" Pokud chcete inzerát pozmìnit, mù¾ete se ".return_back("vrátit zpìt")
109                         ." na pøedchozí stránku a zadaná data upravit. Jinak prosím potvrïte"
110                         ." odeslání tlaèítkem <a href=\"#submit_button\">Ode¹li inzerát</a>.</p>\n");
111         print_form_radkova_inzerce(true/*readonly*/,$total_pretty,"confirm","Ode¹li inzerát");
112         footer();
113         }
114
115 // Successful data acquisition, write&send:
116
117 /*** Table initialization:
118         drop   table energie_inzerat;
119         create table energie_inzerat (varsym int not null auto_increment primary key,contents text null);
120         alter  table energie_inzerat add index (varsym);
121         insert into  energie_inzerat (varsym) values (20025000);
122 ***/
123
124 db_query("insert into $tb_inzerat (contents) values('".addslashes($out)."')");
125 if (!($varsym=mysql_insert_id()))
126         fatal("Nepodaøilo se zapsat objednávku do SQL");
127 if ($total)
128         $out="VarSym:\t$varsym\n".$out;
129
130 if (mail_data("inzerat",$out))
131         fatal("Chyba pøi odesílání inzerátu, data inzerátu ji¾ ale byla úspì¹nì ulo¾ena");
132
133 print("<h1>Inzerát byl úspì¹nì pøijat</h1>\n");
134 if ($total>0)
135         print("<p>Celkovou èástku $total_pretty uhraïte pøevodním pøíkazem, pøes ".gsm_banking()."\n"
136                         ." nebo po¹tovní poukázkou na úèet vydavatele u&nbsp;Èeské spoøitelny:</p>"
137                         .gsm_table($total,$varsym)
138                         ."<p>Po provedení platby bude Vá¹ inzerát v&nbsp;nejbli¾¹ím èísle zveøejnìn"
139                         .(!isset($doklad) ? "" : " a bude Vám také zaslán daòový doklad")
140                         .".</p>\n");
141 else
142         print("<p>Vá¹ inzerát bude v&nbsp;nejbli¾¹ím èísle zveøejnìn zdarma.</p>\n");
143
144 print(return_to_homepage());
145
146         footer();
147 ?>