Subir archivos a 'utils'
This commit is contained in:
pare
83212dfe3e
commit
b404caa55b
S'han modificat 3 arxius amb 414 adicions i 51 eliminacions
344
utils/bot_plus_benvinguda_fitx.php
Normal file
344
utils/bot_plus_benvinguda_fitx.php
Normal file
|
|
@ -0,0 +1,344 @@
|
|||
<?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.");
|
||||
if($control_memoria_utils == 1) {
|
||||
$log -> lwrite ( mostra_us_memoria()." ".mostra_pic_memoria() );
|
||||
}
|
||||
$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);
|
||||
|
||||
//fer coincidir la variable per actualitzar els fitxers de seguidors
|
||||
//$seguidors = $nseg_ant+1;
|
||||
|
||||
//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|JSON_PRETTY_PRINT);
|
||||
$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."");
|
||||
$log->lwrite("NOU SEGUIDOR: (".($nseg_ant+1).") ".$usu." ".$usu_nom."");
|
||||
// envie un missatge de benvinguda
|
||||
$moment = strtotime("now");
|
||||
|
||||
if (is_int($moment/3)) {
|
||||
if (is_int($seguidors/10)) {
|
||||
$publicacio = "Xé que bò! @".$usu_act." :paisoscat:🌍. Ets la que fa ".$seguidors." de la llista de persones seguidores. Sóc un compte automàtic. Confie en que gaudisques dels continguts.\nPots enviar-me un tut amb la etiqueta #saludabot per conèixer més utilitats.\n".$bot_nom." v".$bot_versio."";
|
||||
} else {
|
||||
$publicacio = "Xé que bò! @".$usu_act." :paisoscat:🌍. Sóc un compte automàtic. Confie en que gaudisques dels continguts.\nPots enviar-me un tut amb la etiqueta #saludabot per conèixer més utilitats.\n".$bot_nom." v".$bot_versio."";
|
||||
}
|
||||
} elseif (is_int($moment/2)) {
|
||||
if (is_int($seguidors/10)) {
|
||||
$publicacio = "Gràcies per seguir-me @".$usu_act." :paisoscat:🌍. Ets la que fa ".$seguidors." de la llista de persones seguidores. Sóc un compte automàtic. Confie en que gaudisques dels continguts.\nSi vols saber més detalls, envia'm un tut amb #saludabot\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.\nSi vols saber més detalls, envia'm un tut amb #saludabot\n".$bot_nom." v".$bot_versio."";
|
||||
}
|
||||
} else {
|
||||
if (is_int($seguidors/10)) {
|
||||
$publicacio = "Ei! @".$usu_act." Ets la que fa ".$seguidors." de les persones seguidores. Has arribat a un compte automàtic. \nPublique l'actualitat :paisoscat: 🌍 i m'alegra que ho compartisques.\nPodràs saber més detalls quan m'envies un tut amb #saludabot\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.\nPodràs saber més detalls quan m'envies un tut amb #saludabot\n".$bot_nom." v".$bot_versio."";
|
||||
}
|
||||
}
|
||||
|
||||
$tut_dades = array(
|
||||
"status" => $publicacio,
|
||||
"language" => $llengua,
|
||||
"visibility" => $visib_benv
|
||||
);
|
||||
|
||||
// PublicaMissatge($base_url,$headers,$tut_dades);
|
||||
|
||||
$nseg_ant++;
|
||||
// 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
|
||||
|
||||
// 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 = 2; }
|
||||
$esc_seg = fopen($lloc."/fitxers/seg_cont.txt", "w") or die("No puc escriure al registre!");
|
||||
$seguidors = ($seguidors -1);
|
||||
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!");
|
||||
$seguidors = $seguidors -1;
|
||||
fwrite($escriu_cent, $seguidors);
|
||||
fclose($escriu_cent);
|
||||
}
|
||||
**/
|
||||
$tempsbcf = microtime(true);
|
||||
$dur_bc = $tempsbcf - $tempsbc;
|
||||
$log->lwrite("Temps de benvinguda i comiat dels fitxers: ". round($dur_bc,4)." segons.");
|
||||
//echo "Temps de benvinguda i comiat: ". round($dur_bc,4)." segons.\n";
|
||||
//echo "FIN \n";
|
||||
|
||||
if($mem_net == 1) {
|
||||
$seg_bot = null; $seg_mat = null; $eixida_seg_ant = null;
|
||||
unset($seg_bot,$seg_mat,$eixida_seg_ant);
|
||||
}
|
||||
if($control_memoria_utils == 1) { $log -> lwrite ( mostra_us_memoria()." ".mostra_pic_memoria() ); }
|
||||
?>
|
||||
|
|
@ -23,7 +23,7 @@ $log->lwrite("Arranque decenes/centears de seguidors.");
|
|||
// obtindre el meu perfil per saber el nombre de seguidors
|
||||
|
||||
$bot_status = curl_init();
|
||||
curl_setopt($bot_status, CURLOPT_URL, $base_url . "/api/v1/accounts/xxxxxxxxxx");
|
||||
curl_setopt($bot_status, CURLOPT_URL, $base_url . "/api/v1/accounts/".$id_cmpt);
|
||||
curl_setopt($bot_status, CURLOPT_RETURNTRANSFER, true);
|
||||
curl_setopt($bot_status, CURLOPT_HTTPHEADER, $headers);
|
||||
$resposta = (curl_exec($bot_status));
|
||||
|
|
@ -54,7 +54,7 @@ if ( (is_int($seguidors/100))||(is_int($seguidors/10)) ) {
|
|||
$desenes = ($seguidors - ($centenar*100));
|
||||
$n_gif = $desenes;
|
||||
}
|
||||
$pub_cent = "Ja en sou ".$seguidors." persones seguint el compte 🎂 a ".$instancia.". Moltes gràcies! :brindis: #SocUnBot\n".$bot_nom." v".$bot_version." ";
|
||||
$pub_cent = "Ja en sou ".$seguidors." persones seguint el compte 🎂 a ".$instancia.".\nMoltes gràcies! :brindis: \n#SocUnBot\n".$bot_nom." v".$bot_versio." ";
|
||||
$pub_img = $lloc."/gifis/".$n_gif.".gif";
|
||||
|
||||
$fitxer_tipus = mime_content_type($pub_img);
|
||||
|
|
@ -87,12 +87,8 @@ $publ_img = json_encode($publica_img);
|
|||
// publicar (copiat de bot.php)
|
||||
if ($pub_cent != null) {
|
||||
|
||||
/** // Publica a Mastodon
|
||||
$headers = [
|
||||
'Authorization: Bearer ' . $token
|
||||
];
|
||||
**/
|
||||
$status_data = array(
|
||||
// Publica a Mastodon
|
||||
$status_data = array(
|
||||
"status" => $pub_cent,
|
||||
"text" => $pub_cent,
|
||||
"language" => $llengua,
|
||||
|
|
@ -103,7 +99,10 @@ $pub_img = $lloc."/gifis/".$n_gif.".gif";
|
|||
$fitxer_tipus = mime_content_type($pub_img);
|
||||
$fitxer_prep = curl_file_create($pub_img, $fitxer_tipus, 'file');
|
||||
|
||||
$publica_img = [ 'file' => $fitxer_prep, 'description' => 'Celebració pels '.$seguidors.' seguidors.', 'text' => $pub_cent, 'status' => 'Prova de missatge amb imatge des del bot' ];
|
||||
$publica_img = [ 'file' => $fitxer_prep,
|
||||
'description' => 'Celebració pels '.$seguidors.' seguidors.',
|
||||
'text' => $pub_cent,
|
||||
'status' => 'Prova de missatge amb imatge des del bot' ];
|
||||
|
||||
// pujada de la imatge
|
||||
$ch_status = curl_init();
|
||||
|
|
@ -215,10 +214,12 @@ http_build_query_for_curl( $tut_matriu, $tut_dades );
|
|||
// $p++;
|
||||
|
||||
}
|
||||
|
||||
$estad_segs = shell_exec("/usr/bin/php -f ".$lloc."/proves/proves_estadistiques_seguidors.php ".$lloc);
|
||||
if ( ($estad_segs == null)||($estad_segs == false) ) {
|
||||
$log -> lwrite("INFO: estadistiques de seguidors: ".(($estad_segs != null)?"correcte":"ERRADA")."");
|
||||
sleep(1);
|
||||
if ( (is_int($seguidors/100)) ) {
|
||||
$estad_segs = shell_exec("php -f ".$lloc."/utils/bot_plus_estadistiques_seguidors.php ".$lloc);
|
||||
if ( ($estad_segs == null)||($estad_segs == false) ) {
|
||||
$log -> lwrite("INFO: estadistiques de seguidors: ".(($estad_segs != null)?"correcte":"ERRADA")."");
|
||||
}
|
||||
}
|
||||
|
||||
$tcf = microtime(true);
|
||||
|
|
|
|||
|
|
@ -24,9 +24,12 @@ $log->lfile(''.$log_fitxer.'');
|
|||
|
||||
// per quan trasllade aqui la decisió de fer el comentari des de bot_plus
|
||||
$log->lwrite("Estan activats els comentaris.");
|
||||
if($control_memoria_utils == 1) {
|
||||
$log -> lwrite ( mostra_us_memoria()." ".mostra_pic_memoria() );
|
||||
}
|
||||
|
||||
$arrancat = 0;
|
||||
//$log->lwrite("lloc rebut: ".$lloc."");
|
||||
//$log->lwrite("data_ina: ".$data_ina." - data_dif: ".$data_dif."");
|
||||
|
||||
if ( $data_ina >= $data_dif) {
|
||||
$log -> lwrite("Arranque comentaris: ".$data_ina." (".gmdate("H:i:s", ($data_ina))." h)");
|
||||
$arrancat = 1;
|
||||
|
|
@ -38,43 +41,48 @@ if ( $data_ina >= $data_dif) {
|
|||
|
||||
// activar comentari (private) als seguidors d'inactivitat
|
||||
// llegir data de la darrera publicació
|
||||
$com_lle = fopen($lloc."/fitxers/com_pub.txt", "r") or die("No puc obrir la darrera data!");
|
||||
$com_ant = fread($com_lle,filesize($lloc."/fitxers/com_pub.txt"));
|
||||
$com_lle = fopen($lloc."/fitxers/comentari_pub.txt", "r") or die("No puc obrir la darrera data!");
|
||||
$com_ant = fread($com_lle,filesize($lloc."/fitxers/comentari_pub.txt"));
|
||||
fclose($com_lle);
|
||||
$espera_coment2 = strtotime($espera_coment2);
|
||||
$compte_lle = fopen($lloc."/fitxers/compte_pub.txt", "r") or die("No puc obrir la darrera data!");
|
||||
$compte_ant = fread($compte_lle,filesize($lloc."/fitxers/compte_pub.txt"));
|
||||
fclose($compte_lle);
|
||||
$espera_coment2 = (strtotime($espera_coment2) - 120);
|
||||
$com_ara2 = strtotime("now");
|
||||
$com_ara3 = ($com_ara2 + rand(-3,3));
|
||||
$com_ara3 = ($com_ara2 + rand(0,10));
|
||||
// echo "com_ant: ".$com_ant."\n";
|
||||
// echo "com_com: ".$espera_coment."\n";
|
||||
// echo "com_ara: ".$com_ara."\n";
|
||||
$com_dif = ($espera_coment2 - $com_ara2);
|
||||
$com_dif = ($espera_coment2 - $com_ara2) - 120;
|
||||
// echo "com_dif: ".$com_dif."\n";
|
||||
$com_ina = ($com_ara2 - $com_ant);
|
||||
// echo "Inactiu el comentari: ".$com_ina." | ".date("H:i:s",($com_ina-3600))." h | ".$com_dif." \n";
|
||||
// echo "data_ina: ".$data_ina."\n";
|
||||
// $inact_pub = $com_ina + 28800;
|
||||
// echo "inact_pub: ".$inact_pub."\n";
|
||||
|
||||
if ($com_ina > $com_dif) {
|
||||
// echo "Active - temps superat = ".($com_ina > $com_dif)."\n";
|
||||
// publique sequencialment un missatge per inactivitat
|
||||
|
||||
//cal triar un nombre pel divisor. Només si la divisió dona numero sencer es publicarà. (1 tots, 2 la meitat, 3 un de cada tres, ...)
|
||||
$data_ina_mod = $data_ina + (rand(-300,300));
|
||||
$data_ina_mod = $data_ina + (rand(-1,1));
|
||||
$publicacio = null;
|
||||
if ( is_int($com_ara3/7)) {
|
||||
$decisio = TriaOpcio($com_ara2);
|
||||
|
||||
// if ( is_int($com_ara2/7)) {
|
||||
if ( ($decisio == 1) ) {
|
||||
// $dic = "Soc ".$bot_nom.". Continue actiu, :cli_user: amb la versió ".$bot_versio." i vaig registrar-me el ".$inscrit.".\nAra fa ".date("H:i:s",($data_ina_mod-HoraGmt()))." hores que no hi han novetats per publicar de ".$web_of." 🖥️ .\n#SocUnBot 🤖";
|
||||
$directori = $lloc."/fitxers/";
|
||||
$compta_fitxers = count(glob($directori . "*"));
|
||||
$fitxers = shell_exec("du -h -s ".$directori);
|
||||
$fit_mat = str_split($fitxers, 4);
|
||||
$directori = $lloc."/fitxers/";
|
||||
$compta_fitxers = count(glob($directori . "*"));
|
||||
$fitxers = shell_exec("du -h -s ".$directori);
|
||||
$fit_mat = str_split($fitxers, 4);
|
||||
//echo "There were $compta_fitxers";
|
||||
$dic = "Fa ".gmdate("H:i:s",$data_ina_mod)." hores que no publique tuts d'actualitat de ".$web_of.".\n".
|
||||
"Als meus fitxers, ".$compta_fitxers." en tinc, guarde ".$fit_mat[0]." de dades.\n".
|
||||
"#SocUnBot\n".
|
||||
$bot_nom." v".$bot_versio."\n";
|
||||
} elseif ( is_int($com_ara3/5)) {
|
||||
$dic = ":cli_user: Continue actiu des del ".$inscrit.".\nAra fa ".gmdate("H:i:s",($data_ina_mod))." hores que no hi ha novetats per publicar. 🖥️ ".$bot_nom." v".$bot_versio." \n#SocUnBot 🤖";
|
||||
} elseif ( is_int($com_ara3/3)) {
|
||||
// } elseif ( is_int($com_ara2/5)) {
|
||||
} elseif ( ($decisio == 2) ) {
|
||||
$dic = ":cli_user: Continue actiu des del ".$inscrit." i n'he publicat ".$compte_ant." tuts d'actualitat.\nAra fa ".gmdate("H:i:s",($data_ina_mod))." hores que no hi ha novetats per publicar. 🖥️ \n".$bot_nom." v".$bot_versio." \n#SocUnBot 🤖";
|
||||
// } elseif ( is_int($com_ara2/3)) {
|
||||
} elseif ( ($decisio == 3) ) {
|
||||
// $dic = "La darrera publicació la vaig fer fa ".date("H:i:s",($data_ina_mod-HoraGmt()))."\n".$bot_nom." ".$bot_versio." :cli_user:.\n#SocUnBot 🤖";
|
||||
$sensors = shell_exec("sensors");
|
||||
$faig_ma = explode("\n",$sensors);
|
||||
|
|
@ -84,12 +92,13 @@ if ( $data_ina >= $data_dif) {
|
|||
$faig_ma[4]."\n".
|
||||
"#SocUnBot\n".
|
||||
$bot_nom." v".$bot_versio."\n";
|
||||
} elseif ( is_int($com_ara3/2)) {
|
||||
// } elseif ( is_int($com_ara2/2)) {
|
||||
} elseif ( ($decisio == 4)||($decisio == 5)||($decisio == 6)||($decisio == 7)|| ($decisio == 8) ) {
|
||||
// $dic = " ".$bot_nom." ".$bot_versio."\n".date("H:i:s",($data_ina_mod-HoraGmt()))." sense publicar novetats de ".$web_of." 🖥️ .\n#SocUnBot 🤖";
|
||||
$prev_oratge = shell_exec("ansiweather_mst -a false -l Aigües,ES -H true -s true -d true");
|
||||
$faig_m = explode("-",$prev_oratge);
|
||||
$dic = "Fa ".gmdate("H:i:s",($data_ina_mod))." que no he publicat cap tut.\n".
|
||||
"Esta és la previsió de l'oratge ara mateix a la localitat on està el meu servidor. :cli_user:\n".
|
||||
$faig_m = explode(" - ",$prev_oratge);
|
||||
$dic = "Fa ".gmdate("H:i:s",($data_ina_mod))." que no he publicat cap tut d'actualitat.\n".
|
||||
"Esta és la previsió de l'oratge #AraMateix a la localitat on està el meu servidor (l'Alacantí). :cli_user:\n".
|
||||
$faig_m[0]."\n".
|
||||
$faig_m[1]."\n".
|
||||
$faig_m[2]."\n".
|
||||
|
|
@ -103,19 +112,12 @@ if ( $data_ina >= $data_dif) {
|
|||
$bot_nom." v".$bot_versio."\n";
|
||||
} else {
|
||||
// $dic = "ping 🖥️ .\nTemps d'inactivitat:".date("H:i",$data_ina)."\n #SocUnBot ";
|
||||
$dic = "ping 🖥️ .\n ".$bot_nom." v".$bot_versio."\n#SocUnBot";
|
||||
$dic = "ping 🖥️ .\n".$bot_nom." v".$bot_versio."\n#SocUnBot";
|
||||
}
|
||||
$publicacio = $dic;
|
||||
// echo "publicació: ".$publicacio."\n";
|
||||
|
||||
if ($publicacio != null) {
|
||||
// echo "Entre a publicar es cert - ".($publicacio != null)."\n";
|
||||
// $log->lwrite("Entre a publicar ".($publicacio != null)."");
|
||||
// publicar (copiat de bot.php)
|
||||
// Publica a Mastodon
|
||||
// $headers = [
|
||||
// 'Authorization: Bearer ' . $token
|
||||
// ];
|
||||
|
||||
$dades_tut = array(
|
||||
"status" => $publicacio,
|
||||
|
|
@ -123,7 +125,6 @@ if ( $data_ina >= $data_dif) {
|
|||
"visibility" => $visib_com
|
||||
);
|
||||
// echo print_r($status_data);
|
||||
// $log->lwrite(print_r($status_data));
|
||||
PublicaMissatge($base_url,$headers,$dades_tut);
|
||||
|
||||
// echo "matriu resposta: \n";
|
||||
|
|
@ -131,8 +132,8 @@ if ( $data_ina >= $data_dif) {
|
|||
|
||||
// guarde la data de publicació de comentari
|
||||
// actualitze strtotime del comentari publicat
|
||||
$com_t = fopen("".$lloc."/fitxers/com_pub.txt", "w") or die("No puc obrir la darrera data!");
|
||||
// $com_tem = fread($com_t,filesize("".$lloc."/fitxers/com_pub.txt"));
|
||||
$com_t = fopen("".$lloc."/fitxers/comentari_pub.txt", "w") or die("No puc obrir la darrera data!");
|
||||
// $com_tem = fread($com_t,filesize("".$lloc."/fitxers/comentari_pub.txt"));
|
||||
$nou_tem = strtotime("now");
|
||||
// echo "nou_tem: ".$nou_tem."\n";
|
||||
fwrite($com_t, $nou_tem);
|
||||
|
|
@ -151,7 +152,7 @@ if ( $data_ina >= $data_dif) {
|
|||
//echo "Inactiu el comentari: ".$com_ina." | ".date("H:i:s",($com_ina-3600))." h | ".$com_dif." \n";
|
||||
// llegir el temps de publicació de comentari i calcular el que resta per pausa interna
|
||||
if($arrancat == 1) {
|
||||
$log->lwrite("Inactiu el comentari: ".$com_ina." (".gmdate("H:i:s",($com_ina))." h) | ".$com_dif." (".gmdate("H:i:s",($com_dif) ).")");
|
||||
$log->lwrite("Pausa entre els comentaris: ".$com_ina." (".gmdate("H:i:s",($com_ina))." h) | ".$com_dif." (".gmdate("H:i:s",($com_dif) ).")");
|
||||
}
|
||||
}
|
||||
|
||||
|
|
@ -162,12 +163,29 @@ if ( (($data_dif - $data_ina) <= 3840) ) {
|
|||
// diferenciar entre pausa de publicació (externa) i el temps d'espera entre comentaris. (PER FER)
|
||||
// $log->lwrite("A ".date("H:i:s",($data_dif-$data_ina)-HoraGmt())." hores d'arrancar els comentaris.");
|
||||
if($arrancat == 0) {
|
||||
$log->lwrite("A ".gmdate("H:i:s",($data_dif-$data_ina))." hores d'arrancar els comentaris.");
|
||||
$tempspendent = $data_dif - $data_ina;
|
||||
// $log->lwrite("A ".gmdate("H:i:s",($data_dif-$data_ina))." hores d'arrancar els comentaris.");
|
||||
if( gmdate("H",$tempspendent) == 1) {
|
||||
$log->lwrite("A ".( (gmdate("H",$tempspendent)) == 1 ?"".gmdate("H",$tempspendent)." hora, ":"".gmdate("H",$tempspendent)." hores, " ).
|
||||
( (gmdate("i",$tempspendent))== 1 ?"".(gmdate("i",$tempspendent))." minut, ":"".(gmdate("i",$tempspendent))." minuts i ").
|
||||
( (gmdate("s",$tempspendent))== 1 ?"".(gmdate("s",$tempspendent))." segon, ":"".(gmdate("s",$tempspendent))." segons" ).
|
||||
" d'arrancar els comentaris.");
|
||||
|
||||
} else {
|
||||
$log->lwrite("A ".( (gmdate("i",$tempspendent))== 1 ?"".(gmdate("i",$tempspendent))." minut, ":"".(gmdate("i",$tempspendent))." minuts i ").
|
||||
( (gmdate("s",$tempspendent))== 1 ?"".(gmdate("s",$tempspendent))." segon, ":"".(gmdate("s",$tempspendent))." segons" ).
|
||||
" d'arrancar els comentaris.");
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
//$log -> lwrite("INFO: comentaris: ".(($resposta_com == 0)?"correcte":"ERRADA")."");
|
||||
|
||||
$tcf = microtime(true);
|
||||
$dc = $tcf - $tc;
|
||||
//echo "\nTemps comentari dins: ".round($dc,4)." ";
|
||||
$log->lwrite("Temps comentari: ".round($dc,4)."");
|
||||
$log->lwrite("Temps comentari: ".round($dc,4)." segons");
|
||||
if($control_memoria_utils == 1) {
|
||||
$log -> lwrite ( mostra_us_memoria()." ".mostra_pic_memoria() );
|
||||
}
|
||||
?>
|
||||
|
|
|
|||
Loading…
Referencia en una nova incidència