Поиск по сайту
Результаты поиска по тегам 'send file'.
Найдено 1 результат
-
Модуль отправки: 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, которая будет хранить адресную книгу, дополняя адресатов из @, большие файлы пересылать порциями обходя ограничение на размер пакета, красиво показывать @ добавляя функции ответа и сохранения, ну и все такое. А в резидентный модуль неплохо бы добавить отклик "принял".
