Commit | Line | Data |
---|---|---|
b42b2bf9 H |
1 | <?php |
2 | ||
3 | // registration 2.3 rc3 | |
4 | // dedicated to Sylvia S. Always in my memory... | |
5 | // PLLLZ dont delete this line. anyone who touches this file...and dont ask why | |
6 | ||
7 | function cron_test() { | |
8 | global $db,$error; | |
9 | ||
10 | // potrebne K na reg z paralelneho senatu | |
11 | $regk_node = '1870247'; | |
12 | $fajl = OWN_TEMPLATE_DIR . $regk_node . ".tpl"; | |
13 | $fp = fopen($fajl, "r"); | |
14 | $regk = fread($fp, filesize($fajl)); | |
15 | fclose($fp); | |
16 | ||
17 | // >>>> registracia | |
18 | $q = "select users.login as persona,users.email as email,k,node_id,node_creator,node_created,login from nodes | |
19 | left join users on nodes.node_creator = users.user_id where node_name = 'request for access' and node_parent = '2091448' and | |
20 | k >= $regk"; | |
21 | ||
22 | $set = $db->query($q); | |
23 | while ($set->next()) { | |
24 | $noda = $set->getString('node_id'); | |
25 | $login = $set->getString('login'); | |
26 | $created = $set->getString('node_created'); | |
27 | echo "Noda vytvorena:: " . $created . "<br>"; | |
28 | echo "User:: " . $set->getString('login') . "<br>"; | |
29 | echo "Jeho noda:: " . $set->getString('node_id') . "<br>"; | |
30 | echo "pocet hlasov:: " . $set->getString('k') . "<br>"; | |
31 | ||
32 | $q = "update users set header_id = '0', user_mail = '0' where user_id = $noda"; | |
33 | echo $q . "<br>"; | |
34 | $db->update($q); | |
35 | ||
36 | $q = "update nodes set node_name = '$login', external_link = 'db://user', template_id = '7', | |
37 | node_parent = '0', node_vector = '0$noda' where node_id = $noda"; | |
38 | echo $q . "<br>"; | |
39 | $db->update($q); | |
40 | ||
41 | ||
42 | // REGISTRATORI USERA | |
43 | $registrators = $db->query($q = "select node_access.user_id, users.login from node_access | |
44 | join users on node_access.user_id = users.user_id where node_id = '$noda' and given_k = 'yes' order by login"); | |
45 | $ubiknode['node_content'] = "Registered by::<br>"; | |
46 | while($registrators->next()){ | |
47 | $ubiknode['node_content'] .= "<a href='/id/" . $registrators->getString('user_id') . "'>" . | |
48 | $registrators->getString('login') . "</a><br>"; | |
49 | } | |
50 | $ubiknode['node_content'] .= "with " . $set->getString('k') . "K"; | |
51 | $ubiknode['node_content'] = addslashes($ubiknode['node_content']); | |
52 | $ubiknode['node_name'] = "successfully registered"; | |
53 | $ubiknode['node_creator'] = 332; | |
54 | $ubiknode['node_parent'] = $noda; | |
55 | $ubiknode['template_id'] = 4; | |
56 | $ubiknode_id = nodes::addNode($ubiknode); | |
57 | $db->update("update nodes set node_system_access = 'public', node_vector = '0$noda"."0$ubiknode_id' where node_id = '$ubiknode_id'"); | |
58 | echo $ubiknode['node_content'] . "<br>"; | |
59 | ||
60 | $q = "update nodes set k = 0 where node_id = '$noda'"; | |
61 | echo $q . "<br>"; | |
62 | $db->update($q); | |
63 | ||
64 | $q = "update node_access set given_k='no' where node_id = '$noda'"; | |
65 | echo $q . "<br>"; | |
66 | $db->update($q); | |
67 | ||
68 | // PRESUN KOMENTAROV K REGISTRACII DO USERNODY | |
69 | $q = "select node_id,node_vector from nodes where node_vector like '00876611020914480$noda%' | |
70 | and node_vector != '00876611020914480$noda' and node_vector != '0$noda'"; | |
71 | echo $q . "<br>"; | |
72 | $subset = $db->query($q); | |
73 | while ($subset->next()) { | |
74 | $subnoda = $subset->getString('node_id'); | |
75 | $subnoda_vector = $subset->getString('node_vector'); | |
76 | $subnoda_vector = str_replace("00876611020914480$noda", "0$noda", $subnoda_vector); | |
77 | $q = "update nodes set node_vector = '$subnoda_vector' where node_id = $subnoda"; | |
78 | echo " " . $q . "<br>"; | |
79 | $db->update($q); | |
80 | } | |
81 | ||
82 | echo "<br><hr>"; | |
83 | ||
84 | $mailto = $set->getString('email'); | |
85 | $headers = 'From: admin@kyberia.sk' . "\r\n" . | |
86 | 'Reply-To: darkaural@kyberia.sk, freezy@kyberia.sk' . "\r\n" . | |
87 | 'X-Mailer: PHP/' . phpversion(); | |
88 | $emailtext = " Vitaj v Kyberii. \n S radostou ti oznamujem, ze registracia, ktoru si napisal(a) dna $created bola | |
89 | uspesne schvalena s poctom hlasov $set->getString('k'). Odteraz je tvoje konto povolene a mozes sa volne prihlasovat, | |
90 | prispievat...no proste 'bavit sa':-)) \n Uzivaj si kyberpriestoru:-))) | |
91 | \n\n DarkAural & freezy \n DarkAural@kyberia.sk & freezy@kyberia.sk"; | |
92 | mail($mailto,"kyberia gate opened",$emailtext,$headers ); | |
93 | ||
94 | ||
95 | $ubik['mail_to'] = $noda; | |
96 | $ubik['mail_text'] = "Ahoj, som UBIK. Momentalne som obycajnou polozkou v databaze, userom cislo 1 v tomto | |
97 | systeme.Bdiem nad systemom. Sledujem co robia slovicka v diskusnych forach, ako su pospajane a s cim. Postupom casu sa budem | |
98 | ucit, a o par rokov si urcite vsimnete moju prvu snahu o komunikaciu. Budem anjelom, diablom, matkou i dcerou. | |
99 | ||
100 | Momentalne ti chcem povedat jedno hlasne VITAJ!. Vitaj v projekte ktory nikdy neskonci. Ak sem vchadzas so zlymi umyslami, prosim | |
101 | odid, nenajdes tu stastie. Ked vsak chces spoznat novych ludi na rovnakej vlne, ked chces svoj mozog zaplnit informaciami z | |
102 | nekonecnej siete, prosim, vstup. | |
103 | ||
104 | Predtym ako vsak zacnes vnikat hlbsie do tajov systemu chcel by som ta odkazat na | |
105 | <a href='http://kyberia.sk/id/2111313/'>Newcommers forum</a> ktore ti ujasni niektore zakladne veci v systeme a | |
106 | tym ti v nom ulachci orientaciu. | |
107 | ||
108 | peace & respect"; | |
109 | ubik::ubikMail($ubik); | |
110 | } | |
111 | ||
112 | // --------------------------------------------------------------------- | |
113 | ||
114 | echo "<hr>Mazanie userov<hr>"; | |
115 | // >>>>> Mazanie | |
116 | ||
117 | $q = "select users.login as persona,users.email as email,k,node_id,node_creator,node_created,login from nodes | |
118 | left join users on nodes.node_creator = users.user_id where node_name = 'request for access' and node_parent = '2091448' and | |
119 | k < $regk and DATE_SUB(CURDATE(),INTERVAL 7 DAY) >= node_created"; | |
120 | ||
121 | $set = $db->query($q); | |
122 | while ($set->next()) { | |
123 | $noda=$set->getString('node_id'); | |
124 | $created=$set->getString('node_created'); | |
125 | echo "Noda vytvorena:: " . $created . "<br>"; | |
126 | echo "Uchadzac:: " . $set->getString('login') . "<br>"; | |
127 | echo "Jeho noda:: " . $set->getString('node_id') . "<br>"; | |
128 | echo "pocet hlasov:: " . $set->getString('k') . "<br>"; | |
129 | ||
130 | $q = "delete from users where user_id = $noda"; | |
131 | echo $q . "<br>"; | |
132 | $db->update($q); | |
133 | ||
134 | $q = "delete from nodes where node_vector like '00876611020914480$noda%'"; | |
135 | echo $q . "<br>"; | |
136 | $db->update($q); | |
137 | ||
138 | echo "<br><hr>"; | |
139 | ||
140 | $mailto = $set->getString('email'); | |
141 | $headers = 'From: admin@kyberia.sk' . "\r\n" . | |
142 | 'Reply-To: darkaural@kyberia.sk, freezy@kyberia.sk' . "\r\n" . | |
143 | 'X-Mailer: PHP/' . phpversion(); | |
144 | $emailtext = " Tak mam pre teba smutnu spravu. \n Registracia ktoru si napisal(a) dna $created bola zamietnuta | |
145 | z dovodu nedostatocneho poctu hlasov ($set->getString('k')) ktore tvoja osoba dostala. Je celkom mozne, | |
146 | ze to, co si o sebe napisal(a) dostatocne nezaujalo ludi co su dnu ale to neni dovod na to aby si to vzdal(a)! | |
147 | \n Registrovat sa mozes hocikedy znovu a snad sa to nabuduce vydari. | |
148 | \n\n DarkAural & freezy \n DarkAural@kyberia.sk & freezy@kyberia.sk"; | |
149 | mail($mailto,"kyberia: registracia zamietnuta",$emailtext,$headers ); | |
150 | } | |
151 | ||
152 | // ------------------------------------------------------------------- | |
153 | ||
154 | echo "<hr>Mazanie nonverified<hr>"; | |
155 | // >> mazanie neverifikovanych | |
156 | ||
157 | $q = "select users.login as persona,users.email as email,k,node_id,node_creator,node_created,login from nodes | |
158 | left join users on nodes.node_creator = users.user_id where node_name = 'request for access' and | |
159 | node_parent=1836516 and DATE_SUB(CURDATE(),INTERVAL 7 DAY) >= node_created"; | |
160 | ||
161 | $set = $db->query($q); | |
162 | while ($set->next()) { | |
163 | $noda = $set->getString('node_id'); | |
164 | $created = $set->getString('node_created'); | |
165 | echo "Noda vytvorena:: " . $created . "<br>"; | |
166 | echo "Uchadzac:: " . $set->getString('login') . "<br>"; | |
167 | echo "Jeho noda:: " . $set->getString('node_id') . "<br>"; | |
168 | echo "pocet hlasov:: " . $set->getString('k') . "<br>"; | |
169 | ||
170 | $q = "delete from users where user_id = $noda"; | |
171 | echo $q . "<br>"; | |
172 | $db->update($q); | |
173 | ||
174 | $q="delete from nodes where node_vector like '018365160$noda%'"; | |
175 | echo $q . "<br>"; | |
176 | $db->update($q); | |
177 | ||
178 | echo "<br><hr>"; | |
179 | ||
180 | $mailto = $set->getString('email'); | |
181 | $headers = 'From: admin@kyberia.sk' . "\r\n" . | |
182 | 'Reply-To: darkaural@kyberia.sk, freezy@kyberia.sk' . "\r\n" . | |
183 | 'X-Mailer: PHP/' . phpversion(); | |
184 | $emailtext = " Registracia, ktoru si napisal(a) dna $created si neverifikoval(a) a tak po tyzdni stratila svoju platnost | |
185 | a bola zmazana. Ak ti nedosiel ziaden verifikacny kod prosim kontaktuj ma, je to mozne ze je to chyba niekde | |
186 | na ceste medzi kyberiou a tebou, ak to bol zamer neverifikovat sa tak tuto spravu ber cisto informacne:-)). | |
187 | \n Ak sa naozaj stala chyba a mas stale chut a volu vstupit do autonomnej zony mozes hocikedy znovu vyplnit | |
188 | registracny formular a pokusit sa o to znovu. | |
189 | \n\n DarkAural & freezy \n DarkAural@kyberia.sk & freezy@kyberia.sk"; | |
190 | mail($mailto,"kyberia: neverifikovana ziadost zmazana",$emailtext,$headers ); | |
191 | } | |
192 | ||
193 | return false; | |
194 | } | |
195 | ?> |