Remove desktop notifications, move assist-stuff to separate dir
This commit is contained in:
@@ -26,7 +26,7 @@ use version; our $VERSION = qw (1.0);
|
||||
use Exporter qw (import);
|
||||
our @EXPORT_OK = qw (timems trim urlencode utf2b64 utf2sha1 utf2md5 utf2sha1hex utf2sha224hex utf2sha256hex
|
||||
utf2sha384hex utf2sha512hex utf2md5hex utf2crc32hex utf2murmurhash irandom runcmd storedata
|
||||
cleanexpireddata rakedata deletedata);
|
||||
cleanexpireddata rakedata deletedata PrintMsg);
|
||||
|
||||
local $OUTPUT_AUTOFLUSH = 1;
|
||||
|
||||
@@ -405,6 +405,18 @@ sub deletedata {
|
||||
return;
|
||||
}
|
||||
|
||||
# Пишет сообщение в чятик или юзеру
|
||||
# undef PrintMsg($chatid, $text)
|
||||
sub PrintMsg {
|
||||
my $channel = shift;
|
||||
my $message = shift;
|
||||
|
||||
$MAIN::IRC->send_long_message ('utf8', 0, 'PRIVMSG', $channel, $message); ## no critic (Modules::RequireExplicitInclusion)
|
||||
$log->debug ("[DEBUG] message '$message' sent to $channel");
|
||||
|
||||
return;
|
||||
}
|
||||
|
||||
1;
|
||||
|
||||
# vim: set ft=perl noet ai ts=4 sw=4 sts=4:
|
||||
|
||||
Reference in New Issue
Block a user