Function: enviar_correo_con_usuario
Busca un usuario por su correo electronico y le hace llegar su nombre de usuario al correo
Ver tambien:
<recuperar_contrasena> | <enviar_correo_llave>
*/
abrir_ventana($MULTILANG_OlvideClave, 'panel-info');
//Busca si realmente hay un usuario registrado con ese correo y le envia el mensaje
if (existe_valor($TablasCore . "usuario", "correo", $correo) && $correo != "") {
//Busca los datos del usuario y los envia al correo registrado
$registro = ejecutar_sql("SELECT {$ListaCamposSinID_usuario} FROM " . $TablasCore . "usuario WHERE correo=?", "{$correo}")->fetch();
$remitente = $registro["correo"];
$destinatario = $registro["correo"];
$asunto = "[" . $NombreRAD . "] " . $MULTILANG_UsrAsuntoReset;
$cuerpo_mensaje = "<br><br>" . $MULTILANG_Usuario . " " . $NombreRAD . ": <b>" . $registro["login"] . "</b>";
enviar_correo($remitente, $destinatario, $asunto, $cuerpo_mensaje);
mensaje($MULTILANG_Atencion, $MULTILANG_UsrMensajeReset, '', 'fa fa-unlock-alt fa-4x', 'alert alert-info alert-dismissible');
} else {
mensaje($MULTILANG_Error, $MULTILANG_UsrErrorReset, '', 'fa fa-exclamation-triangle fa-4x', 'alert alert-danger alert-dismissible');
}
echo '<a class="btn btn-default btn-warning" href="javascript:document.core_ver_menu.submit();"><i class="fa fa-arrow-circle-left"></i> ' . $MULTILANG_Regresar . '</a>';
cerrar_ventana();
}
/* ################################################################## */
/* ################################################################## */
if ($PCO_Accion == "recuperar_contrasena" && $PCO_SubAccion == "formulario_recuperacion") {
/*
Function: formulario_recuperacion
Presenta el formulario para recuperacion de contrasenas
Ver tambien:
function PresentarEstadoMaquina($Maquina, $color_fondo_estado, $color_texto_estado)
{
/*
Function: PresentarEstadoMaquina
Presenta una tabla formateada con el estado de una maquina en particular
Ver tambien:
<MaquinaOnline>
*/
global $ancho_tablas_maquinas, $Path_imagenes, $Imagen_fallo, $Imagen_generica, $Imagen_ok, $Tamano_iconos;
global $ErroresMonitoreoPractico;
// Una variable global que inciada en cero, cambia su valor en esta funcion cuando hay errores
global $MULTILANG_MonTitulo, $PCO_FechaOperacionGuiones, $PCO_HoraOperacionPuntos;
global $MULTILANG_MonLinea, $MULTILANG_MonCaido;
//Verifica estado de la maquina y servicio
$estado_actual = ServicioOnline($Maquina["Host"], $Maquina["Puerto"], $Maquina["TipoMonitor"]);
if ($estado_actual) {
$estado_final = "{$Imagen_ok} {$MULTILANG_MonLinea}";
} else {
$estado_final = "<blink> {$Imagen_fallo} {$MULTILANG_MonCaido} {$Imagen_fallo}</blink>";
$color_fondo_estado = "#FF3B36";
$color_texto_estado = "#FFFF00";
$ErroresMonitoreoPractico = 1;
//Envia mensaje de notificacion por correo
enviar_correo("*****@*****.**", $Maquina["CorreoAlerta"], $MULTILANG_MonTitulo . " {$MULTILANG_MonCaido} [{$PCO_FechaOperacionGuiones} {$PCO_HoraOperacionPuntos}] ", $Maquina["Nombre"] . " [" . $Maquina["Host"] . ":" . $Maquina["Puerto"] . "] -> " . $Maquina["TipoMonitor"]);
}
//Determina si a la maquina o servicio se le ha indicado un icono
$Separador_DosPuntos = "";
if ($Maquina["TipoMonitor"] == "socket") {
$Separador_DosPuntos = ":";
}
/*
if ($Maquina["Icono"]!="")
$icono_maquina='<img src="'.$Path_imagenes.$Maquina["Icono"].'" border=0 '.$Tamano_iconos.'>';
else*/
$icono_maquina = $Imagen_generica;
echo '
<table width="' . $ancho_tablas_maquinas . '" border=1 cellpadding=1 cellspacing=0 bgcolor="#DDDDDD" style="color:black; width:' . $ancho_tablas_maquinas . 'px; display: inline!important; font-family: Verdana, Tahoma, Arial; font-size: 9px; margin-top: 5px; margin-right: 5px; margin-left: 5px; margin-bottom: 5px;">
<tr>
<td width="' . $ancho_tablas_maquinas . '" bgcolor="#D8D8FF" align=center>
<table width="100%" border=0 cellpadding=2 cellspacing=0 style="color:black; font-family: Verdana, Tahoma, Arial; font-size: 11px;"><tr>
<td>
' . $icono_maquina . '
</td>
<td bgcolor="#D8D8FF" align=right>
<font size=2><b>' . $Maquina["Nombre"] . '</b></font><br>
</td>
</tr></table>
(' . $Maquina["Host"] . $Separador_DosPuntos . $Maquina["Puerto"] . ')
</td>
</tr>
<tr>
<td colspan=2 align=center bgcolor="' . $color_fondo_estado . '">
<font size=3 color="' . $color_texto_estado . '"><b>' . $estado_final . '</b></font>
</td>
</tr>
</table>
';
}
