今回は、NASに画像ファイルが書き込まれた時点で、メールを送る仕組みです。

以下はQNAP TS-131(4.2.2)とFlashAir W-03、FAXはKX-PD601Wでの作業を前提にしています。NASのIPアドレスは固定(192.168.0.xxx)です。

NASには、書き込み予定のディレクトリを何らかの方法で監視する方法が必要です。使用するNASはLinuxベースで、様々な手段がありますが、今回は「inotifywait」というコマンドを使います。

メールに関しては、QNAPのWEB上の管理画面から、使用するメールサーバーなど設定をして、sendmailで送るようにします。管理画面－「コントロールパネル」－「通知」－「E-mail」タブ－「smtpサーバ」を設定し、テストEmailの送信で送ることができるか確認しておくとわかりやすいと思います。sendmailではこのsmtpサーバーが使われます。

これらの動きをスクリプトにまとめ、自動起動するように設定します。 watchfaxdir.shという名前で/share/homes/admin/bin/に保存し、実行権限を(chmod +x watchfaxdir.sh)与えます。

#!/bin/sh
#
#  watchfaxdir.sh
#
#メールを送信
dir="/share/CACHEDEV1_DATA/ftp/fax"

[ ! -d $dir ] && echo "$dir does not seem to exist" && exit

echo $dir
SendTo="to@example.com"
SendFrom="from@example.com"
Subject="FAXディレクトリにファイルが追加されました"

while true; do
    rm -f /tmp/watchfaxdir.email
    touch /tmp/watchfaxdir.email
    echo "From: ${SendFrom}"     >>/tmp/watchfaxdir.email
    echo "To: ${SendTo}"         >>/tmp/watchfaxdir.email
    echo "Subject: ${Subject}"   >>/tmp/watchfaxdir.email
    echo ""                     >>/tmp/watchfaxdir.email
    inotifywait -r -e close_write $dir >>/tmp/watchfaxdir.email \
        && cat /tmp/watchfaxdir.email | sendmail -t
    rm -f /tmp/watchfaxdir.email
done

頻繁にFAXが来るわけではないので、最低限の監視です。追加だけでなく、何かしらの書き込みがあった時点でFAXされるので、FAX本体で画像ファイルのexifなどの変更があった場合も回り回ってメールされます。

このあたり、もっとスマートにしたり、追加の情報もメールするつもりがあれば、スクリプトの工夫が必要です。

ざっくりとスクリプトの概要を説明します。まず、メールの宛先等を下書きしておきます。inotifywaitをサブディレクトリまで監視対象にする-rオプション、書き込み完了を知らせる-e close_writeオプション、そして対象ディレクトリを指定して実行しています。書き込み完了のイベントが起きると、内容をメールの下書きに追加して、sendmailで送ります。inotifywaitは-mオプションを使わなければ一回のみのイベントで終了しますので、whileで繰り返しています。

最後にNASを起動した際にスクリプトを自動起動するよう設定します。/etc/config/qpkg.confに以下を追加して、再起動すれば完了です。

[watchfaxdir]
Name = watchfaxdir
Version = 1.0
Author = tomodigi
Date = 2016-10-22
Shell = /share/CACHEDEV1_DATA/homes/admin/bin/watchfaxdir.sh
Install_Path = /share/CACHEDEV1_DATA/homes/admin/bin
Enable = TRUE

以上で「FlashAir（無線LAN機能付きSDカード）で家庭用FAXの受信データをNASに自動転送する」当初の目的は達成されました。

今回はFAXを受信し、画像ファイルが書き込まれた時点で、FlashAirから、NASへFTP転送する仕組みです。

以下はQNAP TS-131(4.2.2)とFlashAir W-03、FAXはKX-PD601Wでの作業を前提にしています。NASのIPアドレスは固定(192.168.0.xxx)です。

まず、ファイルを受け取るNASの設定をします。

1. 転送先ディレクトリの作成
   管理しやすいようにFTP用のディレクトリを作ります。今回はDataVol1下にftpを作成さらに、そのしたにfaxディレクトリを作り、パーミッションを777としました。
2. FTP用アカウントの作成
   FTPログイン用のアカウントを作ります。他のアカウントと共通でも可能ですが、ftpのログイン情報をスクリプトに記載するため、別管理としました。アカウント名は仮にfax、パスワードは任意のものとします。
   Webで管理画面にログインして、「コントロールパネル」－「権限設定」－「ユーザー」にあります。安全のため、「共有フォルダー権限の編集」で先ほど作成したftpのみ読み書きできるようにします。
3. FTPサーバーの有効化
   Webで管理画面にログインして、「コントロールパネル」－「ネットワークサービス」－「FTP」にあります。
   FTPサービスを有効にし、詳細設定の「set root directory」を先ほど作成した/ftpにします。

これで、faxアカウントでFTPでNASに接続し、/ftp/にアップロードできる環境がになりました。あとはFlashAirのFTPコマンドで/fax/画像ファイル名.jpgにputします。ちなみに、FlashAirのスクリプトではputとgetしかできませんので、ディレクトリの追加や削除はできません。

1. FTP転送するためのスクリプトの作成
   FlashAirにluaフォルダを作り、以下のスクリプトを newfileftpupload.lua として保存します。
   今回使ったFAXは
   /IMEXPORTにjpegファイルがされるのでこのフォルダを監視します。

   -- 監視ディレクトリに新しいファイルが加わったら、ftpでアップロードする。
   -- アップロードしたなかで一番新しいファイルのタイムスタンプを記録する。
   -- 記録したタイムスタンプより古いファイルはアップロードしない。
   
   -- 定数
   local fpath    = "/IMEXPORT"         -- 監視ディレクトリ
   local server    = "192.168.0.xxx"     -- FTPサーバーのIPアドレス
   local serverDir = "/fax/"               -- FTPサーバーのアップロード先フォルダ
   local user      = "ftp"             -- FTPユーザー名
   local passwd    = "（任意）"          -- FTPパスワード
   local lastupload = "lastupload.txt" -- 最終アップロードファイルの日付を記録
   
   print(lastupload)
   -- 最後にアップロードしたファイルの時刻の記録したファイルを検索
   local lastfile = io.open(lastupload,"r")
   if lastfile then
       print("lastfile true")
       print(lastfile)
   
       -- 1行目に記録してあるアップロードしたファイルで最後にアップロードしたファイルの時刻を取得
       lastuploadtime = lastfile:read()
       lastfile:close()
   else
       print("lastfile false")
   
       -- なければ、全てのファイルが対象になるので、timeは0
       lastuploadtime = 0
   end
   print(lastuploadtime)
   
   -- Assemble our FTP command string
   local ftpstring = "ftp://"..user..":"..passwd.."@"..server..serverDir
   
   -- 転送が終わったファイルの日付（最も新しいもの）を記録
   local newmod = 0
   -- 全ての転送ができると仮定
   local success = true
   
   -- For each file in fpath...
   for file in lfs.dir(fpath) do
       -- Get that file's attributes
       attr = lfs.attributes(fpath .. "/" .. file)
       print( "Found "..attr.mode..": " .. file )
   
       if attr.mode == "file" then
           --日付のチェック
           mod = lfs.attributes(fpath .. "/" .. file, "modification" )
           print(mod..":"..lastuploadtime)
           if tonumber(mod) > tonumber(lastuploadtime) then
               print("upload...")
               --Attempt to upload the file!
               print(ftpstring..file)
               print(fpath .. "/" .. file)
   
               response = fa.ftp("put", ftpstring..file, fpath .. "/" .. file)
               --Check to see if it worked, and log the result!
               if response ~= nil then
                   print("Success!")
                   -- 日付を記録
                   if tonumber(newmod) < tonumber(mod) then
                       newmod = mod
                   end
               else
                   print("Fail :(" .. response)
                   success = false
               end
           end
       end
   end
   
   --転送が成功したら、lastupload.txtを更新
   if success then
       print("complite")
       local lastfile = io.open("lastupload.txt", "w")
       lastfile:write(newmod .. "\n")
       lastfile:close()
   end
   

2. ステーションモード（無線LAN子機）に設定
   FlashAirの標準的な使用方法は独立した無線LANの親機となり、そこにスマホなどを接続し転送する形です。しかし、今回は子機としてLANに参加しますので、設定ファイルを書き換えます。
   設定ファイルは/SD_WLAN/CONFIGです。
   以下のように変更または追加します。DHCPサーバを利用することとし、常に無線に接続するようにします。これらは設定ツールのFlashAir Toolでも行うことができます。

   APPMODE=5
   APPSSID=無線LANのSSID
   APPNETWORKKEY=無線LANのパスワード
   APPAUTOTIME=0
   DHCP_Enabled=YES
   

3. 書き込みがあったらスクリプトを実行する設定
   同じく/SD_WLAN/CONFIGに次の一行を追加し、書き込みがあった場合に/lua/newfileftpupload.luaを起動するように設定します。

   LUA_SD_EVENT=/lua/newfileftpupload.lua
   

これでFAXに差し込めば、電源が供給され、画像が追加されるたびにNASに転送されます。今回使用したFAXでは、本体画面で内容を確認すると、ステータスの変更により再度画像ファイルが更新されます。それによっても再度ファイルが送信されてしまいますので、次回のメールでのお知らせの設定に工夫が必要ですが、今後の課題とします。

Tips（いくつかの追加情報です）

• FlashAirの設定ファイルやスクリプトをいろいろ変更した後、元に戻したい場合は、FlashAir Toolを使います。普通にフォーマットするとただのSDカードになってしまいます。
• ステーションモードでLANに接続できたかどうかを確認するには、コマンドラインから「ping flashair」が便利です。通常、SDカードに電源が入ってから、数秒から数十秒後に接続が完了します。IPアドレスも同時に確認できます。

オフィス用の複合機では画像ファイルとしてメールやファイルサーバーに転送可能な機種がありますが、家庭用の機器とFlashAirを利用して、受信したデータをNASに転送する仕組みを作ったので紹介します。それぞれの機器の関係は図のようになります。

NASに転送することで、LAN内のどの端末からも受信内容を確認できるようになります。印刷も任意のプリンタからできますのでFAX本体のインクフィルムは使わずに済みます。

ここで述べる方法は少々面倒です。「もっと簡単に！」というときには、2015年発売のパナソニックKX-PD102DLではスマホを登録してFAX受信の連絡・確認や受信データのメール添付が可能になっています。FAX付属の説明書通りで使えるはずなので、こちらを利用しても良いと思います。（今回紹介するNASへの自動転送はできません。）

話をFlashAirを使った仕組みに話を戻します。

最終的にはFAXを受信後、FlashAirで画像をNASに転送し、PC等にメールを送るようにしますが、まずはNASへ自動転送させます。

実際に使用した機器の紹介と補足を列挙します。

• FAX パナソニック KX-PD601W
  SDカードに自動保存されるタイプのものが必要です。
  現行ではKX-PD600が同じような仕様です。
  
• 無線LAN機能付きSDカード 東芝 FlashAir W-03
  SDカードに無線LANが内蔵されています。機能に制限はありますが、スクリプトを書くことで能動的な作業をすることができます。
  FlashAirは第3世代のW-03というシリーズが現行です。第2世代までのFlashAirはLuaスクリプトに対応していません。
  容量は一番小さい8GBで十分です（Fax1枚が1MB以下です）　。
  
• NAS QNAP TS-131
  FlashAirから自動転送します。ここ数年でNASの種類が増えてきましたが、基本のファイル共有機能の他にFTPで転送するのでFTPサーバーの機能が必要です。また受信があったことをメールするので、shでsendmailなどが使えるほうが望ましいです。
  

FAXとNASは別目的で以前より使っていたものです。条件に合うものなら使えると思います。家庭用FAXの販売は事実上パナソニックとシャープのみで、そのうち、SDカードに保存できるのはパナソニックの中位機種以上になっています。従ってFAXについての選択肢はそれほどありません。
一方NASについては台湾のメーカーを中心にどんどん新機種が発売されています。多目的に使えるものが多い分、値段も様々ですので、機種選定は難しいと思います。ですが、今回使う機能はQnapのものであれば基本的な機能です。他社（SynologyやAsustorなど）のLinuxベースの機器でも大丈夫かと思います。

次回は画像保存されたときにFlashAirからNASへFTP転送するしくみについてです。

スクリプトとしては、htmlの中から、ファイル名を取りだして、ダウンロードするというものです。ローカルに同名ファイルある場合は上書きはしません。

改良点（自分仕様）としては、以下の3点です。

1. DCIMフォルダを決め打ちし、その中のフォルダを選択できるようにしました。
   デジカメでよく使われるDCIMフォルダの中にカメラごとのフォルダを作る形式に対応しました。
2. テンポラリーファイルを削除するようにしました。
   同じフォルダにあるテンポラリーファイルと同名のファイルは容赦なく削除されます。
3. スクリプトの途中に行を追加することで、複数の別のキーワード（自分仕様では拡張子を設定）でダウンロードできるようにした。
   デフォルトでは、JPGとJPEという文字列が含まれるファイルがダウンロードされます。必要があれば、38行目あたりを追加してください。

他にも、メッセージを自分が読みやすいように日本語にしたりしています。
使い方は、無線LANでFlashAirに接続した状態でスクリプトをダブルクリックします。接続できていれば、DCIM下のフォルダが取得され、、DOSのバッチファイルの様に番号選択式でフォルダの一覧が出ます。その中から任意のフォルダを選択すると、スクリプトが置いてあるフォルダに画像ファイル全てがコピーされます。
フォルダの選択はリストボックスなどが利用できないので、DOSのバッチファイルのように番号選択式です。

FlashAirなどの無線LAN内蔵SDカードの注意点としてはカメラの省電力機構でSDカードへの電源供給がOFFになると、PCとのリンクが切れてしまうことです。こちらはカメラ側の設定で回避できることも多いです。

スクリプトの一部には「おそらくはそれさえも平凡な日々」さんの「VBScriptにおけるpushの決定版」を利用させていただきました。またスクリプトのほとんどは「自由区☆彡」さんのブログに掲載されているものです。

最後にスクリプトです。FlashAir.VBSなどの名前で保存して下さい。Windows 7で動作確認しました。

Option Explicit

Dim objSrvHTTP, Stream, Fso
Set objSrvHTTP = Wscript.CreateObject("MSXML2.XMLHTTP")
Set Stream = Wscript.CreateObject("ADODB.Stream")
Set Fso = Wscript.CreateObject( "Scripting.FileSystemObject" )

Dim strCurPath, obj, strUrl, strChr, strChrArr()
strCurPath = WScript.ScriptFullName
Set obj = Fso.GetFile( strCurPath )
Set obj = obj.ParentFolder
strCurPath = obj.Path

Dim inpStr
Dim strVal
Dim aryStrings
Dim lngPos
Dim objFso, objFile

Dim iMsg

Dim objFsoChk	 ' FileSystemObject
Dim strFile	 ' Exist FileName&Path

Dim title
Dim dir()

'プログラムタイトル
title = "FlashAir ファイルコピー"

'ディレクトリを取得 (http://flashair/DCIM)
strUrl = "http://flashair/DCIM"

'コピーするファイルを検索する検索 大文字小文字区別なし 半角3文字まで 長いファイル名には非対応
'RAWファイル等を転送する場合には行を追加
push strChrArr,"JPG"
push strChrArr,"JPE"
'push strChrArr,"NEF"
'push strChrArr,"ORF"
'push strChrArr,"CR2"

'テンポラリーファイル名
'同名のファイルがある場合は起動時、正常終了時に削除されるので注意
dim tempDCIM, tempDir
tempDCIM = "~dcim.tmp"
tempDir = "~dir.tmp"

'テンポラリーファイルがあれば削除
DelTemp

'ディレクトリを検索するためにHTMLを保存
on error resume next
Call objSrvHTTP.Open("GET", strUrl, False )
if Err.Number <> 0 then
	Wscript.Echo Err.Description
	Wscript.Quit
end if

objSrvHTTP.Send
if Err.Number <> 0 then
	Wscript.Echo Err.Description
	Wscript.Quit
end if

Stream.Open
Stream.Type = 1 ' Binary
Stream.Write objSrvHTTP.responseBody
Stream.SaveToFile strCurPath & "\" & tempDir, 2
Stream.Close

'ディレクトリを検索
on error resume next
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objFile = objFso.OpenTextFile(strCurPath & "\" & tempDir, 1, False)
If Err.Number > 0 Then
	WScript.Echo "Open Error"
	WScript.Quit
end if

Set objFsoChk = WScript.CreateObject("Scripting.FileSystemObject")
If Err.Number > 0 Then
	WScript.Echo "Open Error"
	WScript.Quit
Else
	Do Until objFile.AtEndOfStream

		'ディレクトリを表す行の開始文字
		strChr = "DCIM"
		strVal = objFile.ReadLine
		lngPos = InStr(1, UCase(strVal), UCase(strChr))
		if lngPos <> 0 then
			aryStrings = Split(strVal, ",")
			push dir,aryStrings(1)
		end if
	Loop
End If
on error goto 0

Dim dircount
Dim intCounter
Dim msgText
msgText = "コピー元ディレクトリを番号で選択してください" & vbCrLf
For intCounter = LBound(dir) To UBound(dir)
	msgText = msgText & intCounter & " : " & dir(intCounter) & vbCrLf
Next

Dim dirInput
dirInput = InputBox(msgText,title)

If IsEmpty(dirInput) = true Then
	msgBox("番号を選んでください")
	Wscript.Quit
End If
If cInt(dirInput) < LBound(dir) Then
	msgBox(LBound(dir) & "より小さい番号は選択できません")
	Wscript.Quit
End If
If UBound(dir) < cInt(dirInput) Then
	msgBox(UBound(dir) & "より大きい番号は選択できません")
	Wscript.Quit
End If
strUrl = strUrl & "/" & dir(dirInput)

msgBox strUrl & "からコピーを開始します", vbInformation + vbOKOnly , title

'----- Get URL html src code text
on error resume next
Call objSrvHTTP.Open("GET", strUrl, False )
if Err.Number <> 0 then
	Wscript.Echo Err.Description
	Wscript.Quit
end if

objSrvHTTP.Send
if Err.Number <> 0 then
	Wscript.Echo Err.Description
	Wscript.Quit
end if

Stream.Open
Stream.Type = 1 ' Binary
Stream.Write objSrvHTTP.responseBody
Stream.SaveToFile strCurPath & "\" & tempDCIM, 2
Stream.Close

'----- Read html src code text file
on error resume next
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objFile = objFso.OpenTextFile(strCurPath & "\" & tempDCIM, 1, False)
If Err.Number > 0 Then
	WScript.Echo "Open Error"
	WScript.Quit
end if

Set objFsoChk = WScript.CreateObject("Scripting.FileSystemObject")
If Err.Number > 0 Then
	WScript.Echo "Open Error"
	WScript.Quit
Else
	Do Until objFile.AtEndOfStream

		strVal = objFile.ReadLine
		lngPos = 0
		For intCounter = LBound(strChrArr) To UBound(strChrArr)
			lngPos = lngPos + InStr(1, UCase(strVal), UCase(strChrArr(intCounter)))
		Next
		if lngPos <> 0 then
			aryStrings = Split(strVal, ",")

			'----- CurFile Exist Check
			strFile = strCurPath & "\" & aryStrings(1)
			If objFsoChk.FileExists(strFile) = False Then

				'----- get URL FileName
				Call objSrvHTTP.Open("GET", strUrl & "/" & aryStrings(1) , False )
				if Err.Number <> 0 then
					Wscript.Echo Err.Description
					Wscript.Echo strUrl & "/" & aryStrings(1)
					Wscript.Quit
				end if

				objSrvHTTP.Send
				if Err.Number <> 0 then
					Wscript.Echo Err.Description
					Wscript.Quit
				end if

				Stream.Open
				Stream.Type = 1 ' Binary
				Stream.Write objSrvHTTP.responseBody
				Stream.SaveToFile strFile, 2
				Stream.Close
			End If

		end if
	Loop
End If
on error goto 0

objFile.Close
Set objFile = Nothing
Set objFso = Nothing
Set objFsoChk = Nothing

DelTemp
iMsg = MsgBox("コピーを完了しました", vbInformation + vbOKOnly ,title)

Sub DelTemp
	'テンポラリーファイルを削除
	Set objFsoChk = WScript.CreateObject("Scripting.FileSystemObject")
	strFile = strCurPath & "\" & tempDCIM
	If objFsoChk.FileExists(strFile) = True Then
		Set objFso = WScript.CreateObject("Scripting.FileSystemObject")
		objFso.DeleteFile strCurPath & "\" & tempDCIM,True
		Set objFso = Nothing
	End If
	Set objFsoChk = WScript.CreateObject("Scripting.FileSystemObject")
	strFile = strCurPath & "\" & tempDir
	If objFsoChk.FileExists(strFile) = True Then
		Set objFso = WScript.CreateObject("Scripting.FileSystemObject")
		objFso.DeleteFile strCurPath & "\" & tempDir,True
		Set objFso = Nothing
	End If
End Sub

Sub push(arr,elm)
  Dim i,tmp : i = 0
    If IsArray(arr) Then
      For Each tmp In arr
        i = 1
        Exit For
      Next
      If i=1 Then
        Redim Preserve arr(Ubound(arr)+1)
      Else
        Redim arr(0)
      End If
    Else
      arr = Array(0)
    End If
    If IsObject(elm) Then
      Set arr(Ubound(arr)) = elm
    Else
      arr(Ubound(arr)) = elm
    End If
End Sub

似たような商品としてはEye-Fiがあります。FlashAirの方が後発です。しかし、コンセプトに多少の違いがあり、Eye-Fiは専用プログラムに任せて転送を行うタイプ、FlashAirは無線の親機として、端末(PC、タブレットなど)からアクセスするタイプです。

FlashAirに無線で接続すると、ブラウザでアクセスすることができるようになり、FlashAir内に保存されている画像ファイルをブラウザで閲覧、保存することができます。FlashAirは簡易的なhttpサーバになり、画像ファイル以外のデータにもアクセスすることができる一方で、保存閲覧はブラウザの機能に依存します。通常の状態では画像をまとめて保存することはできません。東芝のFAQにも「できない」と明記されています。それでも、ブラウザの拡張機能などで、リンク先の画像をまとめて保存する機能を追加したりすれば対応できます。

使い方としては、外出先で写真を撮って、スマホでFlashAirにアクセス、気に入った写真をFacebookに投稿したり、メールで送ったりする、ということを想定しているようで、全ての画像の保存は家に帰ってから、SDカードとしてPCに接続するというのが現実的です。

一方でEye-Fiは、画像を全て転送することができます（ダイレクトモード）。さらにエンドレスモードを使えば、容量いっぱいになったら古いファイルを削除することができます。さらにPro X2であればRawファイル、動画にも対応しています。こちらは、PCに無線で転送し、SDカードを抜き差しや、メディアの容量の制限をできるだけ排除しようという考えだと思います。

使い方によってどちらが向いているか分かれると思います。Eye-Fiの方が高機能な点も多いですが、FlashAirの自由度の高さも捨てがたいものがあります。要は無線LANに接続できるブラウザさえあればデジカメで撮った写真が見れるので、アプリや付属ソフトの対応を待つ必要が無く、汎用性が高いと言えます。