[Date] Sur Internet

Version imprimable

02/06/2008, 10h36
djibril

[Date] Sur Internet

bonjour,

Je recherche un moyen de récupérer la date et l'heure sur internet via perl. Je répète, je ne souhaite pas obtenir le date sur mon PC, mais via internet.
Comment m'y prendre? Où la récupérer? Et si possible, y a t il un module Perl permettant cela.

Merci
02/06/2008, 11h51
Jedai

Avec Net::NTP tu peux consulter des serveurs NTP (il y a des listes énormes sur Internet).

--
Jedaï
02/06/2008, 12h01
djibril

Des serveurs NTP, j'en connais, d'ailleurs je me sers pour synchroniser les dates de mes serveurs.
Donc pour récupérer les dates en perl Net::NTP fait donc l'affaire, je vais y jeter un coup d'oeil.

Merci
02/06/2008, 12h23
djibril

Çà fonctionne simplement et basiquement.

Sinon Autre question.
Si il n'y a pas de connexion internet ou bien si le port est bloqué via un firewall, comment le savoir.
Car j'ai mis un or die

Code:

get_ntp_response("ntp.univ-lyon1.fr") or die("Unable to get the date, $!\n");

et j'ai coupé internet. En lançant le script, il ne passe pas dans le die et le script tourne en rond sans rendre la main. Pendant plusieurs minutes.

Merci.
02/06/2008, 12h41
Jedai

Essaie un alarm(60) par exemple.

--
Jedaï

rien à faire, ça fonctionne pas

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
my %response;
eval {
  local $SIG{ALRM} = sub { die "Alarm" };
  alarm(10);
  %response = get_ntp_response("ntp.univ-lyon1.fr") or die("Unable to get the date, $!\n");
  alarm(0);
};
if ($@) {
#if ($@ and $@ !~ /Alarm/) {
  print "Problème! 10 secondes sont écoulées!\n";
}
else {
  print "Tout est en ordre!\n";
}

02/06/2008, 14h15
Jedai

Embêtant, il semblerait que le programme soit bloqué dans un appel système ou quelque chose comme ça, tu es sous quel système ?

--
Jedaï
02/06/2008, 14h44
djibril

Le script devra fonction sous XP, vista ou win2000, bref sur du windows.
Le but sera de choper la date sur le net pour qu'une application soit utilisable pendant une période donnée.
03/06/2008, 18h42
djibril

pas de solution? Sous debian, j'ai le même souci.
04/06/2008, 11h36
djibril

Bon j'ai regardé le .pm du module en question, et en faite il fait déjà un alarm à 60 secondes par defaut, mais ce dernier ramené même à 5 secondes ne fonctionne pas. Je sais plus trop quoi faire

Merci
04/06/2008, 14h37
Jedai

Citation:

Envoyé par djibril

Bon j'ai regardé le .pm du module en question, et en faite il fait déjà un alarm à 60 secondes par defaut, mais ce dernier ramené même à 5 secondes ne fonctionne pas. Je sais plus trop quoi faire

Oui, parce qu'en fait ce n'est pas là qu'il y a un problème : le timeout marchera bien si le serveur ne répond pas, mais dans ton cas, le blocage se fait à l'envoi et de plus à un endroit où les signaux ne peuvent pas te débloquer, il faudrait vérifier si il y a bien une connexion internet mais c'est OS dépendant... Sinon tu peux faire la consultation dans un autre thread ou processus et faire le timeout dans le parent, vu l'emploi que tu veux en faire ça devrait convenir, non ?

--
Jedaï
04/06/2008, 14h43
djibril

Citation:

Envoyé par Jedai

Sinon tu peux faire la consultation dans un autre thread ou processus et faire le timeout dans le parent, vu l'emploi que tu veux en faire ça devrait convenir, non ?

Je ne vois pas comment faire ça, as tu un exemple?
MErci

Sinon pour tester s'il y a internet avant j'utilise LWP, et je fixe un timeout => pas de souci.
Je me suis dit que qu'au cas ou il y a internet sur le PC, mais que le port 123 est bloqué pour x raisons, faudrait pas que l'appli tourne en rond.

Donc :
1- je test s'il y a le net
2- Si oui, si le port 123 est bloqué, est ce que Net::NTP sera capable de le déterminé avec un timeout correct ou bien faut il utiliser une autre solution ?