[hobbit] os count

[Lennon, Padraig]

This does not catch Windows servers though..

Either does the script below..

 


Padraig Lennon
Senior Systems Engineer
Production Services
Pioneer Global Investments (Dublin)
5th Floor Georges Quay Plaza, Dublin 2
ext: 2081
Direct dial: 00353 1 480 2081

-----Original Message-----
From: michael nemeth [mailto:michael.nemeth at lmco.com] 
Sent: 20 November 2008 15:06
To: hobbit at hswn.dk
Subject: Re: [hobbit] os count

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
>
>
>
>   


To unsubscribe from the hobbit list, send an e-mail to
hobbit-unsubscribe at hswn.dk



-------------- next part --------------



"The information in this e-mail and in any attachments is confidential and intended solely 
for the attention and use of the named addressee(s). This information may be subject to legal, 
professional or other privilege and further distribution of it is strictly prohibited without 
our authority. If you are not the intended recipient, you are not authorised to and must not 
disclose, copy, distribute, or retain this message or any part of it, and should notify us 
immediately.

This footnote also confirms that this email has been automatically scanned for the presence 
of computer viruses, profanities and certain file types."

Pioneer Investment Management Limited.

1 George’s Quay Plaza, George’s Quay, Dublin 2, Ireland. 

Registered in Ireland no. 287793.