Mail::...::SMTP(3pm)

✨ Mail::SendEasy::SMTP 💌

okay bestie, so this page is the manual for Mail::SendEasy::SMTP — that's the Mail::...::SMTP(3pm) perl doc, and she's a whole mood. no preamble, let's GO 🫶

---

🌸 NAME 🌸

Mail::SendEasy::SMTP — she handles all the talking-to-the-SMTP-server business, and she does it with zero dependencies. not a single one. icon behavior fr fr 💅

---

🦋 DESCRIPTION 🦋

So basically this module is the one who does the whole communication with the SMTP server. that's her job, that's her moment, that's her main character energy.

She has no dependencies — none, nada, zero — and she supports authentication. no cap. 🎀

---

💖 USAGE 💖

here's the vibe, literally copy this energy:

  use Mail::SendEasy ;

  $smtp = Mail::SendEasy::SMTP->new( 'domain.foo' , 25 , 120 ) ;

  if ( !$smtp->auth ) { warn($smtp->last_response_line) ;}

  if ( $smtp->MAIL("FROM:<$mail{from}>") !~ /^2/ ) { warn($smtp->last_response_line) ;}

  if ( $smtp->RCPT("TO:<$to>") !~ /^2/ ) { warn($smtp->last_response_line) ;}

  if ( $smtp->RCPT("TO:<$to>") !~ /^2/ ) { warn($smtp->last_response_line) ;}

  if ( $smtp->DATA =~ /^3/ ) {
    $smtp->print("To: foo@foo") ;
    $smtp->print("Subject: test") ;
    $smtp->print("\n") ;
    $smtp->print("This is a sample MSG!") ;
    if ( $smtp->DATAEND !~ /^2/ ) { warn($smtp->last_response_line) ;}
  }

  $smtp->close ;

like… the way she checks every response against /^2/ and /^3/ and warns you if it's giving anything else?? obsessed. 🧚

---

👑 METHODS 👑

🌈 new ($host , $port , $timeout , $user , $pass)

Makes the SMTP object and connects to the server. that's it, that's the birth of the whole operation. slay. ✨

🌈 connect

Connects to the server. just… connects. hello?? hi server bestie 🫶

🌈 auth_types

The authentication types that the SMTP server supports. she tells you what she's willing to do 💅

🌈 auth($user , $pass)

Does the authentication. you pass the $user and the $pass, she does the rest. periodt. 🔥

🌈 print (data)

Sends data to the socket connection. it's giving "write it and send it" 💌

🌈 cmd (CMD , @MORE)

Sends a command to the server — you give her the CMD plus any @MORE you wanna tack on. 🌟

🌈 response

Returns the code response.

and listen — if wantarray, she returns an ARRAY with the response lines instead. context matters, bestie 😭

🌈 last_response

Returns an ARRAY with the response lines. (yes, the last ones — the freshest ones 🍓)

🌈 last_response_msg

The last response text. just the words, no code. 💬

🌈 last_response_line

The last response line — code AND text, together, the full package. 👑

🌈 close

QUIT and close the connection. say bye, hang up, log off. the end of an era 😭✨

---

🎀 AUTHOR 🎀

Graciliano M. P. <gm@virtuasites.com.br>

(ty for your service king 🙏)

---

💜 COPYRIGHT 💜

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

like, free free. go off. 🌈

---

and that's the whole page, bestie!! 🦋 this version dropped as perl v5.32.0 on 2021-01-05, so yeah — vintage but still ate 💅💖 mwah, go send some emails 🌸