Changeset 114

Timestamp:

02/17/06 18:30:21 (3 years ago)

Author:

ludo

Message:

memory module inventory (from r3062)

Files:

• trunk/server/admin/perl/info (modified) (9 diffs)

trunk/server/admin/perl/info

@@ -7 +7 @@
-
-$mac = "";
+
+#
+# SMBios constants
+#
+
+@typetbl = ( "", "", "", "Desktop", "Low Profile Desktop",
+        "Pizza Box", "Mini Tower", "Tower", "Portable", "LapTop", "Notebook",
+        "Hand Held", "Docking Station", "All in One", "Sub Notebook", 
+        "Space-saving", "Lunch Box", "Main Server Chassis", "Expansion Chassis",
+        "SubChassis", "Bus Expansion Chassis", "Peripheral Chassis", 
+        "RAID Chassis", "Rack Mount Chassis", "Sealed-case", "Multi-system chassis"
+        ) ;
+
+@memform = ( "", "", "", "SIMM", "SIP", "Chip", "DIP", "ZIP", "Proprietary card", 
+        "DIMM", "TSOP", "Row of chips", "RIMM", "SODIMM", "SRIMM");
+        
+@memtype = ( "", "", "", "DRAM", "EDRAM", "VRAM", "SRAM", "RAM", "ROM",
+        "FLASH", "EEPROM", "FEPROM", "EPROM", "CDRAM", "3DRAM", "SDRAM",
+        "SGRAM", "RDRAM", "DDR", "DDR2");
+
+@memdetails = ( "", "", "", "Fast-paged", "Static column", "Pseudo-static",
+        "RAMBUS", "Synchronous", "CMOS", "EDO", "Window DRAM", "Cache DRAM",
+        "Non-volatile" );  
-
-# Program
@@ -125 +148 @@
-  {
-        my ($toto,$freq)=split(/:/);
-$freq/1000
+int($freq/1000 + 0.5)
-        print "Freq=$freq\n";
-        next;
@@ -141 +164 @@
-      chomp($sys);
-      print "System=$sys\n";
+      next;
+    }
+  if (/^S3:/)
+    {
+      my ($t,$sys)=split(/:/);
+      chomp($sys);
+      my ($fac, $type)=split(/\|/, $sys);
+      $typename = "Unknown";
+      if ($type >= 1 && $type <= 26) { $typename = $typetbl[$type]; } 
+      print "Chassis=$fac|$typename\n";
+      next;
+    }
+  if (/^S4:/)
+    {
+      my ($t,$sys)=split(/:/);
+      chomp($sys);
+      print "CpuNum=$sys\n";
-      next;
-    }
@@ -167 +207 @@
-                    if (($list[2] eq 'a')) {print "Model=Pentium III Xeon\n";next;}
-                    if (($list[2] eq 'b')) {print "Model=Pentium III 0.13u\n";next;}
+                    if (($list[2] eq 'd')) {print "Model=Pentium M 0.09u\n";next;}
-                    print "Model=Pentium Pro/II/III\n";
-                    next;
-                  }
-                if (($list[1] eq '7')) {print "Model=Itanium\n";next;}
-
+
+
+
+
+
+
+
+
-                print "Model=???\n";
-                next;
@@ -183 +231 @@
-                    if ($list[2] == '1') {print "Model=Athlon 0.25u Slot A\n";next;}
-                    if ($list[2] == '2') {print "Model=Athlon 0.18u Slot A\n";next;}
-
-
+ (SF core)
+(TB core) 
-                    if ($list[2] == '6') {print "Model=Athlon MP/Mobile Athlon\n";next;}
-                    if ($list[2] == '7') {print "Model=Mobile Duron\n";next;}
+                    if ($list[2] == '8') {print "Model=Athlon (TH/AP core)\n";next;}
+                    if ($list[2] == 'a') {print "Model=Athlon (BT core)\n";next;}
-                    print "Model=Athlon/Duron\n";
-                    next;
-                  }
-
+ 
-                print "Model=???\n";
-                next;
@@ -196 +246 @@
-        if ($list[13] == '43')
-        {       
-
+
+
+
+
+
+
-                print "Model=???\n";
-                next;
@@ -241 +296 @@
-}
-
+
-sub hdmap
-{
@@ -259 +315 @@
-  close(INFO);
-}
+
+sub mem
+{
+ my $file=$_[0];
+ my $i=0;
+
+ open(FILE,$file) or die;
+ while (<FILE>)
+ {
+        next unless /^SM:/;
+
+        my @list=split(/[:(),=]+/);
+        my $used = ($list[1] ne "0")+0;
+        my $size = $list[1];
+        if ($size > 0) {
+            $size *= 1024;
+        } else {
+            $size *= -1;
+        }
+        print "\n[MEM$i]\n";
+        print "Used=$used\n";
+        print "Capacity=$size\n" if ($used);
+        print "Form=".$memform[hex($list[2])]."\n";
+        print "Location=".$list[3]."\n";
+        my $details = "";
+        my $bit = 1;
+        my $data = hex($list[4]) >> 16;
+        foreach $det (@memdetails) {
+            if ($data & $bit) {
+                $details .= " ".$det;
+            }
+            $bit *= 2;
+        }
+        print "Type=".$memtype[hex($list[4]) & 0xFFFF]."$details\n";
+        print "Speed=$list[5]\n" if ($list[5] != 0);
+        $i++;
+ }
+ close(FILE);
+}
+
-
-# MAIN
@@ -285 +381 @@
-disk($ARGV[0]);
-hdmap($ARGV[0]);
+mem($ARGV[0]);
-
-# update the database if LRS Inventory is installed