• Publicidad

NTP

¿Ya sabes lo que es una referencia? Has progresado, el nível básico es cosa del pasado y ahora estás listo para el siguiente nivel.

NTP

Notapor davidlo » 2006-11-23 06:41 @320

Hola, he instalado un servidor NTP de stratum 3 en mi máquina. Desde mi aplicación necesito la fecha y hora exactas, para lo cual utilizo Net::NTP. No obstante, parece que no funciona.

Hago lo siguiente:

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
 use Net::NTP;
    my %response = get_ntp_response();#'127.0.0.1',123);

    print ("DEBUG NTP................".%response."\n");
    print ("DEBUG NTP................".values(%response)."\n");
    print ("DEBUG NTP................".keys(%response)."\n");
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4



Y obtengo la siguiente respuesta:

DEBUG NTP................8/16
DEBUG NTP................13
DEBUG NTP................13
-----------------------------------
¿Cómo debo interpretar esto?
davidlo
Perlero nuevo
Perlero nuevo
 
Mensajes: 16
Registrado: 2006-11-11 05:58 @290
Ubicación: Sevilla, España

Publicidad

Notapor explorer » 2006-11-23 07:41 @362

Pues que hay 13 entradas en %response.

Prueba a sacarlas con un bucle:
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
while( ($clave, $valor) = each(%response) ) {
    print "$clave => $valor\n";
}
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Notapor davidlo » 2006-11-30 05:05 @253

Hola, gracias por la respuesta.
Ahora tengo un nuevo problema, aunque en rigor no es puramente de Perl... El servidor NTP que he instalado me devuelve una hora menos que la oficial. En el archivo de configuración puse
Server = es. pool.ntp.org

y cuando hago una consulta a las 11:14 por ejemplo, me dice que son las 10:14.
Además, me da los siguientes logs:

[listeg]#ntpq -pn

remote refid st t when poll reach delay offset jitter
==============================================================================
*84.78.100.194 130.206.3.166 2 u 357 1024 377 59.781 1.026 5.807
[/list:ueg]

--------------
#ntptrace
localhost.localdomain: stratum 3, offset 0.001026, synch distance 0.120887
84.78.100.194: timed out, nothing received
***Request timed out
----------------

¿Por qué sucede esto? Antes tenía puesto server = europe.pool.ntp.org y me daba la hora correctamente y la traza de mis servidores.
davidlo
Perlero nuevo
Perlero nuevo
 
Mensajes: 16
Registrado: 2006-11-11 05:58 @290
Ubicación: Sevilla, España

Notapor explorer » 2006-12-04 12:41 @570

Quizás te está devolviendo la hora en horario GMT.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España


Volver a Intermedio

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 4 invitados