10 use lib "$FindBin::Bin/../lib";
\r
13 use Machines::MySQL;
\r
17 usage => sub { podusage() } ,
\r
18 hostname => $ENV{HOST} || 'localhost',
\r
19 username => $ENV{USERNAME} ? $ENV{USERNAME} : $ENV{USER},
\r
20 password => $ENV{PASSWORD},
\r
25 my ($machines) = @_;
\r
27 my @machines = $machines->ReadSystemsFile;
\r
30 my ($err, $msg) = $machines->AddSystem(%$_);
\r
32 error ($msg) if $err;
\r
48 unless ($opts{database}) {
\r
49 require Machines; Machines->import;
\r
51 $machines = Machines->new(filename => $opts{filename});
\r
53 require Machines::MySQL; Machines::MySQL->import;
\r
55 $machines = Machines::MySQL->new;
\r
58 #for ($machines->select ("os = '2.4.21-50.Elsmp'")) {
\r
60 if (ref($machines) eq 'Machines') {
\r
61 display "From file:";
\r
62 } elsif (ref($machines) eq 'Machines::MySQL') {
\r
63 display "From database";
\r
66 my %records = $machines->select;
\r
68 for (sort keys %records) {
\r
69 display "Would execute command on $_ ($records{$_}{model})";
\r