Package: libmail-box-perl
Version: 2.073-1
Severity: normal
Many of my (Sylpheed created and maintained) MH folders are incorrectly
autodetected as mboxes, resulting in subsequent chaos. The attached
simple recursive directory traversal code works fine when "type => 'mh'"
is specified, but without it many of my MH folders are identified as
mboxes, and the script doesn't work correctly.
-- System Information:
Debian Release: lenny/sid
APT prefers unstable
APT policy: (500, 'unstable')
Architecture: i386 (i686)
Kernel: Linux 2.6.22-lizzie
Locale: LANG=en_US.UTF-8, LC_CTYPE=en_US.UTF-8 (charmap=UTF-8)
Shell: /bin/sh linked to /bin/bash
Versions of packages libmail-box-perl depends on:
ii libdigest-hmac-perl 1.01-6 create standard message integrity
ii libfile-remove-perl 0.37-1 remove files and directories, acce
ii libio-stringy-perl 2.110-2 Perl5 modules for IO from scalars
ii libmailtools-perl 1.77-1 Manipulate email in perl programs
ii libmime-types-perl 1.21-1 Perl extension for determining MIM
ii libobject-realize-later-pe 0.18-1 Delayed creation of objects
ii libtimedate-perl 1.1600-9 Time and date functions for Perl
ii liburi-perl 1.35.dfsg.1-1 Manipulates and accesses URI strin
ii libuser-identity-perl 0.92-1 manages different identities/roles
ii perl 5.8.8-7 Larry Wall's Practical Extraction
ii perl-base [libscalar-list- 5.8.8-7 The Pathologically Eclectic Rubbis
libmail-box-perl recommends no packages.
-- no debconf information
*** perl/mbtest.pl
#! /usr/bin/perl -w
# usage: 'mbtest.pl mail-root'
use Mail::Box::Manager;
sub scan;
my $mgr = new Mail::Box::Manager;
my $folder = $mgr->open(shift);
scan($folder);
sub scan {
my $folder = shift @_;
print "Entering $folder; type is ", $folder->type, "\n";
foreach ($folder->listSubFolders) {
print "Descending into $_\n";
# scan($folder->openSubFolder($_, type => 'mh'));
scan($folder->openSubFolder($_));
}
print "Leaving $folder\n";
}
--
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
