| Server IP : 216.92.14.13 / Your IP : 216.73.216.171 Web Server : Apache System : Linux vps4089.pairvps.com 5.15.0-190-generic #200-Ubuntu SMP Fri Aug 7 15:06:04 UTC 2026 x86_64 User : rmlac2fmr ( 1040637) PHP Version : 8.2.32 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/local/bin/ |
Upload File : |
#!/usr/local/bin/perl -w
eval 'exec /usr/local/bin/perl -w -S $0 ${1+"$@"}'
if 0; # not running under some shell
use strict;
use Data::Dumper;
use lib qw(../lib lib);
use What;
#my $banner = "localhost ESMTP Exim 4.60 Mon, 20 Feb 2006 22:38:53 +0000";
#my $banner = "mast MasqMail 0.2.21 ESMTP";
#$banner =~ m/^.+MasqMail (.+) ESMTP?.+/;
#print Dumper $1;
#exit;
#my $what = What->new( Banner => $banner );
my $what = What->new( Host => $ARGV[0], Port => $ARGV[1] );
print $what->mta . "\n";
print $what->mta_version . "\n";
print $what->mta_banner . "\n";