Subir archivos a 'utils'

utils/bot_plus_benvinguda_fitx.php

@@ -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() ); }
+?>

utils/bot_plus_cents.php

@@ -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,11 +87,7 @@ $publ_img = json_encode($publica_img);
 // publicar (copiat de bot.php)
 if ($pub_cent != null) {
 
-/**                        // Publica a Mastodon
+			// Publica a Mastodon
-                        $headers = [
-                         'Authorization: Bearer ' . $token
-                        ];
-**/
 			 $status_data = array(
 			  "status" => $pub_cent,
 			  "text" => $pub_cent,
@@ -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++;
 
 }
-
+sleep(1);
-$estad_segs = shell_exec("/usr/bin/php -f ".$lloc."/proves/proves_estadistiques_seguidors.php ".$lloc);
+if ( (is_int($seguidors/100)) ) {
-if ( ($estad_segs == null)||($estad_segs == false) ) {
+	$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);

utils/bot_plus_comentaris.php

@@ -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,30 +41,33 @@ 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_lle = fopen($lloc."/fitxers/comentari_pub.txt", "r") or die("No puc obrir la darrera data!");
-	$com_ant = fread($com_lle,filesize($lloc."/fitxers/com_pub.txt"));
+	$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 . "*"));
@@ -72,9 +78,11 @@ if ( $data_ina >= $data_dif) {
                         	"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)) {
+//		} elseif ( is_int($com_ara2/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 ( ($decisio == 2) ) {
-		} elseif ( is_int($com_ara3/3)) {
+			$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);
+			$faig_m = explode(" - ",$prev_oratge);
-			$dic = "Fa ".gmdate("H:i:s",($data_ina_mod))." que no he publicat cap tut.\n".
+			$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 ara mateix a la localitat on està el meu servidor. :cli_user:\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_t = fopen("".$lloc."/fitxers/comentari_pub.txt", "w") or die("No puc obrir la darrera data!");
-//        $com_tem = fread($com_t,filesize("".$lloc."/fitxers/com_pub.txt"));
+//        $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() );
+}
 ?>