commit 5a1dcdb1d7095f8cde74538cac7c9c2bee7fb14f from: int16h date: Sun Oct 5 16:25:43 2025 UTC Support for modern Linux kernels; replace egrep with awk commit - 099447c2100624c99a03fa7f4ddaef009bb05bdb commit + 5a1dcdb1d7095f8cde74538cac7c9c2bee7fb14f blob - /dev/null blob + 8adb142ee9ebb3168b61111f546930d20fb19412 (mode 755) --- /dev/null +++ sysinfo.pl @@ -0,0 +1,813 @@ +#!/usr/bin/perl -w +# +# Copyright (c) 2002-2005 David Rudie +# All rights reserved. +# +# Redistribution and use in source and binary forms, with or without +# modification, are permitted provided that the following conditions +# are met: +# 1. Redistributions of source code must retain the above copyright +# notice, this list of conditions and the following disclaimer. +# 2. Redistributions in binary form must reproduce the above copyright +# notice, this list of conditions and the following disclaimer in the +# documentation and/or other materials provided with the distribution. +# +# THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND +# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE +# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE +# ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE +# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL +# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS +# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) +# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT +# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY +# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF +# SUCH DAMAGE. +# +# Several additions and fixes to this script were contributed by Travis +# Morgan and therefore are Copyright (c) 2003-2006 Travis Morgan +# +# If you notice any bugs including spacing issues, wrong detection of hardware, +# obvious features missing, etc, we both want to hear about them. If you make +# this script work on other operating systems and/or architectures please send +# either of us your patches. My e-mail address is d.rudie@gmail.com and +# Travis Morgan's e-mail address is imbezol@criticaldamage.com +# +# The latest version can be obtained from either http://www.inexistent.com/ or +# http://imbezol.org/sysinfo/ +# +# Now maintained (as of 2020) by Danyal Samak (int16h@gmail.com) +# +# You can also reach Travis in #crd on efnet. + +use POSIX qw(floor); +use strict; + + +# Set up the arrays and variables first. +use vars qw( + @arr + @arr1 + @arr2 + $cpu + @cpu + @cpuinfo + $data + $distro + $distrov + @distros + @data + $df + $vgs + @dmesgboot + @hinv + @meminfo + $mhz + @mhz + $model + @netdev + @netstat + @nic + @nicname + $realdistro + $smp + @smp + $stream + $sysctl + @uptime + $var + $vara + $varb + $varc + $vard + $varh + $varm + $varp + $varx + $vary + $varz + $col1 + $col2 +); + + +# Specify your NIC interface name (eth0, rl0, fxp0, etc) and a name for it. +# +# Example: @nic = ('eth0', 'eth1'); +# @nicname = ('External', 'Internal'); +# +# NOTE: If you set one then you HAVE to set the other. +@nic = (''); +@nicname = (''); + +$col1 = ''; +$col2 = ''; + +# These are the default settings for which information gets displayed. +# 0 = Off; 1 = On +my $useShortHostname = 1; + +my $showHostname = 1; +my $showOS = 1; +my $showCPU = 1; +my $showProcesses = 1; +my $showUptime = 1; +my $showUsers = 1; +my $showLoadAverage = 1; +my $showBattery = 0; # Requires APM and /proc/apm or /proc/acpi/battery/ +my $showMemoryUsage = 1; +my $showDiskUsage = 1; +my $showLVMUsage = 0; +my $showNetworkTraffic = 0; +my $showDistro = 1; + +############################################### +### Nothing below here should need changed. ### +############################################### + +my $sysinfoVer = '2.81.21'; +my $sysinfoDate = 'Sep 7, 2012, 21:43 MDT'; + +my $os = `uname -s`; chomp($os); +my $osn = `uname -n`; chomp($osn); +if($useShortHostname) { + $osn =~ s/([^\.]*).*/$1/; +} +my $osv = `uname -r`; chomp($osv); +my $osm = `uname -m`; chomp($osm); +my $uname = "$os $osv/$osm"; + +my $darwin = 1 if $os =~ /^Darwin$/; +my $freebsd = 1 if $os =~ /^FreeBSD$/; +my $dragonfly = 1 if $os =~ /^DragonFly$/; +my $linux = 1 if $os =~ /^Linux$/; +my $netbsd = 1 if $os =~ /^NetBSD$/; +my $openbsd = 1 if $os =~ /^OpenBSD$/; +my $irix = 1 if $os =~ /^IRIX$/; +my $irix64 = 1 if $os =~ /^IRIX64$/; +my $sun = 1 if $os =~ /^SunOS$/; + + +my $alpha = 1 if $osm =~ /^alpha$/; +my $arm = 1 if $osm =~ /^arm$/; +my $i586 = 1 if $osm =~ /^i586$/; +my $i686 = 1 if $osm =~ /^i686$/; +my $ia64 = 1 if $osm =~ /^ia64$/; +my $mips = 1 if $osm =~ /^mips$/; +my $parisc = 1 if $osm =~ /^parisc$/; +my $parisc64 = 1 if $osm =~ /^parisc64$/; +my $ppc = 1 if $osm =~ /^ppc$/; +my $ppc64 = 1 if $osm =~ /^ppc64$/; +my $s390 = 1 if $osm =~ /^s390$/; +my $s390x = 1 if $osm=~ /^s390x$/; +my $sh = 1 if $osm=~ /^sh/; +my $sparc = 1 if $osm =~ /^sparc$/; +my $sparc64 = 1 if $osm =~ /^sparc64$/; +my $x86_64 = 1 if $osm =~ /^x86_64$/; + + +my $d7 = 1 if $darwin && $osv =~ /^7\.\d+\.\d+/; +my $d8 = 1 if $darwin && $osv =~ /^8\.\d+\.\d+/; +my $d9 = 1 if $darwin && $osv =~ /^9\.\d+\.\d+/; +my ($linux_major, $linux_minor) = (0, 0); +if ($linux && $osv =~ /^(\d+)\.(\d+)/) { + $linux_major = $1; + $linux_minor = $2; +} +my $linux_modern = $linux && ($linux_major > 2 || ($linux_major == 2 && $linux_minor >= 6)); +my $l26 = 1 if $linux && $linux_major == 2 && $linux_minor == 6; +my $l3 = 1 if $linux_modern; +my $f_old = 1 if $freebsd && $osv =~ /^4\.1-/ || $osv =~ /^4\.0-/ || $osv =~ /^3/ || $osv =~ /^2/; + +my $progArgs = $ARGV[0]; +if($progArgs) { + if($progArgs eq '-v' || $progArgs eq '--version') { + print "SysInfo v$sysinfoVer $sysinfoDate\n"; + print "Written by David Rudie and Travis Morgan \n"; + exit -1; + } +} + +if($linux) { + @cpuinfo = &openfile("/proc/cpuinfo"); + @meminfo = &openfile("/proc/meminfo"); + @netdev = &openfile("/proc/net/dev"); + @uptime = &openfile("/proc/uptime"); + + $df = 'df -lkP'; + $vgs = 'vgs --trustcache --unbuffered --noheadings -o vg_size,vg_free --nosuffix --units k 2>&1 | grep -v WARNING'; + + if($showDistro) { + @distros = ( + "Arch", "/etc/arch-release", + "Gentoo", "/etc/gentoo-release", + "Fedora Core", "/etc/fedora-release", + "SUSE", "/etc/SuSE-release", + "Slackware", "/etc/slackware-version", + "Cobalt", "/etc/cobalt-release", + "Debian", "/etc/debian_version", + "Mandrake", "/etc/mandrake-release", + "Mandrake", "/etc/mandrakelinux-release", + "Yellow Dog", "/etc/yellowdog-release", + "OpenFiler", "/etc/distro-release", + "Red Hat", "/etc/redhat-release" + ); + $distro = ""; + $distrov = ""; + do { + if (-e $distros[1]) { + $distro = $distros[0]; + $distrov = `cat $distros[1] | head -n 1`; + chomp($distrov); + $distrov =~ s/[^0-9]*([0-9.]+)[^0-9.]{0,1}.*/$1/; + } + shift @distros; shift @distros; + } until (scalar @distros == 0) || (length $distro > 0); + if ($distro eq "Debian") { + if (-e "/etc/lsb-release") { + $realdistro = `cat /etc/lsb-release | grep DISTRIB_DESCRIPTION`; + if ($realdistro ne "") { + chomp $realdistro; + $realdistro =~ s/DISTRIB_DESCRIPTION="//; + $realdistro =~ s/"$//; + $distro = $realdistro; + $distrov = $realdistro; + $distro =~ s/ [0-9.]+.*$//; + $distrov =~ s/$distro //; + } + } + } + if ($distro eq "Red Hat") { + $realdistro = `cat /etc/redhat-release`; + if ($realdistro =~ "^CentOS") { + $distro = "CentOS"; + } + } + if ($distro eq "SUSE") { + $realdistro = `cat /etc/SuSE-release`; + if ($realdistro =~ "^openSUSE") { + $distro = "openSUSE"; + } + elsif ($realdistro =~ "^SUSE Linux Enterprise Server") { + $distro = "SLES"; + } + elsif ($realdistro =~ "^SUSE Linux Enterprise Desktop") { + $distro = "SLED"; + } + } + } +} elsif($irix || $irix64) { + @hinv = `hinv`; +} else { + @dmesgboot = &openfile("/var/run/dmesg.boot"); + if($sun) { + @netstat = `netstat -in`; + } else { + @netstat = `netstat -ibn`; + } + if($darwin) { + $sysctl = '/usr/sbin/sysctl'; + } else { + $sysctl = '/sbin/sysctl'; + } + if($arm) { + $df = 'df -k'; + } elsif($f_old) { + $df = 'df -k'; + } else { + $df = 'df -lk'; + } + +} + +if($showCPU) { + if($freebsd || $dragonfly) { + if($alpha) { + @cpu = grep(/^COMPAQ/, @dmesgboot); + $cpu = join("\n", $cpu[0]); + } else { + @cpu = grep(/CPU: /, @dmesgboot); + $cpu = join("\n", @cpu); + $cpu =~ s/Warning:.*disabled//; + @cpu = split(/CPU: /, $cpu); + $cpu = $cpu[1]; + $cpu =~ s/\s\d\.\d\dGHz//g; + $cpu =~ s/\s*[^\s]*-class CPU//gi; + $cpu =~ s/(\S*)-MHz/$1 MHz/gi; + $cpu =~ s/@\s+//; + chomp($cpu); + $smp = `$sysctl -n hw.ncpu`; + chomp($smp); + if ( $smp eq 1 ) { + $smp = ""; + } + } + } + if($netbsd) { + if($alpha) { + @cpu = grep(/^COMPAQ/, @dmesgboot); + $cpu = join("\n", $cpu[0]); + @cpu = split(/, /, $cpu); + $cpu = $cpu[0]; + } else { + @cpu = grep(/^v?cpu0.*MHz/, @dmesgboot); + @cpu = grep(!/apic/, @cpu); + @cpu = split(/: /,$cpu[0]); + $cpu = $cpu[1]; + $cpu =~ s/, id.*//; + $mhz = $cpu; + $mhz =~ s/.* ([.0-9]+) *MHz.*$/$1/; + $cpu =~ s/,.*//; + $cpu = "$cpu ($mhz MHz)"; + $smp = `$sysctl -n hw.ncpu`; + chomp($smp); + if ( $smp eq 1 ) { + $smp = ""; + } + } + } + if($openbsd) { + @cpu = grep(/cpu0: /, @dmesgboot); + @cpu = grep(/[M|G]Hz/, @cpu); + $cpu = join("\n", @cpu); + @cpu = split(/: /, $cpu); + $cpu = $cpu[1]; + $cpu =~ s/, / /; + $cpu =~ s/([0-9.]* [MG]Hz)$/($1)/; + $smp = `$sysctl -n hw.ncpu`; + chomp($smp); + if ( $smp eq 1 ) { + $smp = ""; + } + } + if($irix || $irix64) { + @cpu = grep(/CPU:/, @hinv); + $cpu = join("\n", @cpu); + $cpu =~ s/^.*(R[0-9]*) .*$/$1/; + @mhz = grep(/MHZ/, @hinv); + $mhz = join("\n", @mhz); + $mhz = $mhz[0]; + $mhz =~ s/^.* ([0-9]*) MHZ.*$/$1/; + @smp = grep(/ IP/, @hinv); + $smp = $smp[0]; + $smp =~ s/^([0-9]*) .*$/$1/; + chomp($smp); + chomp($cpu); + chomp($mhz); + $cpu = "MIPS $cpu ($mhz MHz)"; + } + if($linux) { + if($alpha) { + $cpu = &cpuinfo("cpu\\s+: "); + $model = &cpuinfo("cpu model\\s+: "); + $model = "$model (" . &cpuinfo("system type") . ")"; + $mhz = &cpuinfo("cycle frequency \\[Hz\\]\\s+: "); + $mhz = ($mhz / 1000000); + $mhz = sprintf("%.2f", $mhz); + $cpu = "$cpu $model ($mhz MHz)"; + $smp = &cpuinfo("cpus detected\\s+: "); + } + if($arm) { + $cpu = &cpuinfo("Processor\\s+: "); + } + if($i686 || $i586 || $x86_64) { + $cpu = &cpuinfo("model name\\s+: "); + $cpu =~ s/(.+) CPU family\t+\d+MHz/$1/g; + #$cpu =~ s/(.+) CPU .+GHz/$1/g; + $mhz = &cpuinfo("cpu MHz\\s+: "); + $mhz =~ s/^\s*//g; + $cpu = "$cpu ($mhz MHz)"; + @smp = grep(/processor\s+: /, @cpuinfo); + $smp = scalar @smp; + } + if($ia64) { + $cpu = &cpuinfo("vendor\\s+: "); + $model = &cpuinfo("family\\s+: "); + $mhz = &cpuinfo("cpu MHz\\s+: "); + $mhz = sprintf("%.2f", $mhz); + $cpu = "$cpu $model ($mhz MHz)"; + @smp = grep(/processor\s+: /, @cpuinfo); + $smp = scalar @smp; + } + if($mips) { + $cpu = &cpuinfo("cpu\\s+: "); + $model = &cpuinfo("cpu model\\s+: "); + $cpu = "$cpu $model"; + } + if($parisc || $parisc64) { + $cpu = &cpuinfo("cpu\\s+: "); + $model = &cpuinfo("model name\\s+: "); + $mhz = &cpuinfo("cpu MHz\\s+: "); + $mhz = sprintf("%.2f", $mhz); + $cpu = "$model $cpu ($mhz MHz)"; + @smp = grep(/processor\s+: /, @cpuinfo); + $smp = scalar @smp; + } + if($ppc || $ppc64) { + $cpu = &cpuinfo("cpu\\s+: "); + $mhz = &cpuinfo("clock\\s+: "); + $mhz =~ s/^(\d+\.\d{3})\d*\s*MHz/$1 MHz/; + $cpu =~ s/, altivec supported//; + if($cpu =~ /^(PPC)*9.+/) { + $model = "IBM PowerPC G5"; + } elsif($cpu =~ /^74.+/) { + $model = "Motorola PowerPC G4"; + } else { + $model = "IBM PowerPC G3"; + } + $cpu = "$model $cpu ($mhz)"; + $smp = `/bin/grep -c -e '^processor\\s*:\\s*[0-9]\\+' /proc/cpuinfo`; chomp($smp); + } + if($s390 || $s390x) { + $cpu = &cpuinfo("vendor_id\\s+: "); + $smp = &cpuinfo("processors\\s+: "); + } + if($sh) { + $cpu = &cpuinfo("cpu family\\s+: "); + $model = &cpuinfo("cpu type\\s+: "); + $mhz = &cpuinfo("cpu_clk\\s+: "); + $cpu = "$cpu $model ($mhz MHz)"; + } + + if($sparc || $sparc64) { + $cpu = &cpuinfo("cpu\\s+: "); + $model = &cpuinfo("type\\s+: "); + $cpu = "$model $cpu"; + $mhz = &cpuinfo("Cpu0ClkTck\\s+: "); + $mhz = (hex($mhz) / 1000000); + $cpu = "$cpu ($mhz MHz)"; + $smp = &cpuinfo("ncpus active\\s+: "); + } + } elsif($sun) { + my $osp = `uname -p`; chomp($osp); + if($osv =~ /^5\.11/ || ($osv =~ /^5\.10/ && $osp =~ "i386")) { + $cpu = `/usr/sbin/psrinfo -vp | tail -1`; chomp($cpu); + $mhz = `/usr/sbin/psrinfo -vp | grep MHz | awk '{ print "(" \$(NF-1) " " \$NF}' | tail -1`; chomp($mhz); + $cpu = "$cpu $mhz"; + $smp = `/usr/sbin/psrinfo -p`; chomp($smp); + $cpu =~ s/^\s*//; + } + if($osp =~ "sparc") { + $cpu = `/usr/platform/${osm}/sbin/prtdiag | head -1`; chomp($cpu); + $cpu =~ s/.*${osm} //; + $smp = `/usr/sbin/psrinfo | wc -l`; + } + } elsif($darwin) { + $cpu = `hostinfo | grep 'Processor type' | cut -f2 -d':'`; chomp($cpu); + $cpu =~ s/^\s*(.+)\s*$/$1/g; + if($cpu =~ /^ppc7.+/) { + $cpu = "Motorola PowerPC G4"; + } + if($cpu =~ /^ppc970/) { + $cpu = "Motorola PowerPC G5"; + } + if ($cpu =~ /^i486/) { + $cpu = `sysctl -n machdep.cpu.brand_string`; chomp($cpu); + } + $mhz = `$sysctl -n hw.cpufrequency`; chomp($mhz); + $mhz = sprintf("%.2f", $mhz / 1000000); + $cpu = "$cpu ($mhz MHz)"; + $smp = `hostinfo | grep "physically available" | cut -f1 -d' '`; chomp($smp); + } + if($smp && $smp gt 1) { + $cpu = "$smp x $cpu"; + } + $cpu =~ s/\s*@\s*\d*\.\d*\s*GHz//; + $cpu =~ s/^\s+//; + $cpu =~ s/\(R\)//gi; + $cpu =~ s/\(tm\)//gi; + $cpu =~ s/\([^(]*GenuineIntel[^)]*\)//; + $cpu =~ s/\s*processor//gi; + $cpu =~ s/\s*CPU//gi; + $cpu =~ s/ +/ /g; +} + +sub batteryacpi { + my $data = ""; + my ($bfull, $bcur, @dirs, $dir); + + if (opendir(DIR, '/proc/acpi/battery/')) { + @dirs = grep { !/^\./ } readdir (DIR); + closedir(DIR); + foreach $dir (@dirs) { + $bfull = ""; + $bcur = ""; + if(open(FD, '/proc/acpi/battery/'.$dir.'/info')) { + while () { + if (/^last full capacity:\ +([0-9]+)/) { + $bfull = $1; + } + } + close(FD); + } + if(open(FD, '/proc/acpi/battery/'.$dir.'/state')) { + while () { + if (/^remaining capacity:\ +([0-9]+)/) { + $bcur = $1; + } + } + close(FD); + } + if ($bfull ne "") { + if ($data ne "") { + $data = $data." "; + } + $data = $data.sprintf("%.0f",($bcur/$bfull*100)); + $data = $data."%"; + } + } + } + return $data; +} + +sub battery { + $data = ""; + + if ( -f '/proc/apm') { + if(open(FD, '/proc/apm')) { + while($stream = ) { + $data .= $stream; + @data = split(/\n/, $data); + } + close(FD); + } + $data = $data[0]; + $data =~ s/.+\s(\d+%).+/$1/; + } elsif ( -d '/proc/acpi/battery') { + $data=&batteryacpi; + } + return $data; +} + +sub cpuinfo { + my $string = shift; + @arr = grep(/$string/, @cpuinfo); + $var = join("\n", $arr[0]); + @arr = split(/: /, $var); + $var = $arr[1]; + return $var; +} + +sub diskusage { + if($irix || $irix64) { + $vara = `$df | grep dev | awk '{ sum+=\$3 / 1024 / 1024}; END { print sum }'`; chomp($vara); + $vard = `$df | grep dev | awk '{ sum+=\$4 / 1024 / 1024}; END { print sum }'`; chomp($vard); + } elsif($sun) { + $vara = `$df | grep -v swap | grep -v libc | awk '{ sum+=\$2 / 1024 / 1024}; END { print sum }'`; chomp($vara); + $vard = `$df | grep -v swap | grep -v libc | awk '{ sum+=\$3 / 1024 / 1024}; END { print sum }'`; chomp($vard); + } else { + $vara = `$df | awk '/dev|rpool/ { sum+=\$2 / 1024 / 1024 } END { print sum }'`; chomp($vara); + $vard = `$df | awk '/dev|rpool/ { sum+=\$3 / 1024 / 1024 } END { print sum }'`; chomp($vard); + } + if ($vara eq "" or $vara == 0 ) { + return "0GB/0GB (0%)"; + } else { + $varp = sprintf("%.2f", $vard / $vara * 100); + $vara = sprintf("%.2f", $vara); + $vard = sprintf("%.2f", $vard); + return $vard."GB/".$vara."GB ($varp%)"; + } +} + +sub lvmusage { + $vara = 0; + + if ($linux) { + $vara = `$vgs | awk '{ sum+=\$1 / 1024 / 1024}; END { print sum }'`; chomp($vara); + $vard = `$vgs | awk '{ used =\$1-\$2; sum+=used / 1024 / 1024}; END { print sum }'`; chomp($vard); + } + + if ($vara eq "" or $vara == 0 ) { + return "0GB/0GB (0%)"; + } else { + $varp = sprintf("%.2f", $vard / $vara * 100); + $vara = sprintf("%.2f", $vara); + $vard = sprintf("%.2f", $vard); + return $vard."GB/".$vara."GB ($varp%)"; + } +} + + +sub loadaverage { + $var = `uptime`; chomp($var); + @arr = split(/averages*: /, $var, 2); + if($darwin) { + @arr = split(/ +/, $arr[1], 2); + } else { + @arr = split(/, /, $arr[1], 2); + } + $var = $arr[0]; + return $var; +} + +sub meminfo { + my $string = shift; + my @matches = grep(/^$string/, @meminfo); + return 0 unless @matches; + my $line = $matches[0]; + chomp($line); + my @fields = split(/\s+/, $line); + return $fields[1] // 0; +} + +sub memoryusage { + if($linux) { + if($linux_modern) { + $vara = &meminfo("MemTotal:") * 1024; + $varb = &meminfo("Buffers:") * 1024; + $varc = &meminfo("Cached:") * 1024; + $vard = &meminfo("MemFree:") * 1024; + } else { + @arr = grep(/Mem:/, @meminfo); + $var = join("\n", @arr); + @arr = split(/\s+/, $var); + $vara = $arr[1]; + $varb = $arr[5]; + $varc = $arr[6]; + $vard = $arr[3]; + } + if(!$vara) { + return "0MB/0MB (0%)"; + } + $vard = ($vara - $vard) - $varb - $varc; + } elsif($darwin) { + $vard = `vm_stat | grep 'Pages active' | awk '{print \$3}'` * 4096; + $vara = `$sysctl -n hw.memsize`; + } elsif($sun) { + $vara = `/usr/sbin/prtconf | grep "Mem" | awk '{print \$3}'` * 1024 * 1024; + $vard = `/bin/vmstat 1 2 | tail -1 | awk '{print \$5 * 1024}'`; + $vard = $vara - $vard + } elsif($irix || $irix64) { + $var = `top -d1 | grep Memory`; chomp($var); + $vara = $var; + $vard = $var; + $vara =~ s/^.* ([0-9]*)M max.*$/$1/; + $vara *= 1024 * 1024; + $vard =~ s/^.* ([0-9]*)M free,.*$/$1/; + $vard = $vara - ($vard * 1024 * 1024); + } elsif($netbsd) { + $vard = `vmstat -t | tail -n 1 | awk '{print \$8}'`; + $vard = $vard * 4096; + $vara = `sysctl -n hw.physmem`; + } else { + $vard = `vmstat -s | grep 'pages active' | awk '{print \$1}'` * `vmstat -s | grep 'per page' | awk '{print \$1}'`; + $vara = `$sysctl -n hw.physmem`; + } + $varp = sprintf("%.2f", $vard / $vara * 100); + $vara = sprintf("%.2f", $vara / 1024 / 1024); + $vard = sprintf("%.2f", $vard / 1024 / 1024); + return $vard."MB/".$vara."MB ($varp%)"; +} + +sub networkinfobsd { + $varc = shift; + $vard = shift; + @arr = grep(/$varc/, @netstat); + @arr = grep(/Link/, @arr); + $var = join("\n", @arr); + @arr = split(/\s+/, $var); + $var = $arr[$vard] / 1024 / 1024; + $var = sprintf("%.2f", $var); + return $var; +} + +sub networkinfolinux { + $varc = shift; + $vard = shift; + @arr = grep(/$varc/, @netdev); + $var = join("\n", @arr); + @arr = split(/:\s*/, $var); + @arr = split(/\s+/, $arr[1]); + $var = $arr[$vard] / 1024 / 1024; + $var = sprintf("%.2f", $var); + return $var; +} + +sub networktraffic { + $vara = 0; + $varz = ""; + $varb = scalar @nic; + if($nic[$vara] ne "") { + while($vara lt $varb) { + if($nic[$vara] ne "") { + if ($varz eq "") { + $varz = $col2." - ".$col1; + } + if($darwin || $freebsd || $dragonfly) { + $varx = &networkinfobsd($nic[$vara], 6); + $vary = &networkinfobsd($nic[$vara], 9); + } + if($netbsd || $openbsd) { + $varx = &networkinfobsd($nic[$vara], 4); + $vary = &networkinfobsd($nic[$vara], 5); + } + if($sun) { + $varx = &networkinfobsd($nic[$vara], 4); + $vary = &networkinfobsd($nic[$vara], 6); + } + if($linux) { + $varx = &networkinfolinux($nic[$vara], 0); + $vary = &networkinfolinux($nic[$vara], 8); + } + $varz .= $nicname[$vara]." Traffic (".$nic[$vara].")".$col2.": ".$col1.$varx."MB In/".$vary."MB Out - "; + } + $vara++; + } + return $varz; + } +} + +sub openfile { + my $string = shift; + $data = ""; + if(open(FD, $string)) { + while($stream = ) { + $data .= $stream; + @data = split(/\n/, $data); + } + close(FD); + } + return @data; +} + +sub processes { + if($irix || $irix64 || $sun) { + $var = `ps -e | grep -v PID | wc -l`; + } else { + $var = `ps ax | grep -v PID | wc -l`; + } + chomp($var); + $var = $var; + $var =~ s/^\s+//; + $var =~ s/\s+$//; + return $var; +} + +sub uptime { + if($irix || $irix64 || $d9 || $sun) { + $var = `uptime`; chomp($var); + if($var =~ /day/) { + $var =~ s/^.* ([0-9]*) day.* ([0-9]*):([0-9]*), .*$/$1d $2h $3m/; + } elsif($var =~ /min/) { + $var =~ s/^.* ([0-9]*) min.*$/0d 0h $1m/; + } else { + $var =~ s/^.* ([0-9]*):([0-9]*),.*$/0d $1h $2m/; + } + return $var; + } else { + if($freebsd || $dragonfly) { + $var = `$sysctl -n kern.boottime | awk '{print \$4}'`; + } + if($netbsd || $openbsd || $darwin) { + $var = `$sysctl -n kern.boottime`; + } + if($linux) { + @arr = split(/ /, $uptime[0]); + $varx = $arr[0]; + } else { + chomp($var); + $var =~ s/,//g; + $vary = `date +%s`; chomp($vary); + $varx = $vary - $var; + } + $varx = sprintf("%2d", $varx); + $vard = floor($varx / 86400); + $varx %= 86400; + $varh = floor($varx / 3600); + $varx %= 3600; + $varm = floor($varx / 60); + if($vard eq 0) { $vard = ''; } elsif($vard >= 1) { $vard = $vard.'d '; } + if($varh eq 0) { $varh = ''; } elsif($varh >= 1) { $varh = $varh.'h '; } + if($varm eq 0) { $varm = ''; } elsif($varm >= 1) { $varm = $varm.'m'; } + return $vard.$varh.$varm; + } +} + +sub users { + $var = `uptime`; chomp($var); + $var =~ s/^.* +(.*) user.*$/$1/; + return $var; +} + +my $output; +if($showHostname) { $output = $col1."Hostname".$col2.": ".$col1.$osn.$col2." - "; } +if($showOS) { $output .= $col1."OS".$col2.": ".$col1.$uname.$col2." - "; } +if($linux && $showDistro && length $distro > 0 ) { + $output .= $col1."Distro".$col2.": ".$col1.$distro; + if (length $distrov > 0) { + $output .= " ".$distrov; + } + $output .= $col2." - "; +} +if($showCPU) { $output .= $col1."CPU".$col2.": ".$col1.$cpu.$col2." - "; } +if($showProcesses) { $output .= $col1."Processes".$col2.": ".$col1.&processes.$col2." - "; } +if($showUptime) { $output .= $col1."Uptime".$col2.": ".$col1.&uptime.$col2." - "; } +if($showUsers) { $output .= $col1."Users".$col2.": ".$col1.&users.$col2." - "; } +if($showLoadAverage) { $output .= $col1."Load Average".$col2.": ".$col1.&loadaverage.$col2." - "; } +if($showBattery) { $output .= $col1."Battery".$col2.": ".$col1.&battery.$col2." - "; } +if($showMemoryUsage) { $output .= $col1."Memory Usage".$col2.": ".$col1.&memoryusage.$col2." - "; } +if($showDiskUsage) { $output .= $col1."FS Usage".$col2.": ".$col1.&diskusage.$col2." - "; } +if($showLVMUsage) { $output .= $col1."LVM Usage".$col2.": ".$col1.&lvmusage; } +if($showNetworkTraffic) { $output .= &networktraffic; } +$output =~ s/ - $//g; +print "$output\n";