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.31 by tdb, Mon Feb 5 20:27:59 2001 UTC vs.
Revision 1.37 by pjm2, Sun Mar 11 12:51:52 2001 UTC

# Line 109 | Line 109 | sub include_disk() {
109      my($partition_no) = 0;
110      for (my($i) = 0; $i < $#df; $i++) {
111          my($line) = $df[$i];
112 <        $line =~ /^(\/[^\s]*)\s*([0-9]*)\s*([0-9]*)\s*([0-9]*)\s*[^\s]*\s*(\/[^\s]*)\s*/;
112 >        $line =~ /^([^\s]*)\s*([0-9]*)\s*([0-9]*)\s*([0-9]*)\s*[^\s]*\s*(\/[^\s]*)\s*/;
113          # $4 will not match unless everything before it does...
114          if (defined $5) {
115              my ($filesystem, $kbytes, $used, $avail, $mount) = ($1, $2, $3, $4, $5);
# Line 150 | Line 150 | sub include_top() {
150      my($top) = join(" ", @top);
151      $top =~ s/\n//g;
152  
153 <    &print_pair(0, "packet.processes.total", $top =~ /([^\s]+?) processes:/);
154 <    &print_pair(0, "packet.processes.sleeping", $top =~ / ([^\s]+?) sleeping/);
155 <    &print_pair(0, "packet.processes.zombie", $top =~ / ([^\s]+?) zombie/);
156 <    &print_pair(0, "packet.processes.stopped", $top =~ / ([^\s]+?) stopped/);
157 <    &print_pair(0, "packet.processes.cpu", $top =~ /([^\s]+?)\s*on cpu/);
158 <    &print_pair(0, "packet.cpu.idle", $top =~ /([^\s]+?)% idle/);
159 <    &print_pair(0, "packet.cpu.user", $top =~ /([^\s]+?)% user/);
160 <    &print_pair(0, "packet.cpu.kernel", $top =~ /([^\s]+?)% kernel/);
161 <    &print_pair(0, "packet.cpu.iowait", $top =~ /([^\s]+?)% iowait/);
162 <    &print_pair(0, "packet.cpu.swap", $top =~ /([^\s]+?)% swap/);
153 >    if($ostype eq "SunOS") {
154 >        &print_pair(0, "packet.processes.total", $top =~ /([^\s]+?) processes:/);
155 >        &print_pair(0, "packet.processes.sleeping", $top =~ / ([^\s]+?) sleeping/);
156 >        &print_pair(0, "packet.processes.zombie", $top =~ / ([^\s]+?) zombie/);
157 >        &print_pair(0, "packet.processes.stopped", $top =~ / ([^\s]+?) stopped/);
158 >        &print_pair(0, "packet.processes.cpu", $top =~ /([^\s]+?)\s*on cpu/);
159 >        &print_pair(0, "packet.cpu.idle", $top =~ /([^\s]+?)% idle/);
160 >        &print_pair(0, "packet.cpu.user", $top =~ /([^\s]+?)% user/);
161 >        &print_pair(0, "packet.cpu.kernel", $top =~ /([^\s]+?)% kernel/);
162 >        &print_pair(0, "packet.cpu.iowait", $top =~ /([^\s]+?)% iowait/);
163 >        &print_pair(0, "packet.cpu.swap", $top =~ /([^\s]+?)% swap/);
164 >        
165 >        # The following need to be specified in megabytes.
166 >        # If they are preceeded by a G, then multiply by 1024.  
167 >        
168 >        $top =~ /([^\s]+?)([MG]) real/;
169 >        my($real) = $1;
170 >        $real*=1024 if $2 eq "G";
171 >        $real/=1024 if $2 eq "K";
172 >        &print_pair(0, "packet.memory.total", $real);
173 >        
174 >        $top =~ /([^\s]+?)([MG]) free/;
175 >        my($free) = $1;
176 >        $free*=1024 if $2 eq "G";
177 >        $free/=1024 if $2 eq "K";
178 >        &print_pair(0, "packet.memory.free", $free);
179 >        
180 >        $top =~ /([^\s]+?)([MG]) swap in use/;
181 >        my($swap_in_use) = $1;
182 >        $swap_in_use*=1024 if $2 eq "G";
183 >        $swap_in_use/=1024 if $2 eq "K";
184 >        # DO NOT print this one out... save it for in a moment...
185 >        
186 >        $top =~ /([^\s]+?)([MG]) swap free/;
187 >        my($swap_free) = $1;
188 >        $swap_free*=1024 if $2 eq "G";
189 >        $swap_free/=1024 if $2 eq "K";
190 >        &print_pair(0, "packet.swap.free", $swap_free);
191 >        
192 >        # AJ requested total swap instead of swap_in_use, so here we go!
193 >        &print_pair(0, "packet.swap.total", $swap_free + $swap_in_use);
194 >    }
195 >    elsif ($ostype eq "FreeBSD") {
196 >        &print_pair(0, "packet.processes.total", $top =~ /([^\s]+?) processes:/);
197 >        &print_pair(0, "packet.processes.sleeping", $top =~ / ([^\s]+?) sleeping/);
198 >        &print_pair(0, "packet.processes.zombie", $top =~ / ([^\s]+?) zombie/);
199 >        &print_pair(0, "packet.processes.stopped", $top =~ / ([^\s]+?) stopped/);
200 >        &print_pair(0, "packet.processes.cpu", $top =~ /([^\s]+?)\s*running/);
201 >        &print_pair(0, "packet.cpu.idle", $top =~ /([^\s]+?)% idle/);
202 >        &print_pair(0, "packet.cpu.kernel", $top =~ /([^\s]+?)% system/);
203 >        &print_pair(0, "packet.cpu.iowait", $top =~ /([^\s]+?)% interrupt/);
204 >        &print_pair(0, "packet.cpu.swap", $top =~ /([^\s]+?)% swap/);
205  
206 <    # The following need to be specified in megabytes.
207 <    # If they are preceeded by a G, then multiply by 1024.  
208 <
209 <    $top =~ /([^\s]+?)([MG]) real/;
210 <    my($real) = $1;
211 <    $real*=1024 if $2 eq "G";
212 <    &print_pair(0, "packet.memory.total", $real);
213 <
214 <    $top =~ /([^\s]+?)([MG]) free/;
215 <    my($free) = $1;
216 <    $free*=1024 if $2 eq "G";
217 <    &print_pair(0, "packet.memory.free", $free);
218 <
219 <    $top =~ /([^\s]+?)([MG]) swap in use/;
220 <    my($swap_in_use) = $1;
221 <    $swap_in_use*=1024 if $2 eq "G";
222 <    # DO NOT print this one out... save it for in a moment...
223 <
224 <    $top =~ /([^\s]+?)([MG]) swap free/;
225 <    my($swap_free) = $1;
226 <    $swap_free*=1024 if $2 eq "G";
227 <    &print_pair(0, "packet.swap.free", $swap_free);
228 <
229 <    # AJ requested total swap instead of swap_in_use, so here we go!
230 <    &print_pair(0, "packet.swap.total", $swap_free + $swap_in_use);
206 >        # FreeBSD is a bit different, we need to get user and nice.
207 >        my($user) = 0;
208 >        if($top =~ /([^\s]+?)% user/) { $user += $1; }
209 >        if($top =~ /([^\s]+?)% nice/) { $user += $1; }
210 >        &print_pair(0, "packet.cpu.user", $user);
211 >        
212 >        # The following need to be specified in megabytes.
213 >        # If they are preceeded by a G, then multiply by 1024.  
214 >        
215 >        # !! Can't get the total memory !!
216 >        #$top =~ /([^\s]+?)([MG]) real/;
217 >        #my($real) = $1;
218 >        #$real*=1024 if $2 eq "G";
219 >        #&print_pair(0, "packet.memory.total", $real);
220 >        &print_pair(0, "packet.memory.total", 0);
221 >        
222 >        $top =~ /([^\s]+?)([MG]) Free/;
223 >        my($free) = $1;
224 >        $free*=1024 if $2 eq "G";
225 >        &print_pair(0, "packet.memory.free", $free);
226 >        
227 >        $top =~ /Swap: ([^\s]+?)([MG]) Total/;
228 >        my($swap_total) = $1;
229 >        $swap_total*=1024 if $2 eq "G";
230 >        &print_pair(0, "packet.swap.total", $swap_total);
231 >        
232 >        $top =~ /Swap:.*, ([^\s]+?)([MG]) Free/;
233 >        my($swap_free) = $1;
234 >        $swap_free*=1024 if $2 eq "G";
235 >        &print_pair(0, "packet.swap.free", $swap_free);
236 >    }
237 >    elsif ($ostype eq "Linux") {
238 >        &print_pair(0, "packet.processes.total", $top =~ /([^\s]+?) processes:/);
239 >        &print_pair(0, "packet.processes.sleeping", $top =~ / ([^\s]+?) sleeping/);
240 >        &print_pair(0, "packet.processes.zombie", $top =~ / ([^\s]+?) zombie/);
241 >        &print_pair(0, "packet.processes.stopped", $top =~ / ([^\s]+?) stopped/);
242 >        &print_pair(0, "packet.processes.cpu", $top =~ /([^\s]+?)\s*running/);
243 >        &print_pair(0, "packet.cpu.idle", $top =~ /([^\s]+?)% idle/);
244 >        &print_pair(0, "packet.cpu.user", $top =~ /([^\s]+?)% user/);
245 >        &print_pair(0, "packet.cpu.kernel", $top =~ /([^\s]+?)% system/);
246 >        &print_pair(0, "packet.cpu.iowait", $top =~ /([^\s]+?)% interrupt/);
247 >        &print_pair(0, "packet.cpu.swap", $top =~ /([^\s]+?)% swap/);
248 >        
249 >        # The following need to be specified in megabytes.
250 >        # If they are preceeded by a G, then multiply by 1024.  
251 >        
252 >        $top =~ / ([^\s]+?)([KMG]) av/;
253 >        my($real) = $1;
254 >        $real*=1024 if $2 eq "G";
255 >        $real/=1024 if $2 eq "K";
256 >        &print_pair(0, "packet.memory.total", int($real));
257 >        
258 >        $top =~ / ([^\s]+?)([KMG]) free/;
259 >        my($free) = $1;
260 >        $free*=1024 if $2 eq "G";
261 >        $free/=1024 if $2 eq "K";
262 >        &print_pair(0, "packet.memory.free", int($free));
263 >        
264 >        $top =~ /Swap:\s+([^\s]+?)([KMG]) av/;
265 >        my($swap_total) = $1;
266 >        $swap_total*=1024 if $2 eq "G";
267 >        $swap_total/=1024 if $2 eq "K";
268 >        &print_pair(0, "packet.swap.total", int($swap_total));
269 >        
270 >        $top =~ /Swap:.*, ([^\s]+?)([KMG]) free/;
271 >        my($swap_free) = $1;
272 >        $swap_free*=1024 if $2 eq "G";
273 >        $swap_free/=1024 if $2 eq "K";
274 >        &print_pair(0, "packet.swap.free", int($swap_free));
275 >    }
276 >    else {
277 >        # we could have some catchall here
278 >        # but as it stands this means we'll just skip top stuff
279 >        # for unknown systems
280 >    }
281   }
282  
283   # sub to get details of the machine's operating system.
# Line 239 | Line 331 | sub include_uptime() {
331  
332      if ($uptime =~ /day.*,\s+([0-9]+):([0-9]+)/) {
333        # normal
334 <        $uptime =~ /up\s+([0-9]+)\s+.*,\s+([0-9]+):([0-9]+)/;
334 >        $uptime =~ /up\s+([0-9]+)\s+[^\s]+,\s+([0-9]+):([0-9]+)/;
335          $uptime = "$1:$2:$3";
336      }
337      else {
338          if ($uptime =~ /day/) {
339              if ($uptime =~ /hr/) {
340                # 0 minutes
341 <                $uptime =~ /up\s+([0-9]+)\s+.*,\s+([0-9]+)\s+.*,/;
341 >                $uptime =~ /up\s+([0-9]+)\s+[^\s]+,\s+([0-9]+)\s+[^\s]+,/;
342                  $uptime = "$1:$2:0";
343              }
344              elsif ($uptime =~ /min/) {
345                # 0 hours
346 <                $uptime =~ /up\s+([0-9]+)\s+.*,\s+([0-9]+)\s+.*,/;
346 >                $uptime =~ /up\s+([0-9]+)\s+[^\s]+,\s+([0-9]+)\s+[^\s]+,/;
347                  $uptime = "$1:0:$2";
348              }
349              else {

Diff Legend

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