cf::register_command unignore => 0, sub {
   my ($who, $args) = @_;
   my ($target, $type) = split /\s+/, $args, 3;
   my @ignored_players = split /\s+/, $who->{ignore};

   if ($args eq "") {
      if ($who->{ ext_ignore_tell }) {
         $who->message ("Currently ignoring private messages from: ", cf::NDI_UNIQUE);
         $who->message (join (", ", sort keys %{ $who->{ ext_ignore_tell } } ), cf::NDI_UNIQUE);
         $who->message ("Currently ignoring shouts from: ", cf::NDI_UNIQUE);
         $who->message (join (", ", sort keys %{ $who->{ ext_ignore_shout } } ), cf::NDI_UNIQUE);
      } else {
         $who->message ("Not ignoring anyone", cf::NDI_UNIQUE);
      }
   } else {
      if (my $other = cf::player::find $target) {
         if ($type eq "tell") {
            $who->message ("Not ignoring private messages from ".$other->ob->name." anymore.", cf::NDI_UNIQUE);
            delete $who->{ext_ignore_tell}{$other->ob->name};
         } elsif ($type eq "shout") {
            $who->message ("Not ignoring shouts from ".$other->ob->name." anymore.", cf::NDI_UNIQUE);
            delete $who->{ext_ignore_shout}{$other->ob->name};
         } elsif ($type eq "all") {
            $who->message ("Not ignoring anything from ".$other->ob->name." anymore.", cf::NDI_UNIQUE);
            delete $who->{ext_ignore_tell}{$other->ob->name};
            delete $who->{ext_ignore_shout}{$other->ob->name};
         } else {
            $who->message ("You need to specify tell, shout or all.", cf::NDI_UNIQUE);
         }
      } else {
         $who->message ("No such player or ambiguous name: $target", cf::NDI_UNIQUE);
      }
   }
}