109 líneas
3,3 KiB
PHP
109 líneas
3,3 KiB
PHP
|
<?php
|
||
|
|
if (!empty($_SERVER["argv"][1])){
|
||
|
|
$argument = $_SERVER["argv"][1];
|
||
|
|
$input = $_SERVER["argv"][2];
|
||
|
|
$en_resposta = $_SERVER["argv"][3];
|
||
|
|
$usuari = $_SERVER["argv"][4];
|
||
|
|
$mis_vis = $_SERVER["argv"][5];
|
||
|
|
} else {
|
||
|
|
// Presenta l'ajuda
|
||
|
|
echo "NO HE REBUT la variable\n";
|
||
|
|
echo "Cal el directori on s'executa el bot_plus.\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."");
|
||
|
|
|
||
|
|
$comp_info = strpos($input,"infobot");
|
||
|
|
if($comp_info === false) {
|
||
|
|
|
||
|
|
$log -> lwrite("Comentari sense etiqueta #infobot");
|
||
|
|
|
||
|
|
} else {
|
||
|
|
|
||
|
|
// INFORME
|
||
|
|
$titol = "INFORME ".date('d/m/y H:i:s',strtotime('now'))." 📚";
|
||
|
|
//versió
|
||
|
|
$entra = "Nom: ".$bot_nom." versió: ".$bot_versio."\n".
|
||
|
|
"Registre: 1/12/2022.";
|
||
|
|
//tuts publicats
|
||
|
|
|
||
|
|
|
||
|
|
//publicació noticies
|
||
|
|
$n_pub = shell_exec("cat ".$lloc."/fitxers/compte_pub.txt");
|
||
|
|
$s_pub = shell_exec("cat ".$lloc."/fitxers/compte_setm.txt");
|
||
|
|
$tuts_setm = ($n_pub - $s_pub);
|
||
|
|
$d_pub = shell_exec("cat ".$lloc."/fitxers/data_pub.txt");
|
||
|
|
|
||
|
|
$publs = "Tuts publicats: ".$n_pub." de notícies.\n".
|
||
|
|
"Esta setmana: ".$tuts_setm."\n".
|
||
|
|
"El darrer el ".date("d/m/Y",$d_pub)." a les ".date("H:i:s",$d_pub)."";
|
||
|
|
//connexió web font
|
||
|
|
$fitxer = $lloc."/fitxers/compte_vis.txt";
|
||
|
|
$conns = "Darrera connexió: ".date("d/m/Y H:i:s",(filemtime($fitxer)))."";
|
||
|
|
$errada = shell_exec("cat ".$lloc."/fitxers/errada_cont.txt");
|
||
|
|
$errades = "Errades de connexió: ".($errada - 1);
|
||
|
|
|
||
|
|
//estadistiques rebudes
|
||
|
|
$imps_rg = shell_exec("wc -l ".$lloc."/fitxers/impulsos.txt");
|
||
|
|
$imps_rgm = explode(" ",$imps_rg);
|
||
|
|
$nimp = $imps_rgm[0];
|
||
|
|
$menc_rg = shell_exec("wc -l ".$lloc."/fitxers/mencions.txt");
|
||
|
|
$menc_rgm = explode(" ",$menc_rg);
|
||
|
|
$nmen = $menc_rgm[0];
|
||
|
|
$estad_reb = "Impulsos rebut: ".$nimp." (favorits i reblocs)\nMencions: ".$nmen." registrades.";
|
||
|
|
|
||
|
|
//data properes estadistiques
|
||
|
|
$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 "".$espera_imp." | ".date("r",($espera_imp))."\n";
|
||
|
|
setlocale(LC_ALL, 'ca_ES.UTF-8');
|
||
|
|
//$estads = "Estadístiques: propera publicació ".date("d/m/y H:i:s",$espera_imp).".";
|
||
|
|
$estads = "Estadístiques: propera publicació ".(strftime("%A %d/%m/%Y a les %H:%M:%S", $espera_imp)).".";
|
||
|
|
|
||
|
|
//seguidors (ara i cent)
|
||
|
|
$seguid = shell_exec("cat ".$lloc."/fitxers/seg_cont.txt");
|
||
|
|
$seguidc = shell_exec("cat ".$lloc."/fitxers/cents_cont.txt");
|
||
|
|
$segds = "Seguidors: ".$seguid." actuals.\n".
|
||
|
|
(($seguid == $seguidc)?"És el màxim que n'he tingut.":"N'he tingut un màxim de ".$seguidc."");
|
||
|
|
|
||
|
|
// darrer seguidor
|
||
|
|
// darrer comiat(?)
|
||
|
|
|
||
|
|
//$com_tut = "#SocUnBot #InfoBot 📝";
|
||
|
|
$com_tut = "#SocUnBot 📝";
|
||
|
|
|
||
|
|
$men_resp = "@".$usuari."\n".
|
||
|
|
$titol."\n".
|
||
|
|
$entra."\n".
|
||
|
|
$publs."\n".
|
||
|
|
$conns." ".
|
||
|
|
$errades."\n".
|
||
|
|
$estad_reb."\n".
|
||
|
|
$estads."\n".
|
||
|
|
$segds."\n".
|
||
|
|
$com_tut."";
|
||
|
|
|
||
|
|
// Publica a Mastodon
|
||
|
|
$dades_tut = array(
|
||
|
|
"status" => $men_resp,
|
||
|
|
"language" => $llengua,
|
||
|
|
"visibility" => $mis_vis,
|
||
|
|
"in_reply_to_id" => $en_resposta
|
||
|
|
);
|
||
|
|
|
||
|
|
PublicaMissatge($base_url,$headers,$dades_tut);
|
||
|
|
|
||
|
|
}
|
||
|
|
?>
|