Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change

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

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!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • 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
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            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?

    What's my password?
    Create A New User
    [shmem]: that's why it is called "Windows"
    [stevieb]: shmem thanks for the 'insight' :P
    [shmem]: good thing that Sun already took "OpenWindows", otherwise I'd not stop to shudder imagining an "OpenWindows" from MS
    [shmem]: more garbage in, more garbage out that would be
    [stevieb]: I found that win10 broke a C# library I was using for one project while enhancing tests for a Perl dist, which breaks other Perl dists, and I'm about to throw my hands up on berrybrew. win2k12 broke one thing, win10 breaks something...
    [stevieb]: ...unrelated which requires replacing a lot of code and a whole lib. I'm about to go nix only ffs
    [shmem]: stevieb: what you're doing sounds afwully complex. Too much for me this evening to provide brighter insight ;-)
    [stevieb]: I don't even own a Windows computer. Both my girl and I have a laptop each with Linux. I'm supporting Windows in some of my projects and I can't even guage whether it's worth it or not.
    [stevieb]: shmem It's something I desired to have years ago, which is why I took over berrybrew. Cross-platform build/test automation locally, or over the network Test::BrewBuild

    How do I use this? | Other CB clients
    Other Users?
    Others scrutinizing the Monastery: (5)
    As of 2017-03-28 22:04 GMT
    Find Nodes?
      Voting Booth?
      Should Pluto Get Its Planethood Back?

      Results (342 votes). Check out past polls.