Blame contrib/IxDisk/ixdisk.pl
|
Packit |
667938 |
#!/usr/bin/perl
|
|
Packit |
667938 |
#
|
|
Packit |
667938 |
# Miroslaw M. Maczka: Miroslaw_Maczka@hotmail.com, mmm@bze.com.pl
|
|
Packit |
667938 |
# Date 2000-1-6
|
|
Packit |
667938 |
#
|
|
Packit |
667938 |
open(FI,"/usr/informix/bin/tbstat -p |") or die "";
|
|
Packit |
667938 |
|
|
Packit |
667938 |
while(<FI>){
|
|
Packit |
667938 |
#if(/RSAM Version 5.04.UC3 -- On-Line -- Up 1 days 21:56:47 -- 10960 Kbytes/){
|
|
Packit |
667938 |
if(/.+Version\s+(.+) --\s+(.+)\s+-- Up\s+(.+)\s+--.*/){
|
|
Packit |
667938 |
#print "[$1|$2|$3]\n";
|
|
Packit |
667938 |
$db="$2 $1";
|
|
Packit |
667938 |
$uptime=$3;
|
|
Packit |
667938 |
}
|
|
Packit |
667938 |
|
|
Packit |
667938 |
|
|
Packit |
667938 |
if(/dskreads pagreads bufreads %cached dskwrits pagwrits bufwrits \%cached/){
|
|
Packit |
667938 |
$_=<FI>;
|
|
Packit |
667938 |
($dskreads,$pagreads,$bufreads,$cached1,$dskwrits,$pagwrits,$bufwrits,$cached2)=split();
|
|
Packit |
667938 |
#print "[$dskreads,$pagreads,$bufreads,$cached1,$dskwrits,$pagwrits,$bufwrits,$cached2]\n";
|
|
Packit |
667938 |
#
|
|
Packit |
667938 |
#$uname = `/bin/uname -n`;
|
|
Packit |
667938 |
print "$dskreads\n$dskwrits\n$uptime\n$db";
|
|
Packit |
667938 |
#
|
|
Packit |
667938 |
}#if
|
|
Packit |
667938 |
|
|
Packit |
667938 |
}#while
|
|
Packit |
667938 |
close(FI);
|
|
Packit |
667938 |
#-=EOF=-
|
|
Packit |
667938 |
|