bot_plus/utils/bot_plus_impulsos.php
2024-08-21 20:50:04 +02:00

553 líneas
20 KiB
PHP

<?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";
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.'');
$log->lwrite("Estàn activades les estadistiques dels impulsos.");
if($control_memoria_utils == 1) {
$log -> lwrite ( mostra_us_memoria()." ".mostra_pic_memoria() );
}
$a = 0;
$b = 0;
$c = 0;
$d = 0;
// preparatius i variables comunes
$resposta = ConsultaNotificacions($token,$base_url,$limit_i,$headers);
$tcc = microtime(true);
$dcon = $tcc - $tc;
$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);
// prova
//$espera_imp = strtotime("now");
$temps_ini = $espera_imp - 604800;
$nr = count($resposta);
$menc_mat = array();
$d = 0;
for ($d = 0; $d < $nr; $d++) {
// triar les variables que volem de la matriu
$men_id = $resposta[$d]['id'];
$impuls = $resposta[$d]['type'];
$quan = $resposta[$d]['created_at'];
$qui = $resposta[$d]['account']['acct'];
if(!isset($resposta[$d]['status']['id'])) {
$mis_id = 0;
} else {
$mis_id = $resposta[$d]['status']['id'];
}
if ( ($impuls == "reblog")||($impuls == "favourite") ) {
$menc_mat[] = array ( 'id' => $men_id, 'mis_id' => $mis_id, 'qui' => $qui, 'impuls' => $impuls, 'fet' => $quan );
}
}
$nrm = count($menc_mat);
$imp_resp = null;
// llegir fitxer per evitar repeticions
$impuls_arx = exec("cat ".$lloc."/fitxers/impulsos.txt", $eix_imp, $resp_imp);
$eix_imp = implode(" ",$eix_imp);
// verificar que un usuari fa més d'una volta la mateixa acció
$e = 0;
$nm = 0;
$num_seg = 0;
$mr = 0;
for ($e = 0; $e < $nrm; $e++) {
$m_id = $menc_mat[$e]['id'];
$miss_id = $menc_mat[$e]['mis_id'];
$usuari= $menc_mat[$e]['qui'];
$impuls_t= $menc_mat[$e]['impuls'];
$quan_m = $menc_mat[$e]['fet'];
$quan_str = strtotime($quan_m);
$impuls_arx = shell_exec("cat ".$lloc."/fitxers/impulsos.txt");
$no_repetir = strpos($eix_imp,$m_id);
// if ( ($impuls_t == "reblog") ) {
if (($impuls_t == "reblog")||($impuls_t == "favourite" )) {
$no_repetir = strpos($eix_imp, $m_id);
// escriu la menció al fitxer per no repetir-la
if($no_repetir === false) {
// per que siga només a partir de la data i hora de reinici
if($quan_str >= $temps_ini) {
$escriu_impulsos = fopen($lloc."/fitxers/impulsos.txt", "a") or die("No puc escriure al registre!");
fwrite($escriu_impulsos, $m_id." ".$usuari." ".$impuls_t." ".$miss_id." ".$quan_m."\n");
fclose($escriu_impulsos);
// $log->lwrite("NOU IMPULS : ".$m_id." ".$usuari." ".$impuls_t." ".$miss_id." ".$quan_m."");
$log->lwrite("NOU IMPULS ".$impuls_t." : ".$m_id." ".$usuari." ".$miss_id." ".$quan_m."");
$imp_mat[] = array ( 'id' => (int)$m_id, 'mis_id' => (int)$miss_id, 'qui' => $usuari, 'impuls' => $impuls_t, 'quan' => $quan_m );
$nm++;
}
}
}
}
if($nm > 0) {
$log-> lwrite("He escrit ".$nm." ".(($nm<>1)?"registres":"registre").".");
// fer la matriu de les dades existents al json
//$usa_json = exec("php ".$lloc."/proves/proves_impulsos_json.php ".$lloc , $eix_usa_json, $resp_usa_json);
$usa_json = exec("php ".$lloc."/utils/bot_plus_impulsos_json.php ".$lloc, $eix_ujson, $resp_ujson);
if ( $resp_ujson !=0 ) {
$log -> lwrite("INFO: fer fitxer impulsos json: ".(($resp_ujson == 0)?"correcte":"ERRADA")." - ".__LINE__);
}
// incloure les novetats a la matriu
/**
// actualitza el fitxer json
$fes_json = json_encode($json_dec, JSON_UNESCAPED_UNICODE|JSON_UNESCAPED_SLASHES|JSON_OBJECT_AS_ARRAY);
$escriu_f_json = fopen($lloc."/fitxers/impulsos.json", "w") or die("No puc escriure al registre!");
fwrite($escriu_f_json, $fes_json);
fclose($escriu_f_json);
**/
}
if( (filesize($lloc."/fitxers/impulsos.txt"))> (filesize($lloc."/fitxers/impulsos.bak")) ) {
$fil_seg = shell_exec("cat ".$lloc."/fitxers/impulsos.txt > ".$lloc."/fitxers/impulsos.bak");
}
$impp = 0;
$favp = 0;
// aqui if de temps
if($temps_imp >= $espera_imp) {
$act_segs = exec("php -f ".$lloc."/utils/bot_plus_benvinguda_fitx.php ".$lloc, $eix_asegs, $resp_asegs);
$log -> lwrite( "resp_asegs: ".$resp_asegs."" );
//recupera còpia de seguretat, si escau
if( (filesize($lloc."/fitxers/impulsos.txt")) == 0 ) {
$fil_seg = shell_exec("cat ".$lloc."/fitxers/impulsos.bak > ".$lloc."/fitxers/impulsos.txt");
}
// 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 el gràfic amb les dades recopilades
//$fer_grafic_imp = shell_exec("php -f ".$lloc."/utils/bot_plus_fergrafic_imp.php ".$lloc);
$fer_grafic_imp = exec("php -f ".$lloc."/utils/bot_plus_fergrafic_imp.php ".$lloc, $eix_grfi, $resp_grfi);
//$log -> lwrite("INFO: fer grafic impulsos: ".( (($fer_grafic != null)||($fer_grafic_imp != false))?"correcte":"ERRADA")."");
$log -> lwrite("INFO: fer grafic impulsos: ".( ($resp_grfi == null)?"correcte":"ERRADA")." - ".__LINE__);
// pujar gràfic
// puja imatge a mastodont
$pub_cent = ".";
$pub_img = $lloc."/grafic/grafic_imp.png";
$fitxer_tipus = mime_content_type($pub_img);
$publica_img = array(
"file" => $pub_img,
"type"=> $fitxer_tipus,
"description" => 'Gràfic impulsos dels '.($nseg_ant).' seguidors.'
);
$publ_img = json_encode($publica_img);
$status_data = array(
"status" => $pub_cent,
"text" => $pub_cent,
"language" => $llengua,
"visibility" => $visib_com
);
$pub_img = $lloc."/grafic/grafic_imp.png";
$fitxer_tipus = mime_content_type($pub_img);
$fitxer_prep = curl_file_create($pub_img, $fitxer_tipus, 'file');
$publica_img = ['file' => $fitxer_prep,
'description' => 'Gràfic impulsos dels '.($nseg_ant).' seguidors.',
'text' => $pub_cent,
'status' => 'missatge amb imatge des del bot'
];
// pujada de la imatge
$ch_status = curl_init();
curl_setopt($ch_status, CURLOPT_URL, $base_url . "/api/v2/media");
curl_setopt($ch_status, CURLOPT_POST, 1);
curl_setopt($ch_status, CURLOPT_POSTFIELDS, $publica_img);
curl_setopt($ch_status, CURLOPT_RETURNTRANSFER, true);
curl_setopt($ch_status, CURLOPT_HTTPHEADER, $headers);
$output_status = json_decode(curl_exec($ch_status),true);
curl_close ($ch_status);
//echo "\n\nresposta media : \n";
//print_r ($output_status);
$imat_mst = $output_status['id'];
$imat_url = $output_status['url'];
// arreplegar dades imatge pujada
sleep(1);
$bot_status = curl_init();
curl_setopt($bot_status, CURLOPT_URL, $base_url . "/api/v1/media/".$imat_mst."");
curl_setopt($bot_status, CURLOPT_RETURNTRANSFER, true);
curl_setopt($bot_status, CURLOPT_HTTPHEADER, $headers);
$resposta = (curl_exec($bot_status));
$resposta_json = json_decode(curl_exec($bot_status));
curl_close ($bot_status);
// var_dump($resposta);
// echo "resposta\n";
// print_r($resposta);
$resposta = json_decode($resposta,true);
// echo "\n\nresposta json_decode\n";
// print_r($resposta);
echo "obtenció dades media: \n";
print_r($resposta_json);
sleep(1);
$im_id = $resposta['id'];
$im_url = $resposta['url'];
$im_type = $resposta['type'];
$im_desc = $resposta['description'];
//$img_bis = $lloc."/grafic/grafic_imp.png";
//$imatge_adj = array('file' => $im_url, 'type' => $im_type, 'description' => $im_desc);
//$imatge_adj_json = json_encode($imatge_adj);
/**
function http_build_query_for_curl( $arrays, &$new = array(), $prefix = null ) {
if ( is_object( $arrays ) ) {
$arrays = get_object_vars( $arrays );
}
foreach ( $arrays AS $key => $value ) {
$k = isset( $prefix ) ? $prefix . '[' . $key . ']' : $key;
if ( is_array( $value ) OR is_object( $value ) ) {
http_build_query_for_curl( $value, $new, $k );
} else {
$new[$k] = $value;
}
}
}
**/
//arsort($act_mat_ord);
// reblogs
//$impuls_resum = exec("cat ".$lloc."/fitxers/impulsos.txt | awk '{print $2}'", $eix_ir, $resp_ir );
$impuls_resum = exec("cat ".$lloc."/fitxers/impulsos.txt | grep 'reblog' | awk '{print $2}'", $eix_ir, $resp_ir );
$mat_reb = array_count_values($eix_ir);
$a = 0;
arsort($mat_reb);
foreach ($mat_reb as $clau => $valor) {
$mat_reb_f[] = array('nom' => $clau, 'nombre' => $valor);
$a++;
}
$us_imp0 = array_values($mat_reb_f)[0]['nom'];
$nu_imp0 = array_values($mat_reb_f)[0]['nombre'];
// quants tenen els mateix nombre que el primer?
$acabaa = count($mat_reb_f);
for($i=0;$i<$acabaa;$i++) {
if($mat_reb_f[$i]['nombre'] == $nu_imp0) {
$mat_reb_fp[] = array('article' => $mat_reb_f[$i]["nom"], 'nombre' => $mat_reb_f[$i]["nombre"]);
}
}
$tuts_imp_primers = count($mat_reb_fp);
// favorits
$favorits_resum = exec("cat ".$lloc."/fitxers/impulsos.txt | grep 'favourite' | awk '{print $2}'", $eix_fr, $resp_fr );
$mat_fav = array_count_values($eix_fr);
$b = 0;
arsort($mat_fav);
foreach ($mat_fav as $clau => $valor) {
$mat_fav_f[] = array('nom' => $clau, 'nombre' => $valor);
// echo "favorits: ".$clau."->".$valor."\n";
$b++;
}
$us_fav0 = array_values($mat_fav_f)[0]['nom'];
$nu_fav0 = array_values($mat_fav_f)[0]['nombre'];
// quants tuts tenen els mateix nombre que el primer?
$acabaf = count($mat_fav_f);
for($i=0;$i<$acabaf;$i++) {
if($mat_fav_f[$i]['nombre'] == $nu_fav0) {
$mat_fav_fp[] = array('article' => $mat_fav_f[$i]["nom"], 'nombre' => $mat_fav_f[$i]["nombre"]);
}
}
$tuts_fav_primers = count($mat_fav_fp);
//està activat missatges als usuaris?
if($act_impuls_usu == 1) {
$nrmr = rand($min_us,$max_us);
// impulsos
for($f = 0; $f<$nrmr; $f++) {
$us_imp = array_values($mat_reb_f)[$f]['nom'];
$nu_imp = array_values($mat_reb_f)[$f]['nombre'];
$imp_resp = "Moltes gràcies @".$us_imp." per impulsar ".$nu_imp." ".(($nu_imp<>1)?"publicacions":"publicació")." des del ".date('d/m/Y', $temps_ini).". 👏 \n#SocUnBot 🤖 \n".$bot_nom." ".$bot_versio."";
$log -> lwrite ($imp_resp);
// publicar
$imp_dades = array(
"status" => $imp_resp,
"language" => $llengua,
"visibility" => $visib_imp_usu
);
PublicaMissatge($base_url,$headers,$imp_dades);
$impp++;
}
// favorits
for($g = 0; $g<$nrmr; $g++) {
$us_fav = array_values($mat_fav_f)[$g]['nom'];
$nu_fav = array_values($mat_fav_f)[$g]['nombre'];
$fav_resp = "Moltes gràcies @".$us_fav." per fer favorit a ".$nu_fav." ".(($nu_fav<>1)?"publicacions":"publicació")." des del ".date('d/m/Y', $temps_ini).". 👏 \n#SocUnBot 🤖 \n".$bot_nom." ".$bot_versio."";
$log -> lwrite ($fav_resp);
// publicar
$fav_dades = array(
"status" => $fav_resp,
"language" => $llengua,
"visibility" => $visib_imp_usu
);
PublicaMissatge($base_url,$headers,$fav_dades);
$favp++;
}
//final activació missatges impulsos i favorits als usuaris
}
// reblog
//$public_resum = shell_exec("cat ".$lloc."/fitxers/impulsos.txt | awk '{print $4}'" );
$public_resum = shell_exec("cat ".$lloc."/fitxers/impulsos.txt | grep 'reblog' | awk '{print $4}'" );
$pub_resum = explode("\n",$public_resum);
$mat_res = array_count_values($pub_resum);
$c = 0;
arsort($mat_res);
foreach ($mat_res as $clau => $valor) {
echo "$clau = $valor\n";
$mat_res_f[] = array('article' => $clau, 'nombre' => $valor);
$c++;
}
$mes_comp_id = array_values($mat_res_f)[0]['article'];
$mes_comp_vl = array_values($mat_res_f)[0]['nombre'];
// favorits
$public_resum_f = shell_exec("cat ".$lloc."/fitxers/impulsos.txt | grep 'favourite' | awk '{print $4}'" );
$pub_resum_f = explode("\n",$public_resum_f);
$mat_res_f = array_count_values($pub_resum_f);
$d = 0;
arsort($mat_res_f);
foreach ($mat_res_f as $clau => $valor) {
// echo "favorits_resum: ". $clau. "=". $valor."\n";
$mat_res_fa[] = array('article' => $clau, 'nombre' => $valor);
$d++;
}
//print_r($mes_res_fa);
$mes_fav_id = array_values($mat_res_fa)[0]['article'];
$mes_fav_vl = array_values($mat_res_fa)[0]['nombre'];
//echo $mes_fav_id ."-" $mes_fav_vl;
//exit;
// 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);
$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);
if($tuts_imp_primers == 1) {
$comp_miss = "Este és el tut ⬆️ que mes heu compartit, ".$mes_comp_vl." ".(($mes_comp_vl<>1)?"voltes":"volta").", des del ".date('d/m/Y',$temps_ini).".\n".
"Moltes gràcies!\n\n".
"Estadístiques 📈 \n".
"Tuts publicats -> ".$tuts_setm."\n".
"Tuts favorits -> ".($d-1)."\n".
"Els han marcat -> ".($b-1)." persones.\n".
"🎖️ Qui més favorits n'ha fet ".$nu_fav0."\n".
"El tut que més n'ha rebut ".$mes_fav_vl."\n".
"Ha participat un ".round( (($b/$nseg_ant)*100), 2 )."% sobre el total dels seguidors.\n".
"Tuts impulsats -> ".($c-1)."\n".
"Els han impulsat -> ".($a-1)." persones.\n".
"🥇 Qui més ha impulsat n'ha fet ".$nu_imp0."\n".
"Ha participat un ".round( (($a/$nseg_ant)*100), 2 )."% sobre el total dels seguidors.\n".
"#ResumSetmanal #SocUnBot \n".$bot_nom." v".$bot_versio."";
} else {
$comp_miss = "Este és un dels ".$tuts_imp_primers ." tuts ⬆️ que mes heu compartit, ".$mes_comp_vl." ".(($mes_comp_vl<>1)?"voltes":"volta").", des del ".date('d/m/Y',$temps_ini).".\n".
"Moltes gràcies!\n\n".
"Estadístiques 📈 \n".
"Tuts publicats -> ".$tuts_setm."\n".
"Tuts favorits -> ".($d-1)."\n".
"Els han marcat -> ".($b-1)." persones.\n".
"🎖️ Qui més favorits n'ha fet ".$nu_fav0."\n".
"El tut que més n'ha rebut ".$mes_fav_vl."\n".
"Ha participat un ".round( (($b/$nseg_ant)*100), 2 )."% sobre el total dels seguidors.\n".
"Tuts impulsats -> ".($c-1)."\n".
"Els han impulsat -> ".($a-1)." persones.\n".
"🥇 Qui més ha impulsat n'ha fet ".$nu_imp0."\n".
"Ha participat un ".round( (($a/$nseg_ant)*100), 2 )."% sobre el total dels seguidors.\n".
"#ResumSetmanal #SocUnBot \n".$bot_nom." v".$bot_versio."";
}
$tut = $comp_miss;
$log -> lwrite($comp_miss);
if($act_impuls_resum == 1) {
$status_data2 = array(
"status" => $tut,
"language" => $llengua,
"visibility" => $visib_com
);
$tut_matriu = array(
"status" => $tut,
"text" => $tut,
"language" => $llengua,
"media_ids[]" => $im_id,
"visibility" => $visib_cent,
"sensitive" => null,
"spoiler_text" => null,
"in_reply_to_id" => $mes_comp_id
);
//http_build_query_for_curl( $tut_matriu, $tut_dades );
// PublicaMissatge($headers,$base_url,$tut_dades);
$pub_text_imat = curl_init();
curl_setopt($pub_text_imat, CURLOPT_URL, $base_url . "/api/v1/statuses");
curl_setopt($pub_text_imat, CURLOPT_POST, 1);
curl_setopt($pub_text_imat, CURLOPT_POSTFIELDS, $tut_matriu);
curl_setopt($pub_text_imat, CURLOPT_RETURNTRANSFER, true);
curl_setopt($pub_text_imat, CURLOPT_HTTPHEADER, $headers);
$resposta_img_txt = json_decode(curl_exec($pub_text_imat),true);
curl_close ($pub_text_imat);
//exit;
$mr++;
$ferfil = $resposta_img_txt['id'];
/**
// fer tuts de impulsos i favorits per dies de la setmana
// $graf_imp_setm = shell_exec("/usr/bin/php -f ".$lloc."/proves/bot_plus_estadistiques_inst_impulsos.php ".$lloc." ".$ferfil." 1" );
// $graf_imp_setm = shell_exec("/usr/bin/php -f ".$lloc."/proves/bot_plus_impulsosxdies.php ".$lloc."" );
$log -> lwrite("INFO: fer tut gràfic d'impulsos per dies: ".( (($graf_imp_setm != null)||($graf_imp_setm != false))?"correcte":"ERRADA")."");
// $graf_fav_setm = shell_exec("/usr/bin/php -f ".$lloc."/proves/bot_plus_estadistiques_inst_impulsos.php ".$lloc." ".$ferfil." 1" );
// $graf_fav_setm = shell_exec("/usr/bin/php -f ".$lloc."/proves/bot_plus_favoritsxdies.php ".$lloc." " );
$log -> lwrite("INFO: fer tut gràfic de favorits per dies: ".( (($graf_fav_setm != null)||($graf_fav_setm != false))?"correcte":"ERRADA")."");
**/
// executa tut de persones i instàncies dels impulsos
$activitat_inst = shell_exec("/usr/bin/php -f ".$lloc."/utils/bot_plus_estadistiques_inst_impulsos.php ".$lloc." ".$ferfil." 1" );
// $log -> lwrite("INFO: fer tut instàncies d'impulsos: ".( (($activitat_inst != null)||($activitat_inst != false))?"correcte":"ERRADA")."");
// executa activitat dels seguidors
$activitat_seguidors = shell_exec("/usr/bin/php -f ".$lloc."/utils/bot_plus_activitat_seguidors.php ".$lloc."");
$log -> lwrite("INFO: fer tut activitat: ".( (($activitat_seguidors != null)||($activitat_seguidors != false))?"correcte":"ERRADA")." - ".__LINE__);
// final si estadistiques està encés
}
// final if per publicar (caldrà descomentar-lo)
}
else {
$temps_cal = ($espera_imp - $temps_imp);
if( ($nm > 0) && (($espera_imp - $temps_imp)>= 86400) ) {
$log -> lwrite("Manquen per publicar ".gmdate("d",$temps_cal)." dies i ".gmdate("H:i:s",$temps_cal)." hores");
}
if(($espera_imp - $temps_imp)<= 86400) {
$log->lwrite("".( gmdate("d",$temps_cal)<>1 ? "Manquen ".gmdate('d',$temps_cal)." dies i ".gmdate('H:i:s',$temps_cal)." hores.":"No manca cap dia i només ".gmdate('H:i:s',$temps_cal)." hores.")."");
}
}
//echo "propera publicació: ".$espera_imp." | ".date('r',$espera_imp)."\n";
// condició publicar per refer el fitxer de temps
if( ($impp >= 1)||($mr==1)||($favp >=1) ) {
//reinicie el fitxer una volta publique el missatge
$buida_imp = shell_exec(": > ".$lloc."/fitxers/impulsos.txt");
$buida_imp_cp = shell_exec(": > ".$lloc."/fitxers/impulsos.bak");
$buida_json = file_put_contents($lloc."/fitxers/impulsos.json", json_encode([]));
// copia el nombre de tut publicats fins el moment
$copia_ntuts = shell_exec("cat ".$lloc."/fitxers/compte_pub.txt > ".$lloc."/fitxers/compte_setm.txt");
// crea el fitxer per fer el compte de temps
$data_ara = strtotime("now");
$data_conv = strtotime("1 week");
$data_dif = $data_ara - $data_conv;
$data_cal = $data_ara + $data_dif;
// canviar a aleatori quan ja estiga a l'hora desitjada
$data_conv = ($data_conv - rand(180,300));
//$data_conv = ($data_conv - 720);
// escriu el fitxer per saber quan publicar
$escriu_imp_t = fopen($lloc."/fitxers/impulsos_temps.txt", "w") or die("No puc escriure al registre!");
fwrite($escriu_imp_t, $data_conv);
fclose($escriu_imp_t);
// reinicia el contador d'errades tècniques
$escriu_err_tec = fopen($lloc."/fitxers/errada_cont.txt", "w") or die("No puc escriure al registre!");
fwrite($escriu_err_tec, 1);
fclose($escriu_err_tec);
}
$tcf = microtime(true);
$dc = $tcf - $tc;
$log->lwrite("Temps impulsos: ".round($dc,4)." segons");
//if($control_memoria == 1) {
//$log -> lwrite ( mostra_us_memoria() );
//$log -> lwrite ( mostra_pic_memoria() );
//}
if($mem_net == 1) {
$resposta = null; $menc_mat = null; $mat_reb_f = null; $mat_reb_fp = null; $mat_fav_f = null; $mat_fav_fp = null; $mat_res_f = null; $mat_res_fa = null;
unset($resposta,$menc_mat,$mat_reb_f,$mat_reb_fp,$mat_fav_f,$mat_fav_fp,$mat_res_f,$mat_res_fa);
}
if($control_memoria_utils == 1) {
$log -> lwrite ( mostra_us_memoria()." ".mostra_pic_memoria() );
}
?>