use strict; our $server = 'irc.freenode.net'; our $nick = 'MiniTD'; our @channels = ('#thinkdifferent'); our %ops; $ops{'Think_differentl!n=Think_Di@adsl-75-24-109-211.dsl.pltn13.sbcglobal.net'} = 'owner'; sub start_up { my ($self) = @_; $self->privmsg('NickServ', 'identify *****'); } our $startup = \&start_up; our %getmode; sub getops { my ($self, $channel) = @_; if ($channel eq '#thinkdifferent') { $self->privmsg('ChanServ', "op $channel"); } } $getmode{'#thinkdifferent'} = \&getops; do 'modules/ban.pl'; do 'modules/botwar.pl'; do 'modules/cycle.pl'; do 'modules/die.pl'; do 'modules/hi.pl'; do 'modules/invite.pl'; do 'modules/join.pl'; do 'modules/kick.pl'; do 'modules/load.pl'; do 'modules/mode.pl'; do 'modules/op.pl'; do 'modules/quit.pl'; do 'modules/say.pl'; do 'modules/topic.pl'; do 'modules/voice.pl';