weechat-opal/scripts/sighup.pl
2016-09-14 00:20:12 +00:00

23 lines
510 B
Perl

use strict;
use warnings;
no strict 'subs';
my $SCRIPT_NAME = 'sighup';
my $SCRIPT_AUTHOR = 'The Krusty Krab <wowaname@volatile.ch>';
my $SCRIPT_VERSION = '1.0';
my $SCRIPT_LICENCE = 'Public domain';
my $SCRIPT_DESC = 'Reload config on SIGHUP';
if (weechat::register($SCRIPT_NAME, $SCRIPT_AUTHOR, $SCRIPT_VERSION,
$SCRIPT_LICENCE, $SCRIPT_DESC, '', '')) {
weechat::hook_signal('signal_sighup', 'cb_sighup', '');
}
sub cb_sighup {
weechat::command('', '/reload');
return weechat::WEECHAT_RC_OK_EAT;
}