Skip Menu |

This queue is for tickets about the Mail-Box CPAN distribution.

Report information
The Basics
Id: 30499
Status: resolved
Priority: 0/
Queue: Mail-Box

People
Owner: Nobody in particular
Requestors: kecskemetizsolt [...] gmail.com
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)



Subject: Mail-Box-2.076 > Mail::Transport::IMAP4
Date: Mon, 5 Nov 2007 15:54:48 +0000
To: bug-Mail-Box [...] rt.cpan.org
From: "Zsolt Kecskemeti" <kecskemetizsolt [...] gmail.com>
Hi, Package: Mail-Box-2.076 > Mail::Transport::IMAP4 Auth type NTLM is mistyped as ntml both in variable name $ntml_installed (used in lines 61, 66, 69, 79) and more importantly in a require statement "require Authen::NTML" in line 67. Change both to NTLM for clarity and to fix the error when trying to use auth type NTLM in an IMAP4 connection. Regards, Zsolt Kecskemeti patch------------------------------------------ 61c61 < our $ntlm_installed; --- Show quoted text
> our $ntml_installed;
66,69c66,69 < unless(defined $ntlm_installed) < { eval "require Authen::NTLM"; < die "NTLM errors:\n$@" if $@ && $@ !~ /Can't locate/; < $ntlm_installed = ! $@; --- Show quoted text
> unless(defined $ntml_installed) > { eval "require Authen::NTML"; > die "NTML errors:\n$@" if $@ && $@ !~ /Can't locate/; > $ntml_installed = ! $@;
79c79 < { @types = ('CRAM-MD5', ($ntlm_installed ? 'NTLM' : ()), 'PLAIN'); --- Show quoted text
> { @types = ('CRAM-MD5', ($ntml_installed ? 'NTLM' : ()), 'PLAIN');
endofpatch------------------------------------------
I never use Windows environments, so couldn't test my poor copy work. Would be nice if you could try it with the Mail::IMAPClient development version 2.99_03.
Subject: Re: [rt.cpan.org #30499] Mail-Box-2.076 > Mail::Transport::IMAP4
Date: Thu, 13 Dec 2007 18:20:40 +0000
To: bug-Mail-Box [...] rt.cpan.org
From: "Zsolt Kecskemeti" <kecskemetizsolt [...] gmail.com>
Hi Mark, Sorry, I have forgotten about testing this as we have abandoned using Mail::Box for IMAP4 connections. But now we are trying to get it working again using 3.02 of Mail::IMAPClient. It works great, but there is a small thing I have noticed. In Mail::Transport::IMAP4::createImapClient() parameters timeout, retry, etc are not passed to Mail::IMAPClient object when you create it. One way to do this would be to pass $args to createImapClient() in init() and then pass those over in the line my $client = $class->new(); Best regards, Zsolt Kecskemeti On Nov 5, 2007 4:02 PM, Mark Overmeer via RT <bug-Mail-Box@rt.cpan.org> wrote: Show quoted text
> > <URL: http://rt.cpan.org/Ticket/Display.html?id=30499 > > > I never use Windows environments, so couldn't test my poor copy > work. Would be nice if you could try it with the Mail::IMAPClient > development version 2.99_03. >
Yes, that is by design. Mail::IMAPClient (which I have taken over from the original author meanwhile) has a zillion of options. I do not want to merge them with my own few. Therefore, if you want to do anything complicated with the IMAPClient (and probably you will), you have to create one manually. This is by design.
Subject: Re: [rt.cpan.org #30499] Mail-Box-2.076 > Mail::Transport::IMAP4
Date: Fri, 14 Dec 2007 10:28:40 +0000
To: bug-Mail-Box [...] rt.cpan.org, bug-Mail-IMAPClient [...] rt.cpan.org
From: "Zsolt Kecskemeti" <kecskemetizsolt [...] gmail.com>
Hi Mark, Well, I would not call passing a few parameters you already have in Mail::Transport::IMAP4 complicated but if it is a design choice, fine, no problems there. Of course, I would not bother with the zillion other ones in IMAPClient either. There is one other thing I have come across (this is related to IMAPClient): I would like to use an IMAP4 mailbox as a backup mailbox. The live mailbox accepts specific incoming messages, processes them and then I want to move them to the backup mailbox by using moveMessage. It was actually working while I was experimenting with it using 2.2.9 but I know that this might have been rewritten since. I can connect to the mailbox but when I am calling $mgr->moveMessage($backup_mailbox_folder, $current_msg); I get the following: Show quoted text
--------------debug output start----------------- DEBUG: Folder INBOX already selected. DEBUG: Sending: 7 UID SEARCH ALL DEBUG: Sent 18 bytes DEBUG: Read: * SEARCH 1 2 7 OK SEARCH completed. DEBUG: Sending: 8 UID FETCH 1:2 FLAGS DEBUG: Sent 23 bytes DEBUG: Read: * 1 FETCH (FLAGS (\Seen) UID 1) * 2 FETCH (FLAGS (\Seen) UID 2) 8 OK FETCH completed. DEBUG: flags: line = '8 UID FETCH 1:2 FLAGS' DEBUG: flags: line = '* 1 FETCH (FLAGS (\Seen) UID 1) ' DEBUG: flags: line = '* 2 FETCH (FLAGS (\Seen) UID 2) ' DEBUG: flags: line = '8 OK FETCH completed. ' Use of uninitialized value in hash element at /usr/lib/perl5/site_perl/5.8.5/Mail/IMAPClient.pm line 1863, <GEN0> line 120. (in cleanup) Can't use an undefined value as an ARRAY reference at /usr/lib/perl5/site_perl/5.8.5/Mail/IMAPClient.pm line 1864, <GEN0> line 120.
--------------debug output end----------------- I don't really know if it is a bug, or it is me doing something wrong. Regards, Zsolt Kecskemeti On Dec 14, 2007 9:40 AM, Mark Overmeer via RT <bug-Mail-Box@rt.cpan.org> wrote:
> > > <URL: http://rt.cpan.org/Ticket/Display.html?id=30499 > > > Yes, that is by design. > Mail::IMAPClient (which I have taken over from the original author > meanwhile) has a zillion of options. I do not want to merge them > with my own few. Therefore, if you want to do anything complicated > with the IMAPClient (and probably you will), you have to create one > manually. This is by design. >
Subject: Re: [rt.cpan.org #30499] Mail-Box-2.076 > Mail::Transport::IMAP4
Date: Fri, 14 Dec 2007 10:28:40 +0000
To: bug-Mail-Box [...] rt.cpan.org, bug-Mail-IMAPClient [...] rt.cpan.org
From: "Zsolt Kecskemeti" <kecskemetizsolt [...] gmail.com>
Hi Mark, Well, I would not call passing a few parameters you already have in Mail::Transport::IMAP4 complicated but if it is a design choice, fine, no problems there. Of course, I would not bother with the zillion other ones in IMAPClient either. There is one other thing I have come across (this is related to IMAPClient): I would like to use an IMAP4 mailbox as a backup mailbox. The live mailbox accepts specific incoming messages, processes them and then I want to move them to the backup mailbox by using moveMessage. It was actually working while I was experimenting with it using 2.2.9 but I know that this might have been rewritten since. I can connect to the mailbox but when I am calling $mgr->moveMessage($backup_mailbox_folder, $current_msg); I get the following: Show quoted text
--------------debug output start----------------- DEBUG: Folder INBOX already selected. DEBUG: Sending: 7 UID SEARCH ALL DEBUG: Sent 18 bytes DEBUG: Read: * SEARCH 1 2 7 OK SEARCH completed. DEBUG: Sending: 8 UID FETCH 1:2 FLAGS DEBUG: Sent 23 bytes DEBUG: Read: * 1 FETCH (FLAGS (\Seen) UID 1) * 2 FETCH (FLAGS (\Seen) UID 2) 8 OK FETCH completed. DEBUG: flags: line = '8 UID FETCH 1:2 FLAGS' DEBUG: flags: line = '* 1 FETCH (FLAGS (\Seen) UID 1) ' DEBUG: flags: line = '* 2 FETCH (FLAGS (\Seen) UID 2) ' DEBUG: flags: line = '8 OK FETCH completed. ' Use of uninitialized value in hash element at /usr/lib/perl5/site_perl/5.8.5/Mail/IMAPClient.pm line 1863, <GEN0> line 120. (in cleanup) Can't use an undefined value as an ARRAY reference at /usr/lib/perl5/site_perl/5.8.5/Mail/IMAPClient.pm line 1864, <GEN0> line 120.
--------------debug output end----------------- I don't really know if it is a bug, or it is me doing something wrong. Regards, Zsolt Kecskemeti On Dec 14, 2007 9:40 AM, Mark Overmeer via RT <bug-Mail-Box@rt.cpan.org> wrote:
> > > <URL: http://rt.cpan.org/Ticket/Display.html?id=30499 > > > Yes, that is by design. > Mail::IMAPClient (which I have taken over from the original author > meanwhile) has a zillion of options. I do not want to merge them > with my own few. Therefore, if you want to do anything complicated > with the IMAPClient (and probably you will), you have to create one > manually. This is by design. >
Subject: Re: [rt.cpan.org #30499] Mail-Box-2.076 > Mail::Transport::IMAP4
Date: Fri, 14 Dec 2007 11:52:53 +0100
To: Zsolt Kecskemeti via RT <bug-Mail-Box [...] rt.cpan.org>
From: Mark Overmeer <mark [...] overmeer.net>
* Zsolt Kecskemeti via RT (bug-Mail-Box@rt.cpan.org) [071214 10:29]: Show quoted text
> Use of uninitialized value in hash element at > /usr/lib/perl5/site_perl/5.8.5/Mail/IMAPClient.pm line 1863, <GEN0> > line 120. > (in cleanup) Can't use an undefined value as an ARRAY > reference at /usr/lib/perl5/site_perl/5.8.5/Mail/IMAPClient.pm line > 1864, <GEN0> line 120.
Probably I am doing something wrong. Which version of Mail::IMAPClient are you using? I made a fix for a FETCH problem in 3.02. -- Regards, MarkOv ------------------------------------------------------------------------ Mark Overmeer MSc MARKOV Solutions Mark@Overmeer.net solutions@overmeer.net http://Mark.Overmeer.net http://solutions.overmeer.net
Subject: Re: [rt.cpan.org #30499] Mail-Box-2.076 > Mail::Transport::IMAP4
Date: Fri, 14 Dec 2007 11:05:28 +0000
To: bug-Mail-Box [...] rt.cpan.org
From: "Zsolt Kecskemeti" <kecskemetizsolt [...] gmail.com>
The version is 3.02. Can I have a patch for that fix? Regards, Zsolt On Dec 14, 2007 10:53 AM, Mark Overmeer via RT <bug-Mail-Box@rt.cpan.org> wrote: Show quoted text
> > <URL: http://rt.cpan.org/Ticket/Display.html?id=30499 > > > * Zsolt Kecskemeti via RT (bug-Mail-Box@rt.cpan.org) [071214 10:29]:
> > Use of uninitialized value in hash element at > > /usr/lib/perl5/site_perl/5.8.5/Mail/IMAPClient.pm line 1863, <GEN0> > > line 120. > > (in cleanup) Can't use an undefined value as an ARRAY > > reference at /usr/lib/perl5/site_perl/5.8.5/Mail/IMAPClient.pm line > > 1864, <GEN0> line 120.
> > Probably I am doing something wrong. Which version of Mail::IMAPClient > are you using? I made a fix for a FETCH problem in 3.02. > -- > Regards, > MarkOv > > ------------------------------------------------------------------------ > Mark Overmeer MSc MARKOV Solutions > Mark@Overmeer.net solutions@overmeer.net > http://Mark.Overmeer.net http://solutions.overmeer.net > > >
Subject: Re: [rt.cpan.org #30499] Mail-Box-2.076 > Mail::Transport::IMAP4
Date: Mon, 17 Dec 2007 11:00:03 +0100
To: Zsolt Kecskemeti via RT <bug-Mail-Box [...] rt.cpan.org>
From: Mark Overmeer <website [...] craneveer.nl>
* Zsolt Kecskemeti via RT (bug-Mail-Box@rt.cpan.org) [071214 11:05]: Show quoted text
> Queue: Mail-Box > Ticket <URL: http://rt.cpan.org/Ticket/Display.html?id=30499 > > > The version is 3.02. Can I have a patch for that fix?
I have tried to trace the error "dry", but are not able to find a flaw in the path between MailBox and IMAPClient yet. Could you try the following for me (in Mail/IMAPClient.pm): sub flags { my ($self, $msgspec) = (shift, shift); + defined $msgspec or confess; my $msg = UNIVERSAL::isa($msgspec, 'Mail::IMAPClient::MessageSet') ? $msgspec : $self->Range($msgspec); The stack-trace probably helps my investigation. -- Regards, MarkOv ------------------------------------------------------------------------ Mark Overmeer MSc MARKOV Solutions Mark@Overmeer.net solutions@overmeer.net http://Mark.Overmeer.net http://solutions.overmeer.net
Subject: Re: [rt.cpan.org #30499] Mail-Box-2.076 > Mail::Transport::IMAP4
Date: Mon, 17 Dec 2007 11:18:23 +0000
To: bug-Mail-Box [...] rt.cpan.org
From: "Zsolt Kecskemeti" <kecskemetizsolt [...] gmail.com>
Hi Mark, Somehow Carp does not want to produce trace with confess, actually it just dies on it with no output whatsoever. With print Carp::longmess I get the following: DEBUG: Folder INBOX already selected. DEBUG: Sending: 5 UID FETCH 1 FLAGS DEBUG: Sent 21 bytes DEBUG: Read: * 1 FETCH (FLAGS (\Seen) UID 1) 5 OK FETCH completed. DEBUG: flags: line = '5 UID FETCH 1 FLAGS' DEBUG: flags: line = '* 1 FETCH (FLAGS (\Seen) UID 1) ' DEBUG: flags: line = '5 OK FETCH completed. ' DEBUG: Folder INBOX already selected. DEBUG: Sending: 6 UID FETCH 2 FLAGS DEBUG: Sent 21 bytes DEBUG: Read: * 2 FETCH (FLAGS (\Seen) UID 2) 6 OK FETCH completed. DEBUG: flags: line = '6 UID FETCH 2 FLAGS' DEBUG: flags: line = '* 2 FETCH (FLAGS (\Seen) UID 2) ' DEBUG: flags: line = '6 OK FETCH completed. ' DEBUG: Folder INBOX already selected. at /usr/lib/perl5/site_perl/5.8.5/Mail/Transport/IMAP4.pm line 337 Mail::Transport::IMAP4::getFlags('Mail::Transport::IMAP4=HASH(0xa1ea31c)', 'undef') called at /usr/lib/perl5/site_perl/5.8.5/Mail/Box/IMAP4/Message.pm line 66 Mail::Box::IMAP4::Message::label('Mail::Box::IMAP4::Message=HASH(0xa274ad0)', 'deleted') called at /usr/lib/perl5/site_perl/5.8.5/Mail/Message.pm line 413 Mail::Message::isDeleted('Mail::Box::IMAP4::Message=HASH(0xa274ad0)') called at /usr/lib/perl5/site_perl/5.8.5/Mail/Box.pm line 440 Mail::Box::isModified('Mail::Box::IMAP4=HASH(0xa1e293c)') called at /usr/lib/perl5/site_perl/5.8.5/Mail/Box.pm line 348 Mail::Box::close('Mail::Box::IMAP4=HASH(0xa1e293c)') called at /usr/lib/perl5/site_perl/5.8.5/Mail/Box/IMAP4.pm line 114 Mail::Box::IMAP4::close('Mail::Box::IMAP4=HASH(0xa1e293c)') called at /usr/lib/perl5/site_perl/5.8.5/Mail/Box.pm line 882 Mail::Box::DESTROY('Mail::Box::IMAP4=HASH(0xa1e293c)') called at perl/modules//ANS/Events/Event.pm line 326 eval {...} called at perl/modules//ANS/Events/Event.pm line 326 ANS::Events::Event::Ticket::MailProcessor::_execute_event('ANS::Events::Event::Ticket::MailProcessor=HASH(0xa1b8d28)') called at perl/modules//ANS/Events/Event.pm line 326 eval {...} called at perl/modules//ANS/Events/Event.pm line 290 ANS::Events::Event::execute('ANS::Events::Event::Ticket::MailProcessor=HASH(0xa1b8d28)') called at perl/scripts/event-handler-wrapper.pl line 78 DEBUG: Sending: 7 UID SEARCH ALL DEBUG: Sent 18 bytes DEBUG: Read: * SEARCH 1 2 7 OK SEARCH completed. DEBUG: Sending: 8 UID FETCH 1:2 FLAGS DEBUG: Sent 23 bytes DEBUG: Read: * 1 FETCH (FLAGS (\Seen) UID 1) * 2 FETCH (FLAGS (\Seen) UID 2) 8 OK FETCH completed. DEBUG: flags: line = '8 UID FETCH 1:2 FLAGS' DEBUG: flags: line = '* 1 FETCH (FLAGS (\Seen) UID 1) ' DEBUG: flags: line = '* 2 FETCH (FLAGS (\Seen) UID 2) ' DEBUG: flags: line = '8 OK FETCH completed. ' Use of uninitialized value in hash element at /usr/lib/perl5/site_perl/5.8.5/Mail/IMAPClient.pm line 1864. (in cleanup) Can't use an undefined value as an ARRAY reference at /usr/lib/perl5/site_perl/5.8.5/Mail/IMAPClient.pm line 1865. Regards, Zsolt Kecskemeti On Dec 17, 2007 10:00 AM, Mark Overmeer via RT <bug-Mail-Box@rt.cpan.org> wrote: Show quoted text
> > <URL: http://rt.cpan.org/Ticket/Display.html?id=30499 > > > * Zsolt Kecskemeti via RT (bug-Mail-Box@rt.cpan.org) [071214 11:05]:
> > Queue: Mail-Box > > Ticket <URL: http://rt.cpan.org/Ticket/Display.html?id=30499 > > > > > The version is 3.02. Can I have a patch for that fix?
> > I have tried to trace the error "dry", but are not able to find > a flaw in the path between MailBox and IMAPClient yet. Could > you try the following for me (in Mail/IMAPClient.pm): > > sub flags > { my ($self, $msgspec) = (shift, shift); > + defined $msgspec or confess; > my $msg > = UNIVERSAL::isa($msgspec, 'Mail::IMAPClient::MessageSet') > ? $msgspec > : $self->Range($msgspec); > > The stack-trace probably helps my investigation. > -- > > Regards, > MarkOv > > ------------------------------------------------------------------------ > Mark Overmeer MSc MARKOV Solutions > Mark@Overmeer.net solutions@overmeer.net > http://Mark.Overmeer.net http://solutions.overmeer.net > > >
Subject: Re: [rt.cpan.org #30499] Mail-Box-2.076 > Mail::Transport::IMAP4
Date: Mon, 17 Dec 2007 12:44:50 +0100
To: Zsolt Kecskemeti via RT <bug-Mail-Box [...] rt.cpan.org>
From: Mark Overmeer <solutions [...] overmeer.net>
* Zsolt Kecskemeti via RT (bug-Mail-Box@rt.cpan.org) [071217 11:18]: This does clarify some things... the problem happens in "DESTROY", which is happening inside your eval on at perl/modules//ANS/Events/Event.pm line 326 Probably, something is going wrong during the initiation of the message before it is completed. The UID of the message is not present yet, and therefore destructrion fails. Try to change lib/Mail/Box/IMAP4/Message.pm sub label(@) { my $self = shift; my $imap = $self->folder->transporter or return; - my $id = $self->unique; + my $id = $self->unique or return; To avoid the erroneous path. Hopefully, you get an error message now. The trace was very useful. -- Regards, MarkOv ------------------------------------------------------------------------ Mark Overmeer MSc MARKOV Solutions Mark@Overmeer.net solutions@overmeer.net http://Mark.Overmeer.net http://solutions.overmeer.net
Subject: Re: [rt.cpan.org #30499] Mail-Box-2.076 > Mail::Transport::IMAP4
Date: Mon, 17 Dec 2007 12:06:39 +0000
To: bug-Mail-Box [...] rt.cpan.org
From: "Zsolt Kecskemeti" <kecskemetizsolt [...] gmail.com>
Hi, Now it gets to writeDelayed but a similar error happens there: DEBUG: Folder INBOX already selected. DEBUG: Sending: 5 UID FETCH 1 FLAGS DEBUG: Sent 21 bytes DEBUG: Read: * 1 FETCH (FLAGS (\Seen) UID 1) 5 OK FETCH completed. DEBUG: flags: line = '5 UID FETCH 1 FLAGS' DEBUG: flags: line = '* 1 FETCH (FLAGS (\Seen) UID 1) ' DEBUG: flags: line = '5 OK FETCH completed. ' DEBUG: Folder INBOX already selected. DEBUG: Sending: 6 UID FETCH 2 FLAGS DEBUG: Sent 21 bytes DEBUG: Read: * 2 FETCH (FLAGS (\Seen) UID 2) 6 OK FETCH completed. DEBUG: flags: line = '6 UID FETCH 2 FLAGS' DEBUG: flags: line = '* 2 FETCH (FLAGS (\Seen) UID 2) ' DEBUG: flags: line = '6 OK FETCH completed. ' DEBUG: Folder INBOX already selected. DEBUG: Folder INBOX already selected. DEBUG: Folder INBOX already selected. DEBUG: Sending: 7 UID FETCH 1 FLAGS DEBUG: Sent 21 bytes DEBUG: Read: * 1 FETCH (FLAGS (\Seen) UID 1) 7 OK FETCH completed. DEBUG: flags: line = '7 UID FETCH 1 FLAGS' DEBUG: flags: line = '* 1 FETCH (FLAGS (\Seen) UID 1) ' DEBUG: flags: line = '7 OK FETCH completed. ' DEBUG: Folder INBOX already selected. DEBUG: Sending: 8 UID FETCH 2 FLAGS DEBUG: Sent 21 bytes DEBUG: Read: * 2 FETCH (FLAGS (\Seen) UID 2) 8 OK FETCH completed. DEBUG: flags: line = '8 UID FETCH 2 FLAGS' DEBUG: flags: line = '* 2 FETCH (FLAGS (\Seen) UID 2) ' DEBUG: flags: line = '8 OK FETCH completed. ' DEBUG: Folder INBOX already selected. DEBUG: Folder INBOX already selected. DEBUG: Sending: 9 UID FETCH 1 FLAGS DEBUG: Sent 21 bytes DEBUG: Read: * 1 FETCH (FLAGS (\Seen) UID 1) 9 OK FETCH completed. DEBUG: flags: line = '9 UID FETCH 1 FLAGS' DEBUG: flags: line = '* 1 FETCH (FLAGS (\Seen) UID 1) ' DEBUG: flags: line = '9 OK FETCH completed. ' DEBUG: Folder INBOX already selected. DEBUG: Sending: 10 UID FETCH 2 FLAGS DEBUG: Sent 22 bytes DEBUG: Read: * 2 FETCH (FLAGS (\Seen) UID 2) 10 OK FETCH completed. DEBUG: flags: line = '10 UID FETCH 2 FLAGS' DEBUG: flags: line = '* 2 FETCH (FLAGS (\Seen) UID 2) ' DEBUG: flags: line = '10 OK FETCH completed. ' DEBUG: Folder INBOX already selected. at /usr/lib/perl5/site_perl/5.8.5/Mail/Transport/IMAP4.pm line 337 Mail::Transport::IMAP4::getFlags('Mail::Transport::IMAP4=HASH(0xa9aa9ac)', 'undef') called at /usr/lib/perl5/site_perl/5.8.5/Mail/Box/IMAP4/Message.pm line 109 Mail::Box::IMAP4::Message::labels('Mail::Box::IMAP4::Message=HASH(0xaa353b8)') called at /usr/lib/perl5/site_perl/5.8.5/Mail/Box/IMAP4/Message.pm line 163 Mail::Box::IMAP4::Message::writeDelayed('Mail::Box::IMAP4::Message=HASH(0xaa353b8)', 'INBOX', 'Mail::Transport::IMAP4=HASH(0xa9aa9ac)') called at /usr/lib/perl5/site_perl/5.8.5/Mail/Box/IMAP4.pm line 296 Mail::Box::IMAP4::writeMessages('Mail::Box::IMAP4=HASH(0xa9a2624)', 'HASH(0xa5ca094)') called at /usr/lib/perl5/site_perl/5.8.5/Mail/Box.pm line 757 Mail::Box::write('Mail::Box::IMAP4=HASH(0xa9a2624)', 'save_deleted', 0, 'force', 0, 'transporter', 'Mail::Transport::IMAP4=HASH(0xa9aa9ac)') called at /usr/lib/perl5/site_perl/5.8.5/Mail/Box/IMAP4.pm line 268 Mail::Box::IMAP4::write('Mail::Box::IMAP4=HASH(0xa9a2624)', 'force', 0, 'save_deleted', 0) called at /usr/lib/perl5/site_perl/5.8.5/Mail/Box.pm line 362 Mail::Box::close('Mail::Box::IMAP4=HASH(0xa9a2624)') called at /usr/lib/perl5/site_perl/5.8.5/Mail/Box/IMAP4.pm line 114 Mail::Box::IMAP4::close('Mail::Box::IMAP4=HASH(0xa9a2624)') called at /usr/lib/perl5/site_perl/5.8.5/Mail/Box.pm line 882 Mail::Box::DESTROY('Mail::Box::IMAP4=HASH(0xa9a2624)') called at perl/modules//ANS/Events/Event.pm line 326 eval {...} called at perl/modules//ANS/Events/Event.pm line 326 ANS::Events::Event::Ticket::MailProcessor::_execute_event('ANS::Events::Event::Ticket::MailProcessor=HASH(0xa978740)') called at perl/modules//ANS/Events/Event.pm line 326 eval {...} called at perl/modules//ANS/Events/Event.pm line 290 ANS::Events::Event::execute('ANS::Events::Event::Ticket::MailProcessor=HASH(0xa978740)') called at perl/scripts/event-handler-wrapper.pl line 78 DEBUG: Sending: 11 UID SEARCH ALL DEBUG: Sent 19 bytes DEBUG: Read: * SEARCH 1 2 11 OK SEARCH completed. DEBUG: Sending: 12 UID FETCH 1:2 FLAGS DEBUG: Sent 24 bytes DEBUG: Read: * 1 FETCH (FLAGS (\Seen) UID 1) * 2 FETCH (FLAGS (\Seen) UID 2) 12 OK FETCH completed. DEBUG: flags: line = '12 UID FETCH 1:2 FLAGS' DEBUG: flags: line = '* 1 FETCH (FLAGS (\Seen) UID 1) ' DEBUG: flags: line = '* 2 FETCH (FLAGS (\Seen) UID 2) ' DEBUG: flags: line = '12 OK FETCH completed. ' Use of uninitialized value in hash element at /usr/lib/perl5/site_perl/5.8.5/Mail/IMAPClient.pm line 1864. (in cleanup) Can't use an undefined value as an ARRAY reference at /usr/lib/perl5/site_perl/5.8.5/Mail/IMAPClient.pm line 1865. Regards, Zsolt On Dec 17, 2007 11:45 AM, Mark Overmeer via RT <bug-Mail-Box@rt.cpan.org> wrote: Show quoted text
> > <URL: http://rt.cpan.org/Ticket/Display.html?id=30499 > > > * Zsolt Kecskemeti via RT (bug-Mail-Box@rt.cpan.org) [071217 11:18]: > > This does clarify some things... the problem happens in "DESTROY", > which is happening inside your eval > on at perl/modules//ANS/Events/Event.pm line 326 > > Probably, something is going wrong during the initiation of the > message before it is completed. The UID of the message is not > present yet, and therefore destructrion fails. > > Try to change lib/Mail/Box/IMAP4/Message.pm > > sub label(@) > { my $self = shift; > my $imap = $self->folder->transporter or return; > - my $id = $self->unique; > + my $id = $self->unique or return; > > To avoid the erroneous path. Hopefully, you get an error message now. > The trace was very useful. > -- > > Regards, > MarkOv > > ------------------------------------------------------------------------ > Mark Overmeer MSc MARKOV Solutions > Mark@Overmeer.net solutions@overmeer.net > http://Mark.Overmeer.net http://solutions.overmeer.net > > >
Subject: Re: [rt.cpan.org #30499] Mail-Box-2.076 > Mail::Transport::IMAP4
Date: Wed, 19 Dec 2007 09:54:19 +0100
To: Zsolt Kecskemeti via RT <bug-Mail-Box [...] rt.cpan.org>
From: Mark Overmeer <mark [...] overmeer.net>
* Zsolt Kecskemeti via RT (bug-Mail-Box@rt.cpan.org) [071217 12:08]: Show quoted text
> Queue: Mail-Box > Ticket <URL: http://rt.cpan.org/Ticket/Display.html?id=30499 > > > Now it gets to writeDelayed but a similar error happens there:
Have you already figured-out why destroy was called on an incomplete message object? It originates in your eval, and it would help me if I known that contents. Show quoted text
> /usr/lib/perl5/site_perl/5.8.5/Mail/Box/IMAP4.pm line 114 > Mail::Box::IMAP4::close('Mail::Box::IMAP4=HASH(0xa9a2624)') > called at /usr/lib/perl5/site_perl/5.8.5/Mail/Box.pm line 882 > Mail::Box::DESTROY('Mail::Box::IMAP4=HASH(0xa9a2624)') called > at perl/modules//ANS/Events/Event.pm line 326 > eval {...} called at perl/modules//ANS/Events/Event.pm line 326
-- Regards, MarkOv ------------------------------------------------------------------------ Mark Overmeer MSc MARKOV Solutions Mark@Overmeer.net solutions@overmeer.net http://Mark.Overmeer.net http://solutions.overmeer.net
Subject: Re: [rt.cpan.org #30499] Mail-Box-2.076 > Mail::Transport::IMAP4
Date: Wed, 19 Dec 2007 10:35:17 +0000
To: bug-Mail-Box [...] rt.cpan.org
From: "Zsolt Kecskemeti" <kecskemetizsolt [...] gmail.com>
line 326 of Event.pm: my $success = $self->_execute_event(); in _execute_event I connect to two mailboxes: my $obj_mgr = Mail::Box::Manager->new(); my $pop3 = { 'type' => 'pop3', 'username' => 'tickets.test', 'password' => 'Ticketing1', 'server_name' => 'a.b.c.d', 'log' => 'DEBUG', 'access' => 'rw', }; my $obj_folder = $obj_mgr->open(%{$pop3); my $backup = { 'type' => 'imap4', 'folder' => 'INBOX', 'username' => 'username', 'password' => 'password', 'server_name' => 'a.b.c.d', 'server_name' => 'our.domain.name', 'log' => 'DEBUG', 'trace' => 'DEBUG', 'authenticate' => 'LOGIN', 'access' => 'rw', }; my $obj_backup = Mail::Box::IMAP4->new(%{$backup}); Connecting to the backup mailbox via IMAP4 works, I can get the folder name ($obj_backup->name => INBOX) and the number of messages ($obj_backup->messages => 2). I process the mails from pop3 mailbox one by one: if (defined( ($obj_folder->messages('ACTIVE'))[0] )) { $current_msg = $obj_folder->messages('ACTIVE'))[0]; } and when I am finished with them I call: $obj_mgr->moveMessage(obj_backup, $current_msg); Up until I call moveMessage I get no error messages at all. Regards, Zsolt Kecskemeti On Dec 19, 2007 8:54 AM, Mark Overmeer via RT <bug-Mail-Box@rt.cpan.org> wrote: Show quoted text
> > <URL: http://rt.cpan.org/Ticket/Display.html?id=30499 > > > * Zsolt Kecskemeti via RT (bug-Mail-Box@rt.cpan.org) [071217 12:08]:
> > Queue: Mail-Box > > Ticket <URL: http://rt.cpan.org/Ticket/Display.html?id=30499 > > > > > Now it gets to writeDelayed but a similar error happens there:
> > Have you already figured-out why destroy was called on an incomplete > message object? It originates in your eval, and it would help me if > I known that contents. >
> > /usr/lib/perl5/site_perl/5.8.5/Mail/Box/IMAP4.pm line 114 > > Mail::Box::IMAP4::close('Mail::Box::IMAP4=HASH(0xa9a2624)') > > called at /usr/lib/perl5/site_perl/5.8.5/Mail/Box.pm line 882 > > Mail::Box::DESTROY('Mail::Box::IMAP4=HASH(0xa9a2624)') called > > at perl/modules//ANS/Events/Event.pm line 326 > > eval {...} called at perl/modules//ANS/Events/Event.pm line 326
> > -- > > Regards, > MarkOv > > ------------------------------------------------------------------------ > Mark Overmeer MSc MARKOV Solutions > Mark@Overmeer.net solutions@overmeer.net > http://Mark.Overmeer.net http://solutions.overmeer.net > > >
Subject: Re: [rt.cpan.org #30499] Mail-Box-2.076 > Mail::Transport::IMAP4
Date: Wed, 19 Dec 2007 12:22:49 +0100
To: Zsolt Kecskemeti via RT <bug-Mail-Box [...] rt.cpan.org>
From: Mark Overmeer <mark [...] overmeer.net>
* Zsolt Kecskemeti via RT (bug-Mail-Box@rt.cpan.org) [071219 10:36]: Show quoted text
> my $obj_folder = $obj_mgr->open(%{$pop3);
my $obj_folder = $obj_mgr->open(%{$pop3}); Show quoted text
> and when I am finished with them I call: > $obj_mgr->moveMessage(obj_backup, $current_msg);
$obj_backup, I hope. Sorry: I have to leave now... tonight or tomorrow more... -- Regards, MarkOv ------------------------------------------------------------------------ Mark Overmeer MSc MARKOV Solutions Mark@Overmeer.net solutions@overmeer.net http://Mark.Overmeer.net http://solutions.overmeer.net
Subject: Re: [rt.cpan.org #30499] Mail-Box-2.076 > Mail::Transport::IMAP4
Date: Wed, 19 Dec 2007 11:27:15 +0000
To: bug-Mail-Box [...] rt.cpan.org
From: "Zsolt Kecskemeti" <kecskemetizsolt [...] gmail.com>
yes, $obj_backup of course :) Ok, whenever you have time, I really appreciate your help. Regards, Zsolt On Dec 19, 2007 11:23 AM, Mark Overmeer via RT <bug-Mail-Box@rt.cpan.org> wrote: Show quoted text
> > <URL: http://rt.cpan.org/Ticket/Display.html?id=30499 > > > * Zsolt Kecskemeti via RT (bug-Mail-Box@rt.cpan.org) [071219 10:36]:
> > my $obj_folder = $obj_mgr->open(%{$pop3);
> > my $obj_folder = $obj_mgr->open(%{$pop3}); >
> > and when I am finished with them I call: > > $obj_mgr->moveMessage(obj_backup, $current_msg);
> > $obj_backup, I hope. > Sorry: I have to leave now... tonight or tomorrow more... > -- > > Regards, > MarkOv > > ------------------------------------------------------------------------ > Mark Overmeer MSc MARKOV Solutions > Mark@Overmeer.net solutions@overmeer.net > http://Mark.Overmeer.net http://solutions.overmeer.net > > >
ancient ticket seems to have re-opened itself. closed again.