#!e/server514/bin/perl.exe


use strict;

print "content-type: text/html\n\n";

my $data;
my $dsk=1;

while (my $line = <DATA>) {
   if($line =~ /\* disks/){
        while (my $line2 = <DATA>){
            #next if $line2 =~ /\s\s\s/;
            if($line2 =~ /\s\d/){
               
               if($line2 =~ /(\d\(\d\))\s+(\d*)\s+(\d+\.\d+\w{2})\s+(\d+\w{2})\s+(\w+)\s+(\w+)\s+(\w+\s)(.*)(\d\w\w\d)/ ||
                  $line2 =~ /(\d\(\d\))\s+(\d*)\s+(\d+\.\d+\w{2})\s+(\d+\w{2})\s+(\w+)\s(\w+\W\w+)\s+(\w+)(.*)(\d\w\w\d)/){
                     my $build = 'disk' . $dsk;
                     
                     
                        $data->{$build}{ch} = $1;
                        $data->{$build}{id} = $2;
                        $data->{$build}{size} = $3;
                        $data->{$build}{speed} = $4;
                        $data->{$build}{ld} = $5;
                        $data->{$build}{status} = $6;
                        $data->{$build}{ids} = "$7 $8";
                        $data->{$build}{rev} = $9;
            
                        $data->{$build}{sn} = <DATA>;
                        $data->{$build}{wwnn} = <DATA>;
                       
               }
               $dsk++;
            }
            
        }
   }
}

#Ch     Id      Size   Speed  LD     Status     IDs                      Rev  
#2(3)  32  136.73GB   200MB  ld0    ONLINE     HITACHI HUS1514FBSUN146G 2A02 
#                                                   S/N 000807B3MT1C    
#  

print <<ENDHTML
<table>
<tr>
<td>Ch</td>
<td>Id</td>
<td>Size</td>
<td>Speed</td>
<td>LD</td>
<td>Status</td>
<td>IDs</td>
<td>Rev</td>
<td>S/N WWN</td>
</tr>
ENDHTML
;
foreach my $dsk_each (keys %{$data}){
    print <<ENDHTML
<tr>
<td>$data->{$dsk_each}{ch}</td>
<td>$data->{$dsk_each}{id}</td>
<td>$data->{$dsk_each}{size}</td>
<td>$data->{$dsk_each}{speed}</td>
<td>$data->{$dsk_each}{ld}</td>
<td>$data->{$dsk_each}{status}</td>
<td>$data->{$dsk_each}{ids}</td>
<td>$data->{$dsk_each}{rev}</td>
<td>$data->{$dsk_each}{sn} .::. $data->{$dsk_each}{wwnn}</td>
</tr>
ENDHTML
;
}
print "</table>";






__DATA__
* inquiry-data 

 Vendor: SUN
 Product: StorEdge 3510
 Revision: 421F
 Peripheral Device Type: 0x0
 NVRAM Defaults: 421F 3510 S480F
 Bootrecord version: 1.31H
 Serial Number: 0B59E0
 Page 80 Serial Number: 0B59E046D3E0AA00
 Page 83 Logical Unit Device ID: 600C0FF0000000000B59E046D3E0AA00
 Page 83 Target Device ID: 206000C0FF0B59E0
 IP Address: 172.19.1.122
 Page D0 Fibre Channel Address: A7 (id 40)
 Page D0 Node Name: 206000C0FF0B59E0
 Page D0 Port Name: 216000C0FF8B59E0
 Ethernet Address: 00:C0:FF:0B:59:E0
 Device Type: Primary
 unique-identifier: B59E0
 controller-name: ""

* network-parameters 

 ip-address: 172.19.1.122
 netmask: 255.255.255.0
 gateway: 0.0.0.0
 mode: static

* host-parameters 

 max-luns-per-id: 32
 queue-depth: 1024
 fibre-connection-mode: loop
 inband-management: enabled

* drive-parameters 

 spin-up: disabled
 disk-access-delay: 15s
 scsi-io-timeout: 30s
 queue-depth: 32
 polling-interval: 30s
 enclosure-polling-interval: 30s
 auto-detect-swap-interval: disabled
 smart: detect-clone-replace
 auto-global-spare: disabled

* redundant-controller-configuration 

  Redundant Controller Configuration:         primary
  Cache Synchronization:                      enabled
  Host Channel Failover Mode:                 shared
  Local/Remote Redundant Mode:                local
  Write-Through Data Synchronization:         enabled
  Secondary RS-232 Port Status:               disabled
  Communication Channel Type:                 Fibre

* redundancy-mode 

 Primary controller serial number: 8120104
 Primary controller location: Upper
 Redundancy mode: Active-Active
 Redundancy status: Scanning
 Secondary controller serial number: 0

* cache-parameters 

 mode: write-back
 optimization: random
 sync-period: disabled
 current-global-write-policy: write-through

* RS232-configuration 

 COM1 speed: 38400bps

* channels 

Ch  Type    Media   Speed   Width  PID / SID
--------------------------------------------
 0  Host    FC(L)   2G      Serial  40 / N/A
 1  Host    FC(L)   2G      Serial  N/A / 42
 2  DRV+RCC FC(L)   2G      Serial  14 / 15
 3  DRV+RCC FC(L)   2G      Serial  14 / 15
 4  Host    FC(L)   2G      Serial  44 / N/A
 5  Host    FC(L)   2G      Serial  N/A / 46
 6  Host    LAN     N/A     Serial  N/A / N/A

* disks 

Ch     Id      Size   Speed  LD     Status     IDs                      Rev  
----------------------------------------------------------------------------
 2(3)  32  136.73GB   200MB  ld0    ONLINE     HITACHI HUS1514FBSUN146G 2A02 
                                                   S/N 000807B3MT1C    
                                                  WWNN 5000CCA0043EFB68
 2(3)  33  136.73GB   200MB  ld0    ONLINE     HITACHI HUS1514FBSUN146G 2A02 
                                                   S/N 000807B3MUBC    
                                                  WWNN 5000CCA0043EFC0C
 2(3)  34  136.73GB   200MB  ld0    ONLINE     HITACHI HUS1514FBSUN146G 2A02 
                                                   S/N 000807B3LTBC    
                                                  WWNN 5000CCA0043EEC8C
 2(3)  35  136.73GB   200MB  ld0    ONLINE     HITACHI HUS1514FBSUN146G 2A02 
                                                   S/N 000807B3MULC    
                                                  WWNN 5000CCA0043EFC28
 2(3)  36  136.73GB   200MB  ld0    ONLINE     HITACHI HUS1514FBSUN146G 2A02 
                                                   S/N 000807B36SSC    
                                                  WWNN 5000CCA0043E3810
 2(3)  37  136.73GB   200MB  GLOBAL STAND-BY   HITACHI HUS1514FBSUN146G 2A02 
                                                   S/N 000807B3LT8C    
                                                  WWNN 5000CCA0043EEC80
 2(3)  38  136.73GB   200MB  ld1    ONLINE     HITACHI HUS1514FBSUN146G 2A02 
                                                   S/N 000807B3N3WC    
                                                  WWNN 5000CCA0043F00A8
 2(3)  39  136.73GB   200MB  ld1    ONLINE     HITACHI HUS1514FBSUN146G 2A02 
                                                   S/N 000807B26K3C    
                                                  WWNN 5000CCA0043C635C
 2(3)  40  136.73GB   200MB  ld1    ONLINE     HITACHI HUS1514FBSUN146G 2A02 
                                                   S/N 000807B3Z96C    
                                                  WWNN 5000CCA0043F9964
 2(3)  41  136.73GB   200MB  ld1    ONLINE     HITACHI HUS1514FBSUN146G 2A02 
                                                   S/N 000807B268XC    
                                                  WWNN 5000CCA0043C5F64
 2(3)  42  136.73GB   200MB  ld1    ONLINE     HITACHI HUS1514FBSUN146G 2A02 
                                                   S/N 000807B3MV8C    
                                                  WWNN 5000CCA0043EFC7C
 2(3)  43  136.73GB   200MB  GLOBAL STAND-BY   HITACHI HUS1514FBSUN146G 2A02 
                                                   S/N 000807B3MNKC    
                                                  WWNN 5000CCA0043EF9B8