Kyberia v2.3 - 1st revision from SVN (Without patches of kyberia.sk team)

[mirrors/Kyberia-bloodline.git] / inc / eventz / vycisti_registracky.inc

diff --git a/inc/eventz/vycisti_registracky.inc b/inc/eventz/vycisti_registracky.inc
new file mode 100644 (file)
index 0000000..0bf0a20
--- /dev/null
+++ b/inc/eventz/vycisti_registracky.inc
@@ -0,0 +1,37 @@
+<?php
+function vycisti_registracky() {
+global $db,$error;
+
+$q="select users.login as persona,users.email as email,k,node_id,node_creator,login from nodes
+left join users on nodes.node_creator=users.user_id where node_name='request for access' and node_parent=2091448 and k<=4";
+
+$set=$db->query($q);
+while ($set->next()) {
+$noda=$set->getString('node_id');
+echo "Uchadzac ";
+echo $set->getString('login');
+echo "<br>Jeho noda:: ";
+echo $set->getString('node_id');
+echo "<br>";
+echo " pocet hlasov:: ";
+echo $set->getString('k');
+echo "<br>";
+$q="delete from users where user_id=$noda";
+echo $q;
+    $db->update($q);
+echo "<br>";
+$q="delete from nodes where node_vector like '020914480$noda%'";
+echo $q;
+    $db->update($q);
+echo "<br>";
+echo "<hr>";
+$mail=$set->getString('email');
+mail($mail,"kyberia.sk registracia","Lutujem, vasa registracia bola zamietnuta");
+// echo $mail;
+
+
+}
+
+return false;
+}
+?>
\ No newline at end of file