Show
Ignore:
Timestamp:
05/31/10 04:01:57 (9 years ago)
Author:
Jason Dixon <jdixon@omniti.com>
git-committer:
Jason Dixon <jdixon@omniti.com> 1275278517 +0000
git-parent:

[6c3751e39cc9fecf8c1bae1be5ee0655a90ea33d]

git-author:
Jason Dixon <jdixon@omniti.com> 1275278517 +0000
Message:

adjust solaris to use descriptive device names, e.g. cXtXdX

git-svn-id: https://labs.omniti.com/resmon/branches/resmon2@403 8c0face9-b7db-6ec6-c4b3-d5f7145c7d55

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • lib/Core/Iostat.pm

    r6c3751e rd9d6d28  
    8181 
    8282Average number of transactions actively being serviced. 
     83 
     84=item wsvct_msec 
     85 
     86Average service time in wait queue, in milliseconds. 
     87 
     88=item asvct_msec 
     89 
     90Average service time of active transactions, in milliseconds. 
    8391 
    8492=item rspt_txn 
     
    173181        my $interval = 5; 
    174182        my $count = 2; 
    175         my $output = run_command("$iostat_path -xe $interval $count"); 
     183        my $output = run_command("$iostat_path -xne $interval $count"); 
    176184        foreach (split(/\n/, $output)) { 
    177             next unless (/(\w+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+).*/); 
    178             $metrics{"${1}_reads_sec"} = [$2, 'n']; 
    179             $metrics{"${1}_writes_sec"} = [$3, 'n']; 
    180             $metrics{"${1}_kb_read_sec"} = [$4, 'n']; 
    181             $metrics{"${1}_kb_write_sec"} = [$5, 'n']; 
    182             $metrics{"${1}_wait_txn"} = [$6, 'n']; 
    183             $metrics{"${1}_actv_txn"} = [$7, 'n']; 
    184             $metrics{"${1}_rspt_txn"} = [$8, 'n']; 
    185             $metrics{"${1}_wait_pct"} = [$9, 'I']; 
    186             $metrics{"${1}_busy_pct"} = [$10, 'I']; 
    187             $metrics{"${1}_soft_errors"} = [$11, 'I']; 
    188             $metrics{"${1}_hard_errors"} = [$12, 'I']; 
    189             $metrics{"${1}_txport_errors"} = [$13, 'I']; 
    190             $metrics{"${1}_total_errors"} = [$14, 'I']; 
     185            next unless (/^\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\S+)$/); 
     186            my $device = $15; 
     187            $metrics{"${device}_reads_sec"} = [$1, 'n']; 
     188            $metrics{"${device}_writes_sec"} = [$2, 'n']; 
     189            $metrics{"${device}_kb_read_sec"} = [$3, 'n']; 
     190            $metrics{"${device}_kb_write_sec"} = [$4, 'n']; 
     191            $metrics{"${device}_wait_txn"} = [$5, 'n']; 
     192            $metrics{"${device}_actv_txn"} = [$6, 'n']; 
     193            $metrics{"${device}_wsvct_msec"} = [$7, 'n']; 
     194            $metrics{"${device}_asvct_msec"} = [$8, 'n']; 
     195            $metrics{"${device}_wait_pct"} = [$9, 'I']; 
     196            $metrics{"${device}_busy_pct"} = [$10, 'I']; 
     197            $metrics{"${device}_soft_errors"} = [$11, 'I']; 
     198            $metrics{"${device}_hard_errors"} = [$12, 'I']; 
     199            $metrics{"${device}_txport_errors"} = [$13, 'I']; 
     200            $metrics{"${device}_total_errors"} = [$14, 'I']; 
    191201        } 
    192202        if (keys %metrics) {