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

Modified Files:
	slon-tools.pm slon_tools.conf-sample 
Log Message:
Fix LOG_NAME_SUFFIX feature. Thanks to David Fetter and Andrew Dunstan.



Index: slon-tools.pm
===================================================================
RCS file: /home/cvsd/slony1/slony1-engine/tools/altperl/slon-tools.pm,v
retrieving revision 1.36
retrieving revision 1.37
diff -C2 -d -r1.36 -r1.37
*** slon-tools.pm	28 Jul 2009 15:24:27 -0000	1.36
--- slon-tools.pm	12 Aug 2009 20:52:38 -0000	1.37
***************
*** 4,7 ****
--- 4,9 ----
  # Copyright 2004 Afilias Canada
  
+ use POSIX;
+ 
  sub add_node {
    my %PARAMS = (host=> undef,
***************
*** 134,140 ****
    $SYNC_CHECK_INTERVAL ||= 1000;
    $DEBUGLEVEL ||= 0;
    system("mkdir -p $LOGDIR/slony1/node$nodenum");
    my $cmd = "@@SLONBINDIR@@/slon -s $SYNC_CHECK_INTERVAL -d$DEBUGLEVEL $CLUSTER_NAME '$dsn' ";
!   my $logfilesuffix=`date '$LOG_NAME_SUFFIX'`;
    chomp $logfilesuffix;
  
--- 136,143 ----
    $SYNC_CHECK_INTERVAL ||= 1000;
    $DEBUGLEVEL ||= 0;
+   $LOG_NAME_SUFFIX ||= '%Y-%m-%d';
    system("mkdir -p $LOGDIR/slony1/node$nodenum");
    my $cmd = "@@SLONBINDIR@@/slon -s $SYNC_CHECK_INTERVAL -d$DEBUGLEVEL $CLUSTER_NAME '$dsn' ";
!   my $logfilesuffix = POSIX::strftime( "$LOG_NAME_SUFFIX",localtime );
    chomp $logfilesuffix;
  

Index: slon_tools.conf-sample
===================================================================
RCS file: /home/cvsd/slony1/slony1-engine/tools/altperl/slon_tools.conf-sample,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** slon_tools.conf-sample	28 Jul 2009 15:24:27 -0000	1.9
--- slon_tools.conf-sample	12 Aug 2009 20:52:38 -0000	1.10
***************
*** 35,39 ****
      # man page.
      #
!     # LOG_NAME_SUFFIX = '%a'
  
      # SYNC check interval (slon -s option)
--- 35,39 ----
      # man page.
      #
!     # $LOG_NAME_SUFFIX = '%a';
  
      # SYNC check interval (slon -s option)