12 lines
250 B
Perl
Executable File
12 lines
250 B
Perl
Executable File
#!/usr/bin/perl
|
|
use JSON;
|
|
use Data::Dumper;
|
|
|
|
while (<>) {
|
|
my @hosts = ($_ =~ /"hostname":"([^"]*)"/g);
|
|
foreach (@hosts) {
|
|
print "$_\n";
|
|
`ssh -i /root/.ssh/id_rsa.pub conetadm\@$_ 'grep "\sro[\s,]" /proc/mounts | egrep -v "tmpfs|9660"'`;
|
|
}
|
|
}
|