Наброски на тему бота-селлера

[flabber]

Высылает по коммандам !5,!6,!7,!8,!9 соответственно текстовые файлы 5,6,7,8,9
С номера одмина !exit-бот завершает работу

PHP код:

#!/usr/bin/perl
use Net::OSCAR;
my $oscar = Net::OSCAR -> new;
$oscar -> set_callback_im_in(\&online);
my $uin='Номер бота';
my $pass='Пароль бота';
my $admin='номер админа';
$oscar -> signon($uin, $pass);
while (1) {
$oscar -> do_one_loop;
}
sub online
{
my ($oscar, $sender, $message) = @_;

sub help
{
my $help="!5\tпакажет имеющиеся 5 знаки\n!6\tшестизнаки\n!7\tсемизнаки\n!8\tвосьмизнаки\n!9\tдевятизнаки\n";
$oscar -> send_im($sender, $help);
}
if($message eq '!5')
{
open A,'5.txt';
local $/ = undef;
while($line=<A>)
{
sleep(1);
$oscar -> send_im($sender, $line);
close(A);
}
}

if($message eq '!6')
{
open B,'6.txt';
local $/ = undef;
while($line=<B>)
{
sleep(1);
$oscar -> send_im($sender, $line);
close(B);
}
}

if($message eq '!7')
{
open C,'7.txt';
local $/ = undef;
while($line=<C>)
{
sleep(1);
$oscar -> send_im($sender, $line);
close(C);
}
}

if($message eq '!8')
{
open D,'8.txt';
local $/ = undef;
while($line=<D>)
{
sleep(1);
$oscar -> send_im($sender, $line);
close(D);
}
}

if($message eq '!9')
{
open E,'9.txt';
local $/ = undef;
while($line=<E>)
{
sleep(1);
$oscar -> send_im($sender, $line);
close(E);
}
}

if($message eq '!help')
{
help;
}

if($sender eq $admin)
{
if($message eq '!exit')
{
$oscar -> send_im($admin, 'Система завершает свою работу');
exit;
}}} 


з.ы. код сыр и малопонятен,по этому и наброски ))

[Volkodav88]

flabber, можешь готовую прогу выложит, а то у меня нет perl.(

[flabber]

Volkodav88,Всё что с Net-OSCAR нихочет понимать perl2exe ;(

[.snif]

а сужествует ли простой icq бот на php или ещё на чём-нибудь, главное чтоб всё это было на хост залито) есть такое или нет? если да то может у каво нить есть и кто0то может поделиться)

[flabber]

.snif, Тык сайт модуля на пхп пример простого бота вместе с модулём идёт...

[.snif]

<font color=009900>flabber</font>, :helps: непонял

Добавлено через 1 минуту
дак погоди, мне то нужен бот который будет раздавать прокси, тогда получается мне всего лиш нужно поменять пару строк в твоём боте и всё!

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

[flabber]

.snif,
ф подписи