Lines Matching refs:smtp

142 		my $smtp = new Net::SMTP("$host:$port", Timeout => 5, Hello => $hostname);
143 		next if (!$smtp);
145 		$smtp->mail($from) || next;
146 		$smtp->to($to, { Notify => ['NEVER'] }) || next;
147 		$smtp->data() || next;
148 		$smtp->datasend("From: <$from>\n");
149 		$smtp->datasend("To: <$to>\n");
150 		$smtp->datasend("Subject: $subject\n");
151 		$smtp->datasend("\n");
157 				$smtp->datasend(sprintf("%s\n", "A" x 79));
159 			$smtp->datasend(sprintf("%s\n", "A" x ($bodysize % 80)));
161 			$smtp->datasend("This is a test email sent by Smokeping to check speed of mx server $host.\n");
162 …$smtp->datasend("If you receive this mail in your mailbox, you are likely to be spammed in just fe…
165 		$smtp->dataend() || next;
166 		$smtp->quit();