123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199 |
- use Getopt::Std;
- use English;
- use Net::SSLeay::Handle;
- getopts ("m:p:t:u:w:s");
- $PORT = $opt_p || 143;
- $TIMEOUT = $opt_t || 30;
- $MAILBOX=$opt_m || undef;
- $USERNAME=$opt_u || 'ANONYMOUS';
- $PASSWORD=$opt_w || 'ANONYMOUS';
- @failures = ();
- foreach $host (@ARGV) {
- if (! &imapGET($host, $PORT)) {
- push (@failures, $host);
- }
- }
- if (@failures == 0) {
- exit 0;
- }
- print join (" ", sort @failures), "\n\n", join ("\n", @longerr), "\n";
- exit 1;
- sub imapGET {
- use Socket;
- use Sys::Hostname;
- my($Server, $Port) = @_;
- my($ServerOK, $TheContent, $cmd);
- $ServerOK = 0;
- $TheContent = '';
- $Path = '/';
- eval {
- local $SIG{ALRM} = sub { die "Timeout Alarm" };
- alarm $TIMEOUT;
- $result = &OpenSocket($Server, $Port);
- if ($result == 0) {
- push @longerr, "$Server: Unable to connect";
- return '';
- }
- $in = <S>;
- if ($in !~ /^\* (OK|PREAUTH|BYE)/) {
- alarm 0;
- push @longerr, "$Server: No IMAP banner received";
- return 0;
- }
- $cmd="login";
- print S "A1 LOGIN ", $USERNAME, " ", $PASSWORD, "\r\n";
- while (defined($in=<S>)) {
- if ($in =~ /^A1 (\w+) (.*)/) {
- if ($1 eq "OK") {
- $ServerOK = 1;
- } else {
- $errmsg="$1 $2";
- }
- last;
- }
- }
- if ($ServerOK && $MAILBOX) {
- $cmd="examine";
- $ServerOK=0;
- print S "A2 EXAMINE $MAILBOX\r\n";
- while (defined($in=<S>)) {
- if ($in =~ /^A2 (\w+) (.*)/) {
- if ($1 eq "OK") {
- $ServerOK = 1;
- } else {
- $errmsg="$1 $2";
- }
- last;
- }
- }
- }
- if ($ServerOK) {
- $cmd="logout";
- $ServerOK=0;
- print S "A3 LOGOUT\r\n";
- while (defined($in=<S>)) {
- if ($in =~ /^A3 (\w+) (.*)/) {
- if ($1 eq "OK") {
- $ServerOK = 1;
- } else {
- $errmsg="$1 $2";
- }
- last;
- }
- }
- }
- if (!$ServerOK) {
- if ($errmsg) {
- push @longerr, "$Server: bad response to $cmd: $errmsg";
- } else {
- push @longerr, "$Server: No response to $cmd";
- }
- }
- close(S);
- alarm 0;
- };
- if ($EVAL_ERROR and ($EVAL_ERROR =~ /^Timeout Alarm/)) {
- push @longerr, "$Server: **** Time Out\n";
- return 0;
- } elsif ($EVAL_ERROR) {
- push @longerr, "$Server: $EVAL_ERROR";
- return 0;
- }
- return $ServerOK;
- }
- sub OpenSocket {
- local($OtherHostname, $Port) = @_;
- local($OurHostname, $sockaddr, $name, $aliases, $proto, $type, $len,
- $ThisAddr, $that);
- $OurHostname = &hostname;
- ($name, $aliases, $proto) = getprotobyname('tcp');
- ($name, $aliases, $Port) = getservbyname($Port, 'tcp') unless $Port =~ /^\d+$/;
- ($name, $aliases, $type, $len, $ThisAddr) = gethostbyname($OurHostname);
- ($name, $aliases, $type, $len, $OtherHostAddr) = gethostbyname($OtherHostname);
- my $that = sockaddr_in ($Port, $OtherHostAddr);
- if ($opt_s)
- {
- tie(*S, "Net::SSLeay::Handle", $OtherHostname, $Port) ||
- return undef;
- }
- else
- {
- $result = socket(S, &PF_INET, &SOCK_STREAM, $proto) || return undef;
- $result = connect(S, $that) || return undef;
- }
- select(S); $| = 1; select(STDOUT);
- return 1;
- }
|