From 87aa92808aaf76340c00577657e15b588b9618c8 Mon Sep 17 00:00:00 2001
From: Petter Reinholdtsen <pere@hungry.com>
Date: Fri, 25 Jul 2008 17:29:44 +0000
Subject: Use old name standard for new hardware symmary script.

---
 hardware-model-summary | 78 ++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 78 insertions(+)
 create mode 100755 hardware-model-summary

(limited to 'hardware-model-summary')

diff --git a/hardware-model-summary b/hardware-model-summary
new file mode 100755
index 0000000..ebdc390
--- /dev/null
+++ b/hardware-model-summary
@@ -0,0 +1,78 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use SiteSummary;
+use Getopt::Std;
+
+my %vendors;
+my %models;
+my %hostmap;
+my %modelmap;
+my %opts;
+
+sub usage {
+    my $retval = shift;
+    print <<EOF;
+Usage: $0 [-l]
+   -l   list hosts with the given vendor/model
+EOF
+    exit $retval;
+}
+
+getopt("l", \%opts) || usage(1);
+
+for_all_hosts(\&handle_host);
+
+print_summary();
+
+sub handle_host {
+    my $hostid = shift;
+    #print "$hostid\n";
+    my ($vendor, $model, undef) = get_hardware_info($hostid);
+    $vendor = "[unknown]" unless defined $vendor;
+    $vendors{$vendor}++;
+    if ($model) {
+        $models{$vendor}{$model}++;
+        if (exists $modelmap{$vendor} && exists $modelmap{$vendor}{$model}) {
+            push @{$modelmap{$vendor}{$model}}, $hostid ;
+        } else {
+            $modelmap{$vendor}{$model} = [$hostid];
+        }
+    } else {
+        if (exists $hostmap{$vendor}) {
+            push @{$hostmap{$vendor}}, $hostid ;
+        } else {
+            $hostmap{$vendor} = [$hostid];
+        }
+    }
+}
+
+sub print_summary {
+    printf("  %-25s %5s\n", "vendor", "count");
+    for my $vendor (sort keys %vendors) {
+        printf("  %-25s %5d\n", $vendor, $vendors{$vendor});
+        if (exists $opts{l}) {
+            if (exists $hostmap{$vendor}) {
+                for my $hostid (sort @{$hostmap{$vendor}}) {
+                    my $hostname = get_hostname($hostid);
+                    my ($vendor, $model, undef) = get_hardware_info($hostid);
+                    $vendor = "[unknown]" unless defined $vendor;
+                    $model = "" unless defined $model;
+                    printf "    %s %s/%s %s\n", $hostname, $vendor, $model, $hostid;
+                }
+            }
+        }
+        for my $model (sort keys %{$models{$vendor}}) {
+            printf("    %-23s %5d\n", $model, $models{$vendor}{$model});
+            if (exists $opts{l}) {
+                for my $hostid (sort @{$modelmap{$vendor}{$model}}) {
+                    my $hostname = get_hostname($hostid);
+                    my ($vendor, $model, undef) = get_hardware_info($hostid);
+                    printf "      %s %s/%s %s\n", $hostname, $vendor, $model, $hostid;
+                }
+            }
+        }
+    }
+}
-- 
cgit v1.2.3