sub mailcount_sbitem { my ($sbitem, $get_size_only) = @_; $sbitem->{min_size} = $sbitem->{max_size} = 0 if ($get_size_only); #my $sbitem_format = settings_get_str('mailcount_sbitem'); my $out=""; foreach my $mbox (keys %cache){ $mbox =~ m/.*\/([^\/].*)$/; my $name=$1; my $n = $cache{$mbox}->{n}; my $o = $cache{$mbox}->{o}; $out .= "$name: $n; " if $n>0; } $sbitem->default_handler($get_size_only, undef, $out, 1); }