--- bin/Replicate	2003/10/29 18:00:18	1.11
+++ bin/Replicate	2003/10/30 19:59:48	1.12
@@ -15,7 +15,6 @@
 use IO::File;
 use Getopt::Long;
 use RServ;
-use Sys::Hostname;
 
 $| = 1;
 
@@ -124,7 +123,7 @@
     exit 1;
 }
 
-$slavehost = hostname if (! $slavehost);
+$slavehost = 'localhost' if (! $slavehost);
 my $slaveId = GetSlaveId($mconn, $slave, $slavehost);
 
 die "\n>>>>>>>>>>>>> ERROR: Can't GetSlaveID for $sinfo\n" if (! $slaveId);
@@ -138,6 +137,7 @@
 my $outf = new IO::File;
 open $outf, ">$snapshot";
 print "\n>>>>>>>>>>>>> Prepare Snapshot\n\n" if ($verbose);
+print "master id: $mserver slave id: $slaveId\n" if ($debug);
 my $res = PrepareSnapshot($mconn, $sconn, $outf, $mserver, $slaveId, $tables);
 close $outf;
 if ($res < 0) {