sydney/Autobot
1
0 Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Cleaning up.

Browse Source
This commit is contained in:
Elijah Perrault committed 2011-03-17 22:50:14 -06:00
1 parent 9a61c75772
commit a153045bc3
1 file changed
+14 -28
Download Patch File Download Diff File Expand all files Collapse all files
lib/API/IRC.pm
+14 -28
View File
@@ -15,8 +15,7 @@ our @EXPORT_OK = qw(ban cjoin cpart cmode umode kick privmsg notice quit nick na
API::Std::event_add('on_disconnect'); API::Std::event_add('on_disconnect');
# Set a ban, based on config bantype value. # Set a ban, based on config bantype value.
sub ban sub ban {
{
my ($svr, $chan, $type, $user) = @_; my ($svr, $chan, $type, $user) = @_;
my $cbt = (API::Std::conf_get('bantype'))[0][0]; my $cbt = (API::Std::conf_get('bantype'))[0][0];
@@ -48,8 +47,7 @@ sub ban
} }
# Join a channel. # Join a channel.
sub cjoin sub cjoin {
{
my ($svr, $chan, $key) = @_; my ($svr, $chan, $key) = @_;
Auto::socksnd($svr, "JOIN ".((defined $key) ? "$chan $key" : "$chan")); Auto::socksnd($svr, "JOIN ".((defined $key) ? "$chan $key" : "$chan"));
@@ -58,8 +56,7 @@ sub cjoin
} }
# Part a channel. # Part a channel.
sub cpart sub cpart {
{
my ($svr, $chan, $reason) = @_; my ($svr, $chan, $reason) = @_;
if (defined $reason) { if (defined $reason) {
@@ -73,8 +70,7 @@ sub cpart
} }
# Set mode(s) on a channel. # Set mode(s) on a channel.
sub cmode sub cmode {
{
my ($svr, $chan, $modes) = @_; my ($svr, $chan, $modes) = @_;
Auto::socksnd($svr, "MODE $chan $modes"); Auto::socksnd($svr, "MODE $chan $modes");
@@ -83,8 +79,7 @@ sub cmode
} }
# Set mode(s) on us. # Set mode(s) on us.
sub umode sub umode {
{
my ($svr, $modes) = @_; my ($svr, $modes) = @_;
Auto::socksnd($svr, "MODE ".$Proto::IRC::botinfo{$svr}{nick}." $modes"); Auto::socksnd($svr, "MODE ".$Proto::IRC::botinfo{$svr}{nick}." $modes");
@@ -93,8 +88,7 @@ sub umode
} }
# Send a PRIVMSG. # Send a PRIVMSG.
sub privmsg sub privmsg {
{
my ($svr, $target, $message) = @_; my ($svr, $target, $message) = @_;
# Get maximum length. # Get maximum length.
@@ -111,8 +105,7 @@ sub privmsg
} }
# Send a NOTICE. # Send a NOTICE.
sub notice sub notice {
{
my ($svr, $target, $message) = @_; my ($svr, $target, $message) = @_;
# Get maximum length. # Get maximum length.
@@ -129,8 +122,7 @@ sub notice
} }
# Send an ACTION PRIVMSG. # Send an ACTION PRIVMSG.
sub act sub act {
{
my ($svr, $target, $message) = @_; my ($svr, $target, $message) = @_;
Auto::socksnd($svr, "PRIVMSG $target :\001ACTION $message\001"); Auto::socksnd($svr, "PRIVMSG $target :\001ACTION $message\001");
@@ -139,8 +131,7 @@ sub act
} }
# Change bot nickname. # Change bot nickname.
sub nick sub nick {
{
my ($svr, $newnick) = @_; my ($svr, $newnick) = @_;
Auto::socksnd($svr, "NICK $newnick"); Auto::socksnd($svr, "NICK $newnick");
@@ -151,8 +142,7 @@ sub nick
} }
# Request the users of a channel. # Request the users of a channel.
sub names sub names {
{
my ($svr, $chan) = @_; my ($svr, $chan) = @_;
Auto::socksnd($svr, "NAMES $chan"); Auto::socksnd($svr, "NAMES $chan");
@@ -161,8 +151,7 @@ sub names
} }
# Send a topic to the channel. # Send a topic to the channel.
sub topic sub topic {
{
my ($svr, $chan, $topic) = @_; my ($svr, $chan, $topic) = @_;
Auto::socksnd($svr, "TOPIC $chan :$topic"); Auto::socksnd($svr, "TOPIC $chan :$topic");
@@ -171,8 +160,7 @@ sub topic
} }
# Kick a user. # Kick a user.
sub kick sub kick {
{
my ($svr, $chan, $nick, $msg) = @_; my ($svr, $chan, $nick, $msg) = @_;
Auto::socksnd($svr, "KICK $chan $nick :".((defined $msg) ? $msg : 'No reason')); Auto::socksnd($svr, "KICK $chan $nick :".((defined $msg) ? $msg : 'No reason'));
@@ -207,8 +195,7 @@ sub who {
} }
# Get nick, ident and host from a <nick>!<ident>@<host> # Get nick, ident and host from a <nick>!<ident>@<host>
sub usrc sub usrc {
{
my ($ex) = @_; my ($ex) = @_;
my @si = split('!', $ex); my @si = split('!', $ex);
@@ -222,8 +209,7 @@ sub usrc
} }
# Match two IRC masks. # Match two IRC masks.
sub match_mask sub match_mask {
{
my ($mu, $mh) = @_; my ($mu, $mh) = @_;
# Prepare the regex. # Prepare the regex.