#include "module.h"

#define AUTHOR "Rob"
#define VERSION "1"

void myHelp(User *u);
void myFullHelpSyntax(User *u);
int myFullHelp(User *u);
void mySendResponse(User *u, char *channel, char *mask, char *time);

int do_tban(User *u); 
void addBan(Channel *c, time_t timeout, char *banmask);
int delBan(int argc, char **argv);
int canBanUser(Channel *c, User *u, User *u2);

int AnopeInit(int argc, char **argv) {
    Command *c;	
    int status = 0;

    moduleSetChanHelp(myHelp);
    c = createCommand("TBAN", do_tban, NULL, -1,-1,-1,-1,-1);
    moduleAddHelp(c,myFullHelp);
    status = moduleAddCommand(CHANSERV, c, MOD_HEAD);

    if(status!=MOD_ERR_OK) {
	return MOD_STOP;
    }
    return MOD_CONT;
}

void AnopeFini(void)
{
  /* module is unloading */
}

void myHelp(User *u) {
    notice(s_ChanServ,u->nick, "   TBAN         Bans the user for a given length of time"); 
}

void myFullHelpSyntax(User *u) {
    notice(s_ChanServ,u->nick,"Syntax: TBAN channel nick time");
}

int myFullHelp(User *u) {
    myFullHelpSyntax(u);
    notice(s_ChanServ,u->nick,"");
    notice(s_ChanServ,u->nick,"Bans the given user from a channel");
    notice(s_ChanServ,u->nick,"for a specified length of time.");
    notice(s_ChanServ,u->nick,"If the ban is removed before hand, it will");
    notice(s_ChanServ,u->nick,"NOT be replaced by chanserv.");
    return MOD_CONT;
}

void mySendResponse(User *u, char *channel, char *mask, char *time) {
    notice(s_ChanServ,u->nick,"%s banned from %s, will auto-expire in %s",mask,channel,time);
}

int do_tban(User *u) {
    char mask[BUFSIZE];
    Channel *c;
    User *u2=NULL;

    char *buffer = moduleGetLastBuffer();
    char *chan;
    char *nick;
    char *time;

    chan = myStrGetToken(buffer, ' ', 0);
    nick = myStrGetToken(buffer,' ',1);
    time = myStrGetToken(buffer,' ',2);
    
    if(time && chan && nick) {
	
        if (!(c = findchan(chan))) {
            notice_lang(s_ChanServ, u, CHAN_X_NOT_IN_USE, chan);
        } else if (!(u2 = finduser(nick))) {
            notice_lang(s_ChanServ, u, NICK_X_NOT_IN_USE, nick);
        } else {
            if(canBanUser(c,u,u2)) {
                get_idealban(c->ci, u2, mask, sizeof(mask)); 
                addBan(c,dotime(time),mask);
                mySendResponse(u,chan,mask,time);
            }
        }
    } else {
        myFullHelpSyntax(u);
    } 
    if(time) free(time);
    if(nick) free(nick);
    if(chan) free(chan);
 
    return MOD_CONT;
}

void addBan(Channel *c, time_t timeout, char *banmask) {
    char *av[3];
    char *cb[2];

    cb[0] = c->name;
    cb[1] = banmask;

    av[0] = sstrdup("+b");
    av[1] = banmask;

    anope_cmd_mode(whosends(c->ci), c->name, "+b %s", av[1]);
    chan_set_modes(s_ChanServ, c, 2, av, 1);

    free(av[0]);
    moduleAddCallback("tban",time(NULL)+timeout,delBan,2,cb);
}

int delBan(int argc, char **argv) {
    char *av[3];
    Channel *c;

    av[0] = sstrdup("-b");
    av[1] = argv[1];

    if((c=findchan(argv[0])) && c->ci ) {
	    anope_cmd_mode(whosends(c->ci), c->name, "-b %s", av[1]);
	    chan_set_modes(s_ChanServ, c, 2, av, 1);
    }
    
    free(av[0]);
   
    return MOD_CONT;
}

int canBanUser(Channel *c, User *u, User *u2) {
    ChannelInfo *ci;
    int ok = 0;
    if (!(ci = c->ci)) {
        notice_lang(s_ChanServ, u, CHAN_X_NOT_REGISTERED, c->name);
    } else if (ci->flags & CI_VERBOTEN) {
        notice_lang(s_ChanServ, u, CHAN_X_FORBIDDEN, c->name);
    } else if (!check_access(u, ci, CA_BAN)) {
        notice_lang(s_ChanServ, u, ACCESS_DENIED); 
    } else if (ircd->except && is_excepted(ci, u2)) {
        notice_lang(s_ChanServ, u, CHAN_EXCEPTED, u2->nick, ci->name);
    } else if (ircd->protectedumode && is_protected(u2)) {
        notice_lang(s_ChanServ, u, PERMISSION_DENIED);
    } else {
        ok = 1;
    }

    return ok;
}

/* EOF */