diff --git a/doc/CHANGELOG b/doc/CHANGELOG index 0e9f4c8..11a30b5 100644 --- a/doc/CHANGELOG +++ b/doc/CHANGELOG @@ -3,6 +3,7 @@ Auto IRC Bot 3.0: Change Log 3.0 Indev ================================================================== + * Added mdelete() to DB/Flatfile. * Added topic() to API::IRC. * Added has_priv() to API::Std. * Finished the host-based privilege/permission system. diff --git a/src/DB/Flatfile.pm b/src/DB/Flatfile.pm index 3b45332..bdf2eee 100644 --- a/src/DB/Flatfile.pm +++ b/src/DB/Flatfile.pm @@ -117,5 +117,17 @@ sub mwrite return 1; } +# Delete from database. +sub mdelete +{ + my ($name) = @_; + + if (defined $MEM{$name}) { + delete $MEM{$name}; + } + + return 1; +} + 1;