Bonjour,
J'utilise la mandrake 8.0 (bientot 8.1) avec les drivers de Benoit
(speedtouch-21062001.tar.gz).
Je recherche un script / programme du style adslautoconnect, c'est a
dire qui me connecte au demarrage et qui en cas de deconnexion me
reconnecte.
De plus, 1 fois sur 5 lors de la deconnexion ou du redemarrage mon
linux plante en creant plein de processus (c vrai je n'utilies pas la
derniere version je vais l'utiliser.
Si ca interesse quelqu'un je joint le script que j'utilise pour
installer le driver ainsi que le script d'arret /redemarrage
#############################################################################
#!/usr/bin/perl
# Speedtouch USB Install 2.0
# De B.Laurans d'apres les drivers de B.Papillaut et l'aide de Doudou
# Decompresser tous les fichiers dans /root
# Le fichier install.pl installe le modem ( a ne lancer qu'une fois )
# Le fichier start.sh lance la connection ( a lancer a chaque demarrage )
# Le fichier stop.sh stop la connection ( a lancer avant d'eteindre la machine )
# Ne pas oublier la compil
# make
# make install
# Copier mgmt.o
# `cp mgmt.o /usr/local/bin/mgmt.o`;
$message="Bienvenue dans l'install du Speedtouch USB";
print "$message\n";
print "tapez votre login\n";
$login=<STDIN>;
print "tapez votre password\n";
$password=<STDIN>;
chomp($login);
chomp($password);
print "login : $login password : $password\n";
$module="/etc/modules.conf";
# Rajouter dans /etc/modules.conf
@res=`grep "alias tty-ldisc-13 n_hdlc" $module`;
if ($res[0] eq undef)
{
print "HDLC non present : Install\n";
`echo alias tty-ldisc-13 n_hdlc >>"$module"`;
}
else
{
print "HDLS deja present : Rien a faire\n";
}
# Creer le fichier /etc/ppp/peers/adsl
if (-e "/etc/ppp/peers/adsl")
{
print "le fichier adsl existe : Aucune action\n";
}
else
{
open(ADSL,">/etc/ppp/peers/adsl") || die("Pb de fichier\n");
print "le fichier adsl n existe pas\n";
print "creation du fichier\n";
print ADSL "debug\n";
print ADSL "kdebug 1\n";
print ADSL "noipdefault\n";
print ADSL "defaultroute\n";
print ADSL "pty \"/usr/local/bin/pppoa2 -vpi 8 -vci 35\"\n";
print ADSL "sync\n";
print ADSL "user \"$login\"\n";
print ADSL "novjccomp\n";
print ADSL "noaccomp\n";
print ADSL "nopcomp\n";
print ADSL "nomagic\n";
print ADSL "noccp \n";
print ADSL "asyncmap 0\n";
print ADSL "usepeerdns\n";
print ADSL "holdoff 1\n";
print ADSL "persist\n";
print ADSL "maxfail 0\n";
close(ADSL);
}
# Rajouter le password dans /etc/ppp/chap-secrets
@res=`grep $login /etc/ppp/chap-secrets`;
if ($res[0] eq undef)
{
print "mise a jour du fichier password\n";
open (PASS,">>/etc/ppp/chap-secrets") || die ("PB de fichier chap");
print PASS "$login * $password\n";
close(PASS);
}
else
{
print "Rien a faire sur le fichier password\n";
}
print "Un reboot est maintenant necessaire\n";
##############################################################################
#!/usr/bin/perl
@param=@ARGV;
$fichier_log="/var/log/adsl.log";
$adsl=`ps -aef | grep adsl|grep -v grep| cut -d ' ' -f 7`;
$modem=`ps -aef | grep modem|grep -v grep| cut -d ' ' -f 7`;
open(LOG,">>$fichier_log");
chomp($adsl);
chomp($modem);
if ($param[0] eq "stop")
{
print "stop demande\n" ;
`kill $adsl`;
$heure=localtime();
print LOG "$heure : STOP demande\n";
}
elsif ($param[0] eq "start")
{
print "start demande\n" ;
if ($modem eq undef)
{
$heure=localtime();
print LOG "$heure : modem pas encore lance\n";
print "modem pas encore lance\n";
system "/usr/local/bin/modem_run -f /usr/local/bin/mgmt.o -m";
}
@res=`pppd call adsl`;
print LOG "result pppd:@res\n";
@res=`samba start`;
print "@res\n";
print LOG "Samba : @res\n";
# mise a jour du dynamic dns
@res=`wget -O - --http-user=name --http-passwd=password
'http://dynamic.zoneedit.com/auth/dynamic.html?host=name'`;
print "@res\n";
system "/usr/local/bin/noip";
}
elsif ($param[0] eq "reload")
{
print "reload demande\n";
$heure=localtime();
print LOG "$heure : reload demande\n";
`kill $adsl`;
sleep 6;
@res=`pppd call adsl`;
print "@res\n";
@res=`/usr/local/bin/noip`;
print "@res\n";
@res=`samba start`;
print "@res\n";
@res=`/usr/local/bin/noip`;
print "@res\n";
}
elsif ($param[0] eq "restart")
{
print "restart demande\n";
`kill $adsl`;
sleep 6;
@res=`pppd call adsl`;
print "@res\n";
@res=`/usr/local/bin/noip`;
print "@res\n";
@res=`samba start`;
print "@res\n";
@res=`/usr/local/bin/noip`;
print "@res\n";
}
else { print "usage : $0 start | stop\n" }
#########################################################################################
--
Cordialement,
Benjamin mailto:[EMAIL PROTECTED]
Liste de diffusion modem ALCATEL SpeedTouch USB
Pour se d�sinscrire : mailto:[EMAIL PROTECTED]?subject=unsubscribe
