I've attached a simple patch that allows the altperl tools to have Slony
connect to databases using SSL.

It adds support for the sslmode argument in the connect command.

-- 
Steve Simms <steve at deefs.net>
http://www.deefs.net
-------------- next part --------------
Index: slon-tools.pm
===================================================================
RCS file: /usr/local/cvsroot/slony1/slony1-engine/tools/altperl/slon-tools.pm,v
retrieving revision 1.13
diff -c -3 -r1.13 slon-tools.pm
*** slon-tools.pm	10 Dec 2004 18:44:31 -0000	1.13
--- slon-tools.pm	4 Jan 2005 18:01:45 -0000
***************
*** 11,17 ****
  		node => undef,
  		password => undef,
  		parent => 1,
! 		noforward => undef
  	       );
    my $K;
    while ($K= shift) {
--- 11,18 ----
  		node => undef,
  		password => undef,
  		parent => 1,
! 		noforward => undef,
!                 sslmode => undef
  	       );
    my $K;
    while ($K= shift) {
***************
*** 49,54 ****
--- 50,60 ----
      $loginstr .= " password=$password";
      $PASSWORD[$node] = $password;
    }
+   my $sslmode = $PARAMS{'sslmode'};
+   if ($sslmode) {
+     $loginstr .= " sslmode=$sslmode";
+     $SSLMODE[$node] = $sslmode;
+   }
    $DSN[$node] = $loginstr;
    my $parent = $PARAMS{'parent'};
    if ($parent) {