Fix address sorting untidiness for the test suite.

[users/heiko/exim.git] / test / runtest

diff --git a/test/runtest b/test/runtest
index d5a161234dc855aa534f5c6660987ce8f3e87a5f..76cc4b99b967b7d79b86eeff9aed3f211f64c01c 100755 (executable)
--- a/test/runtest
+++ b/test/runtest
@@ -1,6 +1,6 @@
 #! /usr/bin/perl -w
 
 #! /usr/bin/perl -w
 

-# $Cambridge: exim/test/runtest,v 1.4 2006/02/10 16:29:20 ph10 Exp $
+# $Cambridge: exim/test/runtest,v 1.6 2006/03/17 16:51:45 ph10 Exp $

 
 ###############################################################################
 # This is the controlling script for the "new" test suite for Exim. It should #
 
 ###############################################################################
 # This is the controlling script for the "new" test suite for Exim. It should #


@@ -648,9 +648,11 @@ while(<IN>)
 
   if ($is_stdout)
     {
 
   if ($is_stdout)
     {

-    # Skip translate_ip_address in -bP output because it ain't always there
+    # Skip translate_ip_address and use_classresources in -bP output because
+    # they aren't always there.

 
     next if /translate_ip_address =/;
 
     next if /translate_ip_address =/;

+    next if /use_classresources/;

 
     # In certain filter tests, remove initial filter lines because they just
     # clog up by repetition.
 
     # In certain filter tests, remove initial filter lines because they just
     # clog up by repetition.


@@ -2109,30 +2111,74 @@ if (defined $parm_support{'Content_Scanning'})
         }
       }
 
         }
       }
 

+    # Read the ClamAV configuration file and find the socket interface.
+

     if ($clamconf ne "")
       {
     if ($clamconf ne "")
       {

+      my $socket_domain;

       open(IN, "$clamconf") || die "\n** Unable to open $clamconf: $!\n";
       while (<IN>)
         {
         if (/^LocalSocket\s+(.*)/)
           {
           $parm_clamsocket = $1;
       open(IN, "$clamconf") || die "\n** Unable to open $clamconf: $!\n";
       while (<IN>)
         {
         if (/^LocalSocket\s+(.*)/)
           {
           $parm_clamsocket = $1;

+          $socket_domain = AF_UNIX;

           last;
           }
           last;
           }

+        if (/^TCPSocket\s+(\d+)/)
+          {
+          if (defined $parm_clamsocket)
+            {
+            $parm_clamsocket .= " $1";
+            $socket_domain = AF_INET;
+            last;
+            }
+          else
+            {
+            $parm_clamsocket = " $1";
+            }
+          }
+        elsif (/^TCPAddr\s+(\S+)/)
+          {
+          if (defined $parm_clamsocket)
+            {
+            $parm_clamsocket = $1 . $parm_clamsocket;
+            $socket_domain = AF_INET;
+            last;
+            }
+          else
+            {
+            $parm_clamsocket = $1;
+            }
+          }

         }
       close(IN);
         }
       close(IN);

-      if (-e $parm_clamsocket)
+
+      if (defined $socket_domain)

         {
         print ":\n  The clamd socket is $parm_clamsocket\n";
         # This test for an active ClamAV is courtesy of Daniel Tiefnig.
         eval
           {
         {
         print ":\n  The clamd socket is $parm_clamsocket\n";
         # This test for an active ClamAV is courtesy of Daniel Tiefnig.
         eval
           {

-          my $sun = sockaddr_un($parm_clamsocket) or die "** Failed packing '$parm_clamsocket'\n";
-          socket(SOCK, AF_UNIX, SOCK_STREAM, 0) or die "** Unable to open socket '$parm_clamsocket'\n";
-
+          my $socket;
+          if ($socket_domain == AF_UNIX)
+            {
+            $socket = sockaddr_un($parm_clamsocket) or die "** Failed packing '$parm_clamsocket'\n";
+            }
+          elsif ($socket_domain == AF_INET)
+            {
+            my ($ca_host, $ca_port) = split(/\s+/,$parm_clamsocket);
+            my $ca_hostent = gethostbyname($ca_host) or die "** Failed to get raw address for host '$ca_host'\n";
+            $socket = sockaddr_in($ca_port, $ca_hostent) or die "** Failed packing '$parm_clamsocket'\n";
+            }
+          else
+            {
+            die "** Unknown socket domain '$socket_domain' (should not happen)\n";
+            }
+          socket(SOCK, $socket_domain, SOCK_STREAM, 0) or die "** Unable to open socket '$parm_clamsocket'\n";

           local $SIG{ALRM} = sub { die "** Timeout while connecting to socket '$parm_clamsocket'\n"; };
           alarm(5);
           local $SIG{ALRM} = sub { die "** Timeout while connecting to socket '$parm_clamsocket'\n"; };
           alarm(5);

-          connect(SOCK, $sun) or die "** Unable to connect to socket '$parm_clamsocket'\n";
+          connect(SOCK, $socket) or die "** Unable to connect to socket '$parm_clamsocket'\n";

           alarm(0);
 
           my $ofh = select SOCK; $| = 1; select $ofh;
           alarm(0);
 
           my $ofh = select SOCK; $| = 1; select $ofh;


@@ -2160,7 +2206,7 @@ if (defined $parm_support{'Content_Scanning'})
         }
       else
         {
         }
       else
         {

-        print ", but the socket for clamd does not exist\n";
+        print ", but the socket for clamd could not be determined\n";

         print "Assume ClamAV is not running\n";
         }
       }
         print "Assume ClamAV is not running\n";
         }
       }