Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

Comment on

( #3333=superdoc: print w/ replies, xml ) Need Help??

i have some example of code i cote

package PerlWebmail::Message; use base qw(Mail::Internet); my $crlf = qr/\012|\015\012|\015/; my $quote_prefix = '>'; sub new { my $class = shift; $_ = Mail::Internet->new(\*STDIN); my $self = $class->SUPER::new(@_); return $self; } sub from { my ($self, $from) = @_; if ($from) { $self->add(From => $from); } $self->add(From => $from); } sub replyto { my ($self,$replyto) = @_; if ($replyto) { $self->add(Reply-To => $replyto); } $self->add(Reply-To => $replyto); } sub references { my ($self,$references) = @_; if ($references) { $self->add(References => $references); } $self->add(References => $references); } sub inreplyto { my ($self,$inreplyto) = @_; if ($inreplyto) { $self->add(In-Reply-To => $inreplyto); } $self->add(In-Reply-To => $inreplyto); } sub to { my ($self, $to) = @_; if ($to) { $self->add(To => $to); } $self->add(To => $to); } sub cc { my ($self, $cc) = @_; if ($cc) { $self->add(Cc => $cc); } $self->add(Cc => $cc); } sub bcc { my ($self, $bcc) = @_; if ($cc) { $self->add(Bcc => $bcc); } $self->add(Bcc => $bcc ); } sub subject { my ($self, $subject) = @_; if ($subject) { $self->add(Subject => $subject); } $self->add(Subject => $subject ); } sub body { my ($self, $body) = @_; if ($body) { $self->body($body); } $self->body($body); } sub asString { shift->as_string; } #my $crlf = qr/\x0a\x0d|\x0d\x0a|\x0a|\x0d/; #sub _strip_sig { reverse +(split /$crlf\s*--$crlf/o, reverse(pop), 2) +[1] } sub quote { my $body = shift; $body =~ s/($crlf)/$1$quote_prefix /g; "\n\n$quote_prefix $body"; } 1;

its package for parse email

sub mailer { my($r,$attachment_file) = @_; my $msgbody_file = read_file( $r->{param}->{body} ); my $attachment_data = encode_base64( read_file( $attachment_file, 1 )) +; my $ft = File::Type->new(); my $type_from_file = $ft->checktype_filename($attachment_file); my $boundary = "====" . time . "===="; my$mail_content_type = qq(multipart/mixed; boundary="$boundary"); $boundary = '--'.$boundary; my$mail_body = <<END_OF_BODY; $boundary $mail_content_type Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable $msgbody_file $boundary Content-Type: $type_from_file ; name=$attachment_file Content-Transfer-Encoding: base64 Content-Disposition: attachment; filename=$attachment_file $attachment_data $boundary-- END_OF_BODY my$mailer = Email::Send->new( { mailer => 'SMTP::TLS', mailer_args => [ Host => $r->{config}->{smtpserver}, Port => 587, User => $r->{user}, Password => $r->{perlwebmail}->{user}->{password}, Hello => $r->{config}->{smtpserver}, ] } ); my$email = Email::Simple->create( header => [ From => $r->{user}->email, To => $r->{param}->{to}, Cc => $r->{param}->{cc}, Subject => $r->{param}->{subject}, ], body => $mail_body, ); eval { $mailer->send($email) }; die "Error sending email: $@" if $@; return retrieve_message($r); }

best things and more exemple are welcome to upper quality of code many return are welcome best explication for the studier and studients

its the code of jaos i studied him


In reply to best way to transfor package Mail::Internet to Email::MIME and send mail by swilting

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":



  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • Outside of code tags, you may need to use entities for some characters:
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.
  • Log In?
    Username:
    Password:

    What's my password?
    Create A New User
    Chatterbox?
    and the web crawler heard nothing...

    How do I use this? | Other CB clients
    Other Users?
    Others rifling through the Monastery: (5)
    As of 2014-11-22 17:00 GMT
    Sections?
    Information?
    Find Nodes?
    Leftovers?
      Voting Booth?

      My preferred Perl binaries come from:














      Results (123 votes), past polls