[hobbit] os count

[michael nemeth]

Henrik suggest this awhile ago:
$BBHOME/server/bin/bb 127.0.0.1 'hobbitdboard fields=BBH_OS 
test=info' 

So I'm not sure were hobbit gets the  BBH_OS
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
>
>
>
>