#!/arch/unix/bin/perl
#
# usage: how-many-flagged /path/to/mbox
#
# Displays how many messages are flagged or marked as important
#
use warnings;
use strict;
use Mail::Box::Mbox;
use Mail::Box::Parser::C;

die "usage: $0 mbox\n" unless @ARGV == 1;

my $mailbox = $ARGV[0];
my $flagged = 0;

my $folder = Mail::Box::Mbox->new( folder => $mailbox, access => 'ro' )
    or die "Couldn't open $mailbox";

foreach my $msg ( $folder->messages ) {
    my $status = $msg->head->get('X-Status') or next;
    $flagged++ if $status =~ /F/;
}

$folder->close;

print "$flagged\n";