URL: https://linuxfr.org/users/polaris/journaux/plugin-camlgrenouille-pour-bewan-cx
Title: Plugin Camlgrenouille pour BeWAN CX
Authors: Polaris
Date: 2003年12月12日T06:58:04+01:00
Tags: 
Score: 0
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
 £spaces£ £/spaces£echo "name: bewan_cx.sh";
 £spaces£ £/spaces£echo "version: 1.0";
 £spaces£ £/spaces£echo "description_french: plugin pour le bewan ethernet cx";
 £spaces£ £/spaces£echo "description_english: bewan ethernet cx plugin";
 £spaces£ £/spaces£echo "authentication: yes";
 £spaces£ £/spaces£echo "(-u) default user: admin";
 £spaces£ £/spaces£echo "(-p) default password: bewansystems";
 £spaces£ £/spaces£echo "(-h) default gateway: 192.168.1.1"
 £spaces£ £/spaces£exit 0;
 fi
 
 if [[ 1ドル == "-u" ]]; then
 £spaces£ £/spaces£shift 1;
 £spaces£ £/spaces£username=1ドル;
 £spaces£ £/spaces£shift 1;
 fi
 
 if [[ 1ドル == "-p" ]]; then
 £spaces£ £/spaces£shift 1;
 £spaces£ £/spaces£password=1ドル;
 £spaces£ £/spaces£shift 1;
 fi
 
 if [[ 1ドル == "-h" ]]; then
 £spaces£ £/spaces£shift 1;
 £spaces£ £/spaces£host=1ドル;
 £spaces£ £/spaces£shift 1;
 fi
 
 if [[ 1ドル == "" ]]; then
 £spaces£ £/spaces£INTF=`/sbin/ifconfig | grep Link | cut -d ' ' -f 1`; else
 £spaces£ £/spaces£INTF=1ドル;
 fi
 
 for i in $INTF; do
 £spaces£ £/spaces£if [[ `/sbin/ifconfig $i` == "" ]]; then exit 1; else
 £spaces£ £/spaces£IP=`/usr/bin/lynx --source -auth $username:$password [http://$host/doc/wan.htm(...)](http://$host/doc/wan.htm) | /bin/fgrep "st_wan_ip[0] =" | /usr/bin/cut -d'"' -f2`;
 £spaces£ £/spaces£INOUT=`/usr/bin/lynx --source -auth $username:$password [http://$host/doc/atm.htm(...)](http://$host/doc/atm.htm) | /bin/fgrep "Bytes_Value" | cut -d '<' -f 2` ;
 £spaces£ £/spaces£IN=`echo $INOUT | cut -d '>' -f 3`;
 £spaces£ £/spaces£OUT=`echo $INOUT |cut -d '>' -f 2 | cut -d ' ' -f 1`;
 
 £spaces£ £/spaces£if [[ $IP != "" ]]; then echo $i $IP $IN $OUT;
 £spaces£ £/spaces£fi;
 £spaces£ £/spaces£fi;
 done
--Polaris :P
</div><div class="naked_ctrl">
<form action="/index.cgi/contrast" method="get" name="gate">
<p><a href="http://altstyle.alfasado.net">AltStyle</a> によって変換されたページ <a href="httpS://linuxfr.org/users/polaris/journaux/plugin-camlgrenouille-pour-bewan-cx.md">(-&gt;オリジナル)</a>
/ <label>アドレス: <input type="text" name="naked_post_url" value="httpS://linuxfr.org/users/polaris/journaux/plugin-camlgrenouille-pour-bewan-cx.md" size="22" /></label> <label>モード: <select name="naked_post_mode">
<option value="default">デフォルト</option>
<option value="speech">音声ブラウザ</option>
<option value="ruby">ルビ付き</option>
<option value="contrast" selected="selected">配色反転</option>
<option value="larger-text">文字拡大</option>
<option value="mobile">モバイル</option>
</select>
<input type="submit" value="表示" />
</p>
</form>
</div>