Langsung aja lah,,,, Cekidotttttttttttt...... :)
kali ini pake file *.pl ya bkan *.php :D
pl code :
Kalau yg ini sih gak usah pake CronJob :P
langsung di Upload aja di Hosting kamu
READMORE
kali ini pake file *.pl ya bkan *.php :D
pl code :
#!/usr/bin/perl
use strict;
use utf8;
use AnyEvent;
use AnyEvent::XMPP::Client;
use AnyEvent::XMPP::IM::Message;
#
# Simple pl Fb Chat bot
# by casper_kae
# 16/8/2012
#
my $userid = 'USER ID KAMU';
my $pass = 'PASSWORD KAMU';
my $server = "chat.facebook.com";
my $konek = AnyEvent->condvar;
my $bot = AnyEvent::XMPP::Client->new (debug => 0);
$bot->add_account ($userid,$pass,$server);
$bot->reg_cb(
session_ready => sub {
my ($bot, $acc) = @_;
$bot->set_presence("avaliable","online",10);
},
message => sub {
my ($bot, $acc, $msg) = @_;
if($msg->body()=~ /^[\s]*$/){}else{
$msg->make_reply->add_body("Maaf saya lagi tidak ol.");
$msg->make_reply->send;
}
}
);
$bot->start;
$konek->wait;
Kalau yg ini sih gak usah pake CronJob :P
langsung di Upload aja di Hosting kamu
