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> '; }