Как я могу сделать своего бота Perl Jabber управляемой событиями программой? - PullRequest
Новая
       17

Как я могу сделать своего бота Perl Jabber управляемой событиями программой?

3 голосов
/ 29 марта 2010

Я пытаюсь создать бота Jabber, и у меня возникают проблемы с его поддержкой во время ожидания сообщений. Как мне заставить мой скрипт работать постоянно? Я попытался вызвать подпрограмму с циклом while, который я теоретически настроил для проверки любых сообщений и реагирования соответствующим образом, но мой сценарий не работает таким образом.

Вот мой источник: http://pastebin.com/03Habbvh

# set jabber bot callbacks
$jabberBot->SetMessageCallBacks(chat=>\&chat);
$jabberBot->SetPresenceCallBacks(available=>\&welcome,unavailable=>\&killBot);
$jabberBot->SetCallBacks(receive=>\&prnt,iq=>\&gotIQ);

$jabberBot->PresenceSend(type=>"available");
$jabberBot->Process(1);

sub welcome
{
    print "Welcome!\n";
    $jabberBot->MessageSend(to=>$jbrBoss->GetJID(),subject=>"",body=>"Hello There!",type=>"chat",priority=>10);
    &keepItGoing;
}

sub prnt
{
    print $_[1]."\n";
}

#$jabberBot->MessageSend(to=>$jbrBoss->GetJID(),subject=>"",body=>"Hello There! Global...",type=>"chat",priority=>10);
#$jabberBot->Process(5);
#&keepItGoing;

sub chat
{
    my ($sessionID,$msg) = @_;
    $dump->pl2xml($msg);
    if($msg->GetType() ne 'get' && $msg->GetType() ne 'set' && $msg->GetType() ne '')
    {
        my $jbrCmd = &trimSpaces($msg->GetBody());
        my $dbQry = $dbh->prepare("SELECT command,acknowledgement FROM commands WHERE message = '".lc($jbrCmd)."'");
        $dbQry->execute();
        if($dbQry->rows() > 0 && $jbrCmd !~ /^insert/si)
        {
            my $ref = $dbQry->fetchrow_hashref();
            $dbQry->finish();
            $jabberBot->MessageSend(to=>$msg->GetFrom(),subject=>"",body=>$ref->{'acknowledgement'},type=>"chat",priority=>10);
            eval $ref->{'command'};
            &keepItGoing;
        }
        else
        {
            $jabberBot->MessageSend(to=>$msg->GetFrom(),subject=>"",body=>"I didn't understand you!",type=>"chat",priority=>10);
            $dbQry->finish();
            &keepItGoing;
        }
    }
}

sub gotIQ
{
    print "iq\n";
}

sub trimSpaces
{
    my $string = $_[0];
    $string =~ s/^\s+//; #remove leading spaces
    $string =~ s/\s+$//; #remove trailing spaces
    return $string;
}

sub keepItGoing
{

    print "keepItGoing!\n";
    my $proc = $jabberBot->Process(1);
    while(defined($proc) && $proc != 1)
    {
        $proc = $jabberBot->Process(1);
    }
}

sub killBot
{
    print "killing\n";
    $jabberBot->MessageSend(to=>$_[0]->GetFrom(),subject=>"",body=>"Logging Out!",type=>"chat",priority=>10);
    $jabberBot->Process(1);
    $jabberBot->Disconnect();
    exit;
}

Ответы [ 3 ]

6 голосов
/ 29 марта 2010

POE имеет несколько довольно хороших фреймворков для событий. Я не знаю, насколько хорош тот для Jabber (POE :: Component :: Jabber), но, наверное, стоит посмотреть.

4 голосов
/ 29 марта 2010

AnyEvent :: XMPP является до смешного всеобъемлющим, и, поскольку он использует AnyEvent , может выполняться в любом приложении, управляемом событиями, с поддерживаемым циклом ( собственного AnyEvent , Событие , EV , Tk , Glib / Gtk , даже POE ).

2 голосов
/ 29 марта 2010

Я думаю, вы можете заставить свой пример работать следующим образом: 

0 while $jabber->Process

Сказав это, я настоятельно рекомендую использовать подходящую среду обработки событий, например AnyEvent (мой личный фаворит) или POE (традиционный выбор).

...