SOAP::Transport::HTTP がおかしい

朝日薫 — Fri, 24 Feb 2017 01:24:43 GMT

Perl 5.20.3 + SOAP::Lite ver1.20 で XQuery 投げるとなぜか落ちる。調査すると STDIN に対して Bareward エラーが。それでこういう場当たり的なパッチが必要になった。おいおい？

--- C:\Perl64\site\lib\SOAP\Transport\HTTP.pm    2016-12-17 10:45:40.000000000 +0900
+++ D:\Perl64\site\lib\SOAP\Transport\HTTP.pm    2017-01-23 12:42:33.000000000 +0900
@@ -586,6 +586,7 @@
         #my $content = q{};
         if ( !$chunked ) {
             my $buffer;
+            no strict 'subs';
             binmode(STDIN);
             if ( defined $ENV{'MOD_PERL'} ) {
                 while ( read( STDIN, $buffer, $length ) ) {

直接原因はよくわからんがとにかくこうすれば正常動作はした。STDIN が strict subs に引っかかるって通常ではちょっと考えにくいところだが？

textareaでTAB入力

朝日薫 — Mon, 20 Feb 2017 09:31:33 GMT

</code> のフォーカス内でTABキーを押すと普通は次のform部品へフォーカスが移ってしまうが、これをTAB入力に変換する。フォーカス動作はキャンセルしなければならないので keydown イベントを使う。</p> <hr> <pre><code class="language-brush:javascript gutter:true">// textareaでのTABキー入力 $('textarea').on('keydown', function(e){ if (e.keyCode === 9) { e.preventDefault(); var elem = e.target; var val = elem.value; var pos = elem.selectionStart; elem.value = val.substr(0, pos) + '\t' + val.substr(pos, val.length); elem.setSelectionRange(pos + 1, pos + 1); } }); </code></pre> <ul> <li><code>e.keyCode === 9</code> <br> TABキー押し下げを検知する。</li> <li><code>e.preventDefault()</code> <br> ブラウザのデフォルト動作を停止する。つまりフォーカス移動をキャンセルする。</li> <li><code>e.target</code> <br> イベント対象のDOMエレメントを取得する。すなわち <code><textarea/></code> 本体。jQueryの <code>$(this)[0]</code> におなじ。</li> <li><code>elem.value</code> <br> 入力されている <code><textarea/></code> の内容。</li> <li><code>elem.selectionStart</code> <br> キャレットカーソルの位置。次の行でこの位置に<code>\t</code>を挿入して書き戻している。</li> <li><code>elem.setSelectionRange(Start, End, [Direction])</code> <br> キャレットを<code>\t</code>の後ろへ進める。選択範囲は無いので <em>Start</em> と <em>End</em> にはおなじ値を指定する。</li> </ul> <p>なお <em>selectionStart/selectionEnd</em> プロパティは直接書き換えることもできる。またキャレット選択範囲の後方は <em>elem.selectionEnd</em> で得られる。なので選択範囲があるなら丸ごとインデントするといったコードも書けなくはない。選択方向を指示する Direction はプラットフォームによって挙動が若干異なるので<a href="http://www.html5.jp/tag/elements/forms-textFieldSelection.html">こちら</a><sup id="fnref:1"><a href="http://multix.jp/tab-input-textarea/#fn:1" rel="footnote">1</a></sup>も参照のこと。</p> <hr> <div class="footnotes"><ol><li class="footnote" id="fn:1"><p><a href="http://www.html5.jp/tag/elements/forms-textFieldSelection.html">http://www.html5.jp/tag/elements/forms-textFieldSelection.html</a> <a href="http://multix.jp/tab-input-textarea/#fnref:1" title="return to article">↩</a></p></li></ol></div> </article> <article> <h1>Allied Telesis CentreCOM の小技</h1> <p>朝日薫 — Mon, 27 Jul 2015 08:39:00 GMT</p> <p>最近のアラテレは SDNへの注力もあって ATxシリーズへの世代移行が加速しており、昔ながらの CentreCOMシリーズは青息吐息な感があるけれども、かえってかつての高級機が手頃な値段でオークション等に出回るようになった。ここでは CentreCOM系では最後にして現役の AR5xxルータおよびそれと同族の 8xxxスイッチ関係の小技をいくつか取り上げる。<sup id="fnref:1"><a href="http://multix.jp/allied-telesis-centrecom-memorandom/#fn:1" rel="footnote">1</a></sup></p> <ul class="index"></ul> <hr> <h4 id="">コンソールへのアラートを黙らせる</h4> <p>AR系や87xx系でファイアウォールを有効にすると、デフォルトではルールにないパケットを受信する度にマネージャ権限以上でログインしているコンソール（async/telnet/ssh）にアラート通知が流れてしまう。</p> <pre><code class="language-brush:plain">XXX.XXX.XXX.XXX attempting to use non-policy interface Denial of service attack from XXX.XXX.XXX.XXX is finished </code></pre> <p>設定作業中にこれらが次々に流れてゆくと作業の邪魔も甚だしい（電源を切りたくなる）ので、次のコマンドでコンソールへのアラートは止めてしまおう。</p> <pre><code class="language-brush:plain">disable firewall notify=manager </code></pre> <p>UnTagポートにTagパケットが入ってきた時も <code>attempting to use non-policy</code>と怒られるので、VLAN変更をしている最中にも、これをしておくと結構助かる。</p> <p>なお<code>notify=all</code>にするとすべてのアラートが止まるが、ログにも残らなくなる。ファイアウォール設定が充分固まって逆に <code>FIRE ATACK</code> 通知で <code>sh log</code> が埋まるようになったら、全部止めたほうがむしろ都合が良いだろう。</p> <hr> <h3 id="">時系列逆順ログ</h3> <p>コマンドラインヘルプ（?キーのあれ）では表示されないので気づきにくいが <code>show log reverse (sh log rev)</code> でログを時系列の逆順に見ることが出来る。最新のログだけ確認して Quitで抜けるのに便利だ。</p> <pre><code class="language-brush:plain">> sh log rev Date/Time S Mod Type SType Message ------------------------------------------------------------------------------- 27 17:58:21 3 IPG IPFIL DUMP Received invalid DA 8.240.213.66>22.103.89.96 Prot=17 Int=ppp5 27 17:57:57 3 IPG IPFIL FRAG DirBcast Fail 6.102.80.241>22.103.89.103 Prot=6 Int=vlan12 27 17:57:43 3 IPG IPFIL FRAG DirBcast Fail 19.6.240.45>22.103.89.103 Prot=6 Int=vlan12 </code></pre> <p>もちろん moduleと組み合わせて特定カテゴリのログだけ表示するときにも使える。</p> <pre><code class="language-brush:plain">> sh log reverse module=ssh Date/Time S Mod Type SType Message ------------------------------------------------------------------------------- 27 17:51:39 3 SSH SSH RJCT Rejecting SSH connection from 43.29.53.43 incompatible versions 27 17:43:23 3 SSH SSH RJCT Rejecting SSH connection from 45.14.11.37 incompatible versions 27 17:37:53 3 SSH SSH RJCT Rejecting SSH connection from 43.29.53.51 incompatible versions </code></pre> <p>この機能は AR5xxS系や8xxxXL系で使えるが、9424T/SP等では使えない。</p> <hr> <h4 id="securitymode">Security Mode の有効時間を伸ばす</h4> <p>IPSec/PKI/SSH を有効化して SECURITYOFFICERユーザに切り替えると、デフォルトでは1分で再ログインを求められるようになる。いくらなんでもこれは短いと感じた時は、次のコマンドを打ち込む。</p> <pre><code class="language-brush:plain">set user securedelay=3600 </code></pre> <p>設定可能な範囲は 10〜3600秒である。最短の10秒にすると相当の苦行を味わえるが、タイプ速度が上達する効能もある。</p> <hr> <h4 id="">非同期ポートのボーレートを変更する</h4> <p>アラテレ製品では、管理用シリアルコンソールポートを<mark>非同期ポート</mark>と呼称する。初期値は baud=9600なのでこれを変更するには、次のようなコマンドを打ち込む。</p> <pre><code class="language-brush:plain">set asyn=0 speed=115200 # 以下でも同じ（show conf dynの表示はこちら） set asyn=asyn0 speed=115200 </code></pre> <p>打ち込んだ瞬間に設定が反映されるので、現在正に非同期ポートでログインしている場合は、対向端末側も設定を合わせるまで制御不能になることに注意しよう。</p> <p>だがこの設定にかかわらず、機器ブート（起動時診断）メッセージは baud=9600固定である。従って動的にボーレートを変更できる端末ソフトを使っていないと思ったより難儀してしまう。結局できるだけ 9600固定で運用するほうがいざというとき慌てずに済むかもしれない。</p> <p>なお設定内容は <code>show asyn=0</code> で確認できる。</p> <hr> <h4 id="ntp">NTPモジュール</h4> <p>NTP時刻合わせのテンプレを以下に示す。ログ記録に関わるので、機器に IPを付したら真っ先に行う作業だ。</p> <pre><code class="language-brush:plain"># NTPモジュールを活かして時差を指定する enable ntp set ntp utc=+09:00:00 # peerアドレスは一つだけ書ける # DNSモジュールを活かしていても FQDNでは指定できない。 add ntp peer=133.243.238.163 # 強制同期 # "ACTIVATE NTP" コマンドではない（そういうものはない） reset ntp # ステータス表示 show ntp # peerアドレスの変更 # "SET NTP PEER"コマンドが存在しないので "DEL"して "ADD"する # 当然DNSラウンドロビンも出来ないので機器毎にバラけた設定をしたりする del ntp peer=133.243.238.163 add ntp peer=133.243.238.164 </code></pre> <hr> <h4 id="l3ppp">L3スイッチでの PPP接続</h4> <p>L3スイッチでのLAN型PPP接続の例を挙げる。下記は 8948XL、8724SL/8748SLでの場合だ。<sup id="fnref:2"><a href="http://multix.jp/allied-telesis-centrecom-memorandom/#fn:2" rel="footnote">2</a></sup></p> <pre><code class="language-brush:plain"># Port1をアップリンクポートとして ONU接続に使う create vlan="PPPoE-FLET" vid=4 add vlan="4" port=1 # そのポートの中に PPPセッションを張って PPPインタフェースを作る create ppp=4 over=vlan4-any set ppp=4 bap=off iprequest=on username="<ISPアカウント>" password="<パスワード>" set ppp=4 over=vlan4-any lqr=off echo=10 # PPPインタフェースの IPは ISPから貰う enable ip enable ip remote add ip int=ppp4 ip=0.0.0.0 # ・・・ことにしつつ、内側のVLANにそのIPを付けて NETMASKを切る # これがL3スイッチ配下から見たゲートウェイIPになる add ip int=vlan1 ip=<付与されたグローバルIPのひとつ> mask=255.255.255.248 # デフォルトルートは PPPインタフェースに丸投げする add ip rou=0.0.0.0 mask=0.0.0.0 int=ppp4 next=0.0.0.0 </code></pre> <p>上位への接続は L3ルーティングとなる。設定のミソは本来 PPPインタフェースに付くべき IPを、内側の VLANにつけるところだ。</p> <p>言うまでもなかろうが、IPが一つしか付与されない端末型接続の PPPでは、NATが使えなければおよそ意味が無い。L3スイッチ系では通常は NAT接続ができないので（ファイアウォールライセンスの購入が別途必須）、その場合はおとなしく ARシリーズを使おう。AR系と 89xx/87xx系の使い分けは、装備された物理ポートの数とNAT機能の有無で、PPPインタフェースの設定については概ね互換性がある。</p> <hr> <h4 id="">工場出荷時初期化</h4> <p>Security Mode 状態から工場出荷時設定へ一気に戻すには次のようにする。AR550S v2.9.2 で確認した。</p> <pre><code class="language-brush:plain"># 非同期ポート速度を初期値に変更 set asyn=0 speed=9600 # 設定ファイルを読み込まずにコールドスタート restart router config=none Warning: Config file MUST add a user with SECURITY OFFICER privilege. Do you wish to proceed with restart using specified config?(y/n) INFO: Initialising Flash File System. INFO: Router startup complete # 規定値ユーザの manager/friend でログイン login: manager Password: # SECURITY_MODE を切る disable system security_mode Warning: This command will disable security mode and delete all security files. Are you sure you wish to proceed?(y/n) y Info (1034003): Operation successful. # 起動設定を消して、元の起動設定ファイルを rename あるいは delete fileする set conf=none rename boot.cfg boot-old.cfg </code></pre> <p>見れば解るが、デフォルトの managerユーザは Security Mode を切ることができる。起動設定ファイル（規定値では boot.cfg）を削除して再起動しても同じことだが、Security Mode 状態は設定ファイルと関係なく EEPROM内に保存されているため、これを切る方法を知らないと show confも create confも出来ない。</p> <p>ところで起動診断時に以下のメッセージの途中で数秒間止まる。そこで "y" を押すと何が起きるだろう？</p> <pre><code class="language-brush:plain">INFO: Self tests beginning. INFO: RAM test beginning. PASS: RAM test, 65536k bytes found. INFO: Self tests complete. INFO: Downloading router software. Force EPROM download (Y) ? INFO: Initialising Flash File System. INFO: Executing configuration script <flash:boot-1.cfg> INFO: Router startup complete AR550S login: </code></pre> <p>答えは「起動設定ファイルは読み込むが、すべてのEnableコマンドを無視する（組み込みモジュールを有効化しない）」である。このため Security Mode は切れて起動するものの、SET USERは通常通り実行されているために SECURITY OFFICERでログインすることが出来ず、かつ managerユーザが設定ファイルから削除もしくはパスワード変更されていたならば、結局は再ログイン手段が得られずに行き詰まる。</p> <p>ところがここで "y" ではなく "s" を押すとどうなるだろう？<sup id="fnref:3"><a href="http://multix.jp/allied-telesis-centrecom-memorandom/#fn:3" rel="footnote">3</a></sup></p> <pre><code class="language-brush:plain">Force EPROM download (Y) ? INFO: Initial download successful. INFO: Initialising Flash File System. INFO: Router startup complete login: </code></pre> <p>ログインプロンプトに "SET SYS NAME" が反映されていなければ成功である。つまり起動設定ファイルを読み込まないで起動できる。こうなれば自動的に managerユーザが復活するので、それでログインして Security Modeを切り、工場出荷時状態に戻してしまえる。</p> <p>この Undocumentedな挙動は、対応しているいくつかの機種・ファームウェアでのみ可能<sup id="fnref:4"><a href="http://multix.jp/allied-telesis-centrecom-memorandom/#fn:4" rel="footnote">4</a></sup>ですべての機種で可能なわけではない。同じ機種でもファームウェアによっては（Undocumentedなのだから当然だが）そもそも対応していなかったり、GS916M/GS924M に至っては managerユーザは復活するもののパスワードはリセットされない<sup id="fnref:5"><a href="http://multix.jp/allied-telesis-centrecom-memorandom/#fn:5" rel="footnote">5</a></sup>ので、パスワード忘れ事案には対応できない。</p> <hr> <div class="footnotes"><ol><li class="footnote" id="fn:1"><p>CentreCOMは開発担当部署によっていくつかの製品グループがある。AR5xxSルータと89xxXL/83xxXLは同族だが、87xxSLはそれより1世代古くて多少性格が異なり、94xxTSと GS9xxMはいずれも全く異なる出自と設計なので似て非なる挙動を示したりする。これらの見分け方というか個性の違いは、見たとおり型番ルールの類似性や（アンドキュメントな）隠し機能の有無、コンソールエラーメッセージの違いに強く現れる。 <a href="http://multix.jp/allied-telesis-centrecom-memorandom/#fnref:1" title="return to article">↩</a></p></li> <li class="footnote" id="fn:2"><p>8948XLは正式には PPPに対応しておらず Undocumentedなのだが、実際には 8724SL/8748SLと同様の設定と運用ができる。両者の決定的な違いはファイアウォール（NAT機能）追加ライセンスが設定されているか否かだ。だが NAT設定が不要＝LAN型接続であれば、8948XLでも不都合なく設定して運用できる。 <a href="http://multix.jp/allied-telesis-centrecom-memorandom/#fnref:2" title="return to article">↩</a></p></li> <li class="footnote" id="fn:3"><p>恐らく SKIP の頭文字だ。必ずしもすべてのファームウェアで対応している保証はない。別の一部機種では起動メッセージ中で明示的に "S"と表示しているものもあるが、AR5xxS系の場合はノーヒントである。 <a href="http://multix.jp/allied-telesis-centrecom-memorandom/#fnref:3" title="return to article">↩</a></p></li> <li class="footnote" id="fn:4"><p>アラテレ製品の場合、パスワード忘れによる工場出荷時初期化は、有償修理対応が原則である。エンドユーザレベルでこれが出来るのは一部機種の隠し機能に限られる。 <a href="http://multix.jp/allied-telesis-centrecom-memorandom/#fnref:4" title="return to article">↩</a></p></li> <li class="footnote" id="fn:5"><p>GS916M/GS924Mは、パスワードが EEPROMに独立して記録されるため設定ファイルを読み飛ばしても再ログイン可能にはならない。だがこの機種はブートローダー起動中に特定の操作をすると、ブートローダーシェルに入ることができる。そこで EEPROM内容のダンプ＆エディットが不可能でもない。 <a href="http://multix.jp/allied-telesis-centrecom-memorandom/#fnref:5" title="return to article">↩</a></p></li></ol></div> </article> </main></body></html>

てくにかるむ

SOAP::Transport::HTTP がおかしい

textareaでTAB入力