--- bin/GetSyncID	2003/08/05 21:10:28	1.4
+++ bin/GetSyncID	2003/08/05 21:43:24	1.5
@@ -36,6 +36,13 @@
     exit ((scalar(@ARGV) < 1)? 1:0);
 }
 
+$RServ::quiet = !$verbose;
+if ($debug) {
+	$RServ::quiet = 0;
+	no warnings 'vars';
+	$RServ::debug = $debug;
+}
+
 my $dbname = $ARGV[0];
 
 my $sinfo = "dbname=$dbname";