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 Getopt::Long;
|
||||||
use strict;
|
use strict;
|
||||||
|
|
||||||
use vars qw/ $DIR $PROG $Extension $SOURCE $DESTI %filelist /;
|
use vars qw/ $DIR $PROG $Extension $SOURCE $DESTI %filelist $stop /;
|
||||||
|
|
||||||
# command line options
|
# command line options
|
||||||
my( $opt_debug, $opt_help);
|
my( $opt_debug, $opt_help);
|
||||||
@ -343,7 +343,8 @@ foreach my $file (keys %filelist) {
|
|||||||
|
|
||||||
print "\n";
|
print "\n";
|
||||||
print "Build ".(scalar keys %filelist)." file(s).\n";
|
print "Build ".(scalar keys %filelist)." file(s).\n";
|
||||||
|
print "\n";
|
||||||
sleep(3);
|
print "Press a key to finish...\n";
|
||||||
|
$stop=<STDIN>;
|
||||||
|
|
||||||
0;
|
0;
|
||||||
Loading…
Reference in New Issue
Block a user