Notify config

This commit is contained in:
Difrex(Denis Zheleztsov) 2014-08-12 10:46:30 +04:00
parent 52503dfebf
commit fa55cd636b
2 changed files with 8 additions and 4 deletions

View File

@ -15,15 +15,16 @@ sub new {
sub load {
my ($self) = @_;
my $file = $self->{_file};
my $tiny = Config::Tiny->new();
$config = $tiny->read($file);
my $key = $config->{auth}->{key};
my $nick = $config->{auth}->{nick};
my $host = $config->{node}->{host};
my @echoareas = split /,/, $config->{node}->{echoareas};
my $name = $config->{node}->{name};
my $notify = $config->{notify}->{enabled};
$c = {
nick => $nick,
@ -31,6 +32,7 @@ sub load {
host => $host,
echoareas => [@echoareas],
name => $name,
notify => $notify,
};
return $c;
@ -40,7 +42,7 @@ sub load {
sub reload {
my ($self) = @_;
my $c = II::Config->new();
my $c = II::Config->new();
my $config = $c->load();
return $config;

View File

@ -148,7 +148,9 @@ sub get_echo {
# Notify
my @notify_cmd = ('notify-send', 'Сеть ii', 'Есть новые сообщения');
system(@notify_cmd) == 0 or warn "Cannot send notify: $!\n";
if ($notify == 1) {
system(@notify_cmd) == 0 or warn "Cannot send notify: $!\n";
}
}
return $msgs;
}