24 |
|
|
25 |
my %opt; |
my %opt; |
26 |
|
|
27 |
if ( !getopts("cdm:", \%opt ) ) { |
if ( !getopts("cdm:v", \%opt ) ) { |
28 |
print STDERR <<EOF; |
print STDERR <<EOF; |
29 |
usage: $0 [-c|-d] [-m num] |
usage: $0 [-c|-d] [-m num] |
30 |
|
|
123 |
print " done...\n"; |
print " done...\n"; |
124 |
} |
} |
125 |
|
|
126 |
|
if ($opt{v}) { |
127 |
|
print "Debug level at $opt{v}\n"; |
128 |
|
$debug = $opt{v}; |
129 |
|
} |
130 |
|
|
131 |
#################################INSERT VALUES############################# |
#################################INSERT VALUES############################# |
132 |
|
|
133 |
# get hosts |
# get hosts |