diff --git a/fhem/CHANGED b/fhem/CHANGED
index 43ca87709..8d89dbbf7 100644
--- a/fhem/CHANGED
+++ b/fhem/CHANGED
@@ -1,5 +1,6 @@
# Add changes at the top of the list. Keep it in ASCII, and 80-char wide.
# Do not insert empty lines here, update check depends on it.
+ - feature: 72_FB_CALLLIST: new set command to remove a specific item from list
- change: 49_SSCam: optimize memory usage when send images and recordings by
email and/or telegram
- feature: 70_CanOverEthernet: send and receive analog and digital values
diff --git a/fhem/FHEM/72_FB_CALLLIST.pm b/fhem/FHEM/72_FB_CALLLIST.pm
index c7db12fd7..05b27bdb7 100755
--- a/fhem/FHEM/72_FB_CALLLIST.pm
+++ b/fhem/FHEM/72_FB_CALLLIST.pm
@@ -227,8 +227,12 @@ sub FB_CALLLIST_Set($@)
{
my ($hash, $name, $cmd, $value) = @_;
- my $usage = "Unknown argument $cmd, choose one of clear:noArg";
+ my @list = FB_CALLLIST_getAllItemLines($hash);
+
+ my $index_list = join(",", (1..@list));
+ my $usage = "Unknown argument $cmd, choose one of clear:noArg removeItem:$index_list";
+
if($cmd eq "clear")
{
delete($hash->{helper}{DATA});
@@ -242,6 +246,14 @@ sub FB_CALLLIST_Set($@)
# Delete stored list
FB_CALLLIST_saveList($hash);
}
+ elsif($cmd eq "removeItem" and defined($value) and $value =~ /^\d+$/)
+ {
+ my $item = $list[$value - 1];
+
+ return $usage unless(defined($item));
+
+ FB_CALLLIST_deleteItem($hash, $item->{index});
+ }
else
{
return $usage;
@@ -1557,6 +1569,7 @@ sub FB_CALLLIST_strftime(@)
Set