[ComputerCraft] メール受信サーバー作ったった(クライアント作成編)

1/31 11:58 ソース修正(getモード時の動作修正)



メールクライアント(メール送受信ソフト)をメインマシンで作るよ。

サーバー設置編読んでなければ先に読んだほうがいいです→サーバー設置編



ソース書く前に、サーバーの動作を再確認。


メールをずっと待ってるサーバーたん
　　↓
メールきた！
　　↓
メールの内容で動作が変わるよ

・メッセージの内容が「get()」やったら
　→ログ（未読メッセージ）をメインマシンに送る（レッドストーントーチ ジュワ...消）
・メッセージの内容が「getall()」やったら
　→全ログ(メッセージ一覧)をメインマシンに送る
・それ以外（hi とか hello とか）やったら
　→ログに書き溜める（レッドストーントーチ  ピッカーン 光）

　　↓
またメールを待つサーバーたん



っていう動作ね。

この中の、メッセージ作って送ったり、get()とかgetall()とか送る部分を今回作るのね。


つまり流れで言うと、

クライアント起動
　　↓
モードが3つ

・メール送信
・get()って送って未読メール受信&表示
・getall()って送ってメール一覧受信&表示

　　↓
終了



じゃぁソースいくで。

今回の環境

・メインマシン→アドバンスドPC。ID=27
・メール受信サーバー→普通のPC。ID=28

再確認だが、コメントは -- (ハイフン2つ)な。

今回のプログラム名はmailでいく。edit mailでエディタ起動。以下ソース

SERVER_ID=28  --サーバーID。28

SERVER_ID=tonumber(SERVER_ID)  --説明省略

 

print("mode?")

write("\tsend,get,getall >")

--モード一覧。send,get,getall

--サーバー設置編でやったアレの通り

--あと、printとwriteの違いだが、

--自動的に改行してくれるかしてくれないかの違い。

--writeは改行してくれない

 

mode=read()

--どのモードかキーボードから読み込み

 

if mode=="send" then

  --send mode

  --メール送信モード

  --正直言うとswitch文で書きたかったけど

  --書式調べんのめんどくさかったからif文で失礼

  

  write("send for? >")

  --受信相手のidを入力

  local id=read()

  --read()ってやることでキーボードから入力できる

  local id=tonumber(id)

  --local　ってやつは気にしなくていい。

  --知りたかったら「lua ローカル変数」とかでググって

  

  write("message...>")  

  --メッセージ入力

  local msg=read()

 

  --send message

  --ここで送信

  rednet.send(id,msg)

 

elseif mode=="get" then

  --get mode

  --logファイルを取得する＝未読メッセージ受信

  rednet.send(SERVER_ID,"get()")

  --get()ってメッセージをサーバーに送ってやることで、

  --サーバーのlogファイルを取得できるようになる

  --get message(timeout 30sec)
  --タイムアウトの設定を追記
  --30秒たったら受信やめる

  print("message getting...")
  local id,msg=rednet.receive(30)

  

  --show message

  print("\n"..msg)

  --受信したlogファイルを表示

 

  rednet.send(SERVER_ID,"stop()")

  --サーバーはずっとログファイルを送信し続けるから、

  --stop()ってメッセージ送って送信をやめてもらう

 

elseif mode=="getall" then

  --getall mode

  --alllogファイル取得＝メッセージ一覧取得

  

  rednet.send(SERVER_ID,"getall()")  --上と同じ

  local event,id,msg=os.pullEvent("rednet_message")

 

  --show message

  print("\n"..msg)

 

  rednet.send(SERVER_ID,"stop()")

 

else

  --print usage

  --使い方説明というか説明になってないけど

  print("mode:")

  print("\tsend:send mail")

  print("\tget:get mail")

  print("\tgetall:get all mail")

  return

end

  

 

ソースコード以上


こっちもソース間違ってるかもしれんからその時はコメントお願いします。



動作イメージはこんな感じ。

まずはsendモード。俺宛のメールは28固定。










次getモード。ちなみに24はメインでもサーバーでもない第3のマシンのID










次getallモード。過去のテストがずらり。









とりあえず以上。

ちなみに、sendで受信サーバー以外にも送れるけど、向こうが受信するかどうかは向こうの状態次第ってやつですね。例えば、第3のマシン(24)からメインマシン（27)にsendで送ろうとすると、メインがrednet.receive()状態じゃないとだめって例のアレですね。



んで、これ書いてる時に、メール無いときにgetモード発動させた時の動作が無いことに気づいたからそのうち修正かけます。でも今の状態でも動作はします。　←修正済



次、これの応用みたいな感じでチャットツールも作ったからそのうちソース晒します。




謝辞

サーバー用プログラム、クライアントプログラム開発の際、errorcode氏の助言を参考に致しました。ありがとうございました。



以上。