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.20 by tdb, Sun Feb 4 22:38:41 2001 UTC vs.
Revision 1.27 by tdb, Mon Feb 5 17:21:04 2001 UTC

# Line 56 | Line 56 | sub print_ident() {
56  
57   # sub to print pairs of data, separated by a single space character.
58   # If the second argument is undefined, then the pair is still printed,
59 < # however, the value shall be displayed as the string "unknown".
60 < # If $type is non-zero, then "0" is printed instead of "unknown".
59 > # however, the value shall be displayed as the the 'default' value
60 > # if the passed value was undefined.
61   sub print_pair($$$) {
62 <    my($type, $name, $value) = @_;
62 >    my($default, $name, $value) = @_;
63  
64      if (!defined $value) {
65 <        if ($type) {
66 <            $value = "0.00";
67 <        }
68 <        else {
69 <            $value = "unknown";
70 <        }
65 >        $value = $default;
66      }
67  
68      # Remove the trailing linefeed if we've not already done so.
# Line 92 | Line 87 | sub include_disk() {
87          # $4 will not match unless everything before it does...
88          if (defined $5) {
89              my ($filesystem, $kbytes, $used, $avail, $mount) = ($1, $2, $3, $4, $5);
90 <            &print_pair(0, "packet.disk.p$partition_no.attributes.name", $filesystem);
91 <            &print_pair(1, "packet.disk.p$partition_no.attributes.kbytes", $kbytes);
92 <            &print_pair(1, "packet.disk.p$partition_no.attributes.used", $used);
93 <            &print_pair(1, "packet.disk.p$partition_no.attributes.avail", $avail);
94 <            &print_pair(0, "packet.disk.p$partition_no.attributes.mount", $mount);
90 >            &print_pair("unknown", "packet.disk.p$partition_no.attributes.name", $filesystem);
91 >            &print_pair(0, "packet.disk.p$partition_no.attributes.kbytes", $kbytes);
92 >            &print_pair(0, "packet.disk.p$partition_no.attributes.used", $used);
93 >            &print_pair(0, "packet.disk.p$partition_no.attributes.avail", $avail);
94 >            &print_pair("unknown", "packet.disk.p$partition_no.attributes.mount", $mount);
95              ++$partition_no;
96          }
97      }
# Line 115 | Line 110 | sub include_users() {
110      $users_count++ while $users =~ /\w+/g;
111      my($users_list) = $users." ";
112  
113 <    &print_pair(1, "packet.users.count", $users_count);
114 <    &print_pair(0, "packet.users.list", $users_list);
113 >    &print_pair(0, "packet.users.count", $users_count);
114 >    &print_pair("unknown", "packet.users.list", $users_list);
115   }
116  
117  
# Line 129 | Line 124 | sub include_top() {
124      my($top) = join(" ", @top);
125      $top =~ s/\n//g;
126  
127 <    &print_pair(1, "packet.load.load1", $top =~ /load averages:\s*([^\s]+?),/);
128 <    &print_pair(1, "packet.load.load5", $top =~ /load averages:\s*.+?,\s*([^\s]+?),/);
129 <    &print_pair(1, "packet.load.load15", $top =~ /load averages:\s*.+?,\s*.+?,\s*([^\s]+?)\s.*/);
130 <    &print_pair(1, "packet.processes.total", $top =~ /([^\s]+?) processes:/);
131 <    &print_pair(1, "packet.processes.sleeping", $top =~ / ([^\s]+?) sleeping/);
132 <    &print_pair(1, "packet.processes.zombie", $top =~ / ([^\s]+?) zombie/);
133 <    &print_pair(1, "packet.processes.stopped", $top =~ / ([^\s]+?) stopped/);
134 <    &print_pair(1, "packet.processes.cpu", $top =~ /([^\s]+?)\s*on cpu/);
135 <    &print_pair(1, "packet.cpu.idle", $top =~ /([^\s]+?)% idle/);
136 <    &print_pair(1, "packet.cpu.user", $top =~ /([^\s]+?)% user/);
137 <    &print_pair(1, "packet.cpu.kernel", $top =~ /([^\s]+?)% kernel/);
138 <    &print_pair(1, "packet.cpu.iowait", $top =~ /([^\s]+?)% iowait/);
139 <    &print_pair(1, "packet.cpu.swap", $top =~ /([^\s]+?)% swap/);
127 >    &print_pair(0, "packet.load.load1", $top =~ /load averages:\s*([^\s]+?),/);
128 >    &print_pair(0, "packet.load.load5", $top =~ /load averages:\s*.+?,\s*([^\s]+?),/);
129 >    &print_pair(0, "packet.load.load15", $top =~ /load averages:\s*.+?,\s*.+?,\s*([^\s]+?)\s/);
130 >    &print_pair(0, "packet.processes.total", $top =~ /([^\s]+?) processes:/);
131 >    &print_pair(0, "packet.processes.sleeping", $top =~ / ([^\s]+?) sleeping/);
132 >    &print_pair(0, "packet.processes.zombie", $top =~ / ([^\s]+?) zombie/);
133 >    &print_pair(0, "packet.processes.stopped", $top =~ / ([^\s]+?) stopped/);
134 >    &print_pair(0, "packet.processes.cpu", $top =~ /([^\s]+?)\s*on cpu/);
135 >    &print_pair(0, "packet.cpu.idle", $top =~ /([^\s]+?)% idle/);
136 >    &print_pair(0, "packet.cpu.user", $top =~ /([^\s]+?)% user/);
137 >    &print_pair(0, "packet.cpu.kernel", $top =~ /([^\s]+?)% kernel/);
138 >    &print_pair(0, "packet.cpu.iowait", $top =~ /([^\s]+?)% iowait/);
139 >    &print_pair(0, "packet.cpu.swap", $top =~ /([^\s]+?)% swap/);
140  
141      # The following need to be specified in megabytes.
142      # If they are preceeded by a G, then multiply by 1024.  
# Line 149 | Line 144 | sub include_top() {
144      $top =~ /([^\s]+?)([MG]) real/;
145      my($real) = $1;
146      $real*=1024 if $2 eq "G";
147 <    &print_pair(1, "packet.memory.real", $real);
147 >    &print_pair(0, "packet.memory.total", $real);
148  
149      $top =~ /([^\s]+?)([MG]) free/;
150      my($free) = $1;
151      $free*=1024 if $2 eq "G";
152 <    &print_pair(1, "packet.memory.free", $free);
152 >    &print_pair(0, "packet.memory.free", $free);
153  
154      $top =~ /([^\s]+?)([MG]) swap in use/;
155      my($swap_in_use) = $1;
# Line 164 | Line 159 | sub include_top() {
159      $top =~ /([^\s]+?)([MG]) swap free/;
160      my($swap_free) = $1;
161      $swap_free*=1024 if $2 eq "G";
162 <    &print_pair(1, "packet.memory.swap_free", $swap_free);
162 >    &print_pair(0, "packet.swap.free", $swap_free);
163  
164      # AJ requested total swap instead of swap_in_use, so here we go!
165 <    &print_pair(1, "packet.memory.swap_total", $swap_free + $swap_in_use);
165 >    &print_pair(0, "packet.swap.total", $swap_free + $swap_in_use);
166   }
167  
168   # sub to get details of the machine's operating system.
# Line 182 | Line 177 | sub include_osver() {
177      my($os_sysname) = `$unamebin -n`;
178      my($os_version) = `$unamebin -v`;
179  
180 <    &print_pair(0, "packet.os.name", $os_name);
181 <    &print_pair(0, "packet.os.release", $os_release);
182 <    &print_pair(0, "packet.os.platform", $os_platform);
183 <    &print_pair(0, "packet.os.sysname", $os_sysname);
184 <    &print_pair(0, "packet.os.version", $os_version);
180 >    &print_pair("unknown", "packet.os.name", $os_name);
181 >    &print_pair("unknown", "packet.os.release", $os_release);
182 >    &print_pair("unknown", "packet.os.platform", $os_platform);
183 >    &print_pair("unknown", "packet.os.sysname", $os_sysname);
184 >    &print_pair("unknown", "packet.os.version", $os_version);
185  
186   }
187  
188   # sub to get system uptime.
189   sub include_uptime() {
190  
191 +    # debug stuff, all the different cases
192 +
193 +    # normal
194 +    #my($uptime) = "  4:48pm  up 49 day(s),  6:30,  201 users,  load average: 0.33, 0.35, 0.38\n";
195 +    # 0 days
196 +    #my($uptime) = "  4:48pm  up 6:30,  201 users,  load average: 0.33, 0.35, 0.38\n";
197 +    # 0 hours
198 +    #my($uptime) = "  4:48pm  up 49 day(s),  30 min(s),  201 users,  load average: 0.33, 0.35, 0.38\n";
199 +    # 0 mins
200 +    #my($uptime) = "  4:48pm  up 49 day(s),  6 hr(s),  201 users,  load average: 0.33, 0.35, 0.38\n";
201 +    # 0 days and 0 mins
202 +    #my($uptime) = "  4:48pm  up 6 hr(s),  201 users,  load average: 0.33, 0.35, 0.38\n";
203 +    # 0 days and 0 hours
204 +    #my($uptime) = "  4:48pm  up 30 min(s),  201 users,  load average: 0.33, 0.35, 0.38\n";
205 +    # 0 hours and 0 mins
206 +    #my($uptime) = "  4:48pm  up 49 day(s), 201 users,  load average: 0.33, 0.35, 0.38\n";
207 +
208 +    # grab the uptime
209      my($uptime) = `$uptimebin`;
197 –    $uptime =~ /up ([0-9]+) .*, ([0-9]+:[0-9]+)/;
198 –    $uptime = "$1:$2";
210  
211 <    &print_pair(0, "packet.os.uptime", $uptime);
211 >    # work out the days, hours, and minutes
212 >    if ($uptime =~ /hr/) {
213 >      # two possible cases here
214 >        if($uptime =~ /day/) {
215 >          # 0 minutes
216 >            $uptime =~ /up\s+([0-9]+)\s+.*,\s+([0-9]+)\s+.*,/;
217 >            $uptime = "$1:$2:0";
218 >        }
219 >        else {
220 >          # 0 days and 0 minutes
221 >            $uptime =~ /up\s+([0-9]+)\s+/;
222 >            $uptime = "0:$1:0";
223 >        }
224 >    }
225 >    elsif ($uptime =~ /min/) {
226 >      # two possible cases here
227 >        if($uptime =~ /day/) {
228 >          # 0 hours
229 >            $uptime =~ /up\s+([0-9]+)\s+.*,\s+([0-9]+)\s+.*,/;
230 >            $uptime = "$1:0:$2";
231 >        }
232 >        else {
233 >          # 0 days and 0 hours
234 >            $uptime =~ /up\s+([0-9]+)\s+/;
235 >            $uptime = "0:0:$1";
236 >        }
237 >    }
238 >    elsif ($uptime =~ /day/) {
239 >        if ($uptime =~ /day.*,\s+([0-9]+):([0-9]+)/) {
240 >          # normal
241 >            $uptime =~ /up\s+([0-9]+)\s+.*,\s+([0-9]+):([0-9]+)/;
242 >            $uptime = "$1:$2:$3";
243 >        }
244 >        else {
245 >          # 0 hours and 0 mins
246 >            $uptime =~ /up\s+([0-9]+)/;
247 >            $uptime = "$1:0:0";
248 >        }
249 >    }
250 >    else {
251 >      # 0 days
252 >        $uptime =~ /up\s+([0-9]+):([0-9]+)/;
253 >        $uptime = "0:$1:$2";
254 >    }
255 >
256 >    # turn into minutes
257 >
258 >    $uptime =~ /([0-9]+):([0-9]+):([0-9]+)/;
259 >    $uptime = $3 + ($2 + $1*24)*60;
260 >
261 >    &print_pair("unknown", "packet.os.uptime", $uptime);
262  
263   }

Diff Legend

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