GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2025-02-09 02:54:23 +01:00
Code Issues Projects Releases Wiki Activity

FactoidCommands: factundo/factlog can now express deleted metadata keys

Browse Source
This commit is contained in:
Pragmatic Software 2019-06-02 16:21:42 -07:00
parent 77a9d1b02c
commit 47c05cfdac
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
PBot/FactoidCommands.pm
View File

@ -260,7 +260,6 @@ sub hash_differences_as_string {
my ($self, $old, $new) = @_; my ($self, $old, $new) = @_;
my @exclude = qw/created_on last_referenced_in last_referenced_on ref_count ref_user edited_by edited_on/; my @exclude = qw/created_on last_referenced_in last_referenced_on ref_count ref_user edited_by edited_on/;
my %diff; my %diff;
foreach my $key (keys %$new) { foreach my $key (keys %$new) {
@ -271,6 +270,13 @@ sub hash_differences_as_string {
} }
} }
foreach my $key (keys %$old) {
next if grep { $key eq $_ } @exclude;
if (not exists $new->{$key}) {
$diff{"deleted $key"} = undef;
}
}
if (not keys %diff) { if (not keys %diff) {
return "No change."; return "No change.";
@ -280,7 +286,11 @@ sub hash_differences_as_string {
my $comma = ""; my $comma = "";
foreach my $key (sort keys %diff) { foreach my $key (sort keys %diff) {
if (defined $diff{$key}) {
$changes .= "$comma$key => $diff{$key}"; $changes .= "$comma$key => $diff{$key}";
} else {
$changes .= "$comma$key";
}
$comma = ", "; $comma = ", ";
} }