Dear gurus:
I have for some time, run a Unix server:
Red Hat Linux Release 9 (Shrike)
Kernel 2.4.20-6 on an i686
with Sendmail and Procmail V. 3.22 2001-09-10
and Perl v. 5.8.0
The system files for email are at /var/spool/mail
I am trying to implement some sort of webmail, that is, to
access the emails from a webpage. The web server and the mail
server are in the same computer.
I read through many of the available modules and found that I
could access the messages well with
Mail::POP3Client
but it does not handle MIME messages with entities.
I found Mail::Folder which seems to do what I want, but I don't
seem to be able to make it run. Since it dislikes the system
files at /var/spool/mail, I am testing with some emails I moved
to a folder called mail in the root directory of a user; I
chmodded both the directory and the two files in it, hrfc and
humberto, as 777 to test; but still, I am not able to create
the object.
I will be grateful for any hints.
Here is the code snippet that does not work:
#!/usr/bin/perl -w
# folder.cgi
use strict;
use lib '/path/to/cgi-bin/webmail/modules';
use Mail::Folder;
print "Content-type: text/html\n\n";
my ($folder_type, $folder_name, $folder, $file, %options);
$folder_type = 'Mbox';
$folder_name = '/path/to/mail';
$file="$folder_name/hrfc";
$options{DefaultFolderType}=1;
$folder= new Mail::Folder('$folder_type', '%options');
#print "\$folder is $folder<br>";
$folder->open('$folder_name');
my $num=$folder->qty;
print "there are $num messages<br>";
Since the object is not being created, I get the following
error message:
[Sun Mar 13 21:56:52 2005] [error] [client 10.6.1.29] Can't
call method "open" on an undefined value at /path/to/cgi-
bin/webmail/folder.cgi line 16.
TIA for any help, or info on a better way to do this.
Humberto Rodriguez
_______________________________________________
Perl-Unix-Users mailing list
Perl-Unix-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
