Fix logic in GreetMsgToggle()
This commit is contained in:
@@ -18,7 +18,7 @@ our @ISA = qw / Exporter /; ## no critic (ClassHierarchies::ProhibitExplicitI
|
|||||||
our @EXPORT_OK = qw (@ForbiddenMessageTypes @PluginList GetForbiddenTypes AddForbiddenType DelForbiddenType
|
our @EXPORT_OK = qw (@ForbiddenMessageTypes @PluginList GetForbiddenTypes AddForbiddenType DelForbiddenType
|
||||||
ListForbidden FortuneToggle FortuneToggleList FortuneStatus PluginToggle PluginStatus
|
ListForbidden FortuneToggle FortuneToggleList FortuneStatus PluginToggle PluginStatus
|
||||||
PluginEnabled ChanMsgToggle ChanMsgStatus ChanMsgEnabled GreetMsgToggle GreetMsgStatus
|
PluginEnabled ChanMsgToggle ChanMsgStatus ChanMsgEnabled GreetMsgToggle GreetMsgStatus
|
||||||
GreetMsgEnabled GoodbyeMsgToggle GoodbyeMsgStatus GoodbyeMsgEnabled);
|
GreetMsgEnabled GoodbyeMsgToggle GoodbyeMsgStatus GoodbyeMsgEnabled);
|
||||||
|
|
||||||
my $c = LoadConf ();
|
my $c = LoadConf ();
|
||||||
my $cachedir = $c->{cachedir};
|
my $cachedir = $c->{cachedir};
|
||||||
@@ -288,33 +288,28 @@ sub GreetMsgToggle (@) {
|
|||||||
namespace => __PACKAGE__ . '_' . 'greet_msg',
|
namespace => __PACKAGE__ . '_' . 'greet_msg',
|
||||||
);
|
);
|
||||||
|
|
||||||
my $state = $cache->get ($chatid);
|
|
||||||
|
|
||||||
if (defined $action) {
|
if (defined $action) {
|
||||||
if ($action) {
|
if ($action == 0) {
|
||||||
$cache->set ($chatid, 1, 'never');
|
$cache->set ($chatid, 0, 'never');
|
||||||
$phrase .= 'включено.';
|
$phrase .= 'выключены.';
|
||||||
} else {
|
} else {
|
||||||
if (defined $state && $state) {
|
$cache->set ($chatid, 1, 'never');
|
||||||
$cache->set ($chatid, 0, 'never');
|
$phrase .= 'включены.';
|
||||||
$phrase .= 'выключено.';
|
|
||||||
} else {
|
|
||||||
$cache->set ($chatid, 1, 'never');
|
|
||||||
$phrase .= 'включено.';
|
|
||||||
}
|
|
||||||
}
|
}
|
||||||
} else {
|
} else {
|
||||||
if (defined $state){
|
my $state = $cache->get ($chatid);
|
||||||
if ($state) {
|
|
||||||
|
if (defined $state) {
|
||||||
|
if ($state != 0) {
|
||||||
$cache->set ($chatid, 0, 'never');
|
$cache->set ($chatid, 0, 'never');
|
||||||
$phrase .= 'выключено.';
|
$phrase .= 'выключены.';
|
||||||
} else {
|
} else {
|
||||||
$cache->set ($chatid, 1, 'never');
|
$cache->set ($chatid, 1, 'never');
|
||||||
$phrase .= 'включено.';
|
$phrase .= 'включены.';
|
||||||
}
|
}
|
||||||
} else {
|
} else {
|
||||||
$cache->set ($chatid, 0, 'never');
|
$cache->set ($chatid, 0, 'never');
|
||||||
$phrase .= 'выключено.';
|
$phrase .= 'выключены.';
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user