#!/usr/bin/perl -w## Proje                : Sinbad# Dosya                : sinbad.pm# Surum                : 01.01.0014# Son degisiklik tarihi        : 15/07/2003 12:20# Son degisikligi yapan        : acemiuse strict;use POE;use POE::Component::IRC;use POE::Component::Client::UserAgent;my $DEBUG_MODE        = 1;                # test modu icin 1, normal calisma modu icin 0 my $IRC_SERVER        = "irc.freenode.net";        # baglanilacak IRC sunucumy $IRC_PORT        = 6667;                # baglanti kurulacak TCP portumy $IRC_CHANNEL        = "#ceviz";            # baglanilacak IRC kanalimy $BOT_NICKNAME    = "bot_snd";            # bot nicknamemy $BOT_USERNAME    = "bot_snd";            # bot kullanici adimy $BOT_IRCNAME        = "bot_snd";            # bot aciklamamy $MESAJ_JOIN        = "selam";            # kanala girildiginde gonderilecek mesajmy $MESAJ_QUIT        = "bye";            # IRC sunucudan ayrilirken gonderilecek mesajmy $MESAJ_MSG        = "ben bir botum";        # /msg ile ozel mesaj gonderenlere gonderilecek mesajmy $CTCP_VERSION    = "Sinbad IRC Bot 01.01.0014a";    # CTCP VERSION isteklerine verilecek cevapmy $CTCP_USERINFO    = "Sinbad IRC Bot";        # CTCP USERINFO isteklerine verilecek cevapmy $CTCP_CLIENTINFO    = "Sinbad IRC Bot";        # CTCP CLIENTINFO isteklerine verilecek cevapmy $TIMER_KEEP_ALIVE    = 300;                # keep_alive fonksiyonunun kac saniyede bir calistirilacagimy $TIMER_REJOIN    = 30;                # bot kanaldan atilirsa, kac saniye sonra tekrar kanala girecegimy $UA_ALIAS        = "ua_alias";            # UserAgent (HTTP istemci) icin kullanilacak kodmy $UA_AGENT_NAME    = "Sinbad HTTP Client 01.01.0014a";    # UserAgent (HTTP istemci) icin kullanilacak istemci adimy $UA_TIMEOUT        = 60;                # UserAgent (HTTP istemci) icin zaman asimi suresi (saniye)my $WEB_USERLIST_PAGE    = "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">