Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl
- use Net::IRC;
- use Net::MySQL;
- $server="someserver";
- $chan="#somechan";
- $db="dbname";
- $tblname="tablename";
- $user="mysqluser";
- $pass="mysqlpass";
- $botname="botname";
- $mysql=Net::MySQL->new(hostname=>"localhost", database=>$db, user=>$user, password=>$pass);
- $irc=new Net::IRC;
- $conn=$irc->newconn(Nick=>$botname, Server=>$server, Port=>6667, Ircname=>$botname, Username=>$botname);
- $conn->add_global_handler('376',\&on_connect);
- $conn->add_handler('public',\&on_public);
- $irc->start();
- sub on_connect{
- $self=$_[0];
- $self->join($chan);
- }
- sub on_public{
- ($self,$event)=@_;
- $text=$event->(args)[0];
- $nick=$event->nick;
- if($text=~/((what)|(wut)|(wat)|(whut)|(wtf))(( is)|('s)|(s)|( are)) ([^\?]+)\??/i){
- $what=$12;
- $mysql->query("SELECT * FROM $tblname WHERE what LIKE '%$what%'");
- $set=$mysql->set_record_iterator();
- while($record=$set->each()){
- $who=$record->[0];
- $isthis=$record->[2];
- print "$who said $what is $isthis. ";
- }
- $self->privmsg($chan,$what);
- }elsif($text=~/ is /i){
- @whatsthis=split(/ is /i,$text);
- $what=$whatsthis[0];
- $isthis=$whatsthis[1];
- $mysql->query("INSERT INTO $tblname VALUES('$nick','$what','$ishis')");
- }
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement