Lire l'ip sur dyndns

par **carbone** » 23 Sep 2003 15:06

ipcop 1.2 Mon problème: J ai un nom en dyndns, j ai mis en crontab le script qui vérifie toutes les heures que mon ip sur la machine n'a pas changé et si oui le mets à jour. Ce script, c est: /usr/local/bin/setddns.pl Le problème c'est que ce script stocke l'adrees préalablement mise dans dyndns, moi je voudrai qu'il vérifie sur le site si elle est bonne. Donc ma question, est comment récupérer cette ip? je pense qu'un ping de l'adresse devrait me donner ce que je cherche mais comment récupérer ca dans le script? je crois que c'est du perl <IMG SRC="images/smiles/icon_help.gif"> <IMG SRC="images/smiles/icon_help.gif">

par **Fesch** » 23 Sep 2003 15:13

avec "ping tonnom.dyndns.org -c 1" et puis il faut lancer tout cela sur un grep, mais je ne sais comment cela fonctionne le grep <IMG SRC="images/smiles/icon_frown.gif">

par **jdh** » 23 Sep 2003 15:14

Par exemple ip=`host xxxx.dyndns.org | awk '{print $4}'`

par **Fesch** » 23 Sep 2003 15:20

mon ipcop ne connait pas " host", par contre ping xxx.dyndns.org -c 1 | head -n 1 | awk '{print $5}' fonctionne <IMG SRC="images/smiles/icon_smile.gif"> <IMG SRC="images/smiles/icon_smile.gif"> <IMG SRC="images/smiles/icon_smile.gif"> pour le script ip=`ping xxx.dyndns.org -c 1 | head -n 1 | awk '{print $5}' `

par **carbone** » 23 Sep 2003 15:42

merci pour ces réponses mais ca marchera dans un scrip sh, pas un script perl je pense, or le script de mise à jour que je veux modifier, c'est du perl

par **Fesch** » 23 Sep 2003 15:55

tu fais my $ip=`ping xxx.dyndns.org -c 1 | head -n 1 | awk '{print $5}' ` ; ou my $ip=qx(ping xxx.dyndns.org -c 1 | head -n 1 | awk '{print $5}' ); <IMG SRC="images/smiles/icon_smile.gif"> <IMG SRC="images/smiles/icon_smile.gif">

par **carbone** » 23 Sep 2003 16:15

merci de ta réponse mais apparement le résultat est pas encore ce que je recherche, si je fais ca et que j'imprime le résultat, j'ai: Warning: no SO_TIMESTAMP support, falling back to SIOCGSTAMP PING xxx.dyndns.org (10.251.268.99) from 10.251.268.99 : 56(84) bytes of data. et pas 10.251.268.99 comme je le voudrai <IMG SRC="images/smiles/icon_frown.gif"> j ai tenté 2 méthode: #!/usr/bin/perl my @ip="ping xxx.dyndns.org -c1|head -n1|awk '{print $5}'" ; my $result = system(@ip); print($result); print ("n"); my $ip2=qx(ping xxx.dyndns.org -c 1|head -n1|awk '{print $5}'); print($ip2); mais ca ne change rien le résultat est le même dans les 2 et je ne comprends pas pourquoi _________________ Big Brother is watching you! G. Orwell, 1984

par **Gesp** » 23 Sep 2003 16:15

<TABLE BORDER=0 ALIGN=CENTER WIDTH=85%><TR><TD>En réponse à:<HR></TD></TR><TR><TD><BLOCKQUOTE>J ai un nom en dyndns, j ai mis en crontab le script qui vérifie toutes les heures que mon ip sur la machine n'a pas changé et si oui le mets à jour. </BLOCKQUOTE></TD></TR><TR><TD><HR></TD></TR></TABLE> setdynsdsn.pl porte bien son nom qui commence par set donc il est prévu pour mettre une valeur pas pour faire une vérification dont je ne comprends pas l'utilité. Normalement rc.updatered est lancé à chaque fois que l'adresse IP change, que ce soit en DHCP ou dans une session PPP. C'est rc.updatered qui lance setdynsdsn.pl et uniquement quand l'adresse IP a changé. La question est pourquoi tu veux lancer setdynsdns.pl en crontab?

par **carbone** » 23 Sep 2003 16:21

mon problème vient du fait que l'adresse ip peut changer pour d'autres raisons, j'ai des clients dyndns qui tournent sur d'autres postes, parfois d'autres personnes se connectent sur le site et font une mise à jour manuel, ... Comme ici on est derriére un proxy, l adresse proposée sur le site dyndns n'est jamais la bonne, et donc les utilisateur qui ont accès au site (je ne peux pas changer ça) on déjà cliquer sur modifier! et comme l'ip stockée sur mon firewall ne change pas et bien tant que je n'ai pas fait un update forcé, ca ne fait pas de mise à jour car pour lui tout est toujours ok. Je voudrai donc qu'il vérifie l'adresse par rapport à la vrai, pas par rapport à son cache!

par **Fesch** » 23 Sep 2003 16:36

bon, pour les commandes, fait comme suis. crée un fichier "getip" avec le contenu suivant: ---| getip |--- ping sheherazade.dyndns.org -c1 | head -n 1 | awk '{print $5}' --------------- ensuite dans to script tu fais my @ip=`./getip`; print(@ip); ATTENTION: «`» = accent grâve !!! ou my @ip=qx(./getip); print(@ip); ATTENTION: pas de «'» ou «"» dans la commande qx !!!

par **tomtom** » 23 Sep 2003 16:39

<TABLE BORDER=0 ALIGN=CENTER WIDTH=85%><TR><TD>En réponse à:<HR></TD></TR><TR><TD><BLOCKQUOTE> Le 2003-09-23 16:15, carbone a écrit: merci de ta réponse mais apparement le résultat est pas encore ce que je recherche, si je fais ca et que j'imprime le résultat, j'ai: Warning: no SO_TIMESTAMP support, falling back to SIOCGSTAMP PING xxx.dyndns.org (10.251.268.99) from 10.251.268.99 : 56(84) bytes of data. et pas 10.251.268.99 comme je le voudrai <IMG SRC="images/smiles/icon_frown.gif"> j ai tenté 2 méthode: #!/usr/bin/perl my @ip="ping xxx.dyndns.org -c1|head -n1|awk '{print $5}'" ; my $result = system(@ip); print($result); print ("n"); my $ip2=qx(ping xxx.dyndns.org -c 1|head -n1|awk '{print $5}'); print($ip2); mais ca ne change rien le résultat est le même dans les 2 et je ne comprends pas pourquoi _________________ Big Brother is watching you! G. Orwell, 1984 </BLOCKQUOTE></TD></TR><TR><TD><HR></TD></TR></TABLE> ALors, deja, la premiere methode semble mieux, mais.... - pourquoi un @ pour la variable ? c'est pas mieux le $ ? - il faut mettre des backquotes pour encadrer la commande unix : ` - verifie ce que fais ta commande avant de taper.. le head -n 1 te donne la première ligne. Il serait peut-etre plus judiceieux de mettre un grep : my $ip=`ping xxx.dyndns.org -c1|grep PING|awk '{print $5}' ` print $ip Ca devrait fonctionner pas mal ! Il est important de coprendre ce qu'on tape un peu quand même ! t.

par **carbone** » 24 Sep 2003 09:10

Ben si je pose la question c est justement pour apprendre. Mais bon, ça ne marche toujours pas, le awk ne renvoie pas la valeur de l argument dans ma variable <IMG SRC="images/smiles/icon_bawling.gif"> voila mon script: #!/usr/bin/perl my $ip=`ping xxxx.dyndns.org -c1|grep PING`; print ($ip); et le résultat: Warning: no SO_TIMESTAMP support, falling back to SIOCGSTAMP PING sheherazade.dyndns.org (213.118.151.54) from 213.118.151.54 : 56(84) bytes of data. Bon la 1ere ligne ok, c est le message d ereur un close(STDERR); devrait je suppose le faire disparaître mais le contenu de $ip n est toujours pas bon <IMG SRC="images/smiles/icon_bawling.gif"> Je dois aussi essayer l autre solution qui consiste à mettre la ligne dans un fichier et alros de manipuler ce fichier

par **tomtom** » 24 Sep 2003 10:19

donne deja le resultat de ping xxx.dyndns.org -c1 Ensuite on verra pour gfrepper.... t.

par **carbone** » 24 Sep 2003 10:42

en fait j'ai comme conseiller par Fesch, j'ai créé un fichier getip (exécutable) contenant ma requète: ping xxx.dyndns.org -c1 | grep PING | awk '{print $3}' mais je prends le 3ème argument, pas le 5ème car il me faut l'ip renvoyée par Dyndns, pas la mienne. Puis j ai copié le fichier setddns.pl dans un fichier CheckDNS.pl que je lance Toutes les heures par crontab, et une fois par mois en forcé. J'ai alors modifié les lignes suivantes: my $ipcache = `./getip`; chomp $ipcache; .... my $ip = <IP>; chomp $ip; my $iptemp = "(".$ip.")"; chomp $iptemp; ... if ($ARGV[0] eq '-f') { $ipcache = 0; &log('ip forced'); } ... if ($iptemp ne $ipcache) { ... Et alors je met $ip comme ip dans DYNDNS si il le faut Voila <IMG SRC="images/smiles/icon_smile.gif">

par **MasterSleepy** » 24 Sep 2003 11:14

et nslookup [host] ce serait pas mieux qu'un ping ????

Lire l'ip sur dyndns

Qui est en ligne ?