# lib/Core/Cmd.pm - Core commands.
# Copyright (C) 2010-2011 Xelhua Development Group, et al.
# This program is free software; rights to this code are stated in doc/LICENSE.
package Core::Cmd;
use strict;
use warnings;
use English;
use API::Std qw(trans has_priv match_user);
use API::Log qw(dbug alog);
use API::IRC qw(notice quit usrc);

# Help hash for MODLOAD. Spanish, French and German needed.
our %HELP_MODLOAD = (
    'en' => 'Loads a module into the running Auto live.',
);
# MODLOAD callback.
sub cmd_modload
{
    my ($src, @argv) = @_;
    
    # Check for the needed parameters.
    if (!defined $argv[0]) {
        notice($src->{svr}, $src->{nick}, trans("Not enough parameters").".");
        return;
    }

    # Check if the module is already loaded.
    if (API::Std::mod_exists($argv[0])) {
        notice($src->{svr}, $src->{nick}, "Module \002".$argv[0]."\002 is already loaded.");
        return;
    }

    # Go for it!
    my $tn = Auto::mod_load($argv[0]);

    # Check if we were successful or not.
    if ($tn) {
        # We were!
        notice($src->{svr}, $src->{nick}, "Module \002".$argv[0]."\002 successfully loaded.");
    }
    else {
        # We weren't.
        notice($src->{svr}, $src->{nick}, "Module \002".$argv[0]."\002 failed to load.");
        return;
    }

    return 1;
}

# Help hash for MODUNLOAD. Spanish, French and German needed.
our %HELP_MODUNLOAD = (
    'en' => 'Unloads a module from the running Auto live.',
);
# MODUNLOAD callback.
sub cmd_modunload
{
    my ($src, @argv) = @_;
    
    # Check for the needed parameters.
    if (!defined $argv[0]) {
        notice($src->{svr}, $src->{nick}, trans("Not enough parameters").".");
        return;
    }

    # Check if the module exists.
    if (!API::Std::mod_exists($argv[0])) {
        notice($src->{svr}, $src->{nick}, "Module \002".$argv[0]."\002 is not loaded.");
        return;
    }

    # Go for it!
    my $tn = API::Std::mod_void($argv[0]);

    # Check if we were successful or not.
    if ($tn) {
        # We were!
        notice($src->{svr}, $src->{nick}, "Module \002".$argv[0]."\002 successfully unloaded.");
    }
    else {
        # We weren't.
        notice($src->{svr}, $src->{nick}, "Module \002".$argv[0]."\002 failed to unload.");
        return;
    }

    return 1;
}

# Help hash for MODRELOAD. Spanish, French and German needed.
our %HELP_MODRELOAD = (
    'en' => 'Unloads then loads a module into the running Auto live.',
);
# MODRELOAD callback.
sub cmd_modreload
{
    my ($src, @argv) = @_;
    
    # Check for the needed parameters.
    if (!defined $argv[0]) {
        notice($src->{svr}, $src->{nick}, trans("Not enough parameters").".");
        return;
    }

    # Check if the module exists.
    if (!API::Std::mod_exists($argv[0])) {
        notice($src->{svr}, $src->{nick}, "Module \002".$argv[0]."\002 is not loaded.");
        return;
    }

    # Go for it!
    my ($tvn, $tln) = (0, 0);
    $tvn = API::Std::mod_void($argv[0]);
    $tln = Auto::mod_load($argv[0]) if $tvn;

    # Check if we were successful or not.
    if ($tvn and $tln) {
        # We were!
        notice($src->{svr}, $src->{nick}, "Module \002".$argv[0]."\002 successfully reloaded.");
    }
    else {
        # We weren't.
        notice($src->{svr}, $src->{nick}, "Module \002".$argv[0]."\002 failed to reload.");
        return;
    }

    return 1;
}

# Help hash for MODLIST. Spanish, French and German needed.
our %HELP_MODLIST = (
    'en' => "This will return a list of all currently loaded modules. \2Syntax:\2 MODLIST",
);
# MODLIST callback.
sub cmd_modlist
{
    my ($src, undef) = @_;

    # Iterate through all loaded modules.
    my $str;
    foreach (keys %API::Std::MODULE) {
        $str .= ", \2$_\2 (v".$API::Std::MODULE{$_}{version}.')';
    }

    # Return it.
    $str = substr $str, 2;
    notice($src->{svr}, $src->{nick}, "\2Module List:\2 $str");

    return 1;
}

# Help hash for SHUTDOWN. Spanish, French and German needed.
our %HELP_SHUTDOWN = (
    'en' => "This will send out shutdown notifications, quit all networks, flush the database then exit the program. \2Syntax:\2 SHUTDOWN",
);
# SHUTDOWN callback.
sub cmd_shutdown
{
    my ($src, undef) = @_;
    
    # Goodbye world!
    notice($src->{svr}, $src->{nick}, "Shutting down.");
    dbug "Got SHUTDOWN from ".$src->{nick}."!".$src->{user}."@".$src->{host}."/".$src->{svr}."! Shutting down. . .";
    alog "Got SHUTDOWN from ".$src->{nick}."!".$src->{user}."@".$src->{host}."/".$src->{svr}."! Shutting down. . .";
    quit($_, "SHUTDOWN from ".$src->{nick}."/".$src->{svr}) foreach (keys %Auto::SOCKET);
    API::Std::event_run('on_shutdown');
    exit;

    # To appease PerlCritic.
    return 1;
}

# Help hash for RESTART. Spanish, French and German needed.
our %HELP_RESTART = (
    'en' => 'This will send out restart notifications, quit all networks, flush the database, start a new Auto process, then exit the program.',
);
# RESTART callback.
sub cmd_restart
{
    my ($src, undef) = @_;
    
    # Goodbye world!
    notice($src->{svr}, $src->{nick}, "Restarting.");
    dbug "Got RESTART from ".$src->{nick}."!".$src->{user}."@".$src->{host}."/".$src->{svr}."! Restarting. . .";
    alog "Got RESTART from ".$src->{nick}."!".$src->{user}."@".$src->{host}."/".$src->{svr}."! Restarting. . .";
    quit($_, "RESTART from ".$src->{nick}."/".$src->{svr}) foreach (keys %Auto::SOCKET);
    API::Std::event_run('on_shutdown');

    # Time to come back from the dead!
    if ($Auto::DEBUG) {
        exec "perl $Auto::Bin/auto -d -nuc";
    }
    else {
        exec "perl $Auto::Bin/auto -nuc";
    }
    exit;

    # To appease PerlCritic.
    return 1;
}

# Help hash for REHASH. Spanish, French and German needed.
our %HELP_REHASH = (
    'en' => 'This will reload the configuration file, update logs, load new modules and connect to new servers.',
);
# REHASH callback.
sub cmd_rehash
{
    my ($src, undef) = @_;
    
    # Send out notifications.
    notice($src->{svr}, $src->{nick}, "Rehashing.");
    dbug "Got REHASH from ".$src->{nick}."!".$src->{user}."@".$src->{host}."/".$src->{svr}."! Rehashing. . .";
    alog "Got REHASH from ".$src->{nick}."!".$src->{user}."@".$src->{host}."/".$src->{svr}."! Rehashing. . .";

    # Rehash.
    Lib::Auto::rehash();
    notice($src->{svr}, $src->{nick}, "Done.");

    return 1;
}

# Help hash for HELP. Spanish, French and German needed.
our %HELP_HELP = (
    'en' => 'Displays help for commands.',
);
# HELP callback.
sub cmd_help
{
    my ($src, @argv) = @_;

    # Check for arguments and reply accordingly.
    if (!defined $argv[0]) {
        # No command specified. List commands.
        my $cmdlist = '';
        foreach (sort keys %API::Std::CMDS) {
            if (defined $src->{chan}) {
                if ($API::Std::CMDS{$_}{lvl} == 0 or $API::Std::CMDS{$_}{lvl} == 2) {
                    if ($API::Std::CMDS{$_}{priv}) {
                        if (has_priv(match_user(%$src), $API::Std::CMDS{$_}{priv})) {
                            $cmdlist .= ", \002".uc($_)."\002";
                        }
                    }
                    else {
                        $cmdlist .= ", \002".uc($_)."\002";
                    }
                }
            }
            else {
                if ($API::Std::CMDS{$_}{lvl} == 1 or $API::Std::CMDS{$_}{lvl} == 2) {
                    if ($API::Std::CMDS{$_}{priv}) {
                        if (has_priv(match_user(%$src), $API::Std::CMDS{$_}{priv})) {
                            $cmdlist .= ", \002".uc($_)."\002";
                        }
                    }
                    else {
                        $cmdlist .= ", \002".uc($_)."\002";
                    }
                }
            }
        }
        $cmdlist = substr($cmdlist, 2);

        notice($src->{svr}, $src->{nick}, "Command List: ".$cmdlist);
    }
    else {
        # Help for a specific command was requested. Lets get it.
        my $rcm = uc($argv[0]);

        # If there is help for this command.
        if (exists $API::Std::CMDS{$rcm}) {
            if (exists $API::Std::CMDS{$rcm}{help}) {
                # Check for necessary privileges.
                if ($API::Std::CMDS{$rcm}{priv}) {
                    if (!has_priv(match_user(%$src), $API::Std::CMDS{$rcm}{priv})) {
                        notice($src->{svr}, $src->{nick}, trans("Access denied").".");
                        return;
                    }
                }

                if ($API::Std::CMDS{$rcm}{help}) {
                    # If there is valid help for this command.
                
                    # Get the language.
                    my ($lang, undef) = split('_', $Auto::LOCALE);

                    if (exists ${ $API::Std::CMDS{$rcm}{help} }{$lang}) {
                        # If help for this command is available in the configured language.
                        notice($src->{svr}, $src->{nick}, "Help for \002".$rcm."\002: ".${ $API::Std::CMDS{$rcm}{help} }{$lang});
                    }
                    else {
                        # If it isn't, default to English.
                        if (exists ${ $API::Std::CMDS{$rcm}{help} }{en}) {
                            # If help for this command is available in English.
                            notice($src->{svr}, $src->{nick}, "Help for \002".$rcm."\002: ".${ $API::Std::CMDS{$rcm}{help} }{en});
                        }
                        else {
                            # If it isn't, no help.
                            notice($src->{svr}, $src->{nick}, "No help for \002".$rcm."\002 available.");
                        }
                    }
                }
                else {
                    # If it isn't valid, no help.
                    notice($src->{svr}, $src->{nick}, "No help for \002".$rcm."\002 available.");
                }
            }
            else {
                # If there is no help, don't give any.
                notice($src->{svr}, $src->{nick}, "No help for \002".$rcm."\002 available.");
            }
        }
        else {
            # If there is no help, don't give any.
            notice($src->{svr}, $src->{nick}, "No help for \002".$rcm."\002 available.");
        }
    }

    return 1;
}


1;
# vim: set ai et sw=4 ts=4: