From 19ef9b7df0014eb4385c1fc3ac30b1ed74ccfcf4 Mon Sep 17 00:00:00 2001
From: Graham Barr <gbarr@pobox.com>
Date: Sun, 24 May 1998 19:37:32 +0000
Subject: Net::SMTP - Added banner() method

---
 Net/SMTP.pm | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/Net/SMTP.pm b/Net/SMTP.pm
index b00a2b4..ba949e9 100644
--- a/Net/SMTP.pm
+++ b/Net/SMTP.pm
@@ -16,7 +16,7 @@ use IO::Socket;
 use Net::Cmd;
 use Net::Config;
 
-$VERSION = "2.11"; # $Id: //depot/libnet/Net/SMTP.pm#6 $
+$VERSION = "2.12"; # $Id: //depot/libnet/Net/SMTP.pm#7 $
 
 @ISA = qw(Net::Cmd IO::Socket::INET);
 
@@ -56,6 +56,7 @@ sub new
 
  ${*$obj}{'net_smtp_host'} = $host;
 
+ (${*$obj}{'net_smtp_banner'}) = $obj->message;
  (${*$obj}{'net_smtp_domain'}) = $obj->message =~ /\A\s*(\S+)/;
 
  unless($obj->hello($arg{Hello} || ""))
@@ -71,6 +72,13 @@ sub new
 ## User interface methods
 ##
 
+sub banner
+{
+ my $me = shift;
+
+ return ${*$me}{'net_smtp_banner'} || undef;
+}
+
 sub domain
 {
  my $me = shift;
@@ -446,6 +454,11 @@ empty list.
 
 =over 4
 
+=item banner ()
+
+Returns the banner message which the server replied with when the
+initial connection was made.
+
 =item domain ()
 
 Returns the domain that the remote SMTP server identified itself as during
-- 
cgit v1.2.3-24-ge0c7