aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--slack_profile.pl32
1 files changed, 15 insertions, 17 deletions
diff --git a/slack_profile.pl b/slack_profile.pl
index e15ac2a..43a3e24 100644
--- a/slack_profile.pl
+++ b/slack_profile.pl
@@ -191,28 +191,26 @@ sub print_whois {
sub swhois {
my ($username, $server, $window_item) = @_;
- if ($username) {
- # If $username starts with @, strip it
- $username =~ s/^@//;
-
- if (my $user = find_user($username)) {
- my $profile = fetch_user_profile($user);
- foreach my $key (keys %{$profile->{'fields'}}) {
- my $label = $profile->{'fields'}->{$key}->{'label'};
- my $value = $profile->{'fields'}->{$key}->{'value'};
- $user->{$label} = $value;
- }
-
- print_whois($user);
- }
- }
- else {
+ if (!$username) {
if (!$server || !$server->{connected}) {
Irssi::print("Not connected to server");
return;
}
- my $user = find_user($server->{'nick'});
+ $username = $server->{'nick'};
+ }
+
+ # If $username starts with @, strip it
+ $username =~ s/^@//;
+
+ if (my $user = find_user($username)) {
+ my $profile = fetch_user_profile($user);
+ foreach my $key (keys %{$profile->{'fields'}}) {
+ my $label = $profile->{'fields'}->{$key}->{'label'};
+ my $value = $profile->{'fields'}->{$key}->{'value'};
+ $user->{$label} = $value;
+ }
+
print_whois($user);
}
}