318 lines
9.7 KiB
Perl
318 lines
9.7 KiB
Perl
# 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 0;
|
|
}
|
|
|
|
# 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 0;
|
|
}
|
|
|
|
# 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 0;
|
|
}
|
|
|
|
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 0;
|
|
}
|
|
|
|
# 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 0;
|
|
}
|
|
|
|
# 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 0;
|
|
}
|
|
|
|
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 0;
|
|
}
|
|
|
|
# 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 0;
|
|
}
|
|
|
|
# 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 0;
|
|
}
|
|
|
|
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 (defined $API::Std::CMDS{$rcm}{help}) {
|
|
# If there is help for this command.
|
|
|
|
# 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 (defined ${ $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 (defined ${ $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.");
|
|
}
|
|
}
|
|
|
|
return 1;
|
|
}
|
|
|
|
|
|
1;
|
|
# vim: set ai et sw=4 ts=4:
|