Well, wc on non-comment, non-page, non-titled, etc lines in bb-hosts,
agrees with my count.
Paul Root IM/MNS Infrastructure
-----Original Message-----
From: michael nemeth [mailto:michael.nemeth (at) lmco.com]
Sent: Friday, November 21, 2008 9:59 AM
To: hobbit (at) hswn.dk
Subject: Re: [hobbit] os count
I completed another oscount script this time using wget to get the info
page
Both this one and the hobbitdboard one
return the same total so maybe there are 50 more you are missing.
Ill post new script on Monday.
Root, Paul wrote:
I wrote a script that does a similar thing. It connects to each
machine
and does a uname.
Being Solaris centric, I split it up by solaris version (and zone).
I ran your script on my server, and it gives me 50 more machines than
I
think I have.
It certainly doesn't add up to the entries in the bb-hosts file.
I print out a chart of each machine's level then sum it up like this:
Host Count:
noconn : 29
zone : 57
5.7 : 2
5.8 : 2
5.9 : 11
5.10 : 32
nossh : 44
Linux : 7
TOTAL : 184
I haven't had time, but I need/want to graph this.
Paul Root
Lead Internet Systems Eng
Network Services
-----Original Message-----
From: michael nemeth [mailto:michael.nemeth (at) lmco.com]
Sent: Thursday, November 20, 2008 7:11 AM
To: hobbit (at) hswn.dk
Subject: [hobbit] os count
Did did a little perl program that does an os count produces count
like
hp-ux 3
linux 1
sunos 38.
Run as a stand alone did not see the need to run out of hobbit.
But Henrik wouldn't this be easy enough to add in to bbtest?
Here it is:
#!/usr/local/bin/perl
eval 'exec /usr/local/bin/perl -S $0 ${1+"$@"}'
if $running_under_some_shell;
# this emulates #! processing on NIH machines.
# (remove #! line above if indigestible)
eval '$'.$1.'$2;' while $ARGV[0] =~ /^([A-Za-z_0-9]+=)(.*)/ && shift;
# process any FOO=bar switches
$[ = 1; # set array base to 1
$BBHOME="/home/mnemeth/sunhobbit/";
open (HOB, "$BBHOME/server/bin/bb 127.0.0.1 'hobbitdboard
fields=BBH_OS
test=info' |") ;
while (<HOB>) {
chomp; # strip record separator
@Fld = split(' ', $_, -1);
for ($i = 1; $i <= $#Fld; $i++) {
$freq{$Fld[$i]}++;
}
}
foreach $word (sort keys %freq) {
printf "%s\t%d\n", $word, $freq{$word};
}
To unsubscribe from the hobbit list, send an e-mail to
hobbit-unsubscribe (at) hswn.dk
This communication is the property of Qwest and may contain
confidential or
privileged information. Unauthorized use of this communication is
strictly
prohibited and may be unlawful. If you have received this
communication
in error, please immediately notify the sender by reply e-mail and
destroy
all copies of the communication and any attachments.
To unsubscribe from the hobbit list, send an e-mail to
hobbit-unsubscribe (at) hswn.dk
To unsubscribe from the hobbit list, send an e-mail to
hobbit-unsubscribe (at) hswn.dk
To unsubscribe from the hobbit list, send an e-mail to
hobbit-unsubscribe (at) hswn.dk