Probe needed for Cyrus IMAP

[Scott Adkins]

Of course, contacting SSL ports are a bit more difficult.  If you need to
probe an IMAPS or POP3S port, telnet just doesn't work.  In that case, you
can use openssl itself to make the connection and still feed it into an
expect script:

  LD_LIBRARY_PATH /usr/local/ssl/lib
  export LD_LIBRARY_PATH
  /usr/local/ssl/bin/openssl s_client -connect localhost:imaps

If you know Perl, then maybe you can take it to another level with something
like the following:

  #!/usr/bin/perl -w

  use strict;
  use Net::SSLeay;

  $Net::SSLeay::slowly = 1;
  ($p) = Net::SSLeay::sslcat("localhost", 993, ".");
  print $p;

The banner should be printed as a result of the above, but you can make the
script do anything you want.

For non-SSL services, maybe something like the following would work:

  #!/usr/bin/perl -w

  use strict;
  use IO::Socket::INET;

  my $socket = new IO::Socket::INET("localhost:143");
  if (!defined $socket) {
      print "Unable to connect: $@\n";
      exit(1);
  }

  print $socket->getline();
  print $socket ". logout\n";
  $socket->close();

The above also prints the banner.  Keep in mind that I spit these out
pretty quickly, but I did test them and the scripts work.

Hope that helps.
Scott


--On Monday, October 30, 2006 6:10 PM +0100 Phil Pennock <info-cyrus-spodhuis at spodhuis.org> wrote:

> On 2006-10-30 at 08:57 -0600, Gary Mills wrote:
>> `telnet' might work, but the script would need to analyze the output
>> and terminate the connection.  A timeout would also be helpful.  Is
>> `imtest' better for this?
>
> Do you have expect installed?  Something like the below might help.
>
> ----------------------------8< cut here >8------------------------------
># !/usr/local/bin/expect -f
>
> spawn -noecho telnet localhost imap
> expect {
> 	timeout {exit 1}
> 	-re "Escape character is '(.*)'.\r*\n" {}
> }
> expect {
> 	timeout					{exit 1}
> 	eof					{exit 2}
> 	-re "^. OK .* server ready\r*\n"	{}
> 	-re "."					{exit 2}
> }
> send ". LOGOUT\r\n"
> exit 0
> ----------------------------8< cut here >8------------------------------
>
> Regards,
> -Phil
> ----
> Cyrus Home Page: http://cyrusimap.web.cmu.edu/
> Cyrus Wiki/FAQ: http://cyrusimap.web.cmu.edu/twiki
> List Archives/Info: http://asg.web.cmu.edu/cyrus/mailing-list.html


-- 
 +-----------------------------------------------------------------------+
      Scott W. Adkins                http://www.cns.ohiou.edu/~sadkins/
   UNIX Systems Engineer                  mailto:adkinss at ohio.edu
        ICQ 7626282                 Work (740)593-9478 Fax (740)593-1944
 +-----------------------------------------------------------------------+
     PGP Public Key available at http://www.cns.ohiou.edu/~sadkins/pgp/
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 229 bytes
Desc: not available
Url : http://lists.andrew.cmu.edu/pipermail/info-cyrus/attachments/20061101/61850f94/attachment.bin