TSR mail или элементарная почта с пересылкой файлов

[swg2you 403]

Модуль отправки: send.lua

print('Use: send [<receiver-address>] < <filename> - for send filename,\nor: send [<receiver-address>] - for write, and Ctrl+C to send.')
local port = 9
local c = require("component")
local m = c.proxy(c.list("modem")())
local s, addr = io.read("*a"), ...
if #s>0 then
  if addr then m.send(addr, port, s)
  else m.broadcast(port, s) end
  print('Sended: '..#s..' bytes')
end

и резидентный модуль приема: tsrmail.lua

local port = 9
if _tsrmail then
  print('tsrmail already loaded @ port '.._tsrmail)
else
  local beep=0
  local c = require("component")
  local cp = require("computer")
  local fs = require("filesystem")
  local m=c.proxy(c.list("modem")())
  local pullSignal = cp.pullSignal
  cp.pullSignal = function (...)
    local e={pullSignal(...)}
    if e[1]=='modem_message' then 
      local h = fs.open('@','a')	
      h:write('--'..os.date()..' From:'..e[3]..'\n'..table.concat({table.unpack(e,6)},'\n'))
      h:close()
      beep=1
    elseif e[1]=='key_down' then
      beep=0
    elseif beep>0 then 
      cp.beep(440) 
    end
    beep=-beep
    return table.unpack(e)
  end
  m.open(port)
  print('tsrmail loaded @ port '..port)
  _G._tsrmail=port
end

сохранить на диск.

tsrmail.lua - запустить, после чего она останется резидентным модулем в памяти, и слушая 9-й порт, будет складывать всю почту в файл "@" на диске.

 

Пример использования:

 

У пользователя Коли, и еще у кого-то, есть компьютер с сетевой картой, на котором работает резидентная tsrmail.lua.

 

Программист Вася только что, получил на дискетке копию "TSR mail", запустил  tsrmail.lua, чтобы иметь возможность принимать почту, и ему не терпится заявить о себе всему миру. Он запускает send, читает две строчки справки, пишет пару строк сообщения (хеловорд конечно, что же еще может написать программист) и нажав Ctrl+C отправляет.

 

Но пользователь Коля, как и другие пользователи "TSR mail" заняты своими делами: кормят коров, сажают желтые цветы и воюют с криперами. Хоть Колин компьютер и пищит "хозяин! почта пришла!", Коля далеко и не слышит.

 

Программисту Васе не терпится пообщаться, он хочет чтобы ему тоже прислали что-то. Хоть простенький хелловорд.

 

Немного поразмыслив, Вася соображает, что хелловорд это самодостаточная штука, и вовсе не располагает к ответам и общению. Заметив в первой строчке образец перенаправления ввода/вывода (а наш Вася программист, и знает всю мощь этого шаманства) он вновь запускает send отправляет сообщение и, поскольку под рукой больше ничего не нашлось, отправляет в сеть программку send.lua, направив содержимое send.lua во входной поток самой себя.

 

Пользователь Коля, проходив мимо компьютера, услышал писк и подошел проверить почту. Посмотрев стандартной командой cat @ содержимое файла @, с тремя сообщениями Васи, и пробурчав под нос, - Опять эти программеры фигней страдают, лучше бы коров покормили! - удалил сообщения командой rm @

 

Если бы наш программист догадался прислать что-то поинтереснее, например новую версию пасьянса, то Коля может и сохранил бы его, переименовав mv @ pasians2.lua, и почистив edit pasians2.lua от лишних сообщений.

 

Но к сожалению, это был не пасьянс.

--==--

P.S.

Код quick and dirty, но зато simple and short. По хорошему, нужна обертка-интерфейc для send, которая будет хранить адресную книгу, дополняя адресатов из @, большие файлы пересылать порциями обходя ограничение на размер пакета, красиво показывать @ добавляя функции ответа и сохранения, ну и все такое. А в резидентный модуль неплохо бы добавить отклик "принял".

Изменено 24 июня, 2015 пользователем swg2you

[Krutoy 1 169]

Гоу к нам в Opennet http://computercraft.ru/topic/675-opennetoc-prodolzhenie/

Если объеденяться, то твоя программа может сразу появляться у пользователя, а нам пригодятся твои идеи и реализации сетевых алгоритмов. У нас уже и адресная книга aka DNS есть, и пересылка порциями.

[Zer0Galaxy 2 187]

 

 

и резидентный модуль приема: tsrmail.lua

Так где здесь  пересылка файлов? Эта штука абсолютно весь пойманный эфир (возможно не только 9-й порт) будет сыпать в один файл. И зачем переопределять функцию pullSignal если можно повесить слушателя на событие?

[swg2you Автор темы 403]

Так где здесь  пересылка файлов? Эта штука абсолютно весь пойманный эфир (возможно не только 9-й порт) будет сыпать в один файл. И зачем переопределять функцию pullSignal если можно повесить слушателя на событие?

Как ты верно подметил, если переименовать tsrmail обратно в tsrsniffer, то мы получим сетевой сниффер, который будет фоном перехватывать все! входящие пакеты на всех! портах и складывать их в файлик. )

 

Более того, если удалить "=='modem_message'", то мы получим сниффер для всех событий.

 

upd:

моя не уметь на событие, моя уметь подменять pullSignal

Изменено 24 июня, 2015 пользователем swg2you

[LeshaInc 625]

Через event.listen swg2you можешь повесить слушателя на modem_message. Вот если не знаешь его использование:

 

 

event.listen(event: string, function: function) -- Теперь если он словит event который указан в первом аргументе будет выполнена функция со второго аргумента. Аргументы функции нужно передавать такие же, какие выдаст event.pull, т е шесть аргументов.

Например:

local function listmsg(_,_,_,_,_,msg)
    print(msg)
end
event.listen("modem_message", listmsg)

Такой код будет ловить сообщения по всем открытым портам и выводить их на экран.

 

[swg2you Автор темы 403]

Через event.listen swg2you можешь повесить слушателя на modem_message. Вот если не знаешь его использование:

 

 

event.listen(event: string, function: function) -- Теперь если он словит event который указан в первом аргументе будет выполнена функция со второго аргумента. Аргументы функции нужно передавать такие же, какие выдаст event.pull, т е шесть аргументов.

Например:

local function listmsg(_,_,_,_,_,msg)
    print(msg)
end
event.listen("modem_message", listmsg)

Такой код будет ловить сообщения по всем открытым портам и выводить их на экран.

 

Уоу, круто! 

А как это запустить чтоб оно работало в фоне?

[Asummonster 592]

Через event.listen swg2you можешь повесить слушателя на modem_message. Вот если не знаешь его использование:

 

 

event.listen(event: string, function: function) -- Теперь если он словит event который указан в первом аргументе будет выполнена функция со второго аргумента. Аргументы функции нужно передавать такие же, какие выдаст event.pull, т е шесть аргументов.

Например:

local function listmsg(_,_,_,_,_,msg)
    print(msg)
end
event.listen("modem_message", listmsg)

Такой код будет ловить сообщения по всем открытым портам и выводить их на экран.

 

Только их там не 6. Если ты напишешь m.broadcast(port, data1)---их будет шесть,а если ты напишешь m.broadcast(port, data1, data2)---их будет 7, и так далее

[swg2you Автор темы 403]

Гоу к нам в Opennet http://computercraft.ru/topic/675-opennetoc-prodolzhenie/

Если объеденяться, то твоя программа может сразу появляться у пользователя, а нам пригодятся твои идеи и реализации сетевых алгоритмов. У нас уже и адресная книга aka DNS есть, и пересылка порциями.

Я смотрел, но OpenNet пока слишком сложна для моего понимания. Не вижу общей концепции.

[Asummonster 592]

Уоу, круто! 

А как это запустить чтоб оно работало в фоне?

Листен всё держит в условном фоне

Ты просто заменяешь event.pull на event.listen(event, function) и всё

[swg2you Автор темы 403]

Только их там не 6. Если ты напишешь m.broadcast(port, data1)---их будет шесть,а если ты напишешь m.broadcast(port, data1, data2)---их будет 7, и так далее

Это мелочи, мы всегда можем написать

local function listmsg(...)
  print(...)
end
event.listen("modem_message", listmsg)

Главное суметь заставить работать это в фоне. Ждем LeshaInc, чтоб объяснил как это сделать.

 

Листен всё держит в условном фоне

Ты просто заменяешь event.pull на event.listen(event, function) и всё

т.е. этот код выполнится, оставит слушателя работать, а я смогу тем временем запускать другие программы? Изменено 24 июня, 2015 пользователем swg2you

[LeshaInc 625]

Покажу на примере как можно в фоне читать сеть.

local event = require("event")local m     = require("component").modemm.open(512)function listener(_,_,_,_,_,msg)    print(msg)endevent.listen ("modem_message",listener)

После запуска данного кода в фоне появится некий сниффер, который будет слушать 512 порт и писать все сообщения. Всё будет работать в фоне и ты сможешь, например, запускать любые другие программы.

[Fingercomp 4 409]

Это мелочи, мы всегда можем написать

local function listmsg(...)
  print(...)
end
event.listen("modem_message", listmsg)

Главное суметь заставить работать это в фоне. Ждем LeshaInc, чтоб объяснил как это сделать.

 

т.е. этот код выполнится, оставит слушателя работать, а я смогу тем временем запускать другие программы?

 

listen слушает "эфир" и выполняет данную функцию при возникновения события данного, опять же. Листенер со всем его содержимым хранятся отдельно от запускаемой программы, и события обрабатываются в фоне. Для удаления листенера необходимо в той же программе вызывать event.ignore(event, func), иначе события будут продолжать обрабатываться даже после завершения программы.

[swg2you Автор темы 403]

после выполнения этого кода ты сможешь например запускать любые другие программы.

Круто, а как сделать чтобы он не на экран выводил а в файл?

[LeshaInc 625]

Круто, а как сделать чтобы он не на экран выводил а в файл?

Заменить "print(msg)" в моём коде на запись в файл и все.

[swg2you Автор темы 403]

Заменить "print(msg)" в моём коде на запись в файл и все.

Как именно? Пример будет? Ждем. Изменено 24 июня, 2015 пользователем swg2you

[Zer0Galaxy 2 187]

Как именно? Пример будет? Ждем.

event=require"event"

function listmsg(eventName, receiverAddress, senderAddress, port, distance, ...)
      local h = fs.open('@','a')	
      h:write('--'..os.date()..' From:'..senderAddress..'\n'..table.concat({...},'\n'))
      h:close()
end

event.listen("modem_message", listmsg)

Как то так. Можно еще порт и дистанцию прилепить

Изменено 24 июня, 2015 пользователем Zer0Galaxy

[NEO 541]

event=require"event"

function listmsg(eventName, receiverAddress, senderAddress, port, distance, ...)
      local h = fs.open('@','a')	
      h:write('--'..os.date()..' From:'..senderAddress..'\n'..table.concat({...},'\n'))
      h:close()
end

event.listen("modem_message", listmsg)

Как то так. Можно еще порт и дистанцию прилепить

 

лучше io используй.

[Fingercomp 4 409]

Как именно? Пример будет? Ждем.

Достаточно написать функцию-обработчик, типа этого:

 

if _tsrmail then
  print('TSR Mail is already running!')
  return
end
local cp=require'computer'
local com=require'component'
local m=com.modem
local port=9
m.open(port)
function onModemMessageOrKey(eventName, receiverAddr, sender, port, distance, msg)
  if eventName=='modem_message' then
    local h = io.open('/@','a')    
    h:write('--'..os.date()..' From:'..sender..'\n'..table.concat({table.unpack(msg)},'\n'))
    h:close()
    beep=1
  elseif eventName=='key_down' then
    beep=0
  elseif beep>0 then
    cp.beep(440)
  end
  beep=-beep
end

event.listen('modem_message',onModemMessageOrKey)
event.listen('key_down',onModemMessageOrKey)

print('TSR Mail has started!')
_G._tsrmail=port

[swg2you Автор темы 403]

 

event=require"event"

function listmsg(eventName, receiverAddress, senderAddress, port, distance, ...)
      local h = fs.open('@','a')	
      h:write('--'..os.date()..' From:'..senderAddress..'\n'..table.concat({...},'\n'))
      h:close()
end

event.listen("modem_message", listmsg)

Как то так. Можно еще порт и дистанцию прилепить

 

А как сделать, чтобы эта штука сигнализировала пользователю о том, что новое сообщение получено и записано в файл?

[swg2you Автор темы 403]

Достаточно написать функцию-обработчик, типа этого:

Ох ты, набежали тут, примеров накидали ) я вообще-то с LeshaInc разговаривал ))

 

Ну ладно, попробуйте event.listen повесить без OpenOS, и на этом закроем тему.