Advertisement
Guest User

Untitled

a guest
May 6th, 2017
77
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 1.52 KB | None | 0 0
  1. #!/usr/bin/perl
  2. use Net::IRC;
  3. use Net::MySQL;
  4. $server="someserver";
  5. $chan="#somechan";
  6. $db="dbname";
  7. $tblname="tablename";
  8. $user="mysqluser";
  9. $pass="mysqlpass";
  10. $botname="botname";
  11. $mysql=Net::MySQL->new(hostname=>"localhost", database=>$db, user=>$user, password=>$pass);
  12. $irc=new Net::IRC;
  13. $conn=$irc->newconn(Nick=>$botname, Server=>$server, Port=>6667, Ircname=>$botname, Username=>$botname);
  14. $conn->add_global_handler('376',\&on_connect);
  15. $conn->add_handler('public',\&on_public);
  16. $irc->start();
  17. sub on_connect{
  18.           $self=$_[0];
  19.           $self->join($chan);
  20. }
  21. sub on_public{
  22.           ($self,$event)=@_;
  23.           $text=$event->(args)[0];
  24.           $nick=$event->nick;
  25.           if($text=~/((what)|(wut)|(wat)|(whut)|(wtf))(( is)|('s)|(s)|( are)) ([^\?]+)\??/i){
  26.                    $what=$12;
  27.                    $mysql->query("SELECT * FROM $tblname WHERE what LIKE '%$what%'");
  28.                    $set=$mysql->set_record_iterator();
  29.                    while($record=$set->each()){
  30.                              $who=$record->[0];
  31.                              $isthis=$record->[2];
  32.                              print "$who said $what is $isthis. ";
  33.                    }
  34.                    $self->privmsg($chan,$what);
  35.          }elsif($text=~/ is /i){
  36.                    @whatsthis=split(/ is /i,$text);
  37.                    $what=$whatsthis[0];
  38.                    $isthis=$whatsthis[1];
  39.                    $mysql->query("INSERT INTO $tblname VALUES('$nick','$what','$ishis')");
  40.          }
  41. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement