{"id":580,"date":"2011-12-29T13:47:55","date_gmt":"2011-12-29T19:47:55","guid":{"rendered":"http:\/\/vostorga.org\/?p=580"},"modified":"2011-12-29T13:47:55","modified_gmt":"2011-12-29T19:47:55","slug":"quick-perl-script-to-test-smtp-auth","status":"publish","type":"post","link":"https:\/\/vostorga.org\/?p=580","title":{"rendered":"Quick perl script to test smtp auth"},"content":{"rendered":"<pre>#!perl\r\n\r\nuse warnings;\r\nuse strict;\r\n\r\nuse Net::SMTP;\r\n\r\nmy $smtpserver = 'xxx.yyy.zzz.www';\r\nmy $smtpuser   = 'foo@bar.com';\r\nmy $fromemail  = 'bleh@bar.com';\r\n\r\nmy $smtp = Net::SMTP-&gt;new($smtpserver, Timeout =&gt; 10, Debug =&gt; 1);\r\ndie \"Could not connect to server!\\n\" unless $smtp;\r\n\r\n  $smtp-&gt;auth ( 'user', 'secret' ) or die \"Could not authenticate $!\";\r\n  $smtp-&gt;mail($smtpuser);\r\n  $smtp-&gt;to('somebody@bar.com');\r\n  $smtp-&gt;data();\r\n  $smtp-&gt;datasend(\"To: somebody\\@bar.com\\n\");\r\n  $smtp-&gt;datasend(\"From: $fromemail\\n\");\r\n  $smtp-&gt;datasend(\"\\n\");\r\n  $smtp-&gt;datasend(\"Body message\\n\");\r\n  $smtp-&gt;dataend();\r\n  $smtp-&gt;quit;<\/pre>\n<p>&nbsp;<\/p>\n","protected":false},"excerpt":{"rendered":"<p>#!perl use warnings; use strict; use Net::SMTP; my $smtpserver = &#8216;xxx.yyy.zzz.www&#8217;; my $smtpuser = &#8216;foo@bar.com&#8217;; my $fromemail = &#8216;bleh@bar.com&#8217;; my $smtp = Net::SMTP-&gt;new($smtpserver, Timeout =&gt; 10, Debug =&gt; 1); die &#8220;Could not connect to server!\\n&#8221; unless $smtp; $smtp-&gt;auth ( &#8216;user&#8217;, &#8216;secret&#8217; ) or die &#8220;Could not authenticate $!&#8221;; $smtp-&gt;mail($smtpuser); $smtp-&gt;to(&#8216;somebody@bar.com&#8217;); $smtp-&gt;data(); $smtp-&gt;datasend(&#8220;To: somebody\\@bar.com\\n&#8221;); $smtp-&gt;datasend(&#8220;From: $fromemail\\n&#8221;); [&hellip;]<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[3],"tags":[207,84,195],"class_list":["post-580","post","type-post","status-publish","format-standard","hentry","category-linux","tag-linux","tag-perl","tag-smtp"],"_links":{"self":[{"href":"https:\/\/vostorga.org\/index.php?rest_route=\/wp\/v2\/posts\/580"}],"collection":[{"href":"https:\/\/vostorga.org\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/vostorga.org\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/vostorga.org\/index.php?rest_route=\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/vostorga.org\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=580"}],"version-history":[{"count":3,"href":"https:\/\/vostorga.org\/index.php?rest_route=\/wp\/v2\/posts\/580\/revisions"}],"predecessor-version":[{"id":583,"href":"https:\/\/vostorga.org\/index.php?rest_route=\/wp\/v2\/posts\/580\/revisions\/583"}],"wp:attachment":[{"href":"https:\/\/vostorga.org\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=580"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/vostorga.org\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=580"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/vostorga.org\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=580"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}