BOT TWITTER (AUTO Nge-Twit)

Tanpa ba bi bu be bo langsung ke topik aja ok.
Alat & Bahan :

Twitter Apps
Yang belum punya silahkan kemari : https://dev.twitter.com/
CPanel yang support dengan PHP, Perl, & Cronjob
twitteroauth.php
Silahkan sedot aja disini : Twitteroauth
OAuth.php
Silahkan sedot disini : OAuth.php
Script Twitter.php

<?php

require_once('/home/user/public_html/bot_twit/twitteroauth.php'); define('CONSUMER_KEY', 'CONSUMER_KEY_KAMU'); define('CONSUMER_SECRET', 'CONSUMER_SECRET_KAMU'); define('ACCESS_TOKEN', 'ACCESS_TOKEN_KAMU'); define('ACCESS_TOKEN_SECRET', 'ACCESS_TOKEN_SECRET_KAMU');

$twitter = new TwitterOAuth(CONSUMER_KEY, CONSUMER_SECRET, ACCESS_TOKEN, ACCESS_TOKEN_SECRET);

$twitter->host = "https://api.twitter.com/1/";

if(!empty($_GET['bot'])){

$status = $_GET['bot'];

} else {

$status = "supported by http://habeebchuex.net/";

}

if(strlen($status) > 140) $status = substr($status, 0, 139);

$twitter->post('statuses/update', array('status' => $status));

?>

Script Twitter.pl

#!/usr/bin/perl
use IO::Socket;
use IO::Select;
use Socket;
@pesan = (
"Twitter%20Bot",
"http://habeebchuex.net%20nice%20blog",
);
$len = @pesan;
my $status = @pesan[int rand($len)];
my $url1 = ("http://habeebchuex.net/bot_tuit/Twitter.php?stat=$status");
my $stat1 = query($url1);
sub query($) {
my $url = $_[0];
$url =~ s/http:\/\///;
my $host = $url;
my $query = $url;
my $page = "";
$host =~ s/href=\"?http:\/\///;
$host =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/;
$query =~ s/$host//;
if ( $query eq "" ) { $query = "/"; }
eval {
my $sock = IO::Socket::INET->new(PeerAddr => "$host", PeerPort => "80", Proto => "tcp") or return;
print $sock "GET $query HTTP/1.0\r\nHost: $host\r\nAccept: */*\r\nUser-Agent: Mozilla/5.0\r\n\r\n";
my @r = <$sock>;
$page = "@r";
close($sock);
};
return $page;
}

Langkah - Langkah :

Login ke https://dev.twitter.com/ dengan akun twitter kamu. Bikin Apps baru, atau yang sudah punya silahkan ke apps kamu.
Login ke CPanel kamu.
Download script twitteroauth.php dan OAuth.php yang telah disediakan, lalu upload ke CPanel kamu.
Bikin file Twitter.php yg isinya seperti diatas, lalu kondisikan sesuai apps dan directori di hostingan kamu.
Coba panggil manual URL Twitter.php kamu, apakah sudah work apa belom.
Bikin file Twitter.pl yg isinya seperti diatas [juga], lalu edit dan kondisikan sesuai URL Twitter.php kamu.
Lalu kembali ke CPanel, masuk ke Settingan Cronjob

Jika dalam contoh gambar diatas setingan nya akan otomatis retweet tiap 1 jam sekali, atau sesuaikan dengan kebutuhan kamu. :D
Isi settingan command dengan :
/usr/bin/perl /home/user/public_html/bot_twit/Twitter.pl >/dev/null 2>&1
Sesuaikan tulisan hijau dengan direktori tempat kamu upload Twitter.pl.
Preview : http://twitter.com/habeebchuex [smoga aja CPanel t4 aku upload masih work :S]
Udah gitu aja, silahkan komen kalo ada yg belom jelas :D