Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|

19.01.2009, 22:42
|
|
Members of Antichat - Level 5
Регистрация: 15.06.2008
Сообщений: 941
Провел на форуме: 5111568
Репутация:
2399
|
|
[perl] Simple ICQ bot

простой ICQ бот на perl!, основным достоинством которого является модульность и легкость добавления новых функций.
Бот состоит из основного скрипта, к которому можно подключать плагины на PERL, неограниченно расширяя его функционал.
* Администрирование бота осуществляется по ICQ.
* Легкость разработки и установки плагинов
* Основной скрипт обладает множеством функций для упрощения разработки плагинов, благодаря чему разработка плагина фактически состоит только из написания непосредственно выполняемой им функции
* Для добавления нового плагина боту нужно всего лишь поместить файл плагина в папку плагинов и перезапустить бота.
* Огромные возможности плагинов
* Возможности плагинов ограничены лишь возможностями языка perl
для корректной работы необходим ActivePerl или любая ос *nix.
в config.ini настройки (формат: имя = значение) :
icq сервер:
host == login.oscar.aol.com
порт сервера:
port == 5190
номер админа:
admin == 7434214
пароль для входа в админку:
admin_password == passw
BOT_uin == uin_бота
BOT_password == пароль_uin_бота
логирование (1 - да, 0 - нет):
logging == 1
папка с логами:
log_folder == log\
режим откладки:
DEBUG == 0
папка с логами откладки:
DEBUG_folder == debug\
в plugins.ini список плагинов (в формате: команда;файл):
админка:
!admin;admin.pl
!exit - отключает бота:
!exit;exit.pl
!reboot - перезагрузка ПК:
!reboot;reboot.pl
!shutdown- выключение ПК:
!shutdown;shutdown.pl
написание плагина
любой программист может написать свой плагин для бота, придерживаясь спецификации языка программирования perl.
бот передает вашему скрипту следующие переменные:
* $rs - ответ сервера
* $_UIN - номер отправителя
* $_MSG - сообщение
* @_MESG - масив слов в сообщении (пример:
$_MSG = 'hello my name elwaux', тогда
@_MESG[1]='hello', @_MESG[2]='my', @_MESG[3]='name', ...)
* $admin - номер админа
* $uin - номер бота
* $password - пароль бота
* также можно получить любое значение из config.ini:
$CONFIG{имя}
(пример: в config.ini: testing == nana,
тогда чтоб получить значение имени testing: $CONFIG{'testing'})
также ви можете использовать готовие функции:
* saveFile(file, text) - сохранить text в файл file
* logIt(file, text) - ввести в лог file текст text
* auth(uin, reason) - авторизация на номер uin с причиной reason
* send_msg(uin, msg) - отправить сообщение msg на номер uin
пример плагина hello_world.pl:
(!helloword msg) - оправляет вам обратно текст msg
Код:
send_msg($_UIN,@_MEST[1]);
на команду: !helloworld testing_my_first_plugin
бот вам ответит: testing_my_first_plugin
вот и все пока..
большая просьба ко всем кто скачал:
отпишите здесь о том что вам понравилось или нет у бота, что бы вы хотели еще увидеть в нем, какие недостатки встретили.. и так далее..)
рад всем ответам!
|
|
|

19.01.2009, 22:48
|
|
Постоянный
Регистрация: 29.04.2008
Сообщений: 913
Провел на форуме: 10460911
Репутация:
1031
|
|
хороший бот, на перле никогда не встречал
|
|
|

19.01.2009, 23:13
|
|
Постоянный
Регистрация: 02.07.2008
Сообщений: 472
Провел на форуме: 3728999
Репутация:
444
|
|
сам писал или основу брал?
|
|
|

19.01.2009, 23:18
|
|
Members of Antichat - Level 5
Регистрация: 15.06.2008
Сообщений: 941
Провел на форуме: 5111568
Репутация:
2399
|
|
Сообщение от heretic1990
сам писал или основу брал?
полностью сам с нуля.
|
|
|

19.01.2009, 23:20
|
|
Познавший АНТИЧАТ
Регистрация: 01.05.2006
Сообщений: 1,021
Провел на форуме: 3424739
Репутация:
921
|
|
заслужил +++++  не испытывал, но за старания и кроссплатформенность респект
|
|
|

19.01.2009, 23:30
|
|
Banned
Регистрация: 16.07.2008
Сообщений: 11
Провел на форуме: 294278
Репутация:
102
|
|
* Огромные возможности плагинов
* Возможности плагинов ограничены лишь возможностями языка perl
=>
*У perl'a огромные возможности
#у этого кода нет
|
|
|

19.01.2009, 23:36
|
|
Members of Antichat - Level 5
Регистрация: 15.06.2008
Сообщений: 941
Провел на форуме: 5111568
Репутация:
2399
|
|
Сообщение от Ил-2
*У perl'a огромные возможности
#у этого кода нет
я имел в виду, что можна написать любой нужний плагин, с любими нужними функциями
|
|
|

19.01.2009, 23:37
|
|
Reservists Of Antichat - Level 6
Регистрация: 23.08.2007
Сообщений: 1,237
Провел на форуме: 18127311
Репутация:
1676
|
|
=>
*У perl'a огромные возможности
#у этого кода нет
Не надоело везде подобные комментарии писать? Может сам что-нибудь напишешь и выложишь?
|
|
|

19.01.2009, 23:40
|
|
Постоянный
Регистрация: 02.07.2008
Сообщений: 472
Провел на форуме: 3728999
Репутация:
444
|
|
тогда молоток, лови +
P.S. желаю удачи и дальнейшего развития бота!
|
|
|

19.01.2009, 23:40
|
|
Banned
Регистрация: 16.07.2008
Сообщений: 11
Провел на форуме: 294278
Репутация:
102
|
|
Сообщение от Kaimi
Не надоело везде подобные комментарии писать? Может сам что-нибудь напишешь и выложишь?
тебя ткнули лицом в твой быдлокод и ты до сих пор успокоиться не можешь чтоли?)
upd: а может тебя моя фотокарточка раздражает?
^^
Последний раз редактировалось Ил-2; 19.01.2009 в 23:47..
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|