MAIL::Cclient callbacks not working in mod_perl

[prev] [thread] [next] [Date index for 2005/03/24]

Hi all,

This is my configuration
------------------------
RedHat ES3
httpd-2.0.46
perl-5.8.0-89.10

This is what i want to do
---------------------------
I want to deploy my website written for HTML::Mason under mod_perl which  
uses "MAIL:Cclient"
It worked successfully in Fedora 2.

This is what i did
-------------------
Tried to install HTML::Mason form latest package from www.masonhq.com
It asked for so many perl modules. and i installed them using
perl -MCPAN -e shell.
But one module i was not able to install is Apache::Request
Then i downloaded libapreq2-2.04-dev
It said that it doesn't support mod_perl <1.99
So i was forced to download install mod_perl-2.0.0-RC4
But mod_perl complained that it doesn't support apache httpd-2.0.46
So i installed httpd-2.0.47-10.i386.rpm which is part of Fedora 1

At last everything went fine with installation.
Then started my actual problem. To make it short see the bellow 3 piece's  
of code.

CODE 1= Written for HTML::Mason     Callback function was never called.
CODE 2= Written for cgi-bin	     Callback function was called and program  
worked
CODE 3= Written for Apache::ASP    Callback function was never called.
-------------------CODE 1---------------------------
<%perl>
use Mail::Cclient qw(set_callback);
print "Setting callback <br>";
set_callback( 'login' => sub {
	print "IN LOGIN CALLBACK <BR>";
	return("cyrus", "cyrus");}
);
my $cclient = Mail::Cclient->new('{localhost/IMAP/notls}user');
print "CCLIENT = $cclient <br>";
</%perl>

------------------CODE 2 --------------------------
#!/usr/bin/perl
use Mail::Cclient qw(set_callback);
	print "Content-type: text/html\n\n";

	print "Setting callback <br>";
       set_callback(
         'login' => sub {
                 print "In Login call back <br>";
                 return("cyrus","cyrus");
         }
       );
       my $cclient = Mail::Cclient->new('{localhost/IMAP/notls}user');
       print "CCLIENT = $cclient <br>";
------------------CODE 3 ---------------------------
<%
use CGI qw(:standard);
use Mail::Cclient qw(set_callback);
print header();
         print "Setting callback <br>";
         set_callback(
         'login' => sub {
                 print "In Login call back <br>";
                 return("cyrus", "cyrus");
         }
         );

my $cclient = Mail::Cclient->new('{localhost/IMAP/notls}user');
print "CCLIENT = $cclient <br>";
%>
-------------------------------------------------------

What else i tried?

1.Try: I thought the problem may be in mod_perl version so i tried by  
installing
previous version which worked for me in Fedora 2  
mod_perl-2.0.0-RC2-XMas.tar.gz
Result: No change. call back is never called
2.Try: Disabled Mason obj file output.
Result:  No change. call back is never called
3.Try: Upgraded perl to 5.8.6
Result: No Change.  call back is never called
4.Try: Upgraded httpd to 2.0.53
Result: No Change.
5.Try: Recompiled Mod_perl for static linking with apache.
Result: No change.
6.Try: Installed Apache:ASP to test if the problem is with "HTML::Mason"  
or with "mod_perl".
Result: No change. That means it is the problem with mod_perl (i asume)
7.Try: Changed the program in such a way that i passed an already defined  
function reference to 'login' callback.
Result: No change.

What i want to know?
-----------------------

Why the program is not working in mod_perl when it works perfectly with  
cgi-bin?
I heard that Acmemail works in mod_perl also with Mail::Cclient.
But i am not sure about it. Can any one help me how to solve this problem.
It already took more than 3 days till now.
Is there some thing very stupid i am doing?

Please help me...

Rajesh Akkineni