Add 'swhois' Irssi command

Create a command that will retrieve 'whois' information about a given
user. This command takes a username argument and searches our users.list
database for a match. It then prints out a field from the user hash.

We'll want to print out more information in a more structured display,
but this is just for testing within Irssi.

The server conditional check is commented out so I can test this without
connecting to a server.

Running `/swhois` without an argument should print whois information for
the current user/nick. Will have to look up how to get that information.

1 files changed, 25 insertions, 0 deletions

diff --git a/slack-profile.pl b/slack-profile.pl
index 5a654d0..f94c4d8 100644
--- a/slack-profile.pl
+++ b/slack-profile.pl
@@ -54,3 +54,28 @@ sub find_user {
 		}
 	}
 }
+
+sub swhois {
+	my ($data, $server, $window_item) = @_;
+
+	# if (!$server || !$server->{connected}) {
+	# 	Irssi::print("Not connected to server");
+	# 	return;
+	# }
+
+	if ($data) {
+		# If $data starts with @, strip it
+		$data =~ s/^@//;
+
+		# my $user = find_user($data);
+
+		if (my $user = find_user($data)) {
+			Irssi::print($user->{'real_name'});
+		}
+	}
+	else {
+		# find_user(current user nick);
+	}
+}
+
+Irssi::command_bind('swhois', 'swhois');