Re: [Perl-unix-users] Accessing mail from the web

[mario sanchez]

humberto - refer to my email about inconsistencies in single/double quotes 
when using mail
best
mario

On Mon, 14 Mar 2005, Humberto Rodriguez wrote:
Thanks Jeff; I tried that and I also tried just connecting with
the folder type, without a folder name, which the documentation
says may be done subsequently, with an "open" statement; still,
the object does not connect.  $folder is undefined after
the "new" statement.
I really don't know what else to try; I think I'll leave it
alone for a while and then come back to it; sometimes, this
helps and the answer then jumps at you, making you wonder why
you could not see it before.  Let's hope that will be the case.
Thanks again,
Humberto
Jeff wrote:
Humberto,
Perusing the documentation for Mail::Folder, it
appears that you are probably wanting to call the
'new' method with the $folder_type and $folder_name
args...passing the options hash is optional and
doesn't look like you are needing it.
<snippet from doc>
new($foldertype, $folder_name [, %options])
</snippet>
so try changing:
$folder= new Mail::Folder('$folder_type','%options');
to (untested):
$folder = new Mail::Folder($folder_type,
$folder_name);
HTH
JD
--- Humberto Rodriguez <[EMAIL PROTECTED]>
wrote:
No Peter, thanks for your suggestion, but I tried it
and I
still get the same result.  Haven't been able to
figure this
out.
Thanks anyway.
Humberto
Try changing your 'quotes' to "double quotes" in the
open.

-----Original Message-----
From: Humberto Rodriguez
[mailto:[EMAIL PROTECTED]
Sent: Monday, March 14, 2005 12:27 AM
To: perl-unix-users@listserv.ActiveState.com
Subject: [Perl-unix-users] Accessing mail from the
web

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



__________________________________________________________
This message was scanned by ATX
10:43:05 PM ET - 3/13/2005
_______________________________________________
Perl-Unix-Users mailing list
Perl-Unix-Users@listserv.ActiveState.com
To unsubscribe:
http://listserv.ActiveState.com/mailman/mysubs
_______________________________________________
Perl-Unix-Users mailing list
Perl-Unix-Users@listserv.ActiveState.com
To unsubscribe:
http://listserv.ActiveState.com/mailman/mysubs

__________________________________
Do you Yahoo!?
Yahoo! Small Business - Try our new resources site!
http://smallbusiness.yahoo.com/resources/
_______________________________________________
Perl-Unix-Users mailing list
Perl-Unix-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
_______________________________________________
Perl-Unix-Users mailing list
Perl-Unix-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs