- "usage" => sub { Usage "" },
- "verbose" => sub { set_verbose },
- "debug" => sub { set_debug },
- "log" => \$_log,
- "quiet" => \$_quiet,
- "file=s" => \$_alternateFile,
- "parallel:i" => \$_parallel,
-) || Usage "Unknown parameter";
-
-my $cmd = join " ", @ARGV;
-
-error "No command specified", 1 if !$cmd;
-
-my $machines = Machines->new (file => $_alternateFile);
-my %machines = $machines->all ();
-
-if ($_parallel > 0) {
- parallelize ($cmd, %machines);
- printStats;
+ \%opts,
+ 'usage',
+ 'help',
+ 'verbose',
+ 'debug',
+ 'log',
+ 'quiet',
+ 'type=s',
+ 'parallel=i',
+);
+
+my $cmd = join ' ', @ARGV;
+
+pod2usage ('No command specified') unless $cmd;
+
+my $machines = Clearadm->new;
+
+if ($opts{parallel} > 0) {
+ my @machines = $machines->SearchSystem ("type='$opts{type}'");
+
+ parallelize ($cmd, @machines);
+ Stats \%total, $log;