diff --git a/II/Config.pm b/II/Config.pm index c6c89cd..7a5ed39 100644 --- a/II/Config.pm +++ b/II/Config.pm @@ -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; diff --git a/II/Get.pm b/II/Get.pm index 539e749..fd1bfe9 100644 --- a/II/Get.pm +++ b/II/Get.pm @@ -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; }