swhois: Print additional profile information

Include full name, title, email, phone number, and skype name.

1 files changed, 14 insertions, 1 deletions

diff --git a/slack-profile.pl b/slack-profile.pl
index cd23035..6ad8452 100644
--- a/slack-profile.pl
+++ b/slack-profile.pl
@@ -73,7 +73,20 @@ sub swhois {
 		$data =~ s/^@//;
 
 		if (my $user = find_user($data)) {
-			Irssi::print($user->{'real_name'});
+			Irssi::print($user->{'name'});
+			Irssi::print('  name  : ' . $user->{'real_name'});
+			Irssi::print('  title : ' . $user->{'profile'}->{'title'});
+			Irssi::print('  email : ' . $user->{'profile'}->{'email'});
+
+			if ($user->{'profile'}->{'phone'}) {
+				Irssi::print('  phone : ' . $user->{'profile'}->{'phone'});
+			}
+
+			if ($user->{'profile'}->{'skype'}) {
+				Irssi::print('  skype : ' . $user->{'profile'}->{'skype'});
+			}
+
+			Irssi::print('End of SWHOIS');
 		}
 	}
 	else {