From 302700617dc531fb5e8b784907c8aacc98b6dc96 Mon Sep 17 00:00:00 2001
From: eleksir <none@none>
Date: Sat, 1 Oct 2016 23:37:38 +0300
Subject: [PATCH] added command to show info about whitelist name for network

---
 notifications.pl | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/notifications.pl b/notifications.pl
index e91e1e7..a5e8950 100644
--- a/notifications.pl
+++ b/notifications.pl
@@ -43,6 +43,8 @@ sub hookfn {
 	$channel = '' unless(defined($channel));
 	$network = '' unless(defined($network));
 
+HexChat::print("nick $nick; channel $channel; net $network\n");
+
 # load settings, parse whitelists here
 	my $flag = 1; # show notification
 	my $nicklist = loadliststatus('nicklist');
@@ -130,7 +132,11 @@ sub notify_cmd {
 		return HexChat::EAT_ALL;
 	}
 
-	if ($cmd eq 'status') {
+	if ($cmd eq 'info') {
+		my $network = HexChat::get_info('network') // 'unknown';
+		HexChat::print("Network name for whitelist: $network\n");
+		return HexChat::EAT_ALL;
+	} elsif ($cmd eq 'status') {
 		my $nicklist = loadliststatus('nicklist');
 		my $chanlist = loadliststatus('chanlist');
 		my $netlist =  loadliststatus('netlist');