# Auto IRC Bot. An advanced, lightweight and powerful IRC bot.
# Copyright (C) 2010-2011 Xelhua Development Team (doc/CREDITS)
# This program is free software; rights to this code are stated in doc/LICENSE.

# IRC API subroutines.
package API::IRC;
use strict;
use warnings;
use Exporter;

our @ISA       = qw(Exporter);
our @EXPORT_OK = qw(cjoin cpart cmode umode privmsg notice quit nick usrc);


# Join a channel.
sub cjoin 
{
	my ($svr, $chan) = @_;
	
	Auto::socksnd($svr, "JOIN $chan");
}

# Part a channel.
sub cpart 
{
	my ($svr, $chan, $reason) = @_;
	
	if (defined $reason) {
		Auto::socksnd($svr, "PART $chan :$reason");
	}
	else {
		Auto::socksnd($svr, "PART $chan :Leaving");
	}
}

# Set mode(s) on a channel.
sub cmode 
{
	my ($svr, $chan, $modes) = @_;

	Auto::socksnd($svr, "MODE $chan $modes");
}

# Set mode(s) on us.
sub umode 
{
	my ($svr, $modes) = @_;
	
	Auto::socksnd($svr, "MODE ".$Parser::IRC::botnick{$svr}." $modes");
} 

# Send a PRIVMSG.
sub privmsg 
{
	my ($svr, $target, $message) = @_;
	
	Auto::socksnd($svr, "PRIVMSG $target :$message");
}

# Send a NOTICE.
sub notice 
{
	my ($svr, $target, $message) = @_;
	
	Auto::socksnd($svr, "NOTICE $target :$message");
}

# Change bot nickname.
sub nick 
{
	my ($svr, $newnick) = @_;
	
	Auto::socksnd($svr, "NICK $newnick");
	
	$Parser::IRC::botnick{$svr}{newnick} = $newnick;
}

# Quit IRC.
sub quit 
{
	my ($svr, $reason) = @_;
	
	if (defined $reason) {
		Auto::socksnd($svr, "QUIT :$reason");
	}
	else {
		Auto::socksnd($svr, "QUIT :Leaving");
	}
	
	delete $Parser::IRC::got_001{$svr} if (defined $Parser::IRC::got_001{$svr});
	delete $Parser::IRC::botnick{$svr} if (defined $Parser::IRC::botnick{$svr});
}


# Get nick, ident and host from a <nick>!<ident>@<host>
sub usrc
{
	my ($ex) = @_;
	
	my @si = split('!', $ex);
	my @sii = split('@', $si[1]);
	
	return (
		nick  => $si[0],
		user => $si[1],
		host  => $sii[1]
	);
}