- # Special case!
- # Check none by trying to relay to junk@microsoft.com
- $host = $smtpServerAddress . ':' . $smtpPort;
- use IO::Socket;
- my $sock = IO::Socket::INET->new($host);
- print "Testing none:\t\t$WHT";
- if (!defined($sock)) {
- print " ERROR TESTING\n";
- close $sock;
- } else {
- print $sock "mail from: tester\@squirrelmail.org\n";
- $got = <$sock>; # Discard
- print $sock "rcpt to: junk\@microsoft.com\n";
- $got = <$sock>; # This is the important line
- if ($got =~ /^250\b/) { # SMTP will relay without auth
- print "SUPPORTED$NRM\n";
- } else {
- print "NOT SUPPORTED$NRM\n";
- }
- print $sock "rset\n";
- print $sock "quit\n";
- close $sock;
- }
- # Try login (SquirrelMail default)
- print "Testing login:\t\t";
- $tmp=detect_auth_support('SMTP',$host,'LOGIN');
- if (defined($tmp)) {
- if ($tmp eq 'YES') {
- print $WHT . "SUPPORTED$NRM\n";
- } else {
- print $WHT . "NOT SUPPORTED$NRM\n";
- }
- } else {
- print $WHT . "ERROR DETECTING$NRM\n";
- }
-
- # Try CRAM-MD5
- print "Testing CRAM-MD5:\t";
- $tmp=detect_auth_support('SMTP',$host,'CRAM-MD5');
- if (defined($tmp)) {
- if ($tmp eq 'YES') {
- print $WHT . "SUPPORTED$NRM\n";
- } else {
- print $WHT . "NOT SUPPORTED$NRM\n";
+ # Special case!
+ # Check none by trying to relay to junk@microsoft.com
+ $host = $smtpServerAddress . ':' . $smtpPort;
+ use IO::Socket;
+ my $sock = IO::Socket::INET->new($host);
+ print "Testing none:\t\t$WHT";
+ if (!defined($sock)) {
+ print " ERROR TESTING\n";
+ close $sock;
+ } else {
+ print $sock "mail from: tester\@squirrelmail.org\n";
+ $got = <$sock>; # Discard
+ print $sock "rcpt to: junk\@microsoft.com\n";
+ $got = <$sock>; # This is the important line
+ if ($got =~ /^250\b/) { # SMTP will relay without auth
+ print "SUPPORTED$NRM\n";
+ } else {
+ print "NOT SUPPORTED$NRM\n";
+ }
+ print $sock "rset\n";
+ print $sock "quit\n";
+ close $sock;
+ }
+ # Try login (SquirrelMail default)
+ print "Testing login:\t\t";
+ $tmp=detect_auth_support('SMTP',$host,'LOGIN');
+ if (defined($tmp)) {
+ if ($tmp eq 'YES') {
+ print $WHT . "SUPPORTED$NRM\n";
+ } else {
+ print $WHT . "NOT SUPPORTED$NRM\n";
+ }
+ } else {
+ print $WHT . "ERROR DETECTING$NRM\n";
+ }
+
+ # Try CRAM-MD5
+ print "Testing CRAM-MD5:\t";
+ $tmp=detect_auth_support('SMTP',$host,'CRAM-MD5');
+ if (defined($tmp)) {
+ if ($tmp eq 'YES') {
+ print $WHT . "SUPPORTED$NRM\n";
+ } else {
+ print $WHT . "NOT SUPPORTED$NRM\n";
+ }
+ } else {
+ print $WHT . "ERROR DETECTING$NRM\n";