Log Message:
-----------
Add in support for SSL connections

Thanks to Steve Simms <steve at deefs.net>

Modified Files:
--------------
    slony1-engine/tools/altperl:
        slon-tools.pm (r1.13 -> r1.14)

-------------- next part --------------
Index: slon-tools.pm
===================================================================
RCS file: /usr/local/cvsroot/slony1/slony1-engine/tools/altperl/slon-tools.pm,v
retrieving revision 1.13
retrieving revision 1.14
diff -Ltools/altperl/slon-tools.pm -Ltools/altperl/slon-tools.pm -u -w -r1.13 -r1.14
--- tools/altperl/slon-tools.pm
+++ tools/altperl/slon-tools.pm
@@ -11,7 +11,8 @@
 		node => undef,
 		password => undef,
 		parent => 1,
-		noforward => undef
+		noforward => undef,
+		sslmode => undef
 	       );
   my $K;
   while ($K= shift) {
@@ -49,6 +50,11 @@
     $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) {