スーの道具箱/気まぐれ日記/2003-03

ブルガリア

拡大

ブルガリアから基板が届きました。送料も入れてもUS$40をきっているので素敵すぎます。
穴のずれも私がドリルで開けるよりずっと正確です(汗)

面取り自由といっても44pcsはやりすぎですか？

沈丁花

実家の花壇には沈丁花の花が咲き、てっきり春らしくなりました。

CVS

一人で設計していても何かと便利なCVS。出張中でも安心...なのか。
でも一人で衝突したことが何度もあるのは内緒です。
http://www.cvsnt.org/ に行くと、また2/26に更新しているみたい。
Nothing too revolutionary.だって...
結構頻繁にバグフィックスがでるので、1.11.1.3系がこれで安定すれば良いなぁ。

自動バックアップ

拡大

今日は、バックアップの設定の見直し。
毎朝４時に設定してたのを、GMTで保存しているログ関係だけ朝９時に変更。

１枚実装あがり。

無線LAN

自宅はWBR-B11を使ってるんですけど、これのWBR-G54相当へのバージョンアップっているのをやってるんですね。
将来の為にはやっといた方がいいのかな。
でも交換中はどうすれば良いんだろう...出張前に出すか...あっそれじゃ外からサーバにアクセスできないじゃん。

日記スクリプト

最近、日記用のスクリプトを探していたんですけど、こういうのってなかなか自分好みのものって見つからないものですよね。

ない物は自分で作るって結論がでるまで１ヶ月以上かかってしまった。自堕落中。

ASP

ASPが出力するHTMLを取得する方法がわからず、URLから取得する方法を検討中です。

• ＩＥコンポーネント
  • かな〜り重いです。しかもHTMLの中身が加工されているような...
• BASP21のソケット通信
  • 本命だと思っているのですが、BASP21をインストールするとセキュリティの確保が面倒なので...
• その他
  • Microsoft.XMLHTTPで強引にとってこれるみたいです。（厳密にはXMLになるのかな）
  • 自動でUnicodeに変換されるので、FSOでUnicodeファイルに保存すると簡単に変換できるみたい。
  • 関数にするとこんな感じです。エラー処理は手抜き＜ぉぃ

' URLからHTMLテキストを取得
Function GetHtml(ByVal strURL)
    Dim objXmlHttp, objFSO, objTextFile
    Dim strHtml, strTmpFileName

    Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
    Set objXmlHttp = Server.CreateObject("Microsoft.XMLHTTP")
    strTmpFileName = objFSO.GetSpecialFolder(2) & "\" & objFSO.GetTempName
    '' HTML取得(XMLとして)
    strHtml = ""
    On Error Resume Next
        objXmlHttp.Open "GET", strURL, False
        objXmlHttp.Send
        If Err.Number = 0 Then strHtml = objXmlHttp.responseBody
    On Error GoTo 0
    If Len(strHtml) > 0 Then
        '' UNICODEとしてファイル格納
        On Error Resume Next
            Set objTextFile = objFSO.CreateTextFile(strTmpFileName, True, True)
            objTextFile.Write strHtml
            objTextFile.Close
        On Error GoTo 0
        '' ShiftJISとしてファイル読込
        On Error Resume Next
            Set objTextFile = objFSO.OpenTextFile(strTmpFileName, 1, False, 0)
            If Err.Number = 0 Then strHtml = Mid(objTextFile.ReadAll(), 3)
            objTextFile.Close
            objFSO.DeleteFile strTmpFileName
        On Error GoTo 0
        Set objTextFile = Nothing
    End If
    Set objFSO = Nothing
    Set objXmlHttp = Nothing
    '' 取得したHTMLをセット
    GetHtml = strHtml
End Function

<code>タグの存在に今日気づきました。フォントを決めうちより良いかも。

蛍光灯

拡大

ChaN氏によるとリング式照明は写真撮影に良いらしい。
照明から安定器を取るためにリサイクルショップへ。1000円までまけてもらいました。
蛍光灯も付いてるのでお徳かも。

訪問者

部屋をノックする音がしたので扉を開けると選挙関係の人が。
紹介されている人を１件１件まわってるんだって。誰が...？
きっと熱狂的支持者が息子の卒業名簿を借りて区内の人を登録しまくっているのかな。それ以外でここの住所流れる可能性低いしね。
その旨を話して帰ってもらいました。名簿から削除してくれると良いな。

eclipse

AVRマイコンの開発にavr-gccを使っています。
エディタにWZ-EDITORを使ってるんですが、統合開発環境(IDE)にあこがれる今日この頃です。
AVR Editを試してみても、日本語入力があまりうまく行かずちょっとガッカリ。
で、突然候補に上がったのがeclipse。
Javaの開発環境のイメージがありますがCDTプラグインを入れればＣの開発も幸せになりそうです。
結構さくさく（JBuilder比 ）動きます。
何よりCVS対応なのが素敵です。ああ、何で早く気付かなかったんだろう...

カエル

カエルが好きです。
で、カエルアイコンを作成しています。ドット絵を書くのはＭＳＸ以来かなぁ。

#ref(): File not found: "su-u.png" at page "気まぐれ日記"

名前はスー君です。よろしくね(笑)

オーバフロー

最近やることがオーバフロー気味です。
やりたい事もオーバフロー気味です(笑)
風邪のせいか、夜の作業効率もよろしくありません。さて困った。

CVSNTのbug-fixがまた出てる。3月3日に更新したばかりなのに...

持っていくもの

来月から１ヶ月以上出張です。
出張先に半田ごてを持っていくのもなんなので、今月はハードを作って来月はソフトを作るのがベストかなぁ。

ArGoSoft Mail Server

素敵なArGoSoft Mail ServerのMailBagですが、Forward-Addressに入れたメールアドレスがMailBagに適応されないのは仕様だと思ってたのですが、最新のバージョンは適用されるみたいです。
受信メールを携帯に転送している人はもっと幸せに。
はじかれないＩＰを持っていれば無用って気もしますけど、DOCOMOはプロバイダによって到達時間が違う説もあるのでそれなりに使えるかも。

3月7日に書いたURLからHTMLテキストを取得ASPですが、ユーザプロファイルのないユーザ（IUSER_* は当然）の GetSpecialFolder(2) は、%SystemRoot%\Temp です。
%SystemRoot%\Temp はセキュリティ上ファイルは作れても削除されないので、作業ファイルが残ります。
さすがにそれでは困るので、strTmpFileName は適当に変更してください。

お仕事

今日は、休日出勤です。

AVR Freaksを見てると、easyToWeb-AVRという物が出てる。
なるほど、ATmega128+CS8900なのか。
IPIのNET/AT128とどっちが良いだろう...
こっちは、ATmega128+RTL8019AS。値段はNET/AT128の方が少しだけ安いかも。
使いやすいCS8900も魅力だけど、RTL8019ASに特化されたNut/Osもちょっと気になります。
avr-gccもいつのまにか3.3になってた。

お仕事２

今日は、休日出勤です。

よくよく考えたら、WebのメンテもCVSでできるんですよね。
Webページ上で平文のパスワード認証かけてファイル転送するよりSSHが使えるCVSの方がはるかに安全かも。
外部からのアクセスはSSH使わなくてもVPNのトンネルを暗号化してるから、ある程度は大丈夫なのかなぁ。
WebDAV+クライアントがWindows限定で、統合Windows認証をかけるのはどうだろう。プロクシは？統合Windows認証が抜けるプロクシ限定...ってあるのか。

これ、日記なの？

megaAVR

海外のページを見ていると、流行はmegaAVR+gccなのかなぁ。
AT90S2313+gccは？
私はATmega16ならH8/3664を選びそう...安いしね。
私の選び方はこんな感じ　tinyAVR => AVR(AT90) => H8/300H => SH2
（tinyAVR以外gccが動きますね）

秋月電子通商のAKI-H8/3069F(3068F)フラッシュマイコンLANボードが思いのほか安いことに気付きました。
軽快で多機能なH8/OSを入れれば（既に入っているの？）、いろいろ楽しめそう。欲を言うと、もう少しボードサイズが小さと良いかもね。
15日に色々書いておきながら、気持ちが横恋慕中です。

イラストロジック

なぜかイラストロジックを解くExcelマクロを作成中です。
頭の中で考えている方法をプログラムにするのは楽しいですね。
私の中には大きく５種類の処理があるようです。３種類移植したところで目的のパズルをクリアできたのでここまで。
そういえば、以前自分で作ったオセロプログラムに負けたことも...

Windows コンポーネントの未チェックのバッファにより Web サーバーが侵害される (MS03-007)
IIS関係なので急いで入れないと危険です。
回避策もあるので、人柱がふえるまで待ってみよう。

圧縮プロクシ

出張中用に自宅に圧縮プロクシを立ち上げようか検討中です。
ググってみるとRabbIT web proxyがお手軽そう。
早速インストール。コピーするだけだけど...
設定が悪いのかJ2SEのバージョンがあわないのか、結構な頻度で表示がおかしくなります。んんん...

昨日のHot-fixですが、少し修正されてます。

モチベーション

モチベーションがかな〜り落ちてます。
やりたいことはたくさんあるはずなのに、アイドルタスクのプライオリティが上がっている感じです(汗)

CVSNTがちょこちょこバージョンアップしているようですね。

Windows スクリプト エンジンの問題により、コードが実行される (814078) (MS03-008)
こっちは緊急です。
ISA Server DNS アタック検出フィルタの問題により、サービス拒否が起こる (331065) (MS03-009)
私は使ってないので大丈夫かな。
修正も入れたら３日連続かも。対応が早いのは良い事です。

春分の日

今日は、休日出勤です。
暦では、春分の日ですね。日付の色が変わっていないのはWeekday関数で判断にしているためです。単なる手抜き＜ぉぃ

そろそろ日記以外のコンテンツをまとめよう。トップページが存在しない時点で何かおかしいよね。
出張中に書くのはどうだろう。

休日判断

昨日の休日の判断方法を考え中です。
とりあえず、休日ファイルを作ってそれを検索する方法でいこうかと。＜手抜き
計算で求めることもできますが、法改正する度にメンテナンスするのも...＜言い訳
休日ファイルをメンテナンスするのとどっちが簡単だろう...

関数にするとこんな感じです。エラー処理は手抜き＜ぉぃ

' 休日の判定（0:平日,1:土曜,2:休日）
Function GetHoliday(ByVal dtmDate)
    Dim objFSO, objTextFile
    Dim strHolidays, strDate
    Dim lngHoliday

    lngHoliday = 0
    strHolidays = ""
    strDate = Right("000" & Year(dtmDate), 4) _
            & Right("0" & Month(dtmDate), 2) _
            & Right("0" & Day(dtmDate), 2)
    '' ファイル読込
    Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
    On Error Resume Next
        Set objTextFile = objFSO.OpenTextFile(Server.MapPath("holiday.txt"), 1, False, 0)
        If Err.Number = 0 Then strHolidays = objTextFile.ReadAll()
        objTextFile.Close
    On Error GoTo 0
    Set objTextFile = Nothing
    Set objFSO = Nothing
    If InStr(strHolidays, strDate) > 0 Then
        lngHoliday = 2
    Else
        Select Case Weekday(dtmDate)
            Case 1: lngHoliday = 2
            Case 7: lngHoliday = 1
        End Select
    End If
    GetHoliday = lngHoliday
End Function

と、ここまで作った時点で、寝てしまいました。

全品５割引

３日連続出勤しています(涙)

博多ヨドバシの飲食街の割引券が送ってきていたので昼食はそこで。
５割引だと思っていたら、５％割引でした。某氏も勘違いしていたもよう...ってよく考えればそんなわけないじゃん。

日記に休日の処理を追加しました。

へべれけ

呑んで帰ってきたら、日付が変わってました(汗)
月曜＋給料日前で、お店には閑古鳥が...

CVSNTが、2.0.0rc1になってます。
1.11.1.3から飛びすぎて怖いので、ちょっとだけ保留。
あとで詳細をよく読んでから考えよう。

通信障害

プロバイダの障害？のため、昼の３時付近から約２時間程度サーバへのアクセスができなくなっていました。
Webサーバは良し（あまり良くないけど）としても、メールサーバ停止はかな〜り痛いです。
出張中にサーバがコケて復旧しない可能性を考えると、セカンダリメールサーバは必須なのかなぁ。

とりあえず、受けたメールをそのまま別のメールアドレスに転送するサーバをセカンダリに設定してみよう。
SPAMのフィルタリングができないのは辛いけど、必要なメールがロストするよりずっと良いかもね。

....ああ、気付いたら寝てました...だめじゃん。

フォント

文章やプログラムを書いていると、半角２文字の横幅と全角１文字の横幅が合わないと不便なことが多いです。
フォントサイズを３の倍数にするとピッタリ合いますが、私には９ポイントでは小さく１２ポイントでは大きくとどっちつかずです。
そこで愛用（溺愛？）しているのがjsfont。単に標準のＭＳフォントの行間を増やしたフォントですが、これを９ポイントで使うと意外にしっくりきます。
（ドキュメントを見ると、本来の使い方とは違いそうですけど）

いしかわさんの日記より、マイコンBASICマガジンの休刊を知りました。
何度も投稿したことのある雑誌なだけに、感慨深いものがあります。

CVSNTが、2.0.0rc2になってます。
まだ詳細を見てません。

怠慢な日々 *

少しずつでも前に進まないといけないのは分かりつつ、怠慢な日々を過ごしています。

昨日のフォントの横幅の話ですが、詳細が知りたいと言う人がいたので補足します。
フォントサイズ(pt)と、表示サイズ(dot)には次の関係があります。

• 表示サイズ ＝ フォントサイズ × 画面のDPI値 ÷ 72 小さいフォント(標準)の場合は96dpiなので
  
• 表示サイズ ＝ フォントサイズ × 96 ÷ 72 ＝ フォントサイズ × 4 ÷ 3 になります。
  フォントサイズが３の倍数の時は表示サイズが必ず偶数になるので、半角２文字のサイズと同じになります。
  大きいフォントの場合は120dpiなので...
  

CVSNTが、2.0.0rc3になってます。
まだ詳細を見てません。

RPC エンドポイント マッパーの問題により、サービス拒否の攻撃が実行される (331953) (MS03-010)
外に開いてる人はお早めに。内でもね。

２歩下がる

納期が迫っている時に限って、既に書き終わっているソースを書き換えたくなる時があります。
今日がそんな気分で、朝からずっと書きなおしてました。ああ、またブランチが増える(笑)
もちろんデバッグ前のコードですよ。デバッグ済みコードにまで手を加える余裕はないです。
前には進んでないけど、ああ満足。

菜の花

拡大

いい天気です。日のあたる場所でお昼寝すると気持ち良さそう...でも仕事(涙)
お散歩してたら、菜の花が満開でした。

花を見ていると、フランセの花時計が聴きたくなります。どこにしまったかなぁ。
落ち着いた曲も良いんだけどね。

桜

拡大

花曇の日、秋月まで桜を見に行ってきました。
今がちょうど八分咲きぐらいです。来週は一段と綺麗だろうなぁ。

髪を切ってサッパリ。ああ、次はいつ切れるだろうか...

夜資料を整理していたら、気付いたら３時過ぎでした...明日始発の飛行機なのに。

東京

今日は東京日帰り出張です。猛烈に眠いです＜自業自得
帰りに秋月に寄りたかったのに、仕事が終わったのが６半時過ぎ...だめじゃん。

東京に行くと目が痒くてくしゃみと鼻水が止まらないのは、やっぱり花粉症の気があるのかな。