Subir archivos a 'utils'
This commit is contained in:
pare
f19e452d56
commit
311ab4e216
S'han modificat 3 arxius amb 626 adicions i 0 eliminacions
323
utils/bot_plus_benvinguda.php
Normal file
323
utils/bot_plus_benvinguda.php
Normal file
|
|
@ -0,0 +1,323 @@
|
||||||
|
<?php
|
||||||
|
$tempsbc = microtime(true);
|
||||||
|
// actualitza la llista de seguidors i fa comiat en privat als que ja no esstan
|
||||||
|
// Comprova els arguments, en cas de no existir presenta l'ajuda.
|
||||||
|
if (!empty($_SERVER["argv"][1])){
|
||||||
|
$argument = $_SERVER["argv"][1];
|
||||||
|
} else {
|
||||||
|
// Presenta l'ajuda
|
||||||
|
echo "NO HE REBUT la variable";
|
||||||
|
exit;
|
||||||
|
}
|
||||||
|
$lloc = $argument;
|
||||||
|
$limit = 80;
|
||||||
|
// ara podrá carregar la configuració i el logger
|
||||||
|
include("".$lloc."/configuracio/bot_plus_cfg.php");
|
||||||
|
include("".$lloc."/utils/bot_plus_funcions.php");
|
||||||
|
require_once("".$lloc."/lib/logger.php");
|
||||||
|
|
||||||
|
// inicia el log
|
||||||
|
$log = new Logging();
|
||||||
|
$log->lfile(''.$log_fitxer.'');
|
||||||
|
|
||||||
|
$log->lwrite("Arranque la benvinguda.");
|
||||||
|
|
||||||
|
$seg_bot = ConsultaSeguidors($base_url,$id_cmpt,$headers);
|
||||||
|
|
||||||
|
$seguidors = $seg_bot;
|
||||||
|
|
||||||
|
// recuperar fitxer de seguretat si falla
|
||||||
|
$nseg_a = filesize($lloc."/fitxers/seg_cont.txt");
|
||||||
|
|
||||||
|
if ($nseg_a == 0) {
|
||||||
|
$recupera = shell_exec("cat ".$lloc."/fitxers/seg_cont.bak > ".$lloc."/fitxers/seg_cont.txt");
|
||||||
|
$nseg_b = filesize($lloc."/fitxers/seg_cont.txt");
|
||||||
|
if($nseg_b == 0) {
|
||||||
|
$fes_seg = fopen($lloc."/fitxers/seg_cont.txt", "w") or die("No puc escriure al registre!");
|
||||||
|
fwrite($fes_seg, 10);
|
||||||
|
fclose($fes_seg);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
// llegeix el nombre de seguidors
|
||||||
|
$nseg_lle = fopen($lloc."/fitxers/seg_cont.txt", "r") or die("No puc obrir el nombre seguidors!");
|
||||||
|
$nseg_ant = fread($nseg_lle,filesize($lloc."/fitxers/seg_cont.txt"));
|
||||||
|
fclose($nseg_lle);
|
||||||
|
|
||||||
|
if($seguidors <> $nseg_ant) {
|
||||||
|
|
||||||
|
$voltes = ($seguidors/$limit);
|
||||||
|
|
||||||
|
// for per fer els fitxers de seguidors actual
|
||||||
|
$enlla_seg = 0;
|
||||||
|
$link = 0;
|
||||||
|
$r = 0;
|
||||||
|
$seguidors_matriu[]=array();
|
||||||
|
for ($r=0;$r<$voltes;$r++) {
|
||||||
|
// echo "r: ".$r." - ";
|
||||||
|
// echo " ".$limit."\n";
|
||||||
|
$conn_seg = curl_init();
|
||||||
|
$header = $headers;
|
||||||
|
if ($r == 0) {
|
||||||
|
$url = $base_url."/api/v1/accounts/".$id_cmpt."/followers?limit=".$limit;
|
||||||
|
curl_setopt($conn_seg, CURLOPT_URL, $url);
|
||||||
|
} else {
|
||||||
|
$patro = array("<",">",";");
|
||||||
|
$seguent_net = str_replace($patro,"", $link);
|
||||||
|
// echo $seguent_net."\n";
|
||||||
|
curl_setopt($conn_seg, CURLOPT_URL, $seguent_net);
|
||||||
|
}
|
||||||
|
curl_setopt($conn_seg, CURLOPT_RETURNTRANSFER, true);
|
||||||
|
curl_setopt($conn_seg, CURLOPT_HEADER, $header);
|
||||||
|
$data = curl_exec($conn_seg);
|
||||||
|
$data_json = json_decode($data,true);
|
||||||
|
curl_close($conn_seg);
|
||||||
|
|
||||||
|
list($header, $body) = explode("\r\n\r\n", $data, 2);
|
||||||
|
|
||||||
|
preg_match_all('/(.*?link): (.*?)\s+/', $header, $matches, PREG_PATTERN_ORDER);
|
||||||
|
$linkNom = $matches[1][0];
|
||||||
|
$link = $matches[2][0];
|
||||||
|
// echo "the value of ".$linkNom." is ".$link."\n".
|
||||||
|
// "the value of the link is ".$linkNom.":". $link."\n";
|
||||||
|
|
||||||
|
// Define the $response_headers array for later use
|
||||||
|
$resposta_caps = [];
|
||||||
|
// Get the first line (The Status Code)
|
||||||
|
$line = strtok($header, "\r\n");
|
||||||
|
$status_code = trim($line);
|
||||||
|
// Parse the string, saving it into an array instead
|
||||||
|
while (($line = strtok("\r\n")) !== false) {
|
||||||
|
if(false !== ($matches = explode(':', $line, 2))) {
|
||||||
|
$resposta_caps["{$matches[0]}"] = trim($matches[1]);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
// print_r($resposta_caps);
|
||||||
|
// echo "només link:\n". $resposta_caps['link']."\n";
|
||||||
|
$enlla_seg = $resposta_caps['link'];
|
||||||
|
$seg_mat = json_decode($body, true);
|
||||||
|
// print_r($seg_mat);
|
||||||
|
|
||||||
|
$reg_seg = count(json_decode($body),true);
|
||||||
|
//echo "registres obtinguts: ".$reg_seg."\n";
|
||||||
|
|
||||||
|
if($r == 0) {
|
||||||
|
$buida_id = fopen($lloc."/fitxers/seguidors_act.txt", "w") or die ("No trobe seguidors_act");
|
||||||
|
fclose($buida_id);
|
||||||
|
$buida_dt = fopen($lloc."/fitxers/seguidors_detall_act.txt", "w") or die ("No trobe seguidors_detall_act");
|
||||||
|
fclose($buida_dt);
|
||||||
|
$buida_dt_json = fopen($lloc."/fitxers/seguidors_detall_act.json", "w") or die ("No trobe seguidors_detall_act_json");
|
||||||
|
fclose($buida_dt_json);
|
||||||
|
}
|
||||||
|
|
||||||
|
$t=0;
|
||||||
|
for($t=0;$t<$reg_seg;$t++) {
|
||||||
|
$usu = $seg_mat[$t]['id'];
|
||||||
|
$usu_nom = $seg_mat[$t]['display_name'];
|
||||||
|
$usu_act = $seg_mat[$t]['acct'];
|
||||||
|
$usu_ori = $seg_mat[$t]['created_at'];
|
||||||
|
$usu_pub = $seg_mat[$t]['last_status_at'];
|
||||||
|
|
||||||
|
if( ($usu != null)||($usu != false)&&(!empty($usu) ) ){
|
||||||
|
//guarda la id del novingut amb w el reinici amb a afegeix al final
|
||||||
|
$escriu_f = fopen($lloc."/fitxers/seguidors_act.txt", "a") or die("No puc escriure al registre!");
|
||||||
|
fwrite($escriu_f, $usu."\n");
|
||||||
|
fclose($escriu_f);
|
||||||
|
//guarda la id i els detalls del novingut
|
||||||
|
$escriu_d = fopen($lloc."/fitxers/seguidors_detall_act.txt", "a") or die("No puc escriure al registre!");
|
||||||
|
fwrite($escriu_d, "".$usu."-".$usu_nom."-".$usu_act."\n");
|
||||||
|
fclose($escriu_d);
|
||||||
|
|
||||||
|
}
|
||||||
|
//$seguidors_matriu[] = array('usuari'=>$usu,'nom'=>$usu_nom,'acct'=>$usu_act);
|
||||||
|
$seguidors_matriu[] = array('usuari'=>(int)$usu,'nom'=>utf8_encode($usu_nom),'acct'=>$usu_act, 'creat'=>$usu_ori, "ult_pub"=>$usu_pub);
|
||||||
|
//final bucle matriu
|
||||||
|
}
|
||||||
|
// final bucle per fer fitxers
|
||||||
|
}
|
||||||
|
//print_r($seguidors_matriu);
|
||||||
|
// guarda fitxer filtrat en format json
|
||||||
|
//$fes_json = json_encode($seguidors_matriu);
|
||||||
|
$fes_json = json_encode($seguidors_matriu, JSON_UNESCAPED_UNICODE|JSON_UNESCAPED_SLASHES);
|
||||||
|
$escriu_d_json = fopen($lloc."/fitxers/seguidors_detall_act.json", "a") or die("No puc escriure al registre!");
|
||||||
|
fwrite($escriu_d_json, $fes_json);
|
||||||
|
fclose($escriu_d_json);
|
||||||
|
|
||||||
|
//if($seguidors > $nseg_ant) {
|
||||||
|
|
||||||
|
// BENVINGUDA compare la matriu actual amb el fitxer de seguidors existent per fer la benvinguda.
|
||||||
|
// si està a l'actual i no al de seguidors, ha de ser benvinguda
|
||||||
|
// per fe la benvinguda compare el fitxer de seguidors amb els nous.
|
||||||
|
// si no hi és al fitxer seguidors, es fa la benvinguda y s'escriu al fitxer.
|
||||||
|
|
||||||
|
// obrir fitxer de seguidors per evitar duplicats
|
||||||
|
$segu_arx = shell_exec("cat ".$lloc."/fitxers/seguidors.txt");
|
||||||
|
// echo "segu_arx: ".$segu_arx."\n";
|
||||||
|
// fer matriu amb els actuals
|
||||||
|
$segu_nou = exec("cat ".$lloc."/fitxers/seguidors_detall_act.txt", $eixida_seg_nou, $resp_seg_nou);
|
||||||
|
$lin = exec("wc -l ".$lloc."/fitxers/seguidors_detall_act.txt | awk '{print $1}'", $eix_lin, $resp_lin);
|
||||||
|
|
||||||
|
$s = 0;
|
||||||
|
$reg_seg = ((count($seguidors_matriu))-1);
|
||||||
|
for ($s=0;$s<$reg_seg;$s++) {
|
||||||
|
// una altra opció: convertir en matriu cada linia del fitxer act
|
||||||
|
$usu_nou = $eixida_seg_nou[$s];
|
||||||
|
$usu_nou_m = explode("-",$usu_nou);
|
||||||
|
|
||||||
|
// triat a partir del fitxer
|
||||||
|
$usu = $usu_nou_m[0];
|
||||||
|
$usu_nom = $usu_nou_m[1];
|
||||||
|
$usu_act = $usu_nou_m[2];
|
||||||
|
// triats a partir de la matriu
|
||||||
|
// $usu = $seguidors_matriu[$s]['usuari'];
|
||||||
|
// $usu_nom = $seguidors_matriu[$s]['nom'];
|
||||||
|
// $usu_act = $seguidors_matriu[$s]['acct'];
|
||||||
|
|
||||||
|
$no_rep = strpos($segu_arx,$usu);
|
||||||
|
// echo $s." - usu: ".$usu." - usu_nom: ".$usu_nom." - usu_act: ".$usu_act." ".date('r')." -> ".$no_rep." :: \n";
|
||||||
|
if( ($no_rep !== false) ) {
|
||||||
|
// echo "NOU: ".$s." - usu: ".$usu." - usu_nom: ".$usu_nom." - usu_act: ".$usu_act." -> ".$no_rep." :: \n";
|
||||||
|
// echo "NO escric al fitxer.\n";
|
||||||
|
} else {
|
||||||
|
// echo $s." usu: ". $usu." ".$usu_nom." NOU!! :: \n";
|
||||||
|
$log->lwrite("NOU SEGUIDOR: (".$seguidors.") ".$usu." ".$usu_nom."");
|
||||||
|
// envie un missatge de benvinguda
|
||||||
|
$moment = strtotime("now");
|
||||||
|
|
||||||
|
if (is_int($moment/2)) {
|
||||||
|
if (is_int($seguidors/10)) {
|
||||||
|
$publicacio = "Gràcies per seguir-me @".$usu_act." :paisoscat:🌍. Ets el seguidor/a que fa ".$seguidors.". Sóc un compte automàtic. Confie en que gaudisques dels continguts.\n".$bot_nom." v".$bot_versio."";
|
||||||
|
} else {
|
||||||
|
$publicacio = "Gràcies per seguir-me @".$usu_act." :paisoscat:🌍. Sóc un compte automàtic. Confie en que gaudisques dels continguts.\n".$bot_nom." v".$bot_versio."";
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
if (is_int($seguidors/10)) {
|
||||||
|
$publicacio = "Ei! @".$usu_act." Ets el seguidor/a que fa ".$seguidors.". Has arribat a un compte automàtic. \nPublique l'actualitat :paisoscat: 🌍 i m'alegra que ho compartisques.\n".$bot_nom." v".$bot_versio."";
|
||||||
|
} else {
|
||||||
|
$publicacio = "Ei! @".$usu_act." Has arribat a un compte automàtic. \nPublique l'actualitat 🌍 :paisoscat: i m'alegra que ho compartisques.\n".$bot_nom." v".$bot_versio."";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
$tut_dades = array(
|
||||||
|
"status" => $publicacio,
|
||||||
|
"language" => $llengua,
|
||||||
|
"visibility" => $visib_benv
|
||||||
|
);
|
||||||
|
|
||||||
|
PublicaMissatge($base_url,$headers,$tut_dades);
|
||||||
|
|
||||||
|
// guarda la id del novingut
|
||||||
|
$escriu_f = fopen($lloc."/fitxers/seguidors.txt", "a") or die("No puc escriure al registre!");
|
||||||
|
fwrite($escriu_f, $usu."\n");
|
||||||
|
fclose($escriu_f);
|
||||||
|
//guarda la id i els detalls del novingut
|
||||||
|
//(el desactive per mantindre els registres antics i contrastar amb els actuals al comiat)
|
||||||
|
$escriu_d = fopen($lloc."/fitxers/seguidors_detall.txt", "a") or die("No puc escriure al registre!");
|
||||||
|
fwrite($escriu_d, $usu."-".$usu_nom."-".$usu_act."\n");
|
||||||
|
fclose($escriu_d);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
//final benvinguda
|
||||||
|
//}
|
||||||
|
|
||||||
|
//if($seguidors < $nseg_ant) {
|
||||||
|
|
||||||
|
// comparar fitxer registre amb actual per fer comiat
|
||||||
|
// es compara el fitxer existent amb l'actualitzat
|
||||||
|
// ha de ser del fitxer detall que ara es guardarà amb guionets per fer explode correctament
|
||||||
|
$cadena_seg_nou = shell_exec("cat ".$lloc."/fitxers/seguidors_act.txt");
|
||||||
|
$seg_ant_fitx = exec("cat ".$lloc."/fitxers/seguidors_detall.txt",$eixida_seg_ant,$resposta_seg_nou);
|
||||||
|
// print_r($eixida_seg);
|
||||||
|
|
||||||
|
$w = 0;
|
||||||
|
$maxim = count($eixida_seg_ant);
|
||||||
|
for($w=0;$w<$maxim;$w++) {
|
||||||
|
$seg_ant = $eixida_seg_ant[$w];
|
||||||
|
$seg_ant_m = explode("-",$seg_ant);
|
||||||
|
// print_r($seg_ant_m);
|
||||||
|
$seg_ant_v = $seg_ant_m[0];
|
||||||
|
$seg_ant_n = $seg_ant_m[1];
|
||||||
|
$seg_ant_a = $seg_ant_m[2];
|
||||||
|
|
||||||
|
$hafugit = strpos($cadena_seg_nou,$seg_ant_v);
|
||||||
|
|
||||||
|
if( ($hafugit === false) ) {
|
||||||
|
// echo "FUIG: [".$w."] ".$seg_nou." | ".$seg_ant_v." -> ".$hafugit." :: \n";
|
||||||
|
// echo "el seguidor ".$seg_nou." ja no està a les dades obtingudes ara. \n";
|
||||||
|
// echo $w." - ".$seg_nou." li envie un missatge directe de comiat ->".$hafugit." \n";
|
||||||
|
$moment = strtotime("now");
|
||||||
|
if(is_int($moment/7)) {
|
||||||
|
$txt_msstg = "Confie que vulgues tornar @".$seg_ant_a."\nGràcies pel temps de seguiment compartit. Que et vaja tot molt bé.\n#SocUnBot.\n".$bot_nom." v".$bot_versio."";
|
||||||
|
} elseif (is_int($moment/5)) {
|
||||||
|
$txt_msstg = "Em sap greu ".$seg_ant_n." que deixes el seguiment del compte.\nTal volta més endavant vulgues tornar @".$seg_ant_a."\nGràcies pel temps de seguiment compartit.\n#SocUnBot.\n".$bot_nom." v".$bot_versio."";
|
||||||
|
} elseif (is_int($moment/3)) {
|
||||||
|
$txt_msstg = "Fins a la propera ".$seg_ant_n.". M`ha agradat el temps que has seguit el compte, @".$seg_ant_a."\n#SocUnBot.\n".$bot_nom." v".$bot_versio."";
|
||||||
|
} elseif (is_int($moment/2)) {
|
||||||
|
$txt_msstg = "Gràcies pel temps compartit ".$seg_ant_n.". M'alegrarà que tornes a seguir-me @".$seg_ant_a."\n#SocUnBot.\n".$bot_nom." v".$bot_versio."";
|
||||||
|
} else {
|
||||||
|
$txt_msstg = "Fins la propera ".$seg_ant_n.". Ja en retrobarem quan et vinga de gust @".$seg_ant_a."\nGràcies pel temps de seguiment compartit.\n#SocUnBot.\n".$bot_nom." v".$bot_versio."";
|
||||||
|
}
|
||||||
|
|
||||||
|
$log->lwrite("NOU COMIAT: (".$seguidors.") ".$seg_ant_n." ".$seg_ant_a." ".$seg_ant_v."");
|
||||||
|
|
||||||
|
$dades_tut = array(
|
||||||
|
"status" => $txt_msstg,
|
||||||
|
"language" => $llengua,
|
||||||
|
"visibility" => $visib_comi
|
||||||
|
);
|
||||||
|
|
||||||
|
PublicaMissatge($base_url,$headers,$dades_tut);
|
||||||
|
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
// echo "RES A FER. \n";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
//fin comiat
|
||||||
|
//}
|
||||||
|
|
||||||
|
// validar els usuaris i copiar els _act sense el sufix
|
||||||
|
$detall_vell = filesize($lloc."/fitxers/seguidors_detall.txt");
|
||||||
|
$detall_nou = filesize($lloc."/fitxers/seguidors_detall_act.txt");
|
||||||
|
$ids_vell = filesize($lloc."/fitxers/seguidors.txt");
|
||||||
|
$ids_nou = filesize($lloc."/fitxers/seguidors_act.txt");
|
||||||
|
|
||||||
|
//echo $detall_vell.":".$detall_nou."|".$ids_vell.":".$ids_nou."\n";
|
||||||
|
//echo "fin comiat!! \n";
|
||||||
|
|
||||||
|
if ( ($detall_vell<>$detall_nou) || ($ids_vell<>$ids_nou) ) {
|
||||||
|
$actualitzaA = shell_exec("cat ".$lloc."/fitxers/seguidors_detall_act.txt > ".$lloc."/fitxers/seguidors_detall.txt");
|
||||||
|
$actualitzaB = shell_exec("cat ".$lloc."/fitxers/seguidors_act.txt > ".$lloc."/fitxers/seguidors.txt");
|
||||||
|
}
|
||||||
|
|
||||||
|
// actualitze el fitxer de nombre de seguidors
|
||||||
|
if(($seguidors == null)||($seguidors == false)) { $seguidors = 12; }
|
||||||
|
$esc_seg = fopen($lloc."/fitxers/seg_cont.txt", "w") or die("No puc escriure al registre!");
|
||||||
|
fwrite($esc_seg, $seguidors);
|
||||||
|
fclose($esc_seg);
|
||||||
|
// faig còpia de seguretat
|
||||||
|
$copia_seg = shell_exec("cat ".$lloc."/fitxers/seg_cont.txt > ".$lloc."/fitxers/seg_cont.bak");
|
||||||
|
|
||||||
|
//final benvinguda i comiat
|
||||||
|
}
|
||||||
|
|
||||||
|
// llegeix el nombre de seguidors
|
||||||
|
$ncent_lle = fopen($lloc."/fitxers/cents_cont.txt", "r") or die("No puc obrir el nombre seguidors!");
|
||||||
|
$ncent_ant = fread($ncent_lle,filesize($lloc."/fitxers/cents_cont.txt"));
|
||||||
|
fclose($ncent_lle);
|
||||||
|
|
||||||
|
if ( (is_int($seguidors/10)) && ($ncent_ant < $seguidors) && ($act_cents ==1) ){
|
||||||
|
$cents = shell_exec("/usr/bin/php -f ".$lloc."/utils/bot_plus_cents.php ".$lloc."");
|
||||||
|
}
|
||||||
|
// actualitza el nombre del seguidors si es més gran que l'existent
|
||||||
|
if ($ncent_ant < $seguidors) {
|
||||||
|
$escriu_cent = fopen($lloc."/fitxers/cents_cont.txt", "w") or die("No puc escriure al registre!");
|
||||||
|
fwrite($escriu_cent, $seguidors);
|
||||||
|
fclose($escriu_cent);
|
||||||
|
}
|
||||||
|
|
||||||
|
$tempsbcf = microtime(true);
|
||||||
|
$dur_bc = $tempsbcf - $tempsbc;
|
||||||
|
$log->lwrite("Temps de benvinguda i comiat: ". round($dur_bc,4)." segons.");
|
||||||
|
//echo "Temps de benvinguda i comiat: ". round($dur_bc,4)." segons.\n";
|
||||||
|
//echo "FIN \n";
|
||||||
|
?>
|
||||||
257
utils/bot_plus_consultaimpulsos.php
Normal file
257
utils/bot_plus_consultaimpulsos.php
Normal file
|
|
@ -0,0 +1,257 @@
|
||||||
|
<?php
|
||||||
|
$tc = microtime(true);
|
||||||
|
|
||||||
|
// Comprova els arguments, en cas de no existir presenta l'ajuda.
|
||||||
|
if (!empty($_SERVER["argv"][1])){
|
||||||
|
$argument = $_SERVER["argv"][1];
|
||||||
|
} else {
|
||||||
|
// Presenta l'ajuda
|
||||||
|
echo "NO HE REBUT la variable\n";
|
||||||
|
exit;
|
||||||
|
}
|
||||||
|
$lloc = $argument;
|
||||||
|
// ara podrá carregar la configuració i el logger
|
||||||
|
include("".$lloc."/configuracio/bot_plus_cfg.php");
|
||||||
|
include("".$lloc."/utils/bot_plus_funcions.php");
|
||||||
|
require_once("".$lloc."/lib/logger.php");
|
||||||
|
|
||||||
|
// inicia el log
|
||||||
|
$log = new Logging();
|
||||||
|
$log->lfile(''.$log_fitxer.'');
|
||||||
|
|
||||||
|
$a = 0;
|
||||||
|
$b = 0;
|
||||||
|
$c = 0;
|
||||||
|
$d = 0;
|
||||||
|
|
||||||
|
$arranc = filesize($lloc."/fitxers/impulsos.txt");
|
||||||
|
|
||||||
|
if($arranc > 0) {
|
||||||
|
|
||||||
|
//$impuls_resum = exec("cat ".$lloc."/fitxers/impulsos/impulsos.txt", $eix_resu, $resp_resu);
|
||||||
|
$impuls_resum = exec("cat ".$lloc."/fitxers/impulsos.txt | grep 'reblog' | awk '{print $2}'", $eix_ir, $resp_ir );
|
||||||
|
//echo "impuls resum: \n".$impuls_resum."\n";
|
||||||
|
//$impul_ressum = explode("\n",$impuls_resum);
|
||||||
|
/**
|
||||||
|
echo "feta matriu\n";
|
||||||
|
print_r($impuls_resum);
|
||||||
|
**/
|
||||||
|
//echo "contant valors:\n";
|
||||||
|
|
||||||
|
echo "ESTADÍSTIQUES\n";
|
||||||
|
echo "\nIMPULSOS\n";
|
||||||
|
|
||||||
|
$ferono_rebs = count($eix_ir);
|
||||||
|
if($ferono_rebs>0) {
|
||||||
|
$mat_reb = array_count_values($eix_ir);
|
||||||
|
//print_r($mat_reb);
|
||||||
|
|
||||||
|
echo "--USUARIS\n";
|
||||||
|
//echo "valors dels impulsos ordenats\n";
|
||||||
|
//$mat_reb_ord = arsort($mat_reb);
|
||||||
|
//var_dump($mat_reb_ord);
|
||||||
|
//print_r($mat_reb_ord);
|
||||||
|
arsort($mat_reb);
|
||||||
|
$a = 0;
|
||||||
|
foreach ($mat_reb as $clau => $valor) {
|
||||||
|
echo "$clau = $valor\n";
|
||||||
|
$mat_reb_f[] = array('nom' => $clau, 'nombre' => $valor);
|
||||||
|
$a++;
|
||||||
|
}
|
||||||
|
echo $a." ".(($a<>1)?"persones han":"persona ha")." impulsat\n";
|
||||||
|
//echo "matriu ordenada:\n";
|
||||||
|
//print_r($mat_reb_f);
|
||||||
|
|
||||||
|
// quants tenen els mateix nombre que el primer?
|
||||||
|
$primera = $mat_reb_f[0]['nombre'];
|
||||||
|
//echo $primer."\n";
|
||||||
|
$acabau = count($mat_reb_f);
|
||||||
|
for($i=0;$i<$acabau;$i++) {
|
||||||
|
if($mat_reb_f[$i]['nombre'] == $primera) {
|
||||||
|
$mat_reb_fp[] = array('article' => $clau, 'nombre' => $valor);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
$usu_imp_primers = count($mat_reb_fp);
|
||||||
|
echo "N'hi ha ".$usu_imp_primers." ".(($usu_imp_primers<>1)?"persones":"persona")." amb el mateix nombre. \n\n";
|
||||||
|
|
||||||
|
echo "--TUT\n";
|
||||||
|
$public_resum_r = exec("cat ".$lloc."/fitxers/impulsos.txt | grep 'reblog' | awk '{print $4}'",$eix_pr, $resp_pr );
|
||||||
|
//echo "contant valors:\n";
|
||||||
|
$mat_res = array_count_values($eix_pr);
|
||||||
|
//print_r($mat_res);
|
||||||
|
|
||||||
|
//echo "valors ordenats\n";
|
||||||
|
$b = 0;
|
||||||
|
arsort($mat_res);
|
||||||
|
foreach ($mat_res as $clau => $valor) {
|
||||||
|
echo "$clau = $valor\n";
|
||||||
|
$mat_res_f[] = array('article' => $clau, 'nombre' => $valor);
|
||||||
|
$b++;
|
||||||
|
}
|
||||||
|
echo $b." ".(($b<>1)?"tuts impulsats":"tut impulsat")."\n";
|
||||||
|
|
||||||
|
// quants tenen els mateix nombre que el primer?
|
||||||
|
$primer = $mat_res_f[0]['nombre'];
|
||||||
|
//echo $primer."\n";
|
||||||
|
$acabaa = count($mat_res_f);
|
||||||
|
for($i=0;$i<$acabaa;$i++) {
|
||||||
|
if($mat_res_f[$i]['nombre'] == $primer) {
|
||||||
|
$mat_res_fp[] = array('article' => $clau, 'nombre' => $valor);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
$tuts_imp_primers = count($mat_res_fp);
|
||||||
|
echo "N'hi ha ".$tuts_imp_primers." amb el mateix nombre. \n\n";
|
||||||
|
|
||||||
|
} else {
|
||||||
|
echo "Encara sense dades.\n\n";
|
||||||
|
$tuts_imp_primers = 0;
|
||||||
|
$usu_imp_primers = 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
echo "FAVORITS\n";
|
||||||
|
|
||||||
|
$favorits_resum = exec("cat ".$lloc."/fitxers/impulsos.txt | grep 'favourite' | awk '{print $2}'", $eix_frs, $resp_frs );
|
||||||
|
|
||||||
|
$ferono_favs = count($eix_frs);
|
||||||
|
if($ferono_favs>0) {
|
||||||
|
|
||||||
|
echo "--USUARIS\n";
|
||||||
|
$mat_fav = array_count_values($eix_frs);
|
||||||
|
|
||||||
|
arsort($mat_fav);
|
||||||
|
$c = 0;
|
||||||
|
foreach ($mat_fav as $clau => $valor) {
|
||||||
|
echo "$clau = $valor\n";
|
||||||
|
$mat_fav_f[] = array('nom' => $clau, 'nombre' => $valor);
|
||||||
|
$c++;
|
||||||
|
}
|
||||||
|
//echo $c. " persones han fet favorit.\n";
|
||||||
|
echo $c." ".(($c<>1)?"persones han":"persona ha")." fet favorit\n";
|
||||||
|
|
||||||
|
// quants tenen els mateix nombre que el primer?
|
||||||
|
$primer = $mat_fav_f[0]['nombre'];
|
||||||
|
//echo $primer."\n";
|
||||||
|
$acabar = count($mat_fav_f);
|
||||||
|
for($i=0;$i<$acabar;$i++) {
|
||||||
|
if($mat_fav_f[$i]['nombre'] == $primer) {
|
||||||
|
$mat_fav_fs[] = array('article' => $clau, 'nombre' => $valor);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
$usu_fav_primers = count($mat_fav_fs);
|
||||||
|
echo "N'hi ha ".$usu_fav_primers." ".(($usu_fav_primers<>1)?"persones":"persona")." amb el mateix nombre. \n\n";
|
||||||
|
|
||||||
|
echo "--TUT\n";
|
||||||
|
$public_resum_f = exec("cat ".$lloc."/fitxers/impulsos.txt | grep 'favourite' | awk '{print $4}'",$eix_fr, $resp_pr );
|
||||||
|
//print_r($eix_fr);
|
||||||
|
$mat_favs = array_count_values($eix_fr);
|
||||||
|
|
||||||
|
arsort($mat_favs);
|
||||||
|
$d = 0;
|
||||||
|
foreach ($mat_favs as $clau => $valor) {
|
||||||
|
echo "$clau = $valor\n";
|
||||||
|
$mat_fav_fsb[] = array('article' => $clau, 'nombre' => $valor);
|
||||||
|
$d++;
|
||||||
|
}
|
||||||
|
echo $d." ".(($d<>1)?"tuts favorits":"tut favorit")."\n";
|
||||||
|
//print_r($mat_fav_fbs);
|
||||||
|
|
||||||
|
// quants tenen els mateix nombre que el primer?
|
||||||
|
$primer = $mat_fav_fsb[0]['nombre'];
|
||||||
|
//echo "valor del primer: ".$primer."\n";
|
||||||
|
$acabat = count($mat_fav_fsb);
|
||||||
|
for($i=0;$i<$acabat;$i++) {
|
||||||
|
if($mat_fav_fsb[$i]['nombre'] == $primer) {
|
||||||
|
$mat_fav_fsba[] = array('article' => $clau, 'nombre' => $valor);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
//print_r($mat_fav_fsba);
|
||||||
|
|
||||||
|
$tuts_fav_primers = count($mat_fav_fsba);
|
||||||
|
echo "N'hi ha ".$tuts_fav_primers." amb el mateix nombre. \n\n";
|
||||||
|
|
||||||
|
} else {
|
||||||
|
echo "Encara sense dades. \n\n";
|
||||||
|
}
|
||||||
|
|
||||||
|
if(isset($mat_reb_f)){
|
||||||
|
$us_imp = array_values($mat_reb_f)[0]['nom'];
|
||||||
|
$nu_imp = array_values($mat_reb_f)[0]['nombre'];
|
||||||
|
} else {
|
||||||
|
$us_imp = 0;
|
||||||
|
$nu_imp = 0;
|
||||||
|
}
|
||||||
|
if(isset($mat_res_f)) {
|
||||||
|
$mes_comp_id = array_values($mat_res_f)[0]['article'];
|
||||||
|
$mes_comp_vl = array_values($mat_res_f)[0]['nombre'];
|
||||||
|
} else {
|
||||||
|
$mes_comp_id = 0;
|
||||||
|
$mes_comp_vl = 0;
|
||||||
|
}
|
||||||
|
if(isset($mat_fav_f)){
|
||||||
|
$us_fav = array_values($mat_fav_f)[0]['nom'];
|
||||||
|
$nu_fav = array_values($mat_fav_f)[0]['nombre'];
|
||||||
|
} else {
|
||||||
|
$us_fav = 0;
|
||||||
|
$nu_fav = 0;
|
||||||
|
}
|
||||||
|
if(isset($mat_fav_fs)) {
|
||||||
|
$mes_fav_id = array_values($mat_fav_fs)[0]['article'];
|
||||||
|
$mes_fav_vl = array_values($mat_fav_fs)[0]['nombre'];
|
||||||
|
} else {
|
||||||
|
$mes_fav_id = 0;
|
||||||
|
$mes_fav_vl = 0;
|
||||||
|
}
|
||||||
|
if(isset($mat_fav_fsb)) {
|
||||||
|
$mes_fav_id = array_values($mat_fav_fsb)[0]['article'];
|
||||||
|
$mes_fav_vl = array_values($mat_fav_fsb)[0]['nombre'];
|
||||||
|
} else {
|
||||||
|
$mes_fav_id = 0;
|
||||||
|
$mes_fav_vl = 0;
|
||||||
|
}
|
||||||
|
if(isset($tuts_fav_primers)) {
|
||||||
|
} else {
|
||||||
|
$tuts_fav_primers = 0;
|
||||||
|
}
|
||||||
|
if(isset($usu_fav_primers)) {
|
||||||
|
} else {
|
||||||
|
$usu_fav_primers = 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
// llegeix el nombre de seguidors
|
||||||
|
$nseg_lle = fopen($lloc."/fitxers/seg_cont.txt", "r") or die("No puc obrir el nombre seguidors!");
|
||||||
|
$nseg_ant = fread($nseg_lle,filesize($lloc."/fitxers/seg_cont.txt"));
|
||||||
|
fclose($nseg_lle);
|
||||||
|
|
||||||
|
echo "\n";
|
||||||
|
echo "RESUM ESTADÍSTIQUES \n".
|
||||||
|
"Tuts favorits \t\t-> ".$d." ".(($d<>1)?"tuts":"tut")."\n".
|
||||||
|
"Han fet favorits \t\t-> ".$c." ".(($c<>1)?"persones":"persona")."\n".
|
||||||
|
"El tut més favorit (".$tuts_fav_primers.") \t\t-> ".$mes_fav_id." : ".$mes_fav_vl." ".(($mes_fav_vl<>1)?"voltes":"volta")."\n".
|
||||||
|
"Usuari més favorits (".$usu_fav_primers.")\t\t-> ".$us_fav." : ".$nu_fav." ".(($nu_fav<>1)?"favorits":"favorit")."\n".
|
||||||
|
"Ha participat un ".round( (($c/$nseg_ant)*100), 2 )."% sobre el total dels seguidors.\n".
|
||||||
|
"Tuts impulsats \t\t-> ".$b." ".(($b<>1)?"tuts":"tut")."\n".
|
||||||
|
"Han impulsat \t\t-> ".$a." ".(($a<>1)?"persones":"persona")."\n".
|
||||||
|
"Tut més impulsat (".$tuts_imp_primers.") \t\t-> ".$mes_comp_id." : ".$mes_comp_vl." ".(($mes_comp_vl<>1)?"voltes":"volta")."\n".
|
||||||
|
"Usuari més ha impulsat (".$usu_imp_primers.") \t-> ".$us_imp." : ".$nu_imp." ".(($nu_imp<>1)?"impulsos":"impuls")."\n".
|
||||||
|
"Ha participat un ".round( (($a/$nseg_ant)*100), 2 )."% sobre el total dels seguidors.\n";
|
||||||
|
//(($nu_imp<>1)?"publicacions":"publicació")
|
||||||
|
} else {
|
||||||
|
echo "Encara no hi ha dades";
|
||||||
|
}
|
||||||
|
$temps_imp = strtotime("now");
|
||||||
|
$espera_ob = fopen($lloc . "/fitxers/impulsos_temps.txt", "r") or die("No puc obrir la darrera data!");
|
||||||
|
$espera_ll = fread($espera_ob,filesize($lloc . "/fitxers/impulsos_temps.txt"));
|
||||||
|
$espera_imp = $espera_ll;
|
||||||
|
fclose($espera_ob);
|
||||||
|
echo "\nPropera publicació\n";
|
||||||
|
echo "".$espera_imp." | ".date("r",($espera_imp))."\n";
|
||||||
|
//echo "Manquen ".date("d",($espera_imp - $temps_imp))." dies i ".date("H:i:s",($espera_imp - $temps_imp))." hores.\n";
|
||||||
|
$temps_cal = ($espera_imp - $temps_imp);
|
||||||
|
echo "".( gmdate("d",$temps_cal)<>1 ? "Manquen ".gmdate('d',$temps_cal)." dies i ".gmdate('H:i:s',$temps_cal)." hores.":"No manca cap dia i ".gmdate('H:i:s',$temps_cal)." hores.\n");
|
||||||
|
|
||||||
|
|
||||||
|
$tcf = microtime(true);
|
||||||
|
$dc = $tcf - $tc;
|
||||||
|
echo "\nTemps impulsos: ".round($dc,4)."\n";
|
||||||
|
//$log->lwrite("Temps impulsos: ".round($dc,4)."");
|
||||||
|
?>
|
||||||
46
utils/bot_plus_convdate.php
Normal file
46
utils/bot_plus_convdate.php
Normal file
|
|
@ -0,0 +1,46 @@
|
||||||
|
<?php
|
||||||
|
// Comprova els arguments, en cas de no existir presenta l'ajuda.
|
||||||
|
if (!empty($_SERVER["argv"][1])){
|
||||||
|
|
||||||
|
// $argument0 = $_SERVER["argv"][1];
|
||||||
|
if(isset($_SERVER["argv"][1])) { $argument0 = $_SERVER["argv"][1]; $n = 1; }
|
||||||
|
if(isset($_SERVER["argv"][2])) { $argument1 = $_SERVER["argv"][2]; $n = 2; }
|
||||||
|
if(isset($_SERVER["argv"][3])) { $argument2 = $_SERVER["argv"][3]; $n = 3; }
|
||||||
|
if(isset($_SERVER["argv"][4])) { $argument3 = $_SERVER["argv"][4]; $n = 4; }
|
||||||
|
if(isset($_SERVER["argv"][5])) { $argument4 = $_SERVER["argv"][5]; $n = 5; }
|
||||||
|
if(isset($_SERVER["argv"][6])) { $argument5 = $_SERVER["argv"][6]; $n = 6; }
|
||||||
|
// $argument2 = $_SERVER["argv"][3];
|
||||||
|
// $argument3 = $_SERVER["argv"][4];
|
||||||
|
// $argument4 = $_SERVER["argv"][5];
|
||||||
|
// $argument5 = $_SERVER["argv"][6];
|
||||||
|
if($n == 2) { $argument = $argument0." ".$argument1; }
|
||||||
|
elseif($n == 3) { $argument = $argument0." ".$argument1." ".$argument2; }
|
||||||
|
elseif($n == 4) { $argument = $argument0." ".$argument1." ".$argument2." ".$argument3; }
|
||||||
|
elseif($n == 5) { $argument = $argument0." ".$argument1." ".$argument2." ".$argument3." ".$argument4; }
|
||||||
|
elseif($n == 6) { $argument = $argument0." ".$argument1." ".$argument2." ".$argument3." ".$argument4." ".$argument5; }
|
||||||
|
else { $argument = $argument0; }
|
||||||
|
// $argument = $argument0." ".$argument1." ".$argument2." ".$argument3." ".$argument4." ".$argument5;
|
||||||
|
|
||||||
|
|
||||||
|
} else {
|
||||||
|
// Presenta l'ajuda
|
||||||
|
echo "NO HE REBUT la variable\n";
|
||||||
|
// echo "Cal una data amb el següent format: '".date("M d-m-Y H:i:s 0")."' i entre cometes\n";
|
||||||
|
echo "Cal una data amb el següent format: '".date("r")."' i entre cometes\n";
|
||||||
|
exit;
|
||||||
|
}
|
||||||
|
//$pauta = array ("dia","mes","any");
|
||||||
|
//$canvis = array ("day","month","year");
|
||||||
|
//$argument = preg_replace($pauta,$canvis,$argument);
|
||||||
|
if($n >=2) {
|
||||||
|
$conversió = strtotime($argument);
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
$conversió = $argument;
|
||||||
|
}
|
||||||
|
|
||||||
|
echo "Has introduit: : ".$argument."\n";
|
||||||
|
echo "En strtotime es : ".$conversió."\n";
|
||||||
|
echo "En format r : ".date('r',$conversió)."\n";
|
||||||
|
echo "En format Z : ".date('Y-m-d H:i:s',$conversió)."Z\n";
|
||||||
|
?>
|
||||||
Loading…
Referencia en una nova incidència