Journal Plugin Camlgrenouille pour BeWAN CX

J'ai fini par écrire un petit plugin camlgrenouille pour le BeWAN ADSL Ethernet CX configuré en routeur. Il contient en dur le login/pass ainsi que l'adresse par défaut du routeur, libre à vous de les changer ou de lui passer en paramètres (-u, -p, -h, dans cet ordre).

À noter que le script part du principe que le routeur établit la connexion sur le circuit virtuel 0 (par défaut). Merci à Brab (du forum grenouille) et aux lecteurs de linuxfr (cf journal précédent) pour leur aide: ma grenouille peut maintenant coasser avec les autres...

#!/bin/sh





LC_ALL=C;


export LC_ALL;





username="admin";


password="bewansystems";


host="192.168.1.1";


#export LANGUAGE="en";





if [[ $1 == "-d" ]]; then


 echo "name: bewan_cx.sh";


 echo "version: 1.0";


 echo "description_french: plugin pour le bewan ethernet cx";


 echo "description_english: bewan ethernet cx plugin";


 echo "authentication: yes";


 echo "(-u) default user: admin";


 echo "(-p) default password: bewansystems";


 echo "(-h) default gateway: 192.168.1.1"


 exit 0;


fi





if [[ $1 == "-u" ]]; then


 shift 1;


 username=$1;


 shift 1;


fi





if [[ $1 == "-p" ]]; then


 shift 1;


 password=$1;


 shift 1;


fi





if [[ $1 == "-h" ]]; then


 shift 1;


 host=$1;


 shift 1;


fi





if [[ $1 == "" ]]; then


 INTF=`/sbin/ifconfig | grep Link | cut -d ' ' -f 1`; else


 INTF=$1;


fi





for i in $INTF; do


 if [[ `/sbin/ifconfig $i` == "" ]]; then exit 1; else


   IP=`/usr/bin/lynx --source -auth $username:$password http://$host/doc/wan.htm(...) | /bin/fgrep "st_wan_ip[0] =" | /usr/bin/cut -d'"' -f2`;


   INOUT=`/usr/bin/lynx --source -auth $username:$password http://$host/doc/atm.htm(...) | /bin/fgrep "Bytes_Value" | cut -d '<' -f 2` ;


   IN=`echo $INOUT | cut -d '>' -f 3`;


   OUT=`echo $INOUT |cut -d '>' -f 2 | cut -d ' ' -f 1`;





   if [[ $IP != "" ]]; then echo $i $IP $IN $OUT;


   fi;


 fi;


done

--Polaris :P