Discussion :

[djibril]

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

[Jedai]

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

--
Jedaï

[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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

 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.

[Jedai]

Essaie un alarm(60) par exemple.

--
Jedaï

[djibril]

rien à faire, ça fonctionne pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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ï

[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.

[djibril]

pas de solution? Sous debian, j'ai le même souci.

[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

[Jedai]

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ï

[djibril]

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 ?