Fred_123 Invité
| Sujet: nouveau firmware : perte de DNS résolu ? Ven 6 Mai 05 à 12:11 | |
| salut à tous, et merci pour les super conseils qu'on peut trouver sur le forum je voudrais savoir si le nouveau firmware règle comme promis le problème aléatoire de perte de DNS ? sinon, j'aimerais me créer une commande dos pour relancer le DNS, qui se connecterait automatiquement par telnet sur la livebox (sans avoir à se connecter manuellement) qqun sait ? rappel de la commande manuelle : Telnet 192.168.1.1, User root Mot de Passe par Défaut 1234 dns dnsr stop dnsr start exit exit Fred. |
|
dhenry Invité
| Sujet: Re: nouveau firmware : perte de DNS résolu ? Ven 6 Mai 05 à 13:17 | |
| Salut, Je peux pas t'affirmer à 100% car je ne l'ai encore que peu testé, mais il me semble que le problème a disparu. Depuis le 288 j'ai une machine que j'ai connectée via wifi, je l'ai laissé en DHCP et pour le moment personne ne s'est plaint de problèmes d'accès au net. Hier soir j'ai donc également repassé ma machine perso en DHCP pour tester (vu que j'utilise beaucoup plus le net) et jusqu'à présent je n'ai pas rencontré de problème. Si d'ici demain je n'ai rencontré aucun problème, je pense que ce sera suffisant pour dire que ça marche ) Pour le relancement automatique, j'avais essayé d'écrire un petit programme Perl, mais il ne fonctionne pas bien (quand les DNS sont ok, le stop/start passe, mais s'ils sont morts, le stop/start prend plus de temps (ou un truc comme ça) et ça déraille). Voilà le code, si ça t'intéresse : - Code:
-
#!/usr/bin/perl # # Relance le serveur DNS de la LiveBox via telnet #
# Utilisation du module Expect use strict; use Expect;
# Paramètres Livebox my $user = "root"; my $password = "1234"; my $host = "192.168.1.1";
# Connexion telnet à la LiveBox my $telnet = Expect->spawn( "telnet $host" );
if( $telnet->expect( 5, "login: " ) ) { print $telnet "$user\r"; }
if( $telnet->expect( 5, "assword: " ) ) { print $telnet "$password\r"; }
my $prompt = ']$'; if( !$telnet->expect( 5, $prompt ) ) { # Une erreur s'est produite, fermeture de la session print "\nProblème de login sur $host, ".$telnet->exp_error()."\n"; $telnet->hard_close(); exit(1); } else { # OK print "\nConnexion sur $host acceptée\n"; }
# Exécution des commandes print "Redémarrage du serveur DNS de la LiveBox...\n";
my @commandes = ("dns", "dnsr stop", "dnsr start"); foreach my $commande (@commandes) { chomp( $commande ); print $telnet "$commande\r";
if( !$telnet->expect( 20, $prompt ) ) { # Une erreur s'est produite, fermeture de la session print "\nProblème a la commande $commande sur $host, ".$telnet->exp_error(); $telnet->hard_close(); exit(1); } }
# Fermeture de la session print $telnet "exit\r"; $telnet->hard_close(); print "OK\n";
exit(0); |
|