Ajout attente interactive sur script mise a niveau donnees pgsql
This commit is contained in:
parent
d1358b1d2c
commit
e325fb1731
@ -15,7 +15,7 @@ use Data::Dumper;
|
||||
use Getopt::Long;
|
||||
use strict;
|
||||
|
||||
use vars qw/ $DIR $PROG $Extension $SOURCE $DESTI %filelist /;
|
||||
use vars qw/ $DIR $PROG $Extension $SOURCE $DESTI %filelist $stop /;
|
||||
|
||||
# command line options
|
||||
my( $opt_debug, $opt_help);
|
||||
@ -343,7 +343,8 @@ foreach my $file (keys %filelist) {
|
||||
|
||||
print "\n";
|
||||
print "Build ".(scalar keys %filelist)." file(s).\n";
|
||||
|
||||
sleep(3);
|
||||
print "\n";
|
||||
print "Press a key to finish...\n";
|
||||
$stop=<STDIN>;
|
||||
|
||||
0;
|
||||
Loading…
Reference in New Issue
Block a user