ブラウザの JavaScript がオフ（ブロックまたは許可しない）に設定されているため、このページは正常に機能しません。
disklessfun’s Wiki*
[
ホーム
]
一覧
最終更新
バックアップ
ヘルプ
Top
>
add_usb-port_to_dd-wrt
>
複製
?
ms
add_usb-port_to_dd-wrt をテンプレートにして作成
これらのキーワードがハイライトされています：
開始行:
TITLE:バッファローの古い無線LANアダプタ(WLA-G54)にUSBストレージを追加してCGIやsambaが動くDD-WRTにする
RIGHT:初出 2013-3-16
RIGHT:最終更新 2015-3-31
LEFT:
私が[[%%%このページ%%%>internet-ir-aircon]]や[[%%%このページ%%%>remote-sys]]で紹介しているシステムには[[CGI>internet-ir-aircon#web_interface]]が動作するウェブサーバが必要です。従来私は、この為のウェブサーバとして省スペースデスクトップを改造
#br
こんな場合、普通はMini-ITXとかRaspberry Piを検討するところでしょうが、私はもっと面白いものの方がいいので、不要になっていた、古い無線LANブリッジのハードを小改造してストレージを追加し、「[[DD-WRT:http://www.dd-wrt.com/site/index]]＋[[optware:
※WLA-G54の場合、optwareなしのDD-WRTだとCGIやsambaは動きません。
#br
ハードの改造について唯一の資料となったページはこちらです。
[[DD-WRT Forum :: View topic - Old Buffalo WBR/WLA-G54 USB connector pinouts:http://www.dd-wrt.com/phpBB2/viewtopic.php?p=72418&sid=94ed53fde908209374779dd2355278b0]]
Broadcom4702のデータシートは手に入れられなかったので、このページのみを頼りにハード改造作業をおこないました。ただし非常に簡単な作業で済むことは一目瞭然です。
#br
#contents
#br
* ハードの改造 [#a5c1cdb2]
[[&ref(add_usb-port_to_dd-wrt_1_s.jpg);:http://wikiwiki.jp/disklessfun/?plugin=attach&pcmd=open&file=add_usb-port_to_dd-wrt_1_b.jpg&refer=add_usb-port_to_dd-wrt]]
&size(7){クリックすると大きな画像で表示されます};
古いハードなのでケースの大きさに非常に余裕があり、固定のUSBストレージとして、古い4GBのUSBメモリをケース内の基板とケースのガワの間に収納しています。
(固定式)USBメモリのソケットとして100円ショップのUSB延長ケーブルを切断したものを使い、USB・D+をUSB1_Pに、USB・D-をUSB1_Nにつなぎ、USB1_Cを10kΩで3.3Vにプルアップし、5V電源を追加した程度です。外観を綺麗に仕上げたいなら3.3Vの純正ACアダプタを5V
余談ですが、最初にポート1だけ配線したのは失敗でした。はじめからポート2の方も配線すべきでした。というのは今回、ポート2の配線そのものはごく簡単だったのですが、前回作業時に自分で貼った絶縁用の(アセテート)テープを剥がすのにその何倍も苦労しまし
#br
&ref(add_usb-port_to_dd-wrt_2_s.jpg,nolink);
WLA-G54のACアダプタは3.3Vなので、USBの5Vについては別途ACアダプタ(古い携帯用のACアダプタ)を用意しました。
#br
|USB_1P|DATA+|USBの緑の線|
|USB_1N|DATA-|USBの白の線|
|USB_1C|3.3Vにプルアップ|10kΩの抵抗を使用|
|USB_2P|DATA+|USBの緑の線|
|USB_2N|DATA-|USBの白の線|
|USB_2C|3.3Vにプルアップ|10kΩの抵抗を使用|
* 使用ファームウェア [#da4dc71b]
VINTAGE : mini_usb_ftp
ファイル名:dd-wrt.v24-13064_VINT_mini_usb_ftp.bin
* DD-WRTの設定(抜粋) [#le9a7085]
-ネットワーク→USB Support
--Core USB Support:有効
--USB 1.1 Support(OHCI):有効
--USB Storage Support:有効
--ext2 / ext3 File System Support
--Automatic Drive Mount:''無効''
* 起動時スクリプト [#ve4ff8e9]
USBストレージ(メモリ)は固定して使用するので、マウントはここだけでおこなっています。
mount -o noatime /dev/discs/disc0/part1 /opt
mount -o noatime /dev/discs/disc0/part3 /mnt
export PATH=/opt/bin:/opt/sbin:/opt/usr/sbin:/opt/usr/bin:/bin:/usr/bin:/sbin:/usr/sbin
unset LD_LIBRARY_PATH
sysctl -w vm.swappiness=0
swapon /dev/discs/disc0/part2
echo nobody:*:65534:65534:nobody:/var:/bin/false >> /etc/passwd
echo owner:*:1000:1000:nobody:/var:/bin/false >> /etc/passwd
echo owner:x:1000: >> /etc/group
/opt/etc/init.d/S80thttpd start
/opt/etc/init.d/S80samba start
* インストールしたoptware [#l9929ff6]
(optware-install.sh実行後にインストールしたパッケージ)
ipkg-opt install busybox
ipkg-opt install coreutils
ipkg-opt install diffutils
ipkg-opt install findutils
ipkg-opt install thttpd
ipkg-opt install perl-email-send
ipkg-opt install perl-digest-hmac
ipkg-opt install perl-libwww
* thttpd.conf(CGIを有効化) [#a61fc566]
dir=/opt/share/www
port=8080
user=nobody
nochroot
nosymlink
novhost
logfile=/var/log/thttpd.log
pidfile=/var/run/thttpd.pid
cgipat=perl/*
* Perl環境の修正内容(smtp-auth機能の追加) [#de5be316]
Ubuntu 10.04 4 LTSよりコピー
-/opt/lib/perl5/5.8.8/Authen(ディレクトリ丸ごと)
-/opt/lib/perl5/5.8.8/Net/SMTP_auth.pm
-/opt/lib/perl5/5.8.8/Net/Jcode.pm(未使用)
* Firewallスクリプト [#q1ff4621]
これはUSBストレージの追加には全く関係ありません。SMTPのポート変換のみの簡易プロキシ機能の実装です。
/usr/sbin/iptables -t nat --flush
/usr/sbin/iptables -t nat -A PREROUTING --dst $(nvram get lan_ipaddr) -p tcp --dport 25
↑本当は1行↓
-j DNAT --to-destination $(nslookup smtp.hogehoge.ne.jp|tail -1|cut -d" " -f3):587
/usr/sbin/iptables -t nat -A POSTROUTING --dst $(nslookup smtp.hogehoge.ne.jp|tail -1|
↑本当は1行↓
cut -d" " -f3) -j MASQUERADE
ブリッジモードにしているので1行目のflushが必要です。デフォルトのルーターモードなら不要です。
* cronタブエントリ [#u09297d2]
Wake On LANの設定はUSBストレージの追加には全く関係ありません。
48 9 * * 6 root /usr/sbin/wol -i 192.168.1.255 00:10:XX:XX:XX:XX >/dev/null
*/30 * * * * root /opt/check_and_warning_sendmail.pl >/dev/null 2>&1
5,20,35,50 * * * * root /opt/watch-samba.sh >/dev/null 2>&1
(2013-9-1追記)
15 5 * * * root /sbin/reboot >/dev/null
ここ数ヶ月、毎日、自動リブートをおこなってきました。下記のPerlスクリプトを運用すると、メモリーリークが発生しているからか、数日程でスラッシングが起きてしまうからです。何しろメモリが少ないので、ProFTPDも使うときだけ稼働させ、使い終わったらす
(2014-10-23追記)このほどアプリケーション用のwebサーバをWLA-G54から無線LANで繋がった向こう側のネットワーク上にある[[%%%Raspberry Pi%%%>internet-ir-aircon-raspberry-pi]]に移しました。WLA-G54の役割は、ネットワークの向こう側との通信が生きている
* 設定室温に達すると冷房をつけた上で携帯電話にメールを送信するPerlスクリプトのカスタマイズ版 [#zb02e440]
[[%%%こちら%%%>internet-ir-aircon#check_and_warning_sendmail]]の改良版です。変更内容はリトライ処理の追加と英語化です。リトライ処理は、経路を11aから11nに変更したところ数日に一度程度接続不良が起きるようになったので追加しました。英語化は、メモ
''ダウンロード'' &ref(en.check_and_warning_sendmail.pl,nolink);
#!/usr/bin/perl
# このスクリプトはEUC-JPで保存されている必要があります。
# Debian, Ubuntu系の場合の追加インストールが必要なパッケージ
# libnet-smtpauth-perl libjcode-pm-perl libwww-perl
use Net::SMTP_auth;
#use Jcode;
#use Encode;
#use LWP::Simple;
use LWP::Simple qw($ua get);
$ua->timeout(10);
$smtpserver = 'smtp.hoge.ne.jp:587'; # SMTP認証でアクセスするサーバ
$smtpacount = 'fugafuga@hoge.ne.jp'; # SMTP認証用のアカウント
$smtppasswd = 'SECRET'; # SMTP認証用のパスワード
$myrealmailaddress = 'fugafuga@hoge.ne.jp'; # 自分の本当のメールアドレス
$tomailaddress1 = 'foobar@docomo.ne.jp'; # 宛先アドレス
$tomailaddress2 = 'foobar@hoge.ne.jp'; # 宛先アドレス
$bccmailaddress = $smtpacount;
$fromaddress = 'remotecontroleradmin@dummy.com'; # 宛先側で個別の受信設定をおこな
# えば実在しないアドレスも可
$remoteaddress="192.168.1.9"; # PICNICのアドレス
$limittemp = 34; # メールを送信し始める室温(摂氏)
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);
#$nowdate = sprintf("%d年%d月%d日 %d時%d分%d秒", $year + 1900, $mon +1, $mday,
$nowdate = sprintf("%d-%02d-%02d %02d:%02d:%02d", $year + 1900, $mon +1, $mday,
$hour, $min, $sec);
for(my $i=1;$i<=6;$i++){
for(my $j=1;$j<=6;$j++){
$html = get ("http://$remoteaddress/");
if ( $html ne '' ){ last; }
}
if ( $html eq '' ) {
&make_smtp_error_msg();
mailsend();
exit;
}
# 室温
$html =~ />(\d+) Celsius</;
$Celcius=$1;
$port='RB4';
# RB4(冷房ボタン用ポート)の現在値の反対
$opposite_level=&get_opposite_level($port);
if ( $Celcius >= $limittemp ) {
$html = get ("http://$remoteaddress/modify.cgi\?$port=$opposite_level");
if ( $html eq '' ){ next; }
#$Subject="室温が$Celcius度です。冷房をつけました。";
#$Body="$nowdate\n室温は現在$Celcius度です。\nたった今、冷房をつけました。";
$Subject="The room temperature is $Celcius celcius. Just now, I've turned on AC.";
$Body="$nowdate\nThe room temperature is $Celcius celcius,now.\nJust now, ".
"I've turned on AC.";
mailsend();
exit;
}
}
if ( $html eq '' ) {
&make_smtp_error_msg();
mailsend();
exit;
}
sub mailsend {
$smtp = Net::SMTP->new("$smtpserver");
#$smtp->auth('CRAM-MD5', "$smtpacount", "$smtppasswd");
$smtp->auth("$smtpacount", "$smtppasswd");
$smtp->mail("$myrealmailaddress");
$smtp->to("$tomailaddress1","$tomailaddress2");
$smtp->bcc("$bccmailaddress");
#&Jcode::convert($Subject, 'jis', 'euc');
#&Jcode::convert($Body, 'jis', 'euc');
$smtp->data();
$smtp->datasend("From:$fromaddress\n");
$smtp->datasend("To:$tomailaddress1\n");
$smtp->datasend("To:$tomailaddress2\n");
#$smtp->datasend("Subject:".encode('MIME-Header-ISO_2022_JP', $Subject)."\n");
$smtp->datasend("Subject:$Subject.\n");
$smtp->datasend($Body);
$smtp->dataend();
$smtp->quit;
return;
}
sub get_opposite_level {
$word = $_[0];
$htmlw = $html;
$htmlw =~ /$word([^ ]+) ([^ ]+) ([^ ]+).*</;
$ret = $3;
$ret =~ s/High/L/;
$ret =~ s/Low/H/;
return $ret;
}
sub make_smtp_error_msg {
#$Subject="コントローラにアクセスできません。";
#$Body="$nowdate\nコントローラにアクセスできません。\n電源等を確認して下さい。";
$Subject="Cannot acccess the AC controler";
$Body="$nowdate\nCannot acccess the AC controler.\nCheck the power supply, etc.";
}
* samba2 [#k5c85c97]
"一応"、[[Slim Samba2:http://www.dd-wrt.com/wiki/index.php/Slim_samba2]]を使っています。いくら大容量スワップがあっても、所詮USBメモリですから書き込み用途であまり頼りにすることはできません。したがってメモリイーターのsamba3はとても使う気には
#br
繰り返しになりますが"一応"、samba2を使っているんですが、実際には月に何度か小ファイルを書き込む程度で大して使っていません。当初から"とりあえず立ててみよう"程度の意識でした。
#br
ダウンロードしたそのままの[[Slim Samba2:http://www.dd-wrt.com/wiki/index.php/Slim_samba2]]は日本語環境で安定して動作する為のパッチがあたってないので、扱うファイル名によっては簡単に落ちます。使える文字にも制限があります。
#br
しかし使用頻度が頻度だけに、当面セルフコンパイルする気は全くありません。代わりにクーロンに「[[samba2が落ちていたら再起動するスクリプト>#watch-samba]]」を仕込んでいます。
&aname(watch-samba);
* samba2が落ちていたら再起動するスクリプト [#c13f2ca7]
[watch-samba.sh]
#!/bin/sh
PROCESSNUM=`ps|grep smbd|wc -l`
if test $PROCESSNUM -le 1; then
export PATH=/opt/bin:/opt/sbin:/opt/usr/sbin:/opt/usr/bin:/bin:/usr/bin:/sbin:/usr/sbin
unset LD_LIBRARY_PATH
date >> /tmp/samba-restart-time
/opt/etc/init.d/S80samba start
fi
* 長期運用する場合に定期的に必要な作業 [#c07004f1]
(2015-3-31追記)
[[%%%OneCD Linux%%%>onecddebian#h3_content_1_17]]を長期運用すると細かな問題が発生したりしますが、このページのようにUSBメモリを主要なストレージとしたサーバにも、長期運用時に発生しがちな問題があります。
一般向けのUSBメモリのデータ保持期間はあまり長くないからです。現在使用しているUSBメモリも1年余り使用した段階で読み取りエラーを発見しました。そこで、一旦全データの再書き込みをおこないました。今後は念のため半年に一度程、全データバックアップ及
#br
* ご要望、ご意見、質問を下のフォームにどうぞ&br;（でもここより、[[掲示板>board]]や[[書き込みフォーム>form]]のページに書いて頂いた方が気づき易いと思います。） [#i343babf]
#areaedit(nofreeze,noauth,btn:[修正（書き間違った場合にご利用下さい）])
- グレイト！ -- [[foo]] &new{2014-10-09 (木) 08:50:07};
#comment
#areaedit(end)
終了行:
TITLE:バッファローの古い無線LANアダプタ(WLA-G54)にUSBストレージを追加してCGIやsambaが動くDD-WRTにする
RIGHT:初出 2013-3-16
RIGHT:最終更新 2015-3-31
LEFT:
私が[[%%%このページ%%%>internet-ir-aircon]]や[[%%%このページ%%%>remote-sys]]で紹介しているシステムには[[CGI>internet-ir-aircon#web_interface]]が動作するウェブサーバが必要です。従来私は、この為のウェブサーバとして省スペースデスクトップを改造
#br
こんな場合、普通はMini-ITXとかRaspberry Piを検討するところでしょうが、私はもっと面白いものの方がいいので、不要になっていた、古い無線LANブリッジのハードを小改造してストレージを追加し、「[[DD-WRT:http://www.dd-wrt.com/site/index]]＋[[optware:
※WLA-G54の場合、optwareなしのDD-WRTだとCGIやsambaは動きません。
#br
ハードの改造について唯一の資料となったページはこちらです。
[[DD-WRT Forum :: View topic - Old Buffalo WBR/WLA-G54 USB connector pinouts:http://www.dd-wrt.com/phpBB2/viewtopic.php?p=72418&sid=94ed53fde908209374779dd2355278b0]]
Broadcom4702のデータシートは手に入れられなかったので、このページのみを頼りにハード改造作業をおこないました。ただし非常に簡単な作業で済むことは一目瞭然です。
#br
#contents
#br
* ハードの改造 [#a5c1cdb2]
[[&ref(add_usb-port_to_dd-wrt_1_s.jpg);:http://wikiwiki.jp/disklessfun/?plugin=attach&pcmd=open&file=add_usb-port_to_dd-wrt_1_b.jpg&refer=add_usb-port_to_dd-wrt]]
&size(7){クリックすると大きな画像で表示されます};
古いハードなのでケースの大きさに非常に余裕があり、固定のUSBストレージとして、古い4GBのUSBメモリをケース内の基板とケースのガワの間に収納しています。
(固定式)USBメモリのソケットとして100円ショップのUSB延長ケーブルを切断したものを使い、USB・D+をUSB1_Pに、USB・D-をUSB1_Nにつなぎ、USB1_Cを10kΩで3.3Vにプルアップし、5V電源を追加した程度です。外観を綺麗に仕上げたいなら3.3Vの純正ACアダプタを5V
余談ですが、最初にポート1だけ配線したのは失敗でした。はじめからポート2の方も配線すべきでした。というのは今回、ポート2の配線そのものはごく簡単だったのですが、前回作業時に自分で貼った絶縁用の(アセテート)テープを剥がすのにその何倍も苦労しまし
#br
&ref(add_usb-port_to_dd-wrt_2_s.jpg,nolink);
WLA-G54のACアダプタは3.3Vなので、USBの5Vについては別途ACアダプタ(古い携帯用のACアダプタ)を用意しました。
#br
|USB_1P|DATA+|USBの緑の線|
|USB_1N|DATA-|USBの白の線|
|USB_1C|3.3Vにプルアップ|10kΩの抵抗を使用|
|USB_2P|DATA+|USBの緑の線|
|USB_2N|DATA-|USBの白の線|
|USB_2C|3.3Vにプルアップ|10kΩの抵抗を使用|
* 使用ファームウェア [#da4dc71b]
VINTAGE : mini_usb_ftp
ファイル名:dd-wrt.v24-13064_VINT_mini_usb_ftp.bin
* DD-WRTの設定(抜粋) [#le9a7085]
-ネットワーク→USB Support
--Core USB Support:有効
--USB 1.1 Support(OHCI):有効
--USB Storage Support:有効
--ext2 / ext3 File System Support
--Automatic Drive Mount:''無効''
* 起動時スクリプト [#ve4ff8e9]
USBストレージ(メモリ)は固定して使用するので、マウントはここだけでおこなっています。
mount -o noatime /dev/discs/disc0/part1 /opt
mount -o noatime /dev/discs/disc0/part3 /mnt
export PATH=/opt/bin:/opt/sbin:/opt/usr/sbin:/opt/usr/bin:/bin:/usr/bin:/sbin:/usr/sbin
unset LD_LIBRARY_PATH
sysctl -w vm.swappiness=0
swapon /dev/discs/disc0/part2
echo nobody:*:65534:65534:nobody:/var:/bin/false >> /etc/passwd
echo owner:*:1000:1000:nobody:/var:/bin/false >> /etc/passwd
echo owner:x:1000: >> /etc/group
/opt/etc/init.d/S80thttpd start
/opt/etc/init.d/S80samba start
* インストールしたoptware [#l9929ff6]
(optware-install.sh実行後にインストールしたパッケージ)
ipkg-opt install busybox
ipkg-opt install coreutils
ipkg-opt install diffutils
ipkg-opt install findutils
ipkg-opt install thttpd
ipkg-opt install perl-email-send
ipkg-opt install perl-digest-hmac
ipkg-opt install perl-libwww
* thttpd.conf(CGIを有効化) [#a61fc566]
dir=/opt/share/www
port=8080
user=nobody
nochroot
nosymlink
novhost
logfile=/var/log/thttpd.log
pidfile=/var/run/thttpd.pid
cgipat=perl/*
* Perl環境の修正内容(smtp-auth機能の追加) [#de5be316]
Ubuntu 10.04 4 LTSよりコピー
-/opt/lib/perl5/5.8.8/Authen(ディレクトリ丸ごと)
-/opt/lib/perl5/5.8.8/Net/SMTP_auth.pm
-/opt/lib/perl5/5.8.8/Net/Jcode.pm(未使用)
* Firewallスクリプト [#q1ff4621]
これはUSBストレージの追加には全く関係ありません。SMTPのポート変換のみの簡易プロキシ機能の実装です。
/usr/sbin/iptables -t nat --flush
/usr/sbin/iptables -t nat -A PREROUTING --dst $(nvram get lan_ipaddr) -p tcp --dport 25
↑本当は1行↓
-j DNAT --to-destination $(nslookup smtp.hogehoge.ne.jp|tail -1|cut -d" " -f3):587
/usr/sbin/iptables -t nat -A POSTROUTING --dst $(nslookup smtp.hogehoge.ne.jp|tail -1|
↑本当は1行↓
cut -d" " -f3) -j MASQUERADE
ブリッジモードにしているので1行目のflushが必要です。デフォルトのルーターモードなら不要です。
* cronタブエントリ [#u09297d2]
Wake On LANの設定はUSBストレージの追加には全く関係ありません。
48 9 * * 6 root /usr/sbin/wol -i 192.168.1.255 00:10:XX:XX:XX:XX >/dev/null
*/30 * * * * root /opt/check_and_warning_sendmail.pl >/dev/null 2>&1
5,20,35,50 * * * * root /opt/watch-samba.sh >/dev/null 2>&1
(2013-9-1追記)
15 5 * * * root /sbin/reboot >/dev/null
ここ数ヶ月、毎日、自動リブートをおこなってきました。下記のPerlスクリプトを運用すると、メモリーリークが発生しているからか、数日程でスラッシングが起きてしまうからです。何しろメモリが少ないので、ProFTPDも使うときだけ稼働させ、使い終わったらす
(2014-10-23追記)このほどアプリケーション用のwebサーバをWLA-G54から無線LANで繋がった向こう側のネットワーク上にある[[%%%Raspberry Pi%%%>internet-ir-aircon-raspberry-pi]]に移しました。WLA-G54の役割は、ネットワークの向こう側との通信が生きている
* 設定室温に達すると冷房をつけた上で携帯電話にメールを送信するPerlスクリプトのカスタマイズ版 [#zb02e440]
[[%%%こちら%%%>internet-ir-aircon#check_and_warning_sendmail]]の改良版です。変更内容はリトライ処理の追加と英語化です。リトライ処理は、経路を11aから11nに変更したところ数日に一度程度接続不良が起きるようになったので追加しました。英語化は、メモ
''ダウンロード'' &ref(en.check_and_warning_sendmail.pl,nolink);
#!/usr/bin/perl
# このスクリプトはEUC-JPで保存されている必要があります。
# Debian, Ubuntu系の場合の追加インストールが必要なパッケージ
# libnet-smtpauth-perl libjcode-pm-perl libwww-perl
use Net::SMTP_auth;
#use Jcode;
#use Encode;
#use LWP::Simple;
use LWP::Simple qw($ua get);
$ua->timeout(10);
$smtpserver = 'smtp.hoge.ne.jp:587'; # SMTP認証でアクセスするサーバ
$smtpacount = 'fugafuga@hoge.ne.jp'; # SMTP認証用のアカウント
$smtppasswd = 'SECRET'; # SMTP認証用のパスワード
$myrealmailaddress = 'fugafuga@hoge.ne.jp'; # 自分の本当のメールアドレス
$tomailaddress1 = 'foobar@docomo.ne.jp'; # 宛先アドレス
$tomailaddress2 = 'foobar@hoge.ne.jp'; # 宛先アドレス
$bccmailaddress = $smtpacount;
$fromaddress = 'remotecontroleradmin@dummy.com'; # 宛先側で個別の受信設定をおこな
# えば実在しないアドレスも可
$remoteaddress="192.168.1.9"; # PICNICのアドレス
$limittemp = 34; # メールを送信し始める室温(摂氏)
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);
#$nowdate = sprintf("%d年%d月%d日 %d時%d分%d秒", $year + 1900, $mon +1, $mday,
$nowdate = sprintf("%d-%02d-%02d %02d:%02d:%02d", $year + 1900, $mon +1, $mday,
$hour, $min, $sec);
for(my $i=1;$i<=6;$i++){
for(my $j=1;$j<=6;$j++){
$html = get ("http://$remoteaddress/");
if ( $html ne '' ){ last; }
}
if ( $html eq '' ) {
&make_smtp_error_msg();
mailsend();
exit;
}
# 室温
$html =~ />(\d+) Celsius</;
$Celcius=$1;
$port='RB4';
# RB4(冷房ボタン用ポート)の現在値の反対
$opposite_level=&get_opposite_level($port);
if ( $Celcius >= $limittemp ) {
$html = get ("http://$remoteaddress/modify.cgi\?$port=$opposite_level");
if ( $html eq '' ){ next; }
#$Subject="室温が$Celcius度です。冷房をつけました。";
#$Body="$nowdate\n室温は現在$Celcius度です。\nたった今、冷房をつけました。";
$Subject="The room temperature is $Celcius celcius. Just now, I've turned on AC.";
$Body="$nowdate\nThe room temperature is $Celcius celcius,now.\nJust now, ".
"I've turned on AC.";
mailsend();
exit;
}
}
if ( $html eq '' ) {
&make_smtp_error_msg();
mailsend();
exit;
}
sub mailsend {
$smtp = Net::SMTP->new("$smtpserver");
#$smtp->auth('CRAM-MD5', "$smtpacount", "$smtppasswd");
$smtp->auth("$smtpacount", "$smtppasswd");
$smtp->mail("$myrealmailaddress");
$smtp->to("$tomailaddress1","$tomailaddress2");
$smtp->bcc("$bccmailaddress");
#&Jcode::convert($Subject, 'jis', 'euc');
#&Jcode::convert($Body, 'jis', 'euc');
$smtp->data();
$smtp->datasend("From:$fromaddress\n");
$smtp->datasend("To:$tomailaddress1\n");
$smtp->datasend("To:$tomailaddress2\n");
#$smtp->datasend("Subject:".encode('MIME-Header-ISO_2022_JP', $Subject)."\n");
$smtp->datasend("Subject:$Subject.\n");
$smtp->datasend($Body);
$smtp->dataend();
$smtp->quit;
return;
}
sub get_opposite_level {
$word = $_[0];
$htmlw = $html;
$htmlw =~ /$word([^ ]+) ([^ ]+) ([^ ]+).*</;
$ret = $3;
$ret =~ s/High/L/;
$ret =~ s/Low/H/;
return $ret;
}
sub make_smtp_error_msg {
#$Subject="コントローラにアクセスできません。";
#$Body="$nowdate\nコントローラにアクセスできません。\n電源等を確認して下さい。";
$Subject="Cannot acccess the AC controler";
$Body="$nowdate\nCannot acccess the AC controler.\nCheck the power supply, etc.";
}
* samba2 [#k5c85c97]
"一応"、[[Slim Samba2:http://www.dd-wrt.com/wiki/index.php/Slim_samba2]]を使っています。いくら大容量スワップがあっても、所詮USBメモリですから書き込み用途であまり頼りにすることはできません。したがってメモリイーターのsamba3はとても使う気には
#br
繰り返しになりますが"一応"、samba2を使っているんですが、実際には月に何度か小ファイルを書き込む程度で大して使っていません。当初から"とりあえず立ててみよう"程度の意識でした。
#br
ダウンロードしたそのままの[[Slim Samba2:http://www.dd-wrt.com/wiki/index.php/Slim_samba2]]は日本語環境で安定して動作する為のパッチがあたってないので、扱うファイル名によっては簡単に落ちます。使える文字にも制限があります。
#br
しかし使用頻度が頻度だけに、当面セルフコンパイルする気は全くありません。代わりにクーロンに「[[samba2が落ちていたら再起動するスクリプト>#watch-samba]]」を仕込んでいます。
&aname(watch-samba);
* samba2が落ちていたら再起動するスクリプト [#c13f2ca7]
[watch-samba.sh]
#!/bin/sh
PROCESSNUM=`ps|grep smbd|wc -l`
if test $PROCESSNUM -le 1; then
export PATH=/opt/bin:/opt/sbin:/opt/usr/sbin:/opt/usr/bin:/bin:/usr/bin:/sbin:/usr/sbin
unset LD_LIBRARY_PATH
date >> /tmp/samba-restart-time
/opt/etc/init.d/S80samba start
fi
* 長期運用する場合に定期的に必要な作業 [#c07004f1]
(2015-3-31追記)
[[%%%OneCD Linux%%%>onecddebian#h3_content_1_17]]を長期運用すると細かな問題が発生したりしますが、このページのようにUSBメモリを主要なストレージとしたサーバにも、長期運用時に発生しがちな問題があります。
一般向けのUSBメモリのデータ保持期間はあまり長くないからです。現在使用しているUSBメモリも1年余り使用した段階で読み取りエラーを発見しました。そこで、一旦全データの再書き込みをおこないました。今後は念のため半年に一度程、全データバックアップ及
#br
* ご要望、ご意見、質問を下のフォームにどうぞ&br;（でもここより、[[掲示板>board]]や[[書き込みフォーム>form]]のページに書いて頂いた方が気づき易いと思います。） [#i343babf]
#areaedit(nofreeze,noauth,btn:[修正（書き間違った場合にご利用下さい）])
- グレイト！ -- [[foo]] &new{2014-10-09 (木) 08:50:07};
#comment
#areaedit(end)
ページ名:
