ViewVC Help
View File | Revision Log | Show Annotations | Revision Graph | Root Listing
root/i-scream/projects/cms/source/host/generic/statgrab.pl
(Generate patch)

Comparing projects/cms/source/host/generic/statgrab.pl (file contents):
Revision 1.39 by tdb, Mon Mar 19 22:38:20 2001 UTC vs.
Revision 1.47 by tdb, Sat May 18 18:15:56 2002 UTC

# Line 1 | Line 1
1   #!/usr/bin/perl -w
2  
3 + #
4 + # i-scream central monitoring system
5 + # Copyright (C) 2000-2002 i-scream
6 + #
7 + # This program is free software; you can redistribute it and/or
8 + # modify it under the terms of the GNU General Public License
9 + # as published by the Free Software Foundation; either version 2
10 + # of the License, or (at your option) any later version.
11 + #
12 + # This program is distributed in the hope that it will be useful,
13 + # but WITHOUT ANY WARRANTY; without even the implied warranty of
14 + # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15 + # GNU General Public License for more details.
16 + #
17 + # You should have received a copy of the GNU General Public License
18 + # along with this program; if not, write to the Free Software
19 + # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
20 + #
21 +
22   #-----------------------------------------------------------------
23   # Machine statistics grabber
24   #     $Author$
# Line 38 | Line 57 | if ($ostype eq "SunOS") {
57   }
58   elsif ($ostype eq "Linux") {
59      # covers: Debian r2.2
60 <    $topbin = "/usr/bin/top -d1 -n0 -b";
60 >    $topbin = "/usr/bin/top -d1 -n2 -b -p0";
61      $dfbin = "/bin/df";
62      $usersbin = "/usr/bin/users";
63      $unamebin = "/bin/uname";
# Line 78 | Line 97 | exit(0);
97   # the host should check this when reading data
98   # means the host must be checked and updated to work with newer versions.
99   sub print_ident() {
100 <    print 'version statgrab.pl $Revision$';
100 >    print 'packet.version statgrab.pl $Revision$';
101      print "\n";
102   }
103  
# Line 105 | Line 124 | sub print_pair($$$) {
124   sub include_disk() {
125      
126      # Run the df program.
127 <    my(@df) = `$dfbin -ak`;
127 >    my(@df) = `$dfbin -akl`;
128  
129      # Go through each line of the program, looking for each thing we want.
130      my($partition_no) = 0;
# Line 150 | Line 169 | sub include_top() {
169      # Find out some numbers from top.
170      my(@top) = `$topbin`;
171      my($top) = join(" ", @top);
172 <    $top =~ s/\n//g;
172 >    $top =~ s/\n/ /g;
173  
174      if($ostype eq "SunOS") {
175 <        &print_pair(0, "packet.processes.total", $top =~ /([^\s]+?) processes:/);
176 <        &print_pair(0, "packet.processes.sleeping", $top =~ / ([^\s]+?) sleeping/);
177 <        &print_pair(0, "packet.processes.zombie", $top =~ / ([^\s]+?) zombie/);
178 <        &print_pair(0, "packet.processes.stopped", $top =~ / ([^\s]+?) stopped/);
179 <        &print_pair(0, "packet.processes.cpu", $top =~ /([^\s]+?)\s*on cpu/);
175 >        &print_pair(0, "packet.processes.total", $top =~ /([0-9]+?) processes:/);
176 >        &print_pair(0, "packet.processes.sleeping", $top =~ /([0-9]+?) sleeping/);
177 >        &print_pair(0, "packet.processes.zombie", $top =~ /([0-9]+?) zombie/);
178 >        &print_pair(0, "packet.processes.stopped", $top =~ /([0-9]+?) stopped/);
179 >        &print_pair(0, "packet.processes.cpu", $top =~ /([0-9]+?)\s*on cpu/);
180          &print_pair(0, "packet.cpu.idle", $top =~ /([^\s]+?)% idle/);
181          &print_pair(0, "packet.cpu.user", $top =~ /([^\s]+?)% user/);
182          &print_pair(0, "packet.cpu.kernel", $top =~ /([^\s]+?)% kernel/);
# Line 167 | Line 186 | sub include_top() {
186          # The following need to be specified in megabytes.
187          # If they are preceeded by a G, then multiply by 1024.  
188          
189 <        $top =~ /([^\s]+?)([KMG]) real/;
189 >        $top =~ /([0-9]+?)([KMG]) real/;
190          my($real) = $1;
191          $real*=1024 if $2 eq "G";
192          $real/=1024 if $2 eq "K";
193          &print_pair(0, "packet.memory.total", $real);
194          
195 <        $top =~ /([^\s]+?)([KMG]) free/;
195 >        $top =~ /([0-9]+?)([KMG]) free/;
196          my($free) = $1;
197          $free*=1024 if $2 eq "G";
198          $free/=1024 if $2 eq "K";
199          &print_pair(0, "packet.memory.free", $free);
200          
201 <        $top =~ /([^\s]+?)([KMG]) swap in use/;
201 >        $top =~ /([0-9]+?)([KMG]) swap in use/;
202          my($swap_in_use) = $1;
203          $swap_in_use*=1024 if $2 eq "G";
204          $swap_in_use/=1024 if $2 eq "K";
205          # DO NOT print this one out... save it for in a moment...
206          
207 <        $top =~ /([^\s]+?)([KMG]) swap free/;
207 >        $top =~ /([0-9]+?)([KMG]) swap free/;
208          my($swap_free) = $1;
209          $swap_free*=1024 if $2 eq "G";
210          $swap_free/=1024 if $2 eq "K";
211          &print_pair(0, "packet.swap.free", $swap_free);
212          
194 –        # AJ requested total swap instead of swap_in_use, so here we go!
213          &print_pair(0, "packet.swap.total", $swap_free + $swap_in_use);
214      }
215      elsif ($ostype eq "FreeBSD") {
216 <        &print_pair(0, "packet.processes.total", $top =~ /([^\s]+?) processes:/);
217 <        &print_pair(0, "packet.processes.sleeping", $top =~ / ([^\s]+?) sleeping/);
218 <        &print_pair(0, "packet.processes.zombie", $top =~ / ([^\s]+?) zombie/);
219 <        &print_pair(0, "packet.processes.stopped", $top =~ / ([^\s]+?) stopped/);
220 <        &print_pair(0, "packet.processes.cpu", $top =~ /([^\s]+?)\s*running/);
216 >        &print_pair(0, "packet.processes.total", $top =~ /([0-9]+?) processes:/);
217 >        &print_pair(0, "packet.processes.sleeping", $top =~ /([0-9]+?) sleeping/);
218 >        &print_pair(0, "packet.processes.zombie", $top =~ /([0-9]+?) zombie/);
219 >        &print_pair(0, "packet.processes.stopped", $top =~ /([0-9]+?) stopped/);
220 >        &print_pair(0, "packet.processes.cpu", $top =~ /([0-9]+?)\s*running/);
221          &print_pair(0, "packet.cpu.idle", $top =~ /([^\s]+?)% idle/);
222          &print_pair(0, "packet.cpu.kernel", $top =~ /([^\s]+?)% system/);
223          &print_pair(0, "packet.cpu.iowait", $top =~ /([^\s]+?)% interrupt/);
# Line 225 | Line 243 | sub include_top() {
243          &print_pair(0, "packet.memory.total", $real);
244          &print_pair(0, "packet.memory.free", $free);
245          
246 <        $top =~ /Swap: ([^\s]+?)([KMG]) Total/;
246 >        $top =~ /Swap: ([0-9]+?)([KMG]) Total/;
247          my($swap_total) = $1;
248          $swap_total*=1024 if $2 eq "G";
249          $swap_total/=1024 if $2 eq "K";
250          &print_pair(0, "packet.swap.total", $swap_total);
251          
252 <        $top =~ /Swap:.*, ([^\s]+?)([KMG]) Free/;
252 >        $top =~ /Swap:.*, ([0-9]+?)([KMG]) Free/;
253          my($swap_free) = $1;
254          $swap_free*=1024 if $2 eq "G";
255          $swap_free/=1024 if $2 eq "K";
# Line 244 | Line 262 | sub include_top() {
262          &print_pair(0, "packet.load.load15", $3);
263      }
264      elsif ($ostype eq "Linux") {
265 <        &print_pair(0, "packet.processes.total", $top =~ /([^\s]+?) processes:/);
266 <        &print_pair(0, "packet.processes.sleeping", $top =~ / ([^\s]+?) sleeping/);
267 <        &print_pair(0, "packet.processes.zombie", $top =~ / ([^\s]+?) zombie/);
268 <        &print_pair(0, "packet.processes.stopped", $top =~ / ([^\s]+?) stopped/);
269 <        &print_pair(0, "packet.processes.cpu", $top =~ /([^\s]+?)\s*running/);
265 >        my ($top) = "";
266 >        foreach my $line (@top) {
267 >            $top = $line . $top;
268 >        }
269 >        $top =~ s/\n/ /g;
270 >
271 >        &print_pair(0, "packet.processes.total", $top =~ /([0-9]+?) processes:/);
272 >        &print_pair(0, "packet.processes.sleeping", $top =~ /([0-9]+?) sleeping/);
273 >        &print_pair(0, "packet.processes.zombie", $top =~ /([0-9]+?) zombie/);
274 >        &print_pair(0, "packet.processes.stopped", $top =~ /([0-9]+?) stopped/);
275 >        &print_pair(0, "packet.processes.cpu", $top =~ /([0-9]+?)\s*running/);
276          &print_pair(0, "packet.cpu.idle", $top =~ /([^\s]+?)% idle/);
253 –        &print_pair(0, "packet.cpu.user", $top =~ /([^\s]+?)% user/);
277          &print_pair(0, "packet.cpu.kernel", $top =~ /([^\s]+?)% system/);
278          &print_pair(0, "packet.cpu.iowait", $top =~ /([^\s]+?)% interrupt/);
279          &print_pair(0, "packet.cpu.swap", $top =~ /([^\s]+?)% swap/);
280 +
281 +        # FreeBSD is a bit different, we need to get user and nice.
282 +        my($user) = 0;
283 +        if($top =~ /([^\s]+?)% user/) { $user += $1; }
284 +        if($top =~ /([^\s]+?)% nice/) { $user += $1; }
285 +        &print_pair(0, "packet.cpu.user", $user);
286          
287          # The following need to be specified in megabytes.
288          # If they are preceeded by a G, then multiply by 1024.  
289          
290 <        $top =~ / ([^\s]+?)([KMG]) av/;
290 >        $top =~ /Mem:.*?([0-9]+)([KMG])\s+(av|total)/;
291          my($real) = $1;
292          $real*=1024 if $2 eq "G";
293          $real/=1024 if $2 eq "K";
294          &print_pair(0, "packet.memory.total", int($real));
295          
296 <        $top =~ / ([^\s]+?)([KMG]) free/;
296 >        $top =~ /Mem:.*?([0-9]+)([KMG])\s+free/;
297          my($free) = $1;
298          $free*=1024 if $2 eq "G";
299          $free/=1024 if $2 eq "K";
300          &print_pair(0, "packet.memory.free", int($free));
301          
302 <        $top =~ /Swap:\s+([^\s]+?)([KMG]) av/;
302 >        $top =~ /Swap:.*?([0-9]+)([KMG])\s+(av|total)/;
303          my($swap_total) = $1;
304          $swap_total*=1024 if $2 eq "G";
305          $swap_total/=1024 if $2 eq "K";
306          &print_pair(0, "packet.swap.total", int($swap_total));
307          
308 <        $top =~ /Swap:.*, ([^\s]+?)([KMG]) free/;
308 >        $top =~ /Swap:.*?([0-9]+)([KMG])\s+free/;
309          my($swap_free) = $1;
310          $swap_free*=1024 if $2 eq "G";
311          $swap_free/=1024 if $2 eq "K";

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines