Update of /home/cvsd/slony1/slony1-engine/tools
In directory main.slony.info:/tmp/cvs-serv5012

Modified Files:
	test_slony_replication.pl test_slony_state-dbi.pl 
	test_slony_state.pl 
Log Message:
Bug #110 - some quoting problems


Index: test_slony_state.pl
===================================================================
RCS file: /home/cvsd/slony1/slony1-engine/tools/test_slony_state.pl,v
retrieving revision 1.9
retrieving revision 1.10
diff -C 2 -d -r1.9 -r1.10
*** test_slony_state.pl	17 Aug 2009 17:25:50 -0000	1.9
--- test_slony_state.pl	10 Feb 2010 22:50:33 -0000	1.10
***************
*** 1,3 ****
! #!/usr/bin/perl   # -*- perl -*-
  # $Id$
  # Christopher Browne
--- 1,3 ----
! #!/usr/bin/perl
  # $Id$
  # Christopher Browne
***************
*** 48,52 ****
  # Query to find live DSNs
  my $dsnsquery =
! "
     select p.pa_server, p.pa_conninfo
     from "_$cluster".sl_path p
--- 48,52 ----
  # Query to find live DSNs
  my $dsnsquery =
! qq{
     select p.pa_server, p.pa_conninfo
     from "_$cluster".sl_path p
***************
*** 55,59 ****
  --                          sub_active = 't')
     group by pa_server, pa_conninfo;
! ";
  
  print "Query:\n$dsnsquery\n";
--- 55,59 ----
  --                          sub_active = 't')
     group by pa_server, pa_conninfo;
! };
  
  print "Query:\n$dsnsquery\n";

Index: test_slony_replication.pl
===================================================================
RCS file: /home/cvsd/slony1/slony1-engine/tools/test_slony_replication.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -C 2 -d -r1.4 -r1.5
*** test_slony_replication.pl	17 Aug 2009 17:25:50 -0000	1.4
--- test_slony_replication.pl	10 Feb 2010 22:50:33 -0000	1.5
***************
*** 1,3 ****
! #!perl   # -*- perl -*-
  # $Id$
  # Christopher Browne
--- 1,3 ----
! #!perl   
  # $Id$
  # Christopher Browne
***************
*** 48,52 ****
  
  # Query to find the "master" node
! my $masterquery = "
    select sub_provider 
     from "_$cluster".sl_subscribe s1 
--- 48,52 ----
  
  # Query to find the "master" node
! my $masterquery = qq{
    select sub_provider 
     from "_$cluster".sl_subscribe s1 
***************
*** 57,61 ****
     and s1.sub_set = $set
     group by sub_provider;
! ";
  
  my $tq = $dbh->exec($masterquery);
--- 57,61 ----
     and s1.sub_set = $set
     group by sub_provider;
! };
  
  my $tq = $dbh->exec($masterquery);
***************
*** 71,75 ****
  # Query to find live DSNs
  my $dsnsquery =
! "
     select p.pa_server, p.pa_conninfo
     from "_$cluster".sl_path p
--- 71,75 ----
  # Query to find live DSNs
  my $dsnsquery =
! qq{
     select p.pa_server, p.pa_conninfo
     from "_$cluster".sl_path p
***************
*** 79,83 ****
                            sub_active = 't')
     group by pa_server, pa_conninfo;
! ";
  
  print "Query:\n$dsnsquery\n";
--- 79,83 ----
                            sub_active = 't')
     group by pa_server, pa_conninfo;
! };
  
  print "Query:\n$dsnsquery\n";

Index: test_slony_state-dbi.pl
===================================================================
RCS file: /home/cvsd/slony1/slony1-engine/tools/test_slony_state-dbi.pl,v
retrieving revision 1.7
retrieving revision 1.8
diff -C 2 -d -r1.7 -r1.8
*** test_slony_state-dbi.pl	17 Aug 2009 17:25:50 -0000	1.7
--- test_slony_state-dbi.pl	10 Feb 2010 22:50:33 -0000	1.8
***************
*** 1,3 ****
! #!/usr/bin/perl   # -*- perl -*-
  # $Id$
  # Christopher Browne
--- 1,3 ----
! #!/usr/bin/perl
  # $Id$
  # Christopher Browne