先月発生したハードウェアの故障によるサーバーダウンですが、本日にて復旧作業が終了しましたことをお知らせ致します。
それに伴い、当サーバーを利用されておりますユーザーの皆様のwebサービスの復旧を随時行っていきたいと思っております。

ハードウェアの故障原因に関しては、電源系統に生じた異常により内部で絶縁破壊が起こり、それによって各基板が壊れたものと思われます。復旧方法として、サーバーの中身を総入れ替えすることを選択しました。
今後の対策としては、新たにバックアップ用サーバーを増設し、メインのハードエラーによる被害を抑えるようにしました。

また、データの復旧作業時の手順ミスによるデータ損失対策として、作業フローを確立し、人為的ミスによるリスクを減らすようにして行きます。

ユーザーの皆様には大変ご迷惑をお掛けしました。

年の瀬も近づき、いろいろと慌しい今日この頃ですが、と書き始めようとしたのですが、実は最近は全く忙しくありません。昨年から続く不況も少なからず関係しているのでしょうが、それとは別に、今まで面倒くさかったいろいろな事務処理が、webサービスやPCソフトのおかげで次々に片付いてしまっている。かといって、年末の掃除をしようかと思えば、既に紙ベースの業務はしていないので、部屋の掃除もすることがない。

そんなわけで楽勝気分に浸りながら、やり残した業務でもしようかと思ったらファイルが見つからない・・・
増設を重ねたHDDに、加速度的に増えていくファイルの数、そして計画性も無く作っているバックアップファイル。気が付けば元データとバックアップデータが逆転していたりして、とにかくファイルが見つからない・・・
これからの時代、年末は部屋の掃除ではなくHDDの掃除になるのかもしれないですね。

そんなわけで、今回のお題はファイル管理。
私なりに重要な項目を考えてみた結果、以下のようなポイントがあげられました。

1.それぞれのフォルダをカテゴライズして、重要度が分かりやすいようにする。
2.HDDの体系図を作り、視覚的に分かりやすくする。
3.バックアップフォルダは　bk_　から始まる文字列にし、バックアップだと分かるようにする。
4.全てのタスクを自動化して、繁忙期に備える
5.ファイルアクセスをしやすくして、作業効率を高める。
以上の5点を解決する必要がありました。まぁ最後の5番はおまけみたいなもんですが・・・
では、その5点の解決をこれからしていきます。

問題点1,2
こちらはEXCELのオートシェイプ機能を使って図を描きました。目的が、管理者にとって視覚的に分かりやすくする事だけだったので、特に難しい点はありませんでした。

問題点3
これに関しては単に対象のフォルダの名前を変えるだけなので特筆する事はありません。

問題点4
ここが、今回の一番のポイントでした。
いろいろ探した結果、最近のwindowsにはrobocopyというコマンドが使えるようになり、これにオプションの/MIRを付ける事で、簡単にフォルダの同期が出来ます。

例えば、Dドライブのtest1フォルダのバックアップをtest2というフォルダに取りたいときは、コマンドプロンプトを開いて、
robocopy D:\test1 D:\test2 /MIR
と打ち込むだけで簡単にtest2フォルダへ差分バックアップが出来ます。linuxのrsyncのような便利なコマンドです。後はテキストエディタを開いて、必要な分だけこのコマンドを記入して、.batの形式で保存すればバッチファイルの出来上がりです。とりあえず、これでワンクリックでバックアップが出来るようにはなりました。
最後に、作ったバッチファイルをwindowsのタスクスケジューラに登録して定期的に実行させれば、自動定期バックアップの完成です。

問題点5
最近はHDDの中のフォルダの数が多くなってきて、どこに何があるのか覚える事は不可能になってしまいました。そこで各フォルダへ簡単にアクセスできるようなランチャを探していたのですが、丁度、windows7のaeroと親和性の高いmac風のランチャが見つかりました。
名前はstandalonestack2
タスクバーの中に入れる事ができ、クリックするとよく使うフォルダがポップアップで出てきます。

使い方としては、ここへアクセスして、ダウンロード。
ダウンロードしたファイルを展開すると、StandaloneStack2という名前のファイルがあるので実行。
実行すると、設定画面になるので、左側のMy stacksの中のNew Stackをクリック。

設定項目
Stack name　適当な名前
Path　フォルダへのパス。（ここで選択したフォルダの中の全てのファイルを表示します。）
Open As　表示の出し方
Direction　表示する方向（今回はタスクバーの中に入れるのでUpになります。）
sort by　ファイルの表示する順番。

以上を設定したらCreate Stackをクリック。次にCreate shortcut on desktopをクリックすると、デスクトップにアイコンが出来るので、それをタスクバーに入れて完成です。

これで、来年は年末のフォルダ整理が無くなるはず？？？

巷にWindows7が出始めて一週間とちょっと。BIOSのアップデートも失敗した事だし、これを機に作業PCをまるまるバージョンアップしました。

購入品リスト

1. Core i5 750 BOX
2. サンマックス DDR3 2GB*2
3. ASUS P7P55D LE
4. INTEL X25-M Mainstream SATA SSD SSDSA2MH080G2R5
5. Windows7　Pro　64bit

しめて85000円相当

流用品リスト

1. PCケース
2. 電源　サイズの500W
3. NVIDIA GeForce 9600 GT
4. HDDいくつか

インストール時間:　約1時間

結論：

目からうろこでした。あらゆる動作が軽快で、なおかつXPより操作性が良くなってそうなイメージ。これから徐々に慣れていこうと思います。

ついでにエクスペリエンスの実行結果。私には身に余るスコアでした。

どうもサーバーの調子がおかしい。突然フリーズして動かなくなったり、CPUが100%になったまま戻ってこない。
原因を探していくとどうやらsmbがCPUを占有して放さなくなっている。とりあえずググって調べてみたら、カーネルのバージョンが悪いみたい。

OpenSUSEのデフォルトカーネル (2.6.27-7.x)には不具合があって、inotifyを使うとフリーズしてしまうらしいです。試しにCPU100%になった時間のsambaのログを見てみたら、ビンゴ。

[2009/08/27 13:00:17,  1] smbd/notify_inotify.c:watch_destructor(347)
inotify_rm_watch returned Invalid argument

inotifyが何かやらかしているみたいです。

とりあえずyastでアップデートをかけてみたらkernel-defaultのバージョンを2.6.31にアップデートしてくれたので問題クリア（2009/9/1現在）。ちなみに私の場合は64bit環境なのでkernel-defaultでしたが、32bit環境の方はkernel-paeをアップデートすればOKらしいです。

助かりました。しかし英語のサイトに行って調べたり出来る人は凄いですね。私にはそんな芸当が出来ないので日本語の解説ページが出てくれるまで問題に気付く事が出来ません(涙）。英語アレルギー治さないと・・・

あと、他にも、sambaのログアウト時間を設定することによりCPU負荷が下がってパフォーマンスが上がりました。

sambaのデフォルトの設定では自動でユーザーを切断しないので、smb.confの設定で[global]に　dead time =  2 　などと追加するとOKです。
この数字は自動的に接続を切るまでの分数です。なお接続が切られた後も、何らかの操作をすると自動的に再接続するのでユーザビリティには問題ありません。

やっとのことで、かねてから考えていたサーバーのバージョンアップが完了しました。

ハードウェア変更点

M4N78PRO
Phenom II X2 550 Black Edition BOX
DDR2  800MHz 4GB
WinFast  PX6600

ソフトウェア変更点
openSUSE 11.1 x86-64
その他ソフトウェアはリポジトリに準じたバージョン

バージョンアップの一番の理由は、64bitマシンにしてメモリをわんさか使いたかった。
この一言につきます。
後は副産物として、日本語環境が改善され、異なる環境下でも文字化けが起こりにくくなってました。
おかげで今まで分けて使っていたファイル鯖を統合させる事も出来ました。
しかもスペックが上がったのでvncでリモートデスクトップをしてもサクサク動くところがたまらないです。

やっぱり新しいモノはいいですね。ちなみにギガビットHUBも新しく導入したのでファイル鯖へのアクセスがローカルHDDに比べて遜色ないところも嬉しい一因。

それにしてもsambaがあんなにCPU負荷が高いものだったとは、ちょっとビックリです。

たまに、excel vbaでマクロを作ったりしているのですが、私は個人的な好みで、MenuBars(xlWorksheet).Menus.Addコマンドを使ってマクロの起動をメニューから選択する形を多用します。
今回はメニューバーの使用方法で私が気を付けていることを備忘録のつもりで書き留めておきます。

メニューバーを使用するときの注意項目

• メニュー全体
• メニューのタイトル
• ブックを閉じる際のメニューの挙動
• 名前を付けて保存をする際のメニューの挙動
• シートをチェンジする際のメニューの挙動
• 自ブックがアクティブで無いときのマクロの挙動

メニュー全体

まず、メニューに関する記述は全てThisWorkbookに書き込み、変数はOption Explicitを使用して宣言しています。

ThisWorkbookモジュールに書き込む理由は、普通にExcelファイルを扱う時と変わらない感覚で操作出来るようにするため、Ecxelの基本動作にマクロを連動させる必要があり、そのプログラムを記入しやすいからです。

Option Explicitで変数を宣言するのは、異なるプロシージャ間で変数の値を使い回すことが出来るためなのと、Excelの基本動作にマクロを連動させているため致命的なエラーを起こさないようにルールを厳しく適用する目的です、

Option Explicit
Dim add_menu
Dim menu_1 As Object
Dim intRet As Integer
Dim strMsg1 As String
Dim fname As String

メニューのタイトル

メニューのタイトルですが、作業の都合上、複数のワークブックを取り扱うため、同じタイトルのメニューが、ブックを開いた数だけ メニューバーに並ぶとややこしくなるので、ブックの名前をメニューのタイトルにしてます。

ブックを閉じる際のメニューの挙動

ブックを閉じる際ですが、前述した複数のワークブックを取り扱うため、ブックを閉じた際にその閉じたブックのメニューをメニューバーから消す必要があります。この動作は基本的にWorkbook_BeforeCloseを使用します。その際に役に立つのが前述したOption Explicitによる変数宣言です。Workbook_Openでセットした値がそのまま利用できます。

ただ、それだけだとまだ問題が残ります。その問題点はファイルの操作を行った後に閉じようとすると出てくる「XXXへの変更を保存しますか？」というメッセージボックス。
Workbook_BeforeCloseの処理は、このメッセージが出てくるまでに終了してしまいますので、メッセージをキャンセルした場合、メニューバーから作成メニューが消えた状態になり、いろんな動作にエラーメッセージが出てしまうようになります。

Private Sub Workbook_BeforeClose(Cancel As Boolean)

If ActiveWorkbook.Saved = False Then
strMsg1 = “への変更を保存しますか？”
intRet = MsgBox(ActiveWorkbook.Name & strMsg1, vbYesNoCancel + vbInformation, “MsgBox”)
If intRet = vbYes Then
ActiveWorkbook.Save
menu_1.Delete
ElseIf intRet = vbNo Then
ActiveWorkbook.Saved = True
menu_1.Delete
ElseIf intRet = vbCancel Then
Cancel = True
Else
Cancel = True
End If
Else
menu_1.Delete
End If

End Sub

 名前を付けて保存をする際のメニューの挙動

前述したようにメニューのタイトルをファイル名にしているため、ファイル名が変更されるに伴いメニューのタイトルも変更する必要があります。
またカレントディレクトリの取得時はChDir やChdriveを使用せずにSetCurrentDirectoryを使用することによりネットワーク上の共有フォルダにファイルが所在してもエラーにならないようにします。

Private Declare Function SetCurrentDirectory _
Lib “kernel32″ Alias “SetCurrentDirectoryA” _
(ByVal lpPathName As String) As Long

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

If SaveAsUI = True Then

Call SetCurrentDirectory(ActiveWorkbook.Path)

fname = Application.GetSaveAsFilename(add_menu, “Microsoft Office Excel ブック (*.xls), *.xls”)

If fname <> “False” Then

menu_1.Delete
ActiveWorkbook.SaveAs Filename:=fname

add_menu = ThisWorkbook.Name
add_menu = Replace(add_menu, “.xls”, “”)
MenuBars(xlWorksheet).Menus.Add Caption:=add_menu

Set menu_1 = MenuBars(xlWorksheet).Menus(add_menu)

menu_1.MenuItems.Add Caption:=”項目1″, OnAction:=”sub1″
menu_1.MenuItems.AddMenu(“項目1″).MenuItems.Add Caption:=”項目1-1″, OnAction:=”サブジェクト1-1″
menu_1.MenuItems(“項目1″).MenuItems.Add Caption:=”項目1-2″, OnAction:=”サブジェクト1-2″

End If

Cancel = True

End If

End Sub

シートをチェンジする際のメニューの挙動

これは勘違い操作をしないためです。該当シート以外でマクロを起動させないため、シートの移動が行われた場合、一度全てのメニューを無効にした後、必要なメニューだけ有効にしています。

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

menu_1.MenuItems(“項目1″).Enabled = False
menu_1.MenuItems(“項目2″).Enabled = False
menu_1.MenuItems(“項目3″).Enabled = False
menu_1.MenuItems(“項目4″).Enabled = False

Select Case Sh.Name

Case “sheet1″
menu_1.MenuItems(“項目1″).Enabled = True

Case “sheet2″
menu_1.MenuItems(“項目2″).Enabled = True

End Select

End Sub

自ブックがアクディブで無いときのマクロの挙動

これも勘違い操作をしないためです。私はメニューに登録したマクロのうち同一ブック内で行う処理に次の記述をしています。

If Not ActiveWorkbook.Name = ThisWorkbook.Name Then
MsgBox ThisWorkbook.Name & “がアクティブなワークブックでないため実行できません。”
Exit Sub
End If

当プログラムは、著作者が職務外で作成したものであり、当プログラムの 著作権は、著作者である当ブログの管理人に帰属します。

ついに我が家のPCにMtronのMSD-SATA3035032を導入しました。
値段は85,800円と安くはなかったけど、かなりPCライフが快適になりました。
ということで、とりあえずベンチマークをしてみました。

・ベンチ結果（WD Raptorとの比較）

ベンチ結果の通り、書き込みは遅いけど、読み込みは速いです。
そのため、OSやプログラムファイルをSSDに、キャッシュや一時保管ファイルなど、頻繁に読み込みと書き込みを繰り返すファイルをWD Raptor、そしてサイズが大きいファイルや、書き換えることのないデータファイルをその他のHDDに入れるという使い方をしていくことになりそうです。

それにしても魅力的なRandamReadの速さです。

最近、ずっと悩んでいたことがメモ帳の取り方。

これは性格の問題でもあると思うのだが、なかなかメモを取るのが上手ではない。

例えば仕事で新しく覚えなければならないことはもちろんメモを取るのだが、だいたいメモを取ったことは覚えてしまう。だからせっかくメモを取ってもそのメモを開くことは滅多にないし、必要になったときには、もうどこに記入してあるのか忘れてしまっている。

そして、仕事中のメモは仕事中しか使わない。普段着に着替えるときにわざわざメモ帳を普段着のポケットに入れたりしたくないし、以前、二日酔いで出社したときに、普段着に入れておいたメモ帳を作業着に入れ忘れて、一瞬で二日酔いが覚めた事もある。
もともとケアレスミスが多い性格なのでもしオフでメモ帳を落としてしまって、あんな事やこんな事が世界中に発信されるかもと思うと、とても持ち歩きたくない。

ということで探していたのが、webベースのメモ帳。でもとにかく人に知られたくないのでwebサービスを利用するのは当然ダメ。簡単に検索出来る物じゃないと嫌、思いついたときに簡単に書けないと嫌、当然見たいときに見れないとダメなので携帯で閲覧は当たり前、日記のような形で書き込みも出来たらいいな。

 そんなわけでたどり着いたのがwiki。今まで、wikiという物はいろんな人の持つ知識を簡単に集めて、そして簡単に閲覧できるためのツールとばかり思っていたけど、本当はとってもビジネス用途に適したツールだったということに、初めて気付きました(汗

自分しか見られない環境さえ構築してしまえば恐ろしく便利なこのツール。でも問題点はそのセキュリティ面で、認証の時間が長いため、今は自分のpukiwikiにアクセスするより、メモ帳の全部のページ検索する方が圧倒的に速いです。アナログ最強！

これから私とメモ帳の戦いは、ジレンマとの戦いになるでしょう。

私のサーバーでは今、phpmyadminやwebalizer、cactiなどの管理者向けのサービスが動いていますがこれらのソフトは大半がそのURLを知られるだけでアクセス出来てしまいます。
ということでhtpasswdを使ってユーザー認証をかけることにしました。

例として、フォルダ/etc/apache2に、.htpasswd_admというファイルを作成しまし、csideというユーザーを作ります。この時作成するファイルはwebからアクセスできない場所に作る方が望ましいです。
まず、コンソール端末から

1. # htpasswd2 -c /etc/apache2/.htpasswd_adm cside
2. New password: **********
3. Re-type new password: **********
4. Adding passwd for user cside

①、htpasswd2というコマンドを使い.htpasswd_admというファイルの作成と任意のユーザー名(この例ではcside)を入力します。そうすると②、③とパスワードを２回聞かれるのでそこにパスワードを入力すれば、パスワードファイルの作成完了です。

次に/etc/apache2にあるhttpd.confにディレクティブの設定を追加します。

1. <Directory “/home/ユーザー名/”>
2. AuthUserFile    /etc/apache2/.htpasswd_adm
3. AuthName        ”page for admin”
4. AuthType        Basic
5. Require user cside
6. </Directory>

①でユーザー認証を行いたいユーザーフォルダの指定。②でパスワードファイルの場所を指定。③はユーザー認証の時に表示されるメッセージ。④は認証方式でBasicでOK。
⑤はログイン出来るユーザー名。ここではcsideというユーザーにのみアクセスを許可している。

これで指定したフォルダ以下のファイルにwebからアクセスした場合は自動的にユーザー名とパスワードを聞かれるようになる。

今、私が使っているのはwordpress2.2.3なんですが、この記事を投稿するに当たってかなり便利になる技がありました。というか何で初めからこういう風にしてくれなかったのか大きな疑問なんですが・・・

やり方は至って簡単、internet explorerなら記事投稿のページを開きながらキーボードのShift + Alt + Vを同時に押すだけ。他のブラウザのやり方は知りません。

これでテキストエディタのツールバーにフォントカラーやアンダーラインなどのツールが増えたはずです。でもこのショートカットキーをいちいち覚えるのも大変なのであらかじめツールバーに拡張表示モードのアイコンを入れておきます。

ちなみにwordpressにデフォルトで入っているテキストエディタはTinyMCEという名前で、そのコンフィグファイルは/wordpress/wp-includes/js/tinymce/tiny_mce_config.phpです。

このコンフィグファイルをテキストエディタで開いて

 $mce_buttons = apply_filters(‘mce_buttons’, array(‘bold’, ‘italic’, ‘strikethrough’, ‘separator’, ‘bullist’, ‘numlist’, ‘outdent’, ‘indent’, ‘separator’, ‘justifyleft’, ‘justifycenter’, ‘justifyright’, ‘separator’, ‘link’, ‘unlink’, ‘image’, ‘wp_more’, ‘separator’, ‘spellchecker’, ‘separator’, ‘wp_help’,  ‘wp_adv_start’, ‘wp_adv’, ‘separator’, ‘formatselect’, ‘underline’, ‘justifyfull’, ‘forecolor’, ‘separator’, ‘pastetext’, ‘pasteword’, ‘separator’, ‘removeformat’, ‘cleanup’, ‘separator’, ‘charmap’, ‘separator’, ‘undo’, ‘redo’, ‘wp_adv_end’));

の部分を

 $mce_buttons = apply_filters(‘mce_buttons’, array(‘bold’, ‘italic’, ‘strikethrough’, ‘separator’, ‘bullist’, ‘numlist’, ‘outdent’, ‘indent’, ‘separator’, ‘justifyleft’, ‘justifycenter’, ‘justifyright’, ‘separator’, ‘link’, ‘unlink’, ‘image’, ‘wp_more’, ‘separator’, ‘spellchecker’, ‘separator’, ‘wp_help’, ‘wp_adv’, ‘wp_adv_start’, ‘separator’, ‘formatselect’, ‘underline’, ‘justifyfull’, ‘forecolor’, ‘separator’, ‘pastetext’, ‘pasteword’, ‘separator’, ‘removeformat’, ‘cleanup’, ‘separator’, ‘charmap’, ‘separator’, ‘undo’, ‘redo’, ‘wp_adv_end’));

に変更。要するに’wp_adv_start’　と　 ‘wp_adv’　の順序を逆にしただけ。これでテキストエディタのツールバーに、「拡張ツールバーの表示/非表示」ボタンが追加されているはず。

というか本来は初めから逆にしておかないといけないはず・・・ただのケアレスミスでしょうか？？？