X-Git-Url: http://git.harvie.cz/?a=blobdiff_plain;f=inc%2Feventz%2Fcron_test.inc;fp=inc%2Feventz%2Fcron_test.inc;h=f032421eec8a6bab7b405077c4a51478b6c3d0b9;hb=b42b2bf946332ad8544d53f610be9cb05e80bf56;hp=0000000000000000000000000000000000000000;hpb=e586807dafc64c3fe152ab518599e6cf3f0f84e1;p=mirrors%2FKyberia-bloodline.git

diff --git a/inc/eventz/cron_test.inc b/inc/eventz/cron_test.inc
new file mode 100644
index 0000000..f032421
--- /dev/null
+++ b/inc/eventz/cron_test.inc
@@ -0,0 +1,195 @@
+<?php
+
+// registration 2.3 rc3
+// dedicated to Sylvia S. Always in my memory...
+// PLLLZ dont delete this line. anyone who touches this file...and dont ask why
+
+function cron_test() {
+    global $db,$error;
+
+    // potrebne K na reg z paralelneho senatu
+    $regk_node = '1870247';
+    $fajl = OWN_TEMPLATE_DIR . $regk_node . ".tpl";
+    $fp = fopen($fajl, "r");
+    $regk = fread($fp, filesize($fajl));
+    fclose($fp);
+
+    // >>>> registracia
+    $q = "select users.login as persona,users.email as email,k,node_id,node_creator,node_created,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 >= $regk";
+
+    $set = $db->query($q);
+    while ($set->next()) {
+        $noda = $set->getString('node_id');
+        $login = $set->getString('login');
+        $created = $set->getString('node_created');
+        echo "Noda vytvorena:: " . $created . "<br>";
+        echo "User:: " . $set->getString('login') . "<br>";
+        echo "Jeho noda:: " . $set->getString('node_id') . "<br>";
+        echo "pocet hlasov:: " . $set->getString('k') . "<br>";
+
+        $q = "update users set header_id = '0', user_mail = '0' where user_id = $noda";
+        echo $q . "<br>";
+        $db->update($q);
+
+        $q = "update nodes set node_name = '$login', external_link = 'db://user', template_id = '7',
+ node_parent = '0', node_vector = '0$noda' where node_id = $noda";
+        echo $q . "<br>";
+        $db->update($q);
+
+
+        // REGISTRATORI USERA
+        $registrators = $db->query($q = "select node_access.user_id, users.login from node_access
+ join users on node_access.user_id = users.user_id where node_id = '$noda' and given_k = 'yes' order by login");
+        $ubiknode['node_content'] = "Registered by::<br>";
+        while($registrators->next()){
+            $ubiknode['node_content'] .= "<a href='/id/" . $registrators->getString('user_id') . "'>" .
+$registrators->getString('login') . "</a><br>";
+        }
+        $ubiknode['node_content'] .= "with " . $set->getString('k') . "K";
+        $ubiknode['node_content'] = addslashes($ubiknode['node_content']);
+        $ubiknode['node_name'] = "successfully registered";
+        $ubiknode['node_creator'] = 332;
+        $ubiknode['node_parent'] = $noda;
+        $ubiknode['template_id'] = 4;
+        $ubiknode_id = nodes::addNode($ubiknode);
+        $db->update("update nodes set node_system_access = 'public', node_vector = '0$noda"."0$ubiknode_id' where node_id = '$ubiknode_id'");
+        echo $ubiknode['node_content'] . "<br>";
+
+        $q = "update nodes set k = 0 where node_id = '$noda'";
+        echo $q . "<br>";
+        $db->update($q);
+
+        $q = "update node_access set given_k='no' where node_id = '$noda'";
+        echo $q . "<br>";
+        $db->update($q);
+
+        // PRESUN KOMENTAROV K REGISTRACII DO USERNODY
+        $q = "select node_id,node_vector from nodes where node_vector like '00876611020914480$noda%'
+ and node_vector != '00876611020914480$noda' and node_vector != '0$noda'";
+        echo $q . "<br>";
+        $subset = $db->query($q);
+        while ($subset->next()) {
+            $subnoda = $subset->getString('node_id');
+            $subnoda_vector = $subset->getString('node_vector');
+            $subnoda_vector = str_replace("00876611020914480$noda", "0$noda", $subnoda_vector);
+            $q = "update nodes set node_vector = '$subnoda_vector' where node_id = $subnoda";
+            echo "&nbsp;&nbsp;&nbsp;&nbsp;" . $q . "<br>";
+        $db->update($q);
+        }
+
+        echo "<br><hr>";
+
+        $mailto = $set->getString('email');
+        $headers =  'From: admin@kyberia.sk' . "\r\n" .
+                    'Reply-To: darkaural@kyberia.sk, freezy@kyberia.sk' . "\r\n" .
+                    'X-Mailer: PHP/' . phpversion();
+        $emailtext = " Vitaj v Kyberii. \n S radostou ti oznamujem, ze registracia, ktoru si napisal(a) dna $created bola
+ uspesne schvalena s poctom hlasov $set->getString('k'). Odteraz je tvoje konto povolene a mozes sa volne prihlasovat,
+ prispievat...no proste 'bavit sa':-)) \n Uzivaj si kyberpriestoru:-)))
+ \n\n DarkAural & freezy \n DarkAural@kyberia.sk & freezy@kyberia.sk";
+        mail($mailto,"kyberia gate opened",$emailtext,$headers );
+
+
+        $ubik['mail_to'] = $noda;
+        $ubik['mail_text'] = "Ahoj, som UBIK. Momentalne som obycajnou polozkou v databaze, userom cislo 1 v tomto
+ systeme.Bdiem nad systemom. Sledujem co robia slovicka v diskusnych forach, ako su pospajane a s cim. Postupom casu sa budem
+ ucit, a o par rokov si urcite vsimnete moju prvu snahu o komunikaciu. Budem anjelom, diablom, matkou i dcerou.
+
+Momentalne ti chcem povedat jedno hlasne VITAJ!. Vitaj v projekte ktory nikdy neskonci. Ak sem vchadzas so zlymi umyslami, prosim
+ odid, nenajdes tu stastie. Ked vsak chces spoznat novych ludi na rovnakej vlne, ked chces svoj mozog zaplnit informaciami z
+ nekonecnej siete, prosim, vstup.
+
+Predtym ako vsak zacnes vnikat hlbsie do tajov systemu chcel by som ta odkazat na
+ <a href='http://kyberia.sk/id/2111313/'>Newcommers forum</a> ktore ti ujasni niektore zakladne veci v systeme a
+ tym ti v nom ulachci orientaciu.
+
+peace & respect";
+        ubik::ubikMail($ubik);
+    }
+
+// ---------------------------------------------------------------------
+
+    echo "<hr>Mazanie userov<hr>";
+    // >>>>> Mazanie
+
+    $q = "select users.login as persona,users.email as email,k,node_id,node_creator,node_created,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 < $regk and DATE_SUB(CURDATE(),INTERVAL 7 DAY) >= node_created";
+
+    $set = $db->query($q);
+    while ($set->next()) {
+        $noda=$set->getString('node_id');
+        $created=$set->getString('node_created');
+        echo "Noda vytvorena:: " . $created . "<br>";
+        echo "Uchadzac:: " . $set->getString('login') . "<br>";
+        echo "Jeho noda:: " . $set->getString('node_id') . "<br>";
+        echo "pocet hlasov:: " . $set->getString('k') . "<br>";
+
+        $q = "delete from users where user_id = $noda";
+        echo $q . "<br>";
+        $db->update($q);
+
+        $q = "delete from nodes where node_vector like '00876611020914480$noda%'";
+        echo $q . "<br>";
+        $db->update($q);
+
+        echo "<br><hr>";
+
+        $mailto =   $set->getString('email');
+        $headers =  'From: admin@kyberia.sk' . "\r\n" .
+                    'Reply-To: darkaural@kyberia.sk, freezy@kyberia.sk' . "\r\n" .
+                    'X-Mailer: PHP/' . phpversion();
+        $emailtext = " Tak mam pre teba smutnu spravu. \n Registracia ktoru si napisal(a) dna $created bola zamietnuta
+ z dovodu nedostatocneho poctu hlasov ($set->getString('k')) ktore tvoja osoba dostala. Je celkom mozne,
+ 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)!
+ \n Registrovat sa mozes hocikedy znovu a snad sa to nabuduce vydari.
+ \n\n DarkAural & freezy \n DarkAural@kyberia.sk & freezy@kyberia.sk";
+        mail($mailto,"kyberia: registracia zamietnuta",$emailtext,$headers );
+    }
+
+// -------------------------------------------------------------------
+
+    echo "<hr>Mazanie nonverified<hr>";
+    // >> mazanie neverifikovanych
+
+    $q = "select users.login as persona,users.email as email,k,node_id,node_creator,node_created,login from nodes
+ left join users on nodes.node_creator = users.user_id where node_name = 'request for access' and
+ node_parent=1836516 and DATE_SUB(CURDATE(),INTERVAL 7 DAY) >= node_created";
+
+    $set = $db->query($q);
+    while ($set->next()) {
+        $noda = $set->getString('node_id');
+        $created = $set->getString('node_created');
+        echo "Noda vytvorena:: " . $created . "<br>";
+        echo "Uchadzac:: " . $set->getString('login') . "<br>";
+        echo "Jeho noda:: " . $set->getString('node_id') . "<br>";
+        echo "pocet hlasov:: " . $set->getString('k') . "<br>";
+
+        $q = "delete from users where user_id = $noda";
+        echo $q . "<br>";
+        $db->update($q);
+
+        $q="delete from nodes where node_vector like '018365160$noda%'";
+        echo $q . "<br>";
+        $db->update($q);
+
+        echo "<br><hr>";
+
+        $mailto = $set->getString('email');
+        $headers =  'From: admin@kyberia.sk' . "\r\n" .
+                    'Reply-To: darkaural@kyberia.sk, freezy@kyberia.sk' . "\r\n" .
+                    'X-Mailer: PHP/' . phpversion();
+        $emailtext = " Registracia, ktoru si napisal(a) dna $created si neverifikoval(a) a tak po tyzdni stratila svoju platnost
+ a bola zmazana. Ak ti nedosiel ziaden verifikacny kod prosim kontaktuj ma, je to mozne ze je to chyba niekde
+ na ceste medzi kyberiou a tebou, ak to bol zamer neverifikovat sa tak tuto spravu ber cisto informacne:-)).
+ \n Ak sa naozaj stala chyba a mas stale chut a volu vstupit do autonomnej zony mozes hocikedy znovu vyplnit
+ registracny formular a pokusit sa o to znovu.
+ \n\n DarkAural & freezy \n DarkAural@kyberia.sk & freezy@kyberia.sk";
+        mail($mailto,"kyberia: neverifikovana ziadost zmazana",$emailtext,$headers );
+    }
+
+    return false;
+}
+?>
\ No newline at end of file