GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2024-11-20 02:49:49 +01:00
Code Issues Projects Releases Wiki Activity

Add -h option to aka command to show full hostmasks

Browse Source
This commit is contained in:
Pragmatic Software 2014-07-13 07:06:04 +00:00
parent 2a8d9152f5
commit 077978bfa1
2 changed files with 34 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
PBot/MessageHistory.pm
View File

@ -65,29 +65,53 @@ sub add_message {
sub list_also_known_as {
my ($self, $from, $nick, $user, $host, $arguments) = @_;
my $usage = "Usage: aka [-h] <nick>";
if(not length $arguments) {
return "Usage: aka <nick>";
return $usage;
}
my @akas = $self->{database}->get_also_known_as($arguments);
my $getopt_error;
local $SIG{__WARN__} = sub {
$getopt_error = shift;
chomp $getopt_error;
};
my $show_hostmasks;
my ($ret, $args) = GetOptionsFromString($arguments,
'h' => \$show_hostmasks);
return "$getopt_error -- $usage" if defined $getopt_error;
return "Too many arguments -- $usage" if @$args > 1;
return "Missing argument -- $usage" if @$args != 1;
my @akas = $self->{database}->get_also_known_as(@$args[0]);
if(@akas) {
my $result = "$arguments also known as: ";
my $result = "@$args[0] also known as: ";
my %uniq;
foreach my $aka (@akas) {
if (not $show_hostmasks) {
my ($nick) = $aka =~ /^([^!]+)!/;
$uniq{$nick} = $nick;
} else {
$uniq{$aka} = $aka;
}
}
my $sep = "";
foreach my $aka (sort keys %uniq) {
next if $aka =~ /^Guest\d+$/;
next if $aka =~ /^Guest\d+(!.*)?$/;
$result .= "$sep$aka";
if ($show_hostmasks) {
$sep = ",\n";
} else {
$sep = ", ";
}
}
return $result;
} else {
return "I don't know anybody named $arguments.";
return "I don't know anybody named @$args[0].";
}
}

4
PBot/VERSION.pm
View File

@ -13,8 +13,8 @@ use warnings;
# These are set automatically by the build/commit script
use constant {
BUILD_NAME => "PBot",
BUILD_REVISION => 732,
BUILD_DATE => "2014-07-12",
BUILD_REVISION => 733,
BUILD_DATE => "2014-07-13",
};
1;