--- bin/ApplySnapshot	2000/12/20 17:22:35	1.1
+++ bin/ApplySnapshot	2003/08/05 09:20:08	1.2
@@ -1,4 +1,4 @@
-# -*- perl -*-
+#!/usr/bin/perl
 # ApplySnapshot
 # Vadim Mikheev, (c) 2000, PostgreSQL Inc.
 
@@ -6,7 +6,7 @@
     & eval 'exec perl -S $0 $argv:q'
     if 0;
 
-use lib "@LIBDIR@";
+use lib "/usr/share/postgresql/contrib";
 use IO::File;
 use RServ;
 use Getopt::Long;
@@ -32,11 +32,13 @@
 $sinfo = "$sinfo user=$opt_user" if (defined($opt_user));
 $sinfo = "$sinfo password=$opt_password" if (defined($opt_password));
 
-my $conn = Pg::connectdb(sinfo);
+my $conn = Pg::connectdb($sinfo);
 
 my $inpf = new IO::File;
 $inpf = STDIN;
 
+$RServ::quiet = !$verbose;
+
 $res = ApplySnapshot ($conn, $inpf);
 
 if ($res > 0)