Я часто зависаю в ирке, на
далнет ру =), точнее, скока в инете сижу, все в
ирке зависаю. Так вот, обычно, народ юзает
мирк или пирч, я юзаю мирк, и время от
времени кто-нибудь да реквестит моё время и
версию клиента =) Сиё занятие мне просто
надоело и почесав в затылочной части
черепной коробки я почитал рфц по IRC, не
найдя там ничего путного об этих реквестах, я
включил дебуг мод в ирке командой /debug on, в
результате одного сеанса с ирк сервером и
запросов самому себе у меня был формат
команды запроса и ответа мирка на
вышеупомянутые реквесты. Не долго думая, я
написал простенького двустороннего
клиента, работающего между мирком и ирк
сервером, единственное удобство внешней
программы в том, что при выходе новой версии
не надо вновь ковырять экзешник =)
и подменять версию. К
сожалению, зная тока один язык кодинга, Перл,
релиз подмены версии клиента, времени и
даже кастом ответа на запрос пинга, а также
возможность прямо из мирка посылать в
статусное окошко сообщения любого
содержания, реализованы в виде *.pl =)
Полезность этого примера
заключается в том, что вы увидите, как просто
работать с сокетом в качестве и сервера и
клиента, также я рассмотрю здесь тот шматок
кода, который позволит вашим скриптам не
останавливать весь скрипт до получения
данных с МАНИПУЛЯТОРА, будь то сокет или
файл.
#Fake Reply coded by TEHb13 mail me: TEHb13@xakep.ru if
you have any questinos
#FR.pl
# Подключаем модуль Socket для
работы с сокетами
use Socket;
# Далее объявляем все нужные нам
переменные
$sp = chr(1); # Спец символ
используемый в ИРК протоколе
$server_port = '6613'; #
Локальный порт к которому буит
подключаться мирк
$remote_host = 'forest.dal.net.ru'; #
Удаленный ИРК сервер
$remote_port = '6667'; # Порт
удаленного ИРК сервера
$version = 'Совковая компиляция';
# Ответ на запрос о версии клиента
$time = 'пропил =)'; #
Ответ на запрос о времени на клиентской
машине
# Сождание сокета для подключения
к ИРК серверу
socket(TO_SERVER, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
$internet_addr = inet_aton($remote_host) or die "Couldn't
convert $remote_host into an Internet address: $!\n";
$paddr = sockaddr_in($remote_port, $internet_addr);
connect(TO_SERVER, $paddr) or die "Couldn't connect to
$remote_host:$remote_port : $!\n";
# Отключение буферизации, для
танкистов именно из-за нее скрипты
работающие с сокетами выкидывают вам
ошибку 500
$old_filehandle_1 = select(TO_SERVER);
$| = 1;
select($old_filehandle_1);
# Создание сокета для локального
сервера к которому будет подключен мирк
socket(SERVER, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
setsockopt(SERVER, SOL_SOCKET, SO_REUSEADDR, 1);
$my_addr = sockaddr_in($server_port, INADDR_ANY);
bind(SERVER, $my_addr) or die "Couldn't bind to port
$server_port : $!\n";
listen(SERVER, 1) or die "Couldn't listen on port
$server_port : $!\n";
# Основной цикл, работает пока
мирк подключен к локальному серверу
while (accept(CLIENT, SERVER)) {
# Опять же отключение буферизации
но для другова манипулятора
$old_filehandle_2 = select(CLIENT);
$| = 1;
select($old_filehandle_2);
# Самое интересное, создание двух
параллельных процессов, для того чтобы,
скрипт не останавливался до тех пор пока в манипулятор не попадут данные
die "can't
fork: $!" unless defined($kidpid = fork());
# Собственно работа с двумя
процессами
if ($kidpid)
{
while (defined ($line
= <CLIENT>)) {
print TO_SERVER $line;
}
# Убъет процессы как только мирк
отключится от локального сервера
kill("TERM" => $kidpid);
}
else {
while (defined ($line = <TO_SERVER>))
{
# Собственно в этой части
подделывается ответ о версии и времени =)
if ($line=~/:.VERSION$sp/){
if ($line=~/!/){$fline=$`; $fline=~s/://;}
print TO_SERVER "NOTICE $fline :$spON VERSION REPLY -> $version$sp\n";
}
elsif ($line=~/:.TIME$sp/){
if ($line=~/!/){$fline=$`;
$fline=~s/://;}
print TO_SERVER "NOTICE $fline :$sp TIME $time$sp\n";
}
else {
print CLIENT $line;
}
}
}
exit;
}
# Закрываем сокет раз
close(SERVER);
# Закрываем сокет два
close(TO_SERVER);
# Вот собственно и Все.
