Subversion Repositories sysadmin_scripts

(root)/trunk/zfs/replication/replicate – Rev 168 → 169



#print Dumper( $config ); die;
 
my $commands = &createCommands( $config );
for ( my $i = 0; $i < @{$commands}; $i++ ) {
   print "$$commands[$i]\n";
   print qx/$$commands[$i]/ if $$commands[$i] =~ m/^[a-zA-Z]/;
}
 
#print Dumper( $config );
 
1;
 

Rev 168	Rev 169
Line 201...	Line 201...
201	`#print Dumper( $config ); die;`	201	`#print Dumper( $config ); die;`
202		202
203	`my $commands = &createCommands( $config );`	203	`my $commands = &createCommands( $config );`
204	`for ( my $i = 0; $i < @{$commands}; $i++ ) {`	204	`for ( my $i = 0; $i < @{$commands}; $i++ ) {`
205	`print "$$commands[$i]\n";`	205	`print "$$commands[$i]\n";`
206	`#qx/$$commands[$i]/;`	206	`print qx/$$commands[$i]/ if $$commands[$i] =~ m/^[a-zA-Z]/;`
207	`}`	207	`}`
208		208
209	`#print Dumper( $config );`	209	`#print Dumper( $config );`
210		210
211	`1;`	211	`1;`
212		212