API tools faq
paste
Advertisement
WacKEDmaN

Untitled

WacKEDmaN
May 3rd, 2019
8,835
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 6 21.20 KB | None | 0 0
raw download clone embed print report
  1. #!/usr/bin/perl -w
  2. #
  3. # Copyright (c) 2002-2005 David Rudie
  4. # All rights reserved.
  5. #
  6. # Redistribution and use in source and binary forms, with or without
  7. # modification, are permitted provided that the following conditions
  8. # are met:
  9. # 1. Redistributions of source code must retain the above copyright
  10. #    notice, this list of conditions and the following disclaimer.
  11. # 2. Redistributions in binary form must reproduce the above copyright
  12. #    notice, this list of conditions and the following disclaimer in the
  13. #    documentation and/or other materials provided with the distribution.
  14. #
  15. # THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
  16. # ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  17. # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  18. # ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
  19. # FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  20. # DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  21. # OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  22. # HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  23. # LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  24. # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  25. # SUCH DAMAGE.
  26. #
  27. # Several additions and fixes to this script were contributed by Travis
  28. # Morgan and therefore are Copyright (c) 2003-2006 Travis Morgan
  29. #
  30. # If you notice any bugs including spacing issues, wrong detection of hardware,
  31. # obvious features missing, etc, we both want to hear about them.  If you make
  32. # this script work on other operating systems and/or architectures please send
  33. # either of us your patches.  My e-mail address is d.rudie@gmail.com and
  34. # Travis Morgan's e-mail address is imbezol@criticaldamage.com
  35. #
  36. # The latest version can be obtained from either http://www.inexistent.com/ or
  37. # http://imbezol.org/sysinfo/
  38. #
  39. # You can also reach Travis in #crd on efnet.
  40.  
  41. use POSIX qw(floor);
  42. use strict;
  43.  
  44.  
  45. # Set up the arrays and variables first.
  46. use vars qw(
  47.     @arr
  48.     @arr1
  49.     @arr2
  50.     $cpu
  51.     @cpu
  52.     @cpuinfo
  53.     $data
  54.     $distro
  55.     $distrov
  56.     @distros
  57.     @data
  58.     $df
  59.     @dmesgboot
  60.     @hinv
  61.     @meminfo
  62.     $mhz
  63.     @mhz
  64.     $model
  65.     @netdev
  66.     @netstat
  67.     @nic
  68.     @nicname
  69.     $realdistro
  70.     $smp
  71.     @smp
  72.     $stream
  73.     $sysctl
  74.     @uptime
  75.     $var
  76.     $vara
  77.     $varb
  78.     $varc
  79.     $vard
  80.     $varh
  81.     $varm
  82.     $varp
  83.     $varx
  84.     $vary
  85.     $varz
  86.     $col1
  87.     $col2
  88. );
  89.  
  90.  
  91. # Specify your NIC interface name (eth0, rl0, fxp0, etc) and a name for it.
  92. #
  93. # Example: @nic      = ('eth0', 'eth1');
  94. #                   @nicname = ('External', 'Internal');
  95. #
  96. # NOTE: If you set one then you HAVE to set the other.
  97. @nic        = ('');
  98. @nicname    = ('');
  99.  
  100. $col1 = '';
  101. $col2 = '';
  102.  
  103. # These are the default settings for which information gets displayed.
  104. # 0 = Off; 1 = On
  105. my $useShortHostname    = 1;
  106.  
  107. my $showHostname        = 1;
  108. my $showOS              = 1;
  109. my $showCPU             = 1;
  110. my $showProcesses       = 1;
  111. my $showUptime          = 1;
  112. my $showUsers           = 1;
  113. my $showLoadAverage     = 1;
  114. my $showBattery         = 0;    # Requires APM and /proc/apm or /proc/acpi/battery/
  115. my $showMemoryUsage     = 1;
  116. my $showDiskUsage       = 1;
  117. my $showNetworkTraffic  = 0;
  118. my $showDistro          = 1;
  119.  
  120. ###############################################
  121. ### Nothing below here should need changed. ###
  122. ###############################################
  123.  
  124. my $sysinfoVer  = '2.81.19';
  125. my $sysinfoDate = 'Dec 13, 2011, 08:56 MDT';
  126.  
  127. my $os      = `uname -s`; chomp($os);
  128. my $osn     = `uname -n`; chomp($osn);
  129. if($useShortHostname) {
  130.     $osn    =~ s/([^\.]*).*/$1/;
  131. }
  132. my $osv     = `uname -r`; chomp($osv);
  133. my $osm     = `uname -m`; chomp($osm);
  134. my $uname   = "$os $osv/$osm";
  135.  
  136. my $darwin      = 1 if $os =~ /^Darwin$/;
  137. my $freebsd     = 1 if $os =~ /^FreeBSD$/;
  138. my $dragonfly   = 1 if $os =~ /^DragonFly$/;
  139. my $linux       = 1 if $os =~ /^Linux$/;
  140. my $netbsd      = 1 if $os =~ /^NetBSD$/;
  141. my $openbsd     = 1 if $os =~ /^OpenBSD$/;
  142. my $irix        = 1 if $os =~ /^IRIX$/;
  143. my $irix64      = 1 if $os =~ /^IRIX64$/;
  144. my $sun         = 1 if $os =~ /^SunOS$/;
  145.  
  146.  
  147. my $alpha       = 1 if $osm =~ /^alpha$/;
  148. my $arm         = 1 if $osm =~ /^arm$/;
  149. my $i586        = 1 if $osm =~ /^i586$/;
  150. my $i686        = 1 if $osm =~ /^i686$/;
  151. my $ia64        = 1 if $osm =~ /^ia64$/;
  152. my $mips        = 1 if $osm =~ /^mips$/;
  153. my $parisc      = 1 if $osm =~ /^parisc$/;
  154. my $parisc64    = 1 if $osm =~ /^parisc64$/;
  155. my $ppc         = 1 if $osm =~ /^ppc$/;
  156. my $ppc64       = 1 if $osm =~ /^ppc64$/;
  157. my $s390        = 1 if $osm =~ /^s390$/;
  158. my $s390x       = 1 if $osm=~ /^s390x$/;
  159. my $sh          = 1 if $osm=~ /^sh/;
  160. my $sparc       = 1 if $osm =~ /^sparc$/;
  161. my $sparc64     = 1 if $osm =~ /^sparc64$/;
  162. my $x86_64      = 1 if $osm =~ /^x86_64$/;
  163.  
  164.  
  165. my $d7      = 1 if $darwin && $osv =~ /^7\.\d+\.\d+/;
  166. my $d8      = 1 if $darwin && $osv =~ /^8\.\d+\.\d+/;
  167. my $d9      = 1 if $darwin && $osv =~ /^9\.\d+\.\d+/;
  168. my $l26     = 1 if $linux && $osv =~ /^2\.6/;
  169. my $l3      = 1 if $linux && $osv =~ /^2\.7/  || $osv =~ /^3\./;
  170. my $f_old   = 1 if $freebsd && $osv =~ /^4\.1-/ || $osv =~ /^4\.0-/ || $osv =~ /^3/ || $osv =~ /^2/;
  171.  
  172. my $progArgs = $ARGV[0];
  173. if($progArgs) {
  174.     if($progArgs eq '-v' || $progArgs eq '--version') {
  175.         print "SysInfo v$sysinfoVer   $sysinfoDate\n";
  176.         print "Written by David Rudie <d.rudie\@gmail.com> and Travis Morgan <imbezol\@criticaldamage.com>\n";
  177.         exit -1;
  178.     }
  179. }
  180.  
  181. if($linux) {
  182.     @cpuinfo        = &openfile("/proc/cpuinfo");
  183.     @meminfo        = &openfile("/proc/meminfo");
  184.     @netdev         = &openfile("/proc/net/dev");
  185.     @uptime         = &openfile("/proc/uptime");
  186.  
  187.     $df         = 'df -lkP';
  188.  
  189.     if($showDistro) {
  190.         @distros = (
  191.         "Gentoo",       "/etc/gentoo-release",
  192.         "Fedora Core",  "/etc/fedora-release",
  193.         "SuSE",         "/etc/SuSE-release",
  194.         "Slackware",    "/etc/slackware-version",
  195.         "Cobalt",       "/etc/cobalt-release",
  196.         "Debian",       "/etc/debian_version",
  197.         "Mandrake",     "/etc/mandrake-release",
  198.         "Mandrake",     "/etc/mandrakelinux-release",
  199.         "Yellow Dog",   "/etc/yellowdog-release",
  200.         "OpenFiler",    "/etc/distro-release",
  201.         "Red Hat",      "/etc/redhat-release"
  202.         );
  203.         $distro = "";
  204.         $distrov = "";
  205.         do {
  206.             if (-e $distros[1]) {
  207.                 $distro = $distros[0];
  208.                 $distrov = `cat $distros[1] | head -n 1`;
  209.                 chomp($distrov);
  210.                 $distrov =~ s/[^0-9]*([0-9.]+)[^0-9.]{0,1}.*/$1/;
  211.             }
  212.             shift @distros; shift @distros;
  213.         } until (scalar @distros == 0) || (length $distro > 0);
  214.         if ($distro eq "Debian") {
  215.             if (-e "/etc/lsb-release") {
  216.                 $realdistro = `cat /etc/lsb-release | grep DISTRIB_DESCRIPTION`;
  217.                 if ($realdistro ne "") {
  218.                     chomp $realdistro;
  219.                     $realdistro =~ s/DISTRIB_DESCRIPTION="//;
  220.                     $realdistro =~ s/"$//;
  221.                     $distro     = $realdistro;
  222.                     $distrov    = $realdistro;
  223.                     $distro     =~ s/ [0-9.]+.*$//;
  224.                     $distrov    =~ s/$distro //;
  225.                 }
  226.             }
  227.         }
  228.         if ($distro eq "Red Hat") {
  229.             $realdistro = `cat /etc/redhat-release`;
  230.             if ($realdistro =~ "^CentOS") {
  231.                 $distro = "CentOS";
  232.             }
  233.         }
  234.     }
  235. } elsif($irix || $irix64) {
  236.     @hinv           = `hinv`;
  237. } else {
  238.     @dmesgboot      = &openfile("/var/run/dmesg.boot");
  239.     if($sun) {
  240.         @netstat        = `netstat -in`;
  241.     } else {
  242.         @netstat        = `netstat -ibn`;
  243.     }
  244.     if($darwin) {
  245.         $sysctl     = '/usr/sbin/sysctl';
  246.     } else {
  247.         $sysctl     = '/sbin/sysctl';
  248.     }
  249.     if($arm) {
  250.         $df         = 'df -k';
  251.     } elsif($f_old) {
  252.         $df         = 'df -k';
  253.     } else {
  254.         $df         = 'df -lk';
  255.     }
  256.  
  257. }
  258.  
  259. if($showCPU) {
  260.     if($freebsd || $dragonfly) {
  261.         if($alpha) {
  262.             @cpu        = grep(/^COMPAQ/, @dmesgboot);
  263.             $cpu        = join("\n", $cpu[0]);
  264.         } else {
  265.             @cpu        = grep(/CPU: /, @dmesgboot);
  266.             $cpu        = join("\n", @cpu);
  267.             $cpu        =~ s/Warning:.*disabled//;
  268.             @cpu        = split(/CPU: /, $cpu);
  269.             $cpu        = $cpu[1];
  270.             $cpu        =~ s/\s\d\.\d\dGHz//g;
  271.             $cpu        =~ s/\s*[^\s]*-class CPU//gi;
  272.             $cpu        =~ s/(\S*)-MHz/$1 MHz/gi;
  273.             $cpu        =~ s/@\s+//;
  274.             chomp($cpu);
  275.             $smp        = `$sysctl -n hw.ncpu`;
  276.             chomp($smp);
  277.         if ( $smp eq 1 ) {
  278.                 $smp = "";
  279.             }
  280.         }
  281.     }
  282.     if($netbsd) {
  283.         if($alpha) {
  284.             @cpu        = grep(/^COMPAQ/, @dmesgboot);
  285.             $cpu        = join("\n", $cpu[0]);
  286.             @cpu        = split(/, /, $cpu);
  287.             $cpu        = $cpu[0];
  288.         } else {
  289.             @cpu        = grep(/^v?cpu0.*MHz/, @dmesgboot);
  290.             @cpu        = grep(!/apic/, @cpu);
  291.             @cpu        = split(/: /,$cpu[0]);
  292.             $cpu        = $cpu[1];
  293.             $cpu        =~ s/, id.*//;
  294.             $mhz        = $cpu;
  295.             $mhz        =~ s/.* ([.0-9]+) *MHz.*$/$1/;
  296.             $cpu        =~ s/,.*//;
  297.             $cpu        = "$cpu ($mhz MHz)";
  298.             $smp        = `$sysctl -n hw.ncpu`;
  299.             chomp($smp);
  300.             if ( $smp eq 1 ) {
  301.                 $smp = "";
  302.             }
  303.         }
  304.     }
  305.     if($openbsd) {
  306.         @cpu        = grep(/cpu0: /, @dmesgboot);
  307.         @cpu        = grep(/[M|G]Hz/, @cpu);
  308.         $cpu        = join("\n", @cpu);
  309.         @cpu        = split(/: /, $cpu);
  310.         $cpu        = $cpu[1];
  311.         $cpu        =~ s/, / /;
  312.         $cpu        =~ s/([0-9.]* [MG]Hz)$/($1)/;
  313.         $smp        = `$sysctl -n hw.ncpu`;
  314.         chomp($smp);
  315.         if ( $smp eq 1 ) {
  316.             $smp = "";
  317.         }
  318.     }
  319.     if($irix || $irix64) {
  320.         @cpu        = grep(/CPU:/, @hinv);
  321.         $cpu        = join("\n", @cpu);
  322.         $cpu        =~ s/^.*(R[0-9]*) .*$/$1/;
  323.         @mhz        = grep(/MHZ/, @hinv);
  324.         $mhz        = join("\n", @mhz);
  325.         $mhz        = $mhz[0];
  326.         $mhz        =~ s/^.* ([0-9]*) MHZ.*$/$1/;
  327.         @smp        = grep(/ IP/, @hinv);
  328.         $smp        = $smp[0];
  329.         $smp        =~ s/^([0-9]*) .*$/$1/;
  330.         chomp($smp);
  331.         chomp($cpu);
  332.         chomp($mhz);
  333.         $cpu        = "MIPS $cpu ($mhz MHz)";
  334.     }
  335.     if($linux) {
  336.         if($alpha) {
  337.             $cpu        = &cpuinfo("cpu\\s+: ");
  338.             $model      = &cpuinfo("cpu model\\s+: ");
  339.             $model      = "$model (" . &cpuinfo("system type") . ")";
  340.             $mhz        = &cpuinfo("cycle frequency \\[Hz\\]\\s+: ");
  341.             $mhz        = ($mhz / 1000000);
  342.             $mhz        = sprintf("%.2f", $mhz);
  343.             $cpu        = "$cpu $model ($mhz MHz)";
  344.             $smp        = &cpuinfo("cpus detected\\s+: ");
  345.         }
  346.         if($arm) {
  347.             $cpu        = &cpuinfo("Processor\\s+: ");
  348.         }
  349.         if($i686 || $i586 || $x86_64) {
  350.             $cpu        = &cpuinfo("model name\\s+: ");
  351.             $cpu        =~ s/(.+) CPU family\t+\d+MHz/$1/g;
  352.             $cpu        =~ s/(.+) CPU .+GHz/$1/g;
  353.             $mhz        = &cpuinfo("cpu MHz\\s+: ");
  354.             $mhz        =~ s/^\s*//g;
  355.             $cpu        = "$cpu ($mhz MHz)";
  356.             @smp        = grep(/processor\s+: /, @cpuinfo);
  357.             $smp        = scalar @smp;
  358.         }
  359.         if($ia64) {
  360.             $cpu        = &cpuinfo("vendor\\s+: ");
  361.             $model      = &cpuinfo("family\\s+: ");
  362.             $mhz        = &cpuinfo("cpu MHz\\s+: ");
  363.             $mhz        = sprintf("%.2f", $mhz);
  364.             $cpu        = "$cpu $model ($mhz MHz)";
  365.             @smp        = grep(/processor\s+: /, @cpuinfo);
  366.             $smp        = scalar @smp;
  367.         }
  368.         if($mips) {
  369.             $cpu        = &cpuinfo("cpu\\s+: ");
  370.             $model      = &cpuinfo("cpu model\\s+: ");
  371.             $cpu        = "$cpu $model";
  372.         }
  373.         if($parisc || $parisc64) {
  374.             $cpu        = &cpuinfo("cpu\\s+: ");
  375.             $model      = &cpuinfo("model name\\s+: ");
  376.             $mhz        = &cpuinfo("cpu MHz\\s+: ");
  377.             $mhz        = sprintf("%.2f", $mhz);
  378.             $cpu        = "$model $cpu ($mhz MHz)";
  379.             @smp        = grep(/processor\s+: /, @cpuinfo);
  380.             $smp        = scalar @smp;
  381.         }
  382.         if($ppc || $ppc64) {
  383.             $cpu        = &cpuinfo("cpu\\s+: ");
  384.             $mhz        = &cpuinfo("clock\\s+: ");
  385.             $mhz        =~ s/^(\d+\.\d{3})\d*\s*MHz/$1 MHz/;
  386.             $cpu        =~ s/, altivec supported//;
  387.             if($cpu =~ /^(PPC)*9.+/) {
  388.                 $model      = "IBM PowerPC G5";
  389.             } elsif($cpu =~ /^74.+/) {
  390.                 $model      = "Motorola PowerPC G4";
  391.             } else {
  392.                 $model      = "IBM PowerPC G3";
  393.             }
  394.             $cpu        = "$model $cpu ($mhz)";
  395.             $smp        = `/bin/grep -c -e '^processor\\s*:\\s*[0-9]\\+' /proc/cpuinfo`; chomp($smp);
  396.         }
  397.         if($s390 || $s390x) {
  398.             $cpu        = &cpuinfo("vendor_id\\s+: ");
  399.             $smp        = &cpuinfo("processors\\s+: ");
  400.         }
  401.         if($sh) {
  402.             $cpu            = &cpuinfo("cpu family\\s+: ");
  403.             $model          = &cpuinfo("cpu type\\s+: ");
  404.             $mhz            = &cpuinfo("cpu_clk\\s+: ");
  405.             $cpu            = "$cpu $model ($mhz MHz)";
  406.         }
  407.  
  408.         if($sparc || $sparc64) {
  409.             $cpu            = &cpuinfo("cpu\\s+: ");
  410.             $model          = &cpuinfo("type\\s+: ");
  411.             $cpu            = "$model $cpu";
  412.             $mhz            = &cpuinfo("Cpu0ClkTck\\s+: ");
  413.             $mhz            = (hex($mhz) / 1000000);
  414.             $cpu            = "$cpu ($mhz MHz)";
  415.             $smp            = &cpuinfo("ncpus active\\s+: ");
  416.         }
  417.       } elsif($sun) {
  418.             my $osp     = `uname -p`; chomp($osp);
  419.             if($osv =~ /^5\.11/ || ($osv =~ /^5\.10/ && $osp =~ "i386")) {
  420.                 $cpu    = `/usr/sbin/psrinfo -vp | tail -1`; chomp($cpu);
  421.                 $mhz    = `/usr/sbin/psrinfo -vp | grep MHz | awk '{ print "(" \$(NF-1) " " \$NF}' | tail -1`; chomp($mhz);
  422.                 $cpu    = "$cpu $mhz";
  423.                 $smp    = `/usr/sbin/psrinfo -p`; chomp($smp);
  424.                 $cpu    =~  s/^\s*//;
  425.             }
  426.             if($osp =~ "sparc") {
  427.                 $cpu    = `/usr/platform/${osm}/sbin/prtdiag | head -1`; chomp($cpu);
  428.                 $cpu    =~ s/.*${osm} //;
  429.                 $smp    = `/usr/sbin/psrinfo | wc -l`;
  430.             }
  431.     } elsif($darwin) {
  432.         $cpu        = `hostinfo | grep 'Processor type' | cut -f2 -d':'`; chomp($cpu);
  433.         $cpu        =~ s/^\s*(.+)\s*$/$1/g;
  434.         if($cpu =~ /^ppc7.+/) {
  435.             $cpu    = "Motorola PowerPC G4";
  436.         }
  437.         if($cpu =~ /^ppc970/) {
  438.             $cpu    = "Motorola PowerPC G5";
  439.         }
  440.         if ($cpu =~ /^i486/) {
  441.             $cpu    = `sysctl -n machdep.cpu.brand_string`; chomp($cpu);
  442.         }
  443.         $mhz        = `$sysctl -n hw.cpufrequency`; chomp($mhz);
  444.         $mhz        = sprintf("%.2f", $mhz / 1000000);
  445.         $cpu        = "$cpu ($mhz MHz)";
  446.         $smp        = `hostinfo | grep "physically available" | cut -f1 -d' '`; chomp($smp);
  447.     }
  448.     if($smp && $smp gt 1) {
  449.         $cpu = "$smp x $cpu";
  450.     }
  451.     $cpu    =~ s/\s*@\s*\d*\.\d*\s*GHz//;
  452.     $cpu    =~ s/^\s+//;
  453.     $cpu    =~ s/\(R\)//gi;
  454.     $cpu    =~ s/\(tm\)//gi;
  455.     $cpu    =~ s/\([^(]*GenuineIntel[^)]*\)//;
  456.     $cpu    =~ s/\s*processor//gi;
  457.     $cpu    =~ s/\s*CPU//gi;
  458.     $cpu    =~ s/ +/ /g;
  459. }
  460.  
  461. sub batteryacpi {
  462.     my $data = "";
  463.     my ($bfull, $bcur, @dirs, $dir);
  464.  
  465.     if (opendir(DIR, '/proc/acpi/battery/')) {
  466.         @dirs = grep { !/^\./ } readdir (DIR);
  467.         closedir(DIR);
  468.         foreach $dir (@dirs) {
  469.             $bfull = "";
  470.             $bcur = "";
  471.             if(open(FD, '/proc/acpi/battery/'.$dir.'/info')) {
  472.                 while (<FD>) {
  473.                     if (/^last full capacity:\ +([0-9]+)/) {
  474.                         $bfull = $1;
  475.                     }
  476.                 }
  477.                 close(FD);
  478.             }
  479.             if(open(FD, '/proc/acpi/battery/'.$dir.'/state')) {
  480.                 while (<FD>) {
  481.                     if (/^remaining capacity:\ +([0-9]+)/) {
  482.                         $bcur = $1;
  483.                     }
  484.                 }
  485.                 close(FD);
  486.             }
  487.             if ($bfull ne "") {
  488.                 if ($data ne "") {
  489.                     $data = $data." ";
  490.                 }
  491.                 $data = $data.sprintf("%.0f",($bcur/$bfull*100));
  492.                 $data = $data."%";
  493.             }
  494.         }
  495.     }
  496.     return $data;
  497. }
  498.  
  499. sub battery {
  500.     $data = "";
  501.  
  502.     if ( -f '/proc/apm') {
  503.         if(open(FD, '/proc/apm')) {
  504.             while($stream = <FD>) {
  505.                 $data .= $stream;
  506.                 @data = split(/\n/, $data);
  507.             }
  508.             close(FD);
  509.         }
  510.         $data = $data[0];
  511.         $data =~ s/.+\s(\d+%).+/$1/;
  512.     } elsif ( -d '/proc/acpi/battery') {
  513.         $data=&batteryacpi;
  514.     }
  515.     return $data;
  516. }
  517.  
  518. sub cpuinfo {
  519.     my $string = shift;
  520.     @arr = grep(/$string/, @cpuinfo);
  521.     $var = join("\n", $arr[0]);
  522.     @arr = split(/: /, $var);
  523.     $var = $arr[1];
  524.     return $var;
  525. }
  526.  
  527. sub diskusage {
  528.     if($irix || $irix64) {
  529.         $vara = `$df | grep dev | awk '{ sum+=\$3 / 1024 / 1024}; END { print sum }'`; chomp($vara);
  530.         $vard = `$df | grep dev | awk '{ sum+=\$4 / 1024 / 1024}; END { print sum }'`; chomp($vard);
  531.     } elsif($sun) {
  532.         $vara = `$df | grep -v swap | grep -v libc | awk '{ sum+=\$2 / 1024 / 1024}; END { print sum }'`; chomp($vara);
  533.         $vard = `$df | grep -v swap | grep -v libc | awk '{ sum+=\$3 / 1024 / 1024}; END { print sum }'`; chomp($vard);
  534.     } else {
  535.         $vara = `$df | grep dev | awk '{ sum+=\$2 / 1024 / 1024}; END { print sum }'`; chomp($vara);
  536.         $vard = `$df | grep dev | awk '{ sum+=\$3 / 1024 / 1024}; END { print sum }'`; chomp($vard);
  537.     }
  538.     if ($vara eq "" or $vara == 0 ) {
  539.         return "0GB/0GB (0%)";
  540.     } else {
  541.         $varp = sprintf("%.2f", $vard / $vara * 100);
  542.         $vara = sprintf("%.2f", $vara);
  543.         $vard = sprintf("%.2f", $vard);
  544.         return $vard."GB/".$vara."GB ($varp%)";
  545.     }
  546. }
  547.  
  548. sub loadaverage {
  549.     $var = `uptime`; chomp($var);
  550.     @arr = split(/averages*: /, $var, 2);
  551.     if($darwin) {
  552.         @arr = split(/ +/, $arr[1], 2);
  553.     } else {
  554.         @arr = split(/, /, $arr[1], 2);
  555.     }
  556.     $var = $arr[0];
  557.     return $var;
  558. }
  559.  
  560. sub meminfo {
  561.     my $string = shift;
  562.     @arr = grep(/^$string/, @meminfo);
  563.     $var = join("\n", $arr[0]);
  564.     @arr = split(/\s+/, $var);
  565.     $var = $arr[1];
  566.     return $var;
  567. }
  568.  
  569. sub memoryusage {
  570.     if($linux) {
  571.         if(($l26)||($l3)) {
  572.             $vara = &meminfo("MemTotal:") * 1024;
  573.             $varb = &meminfo("Buffers:") * 1024;
  574.             $varc = &meminfo("Cached:") * 1024;
  575.             $vard = &meminfo("MemFree:") * 1024;
  576.         } else {
  577.             @arr = grep(/Mem:/, @meminfo);
  578.             $var = join("\n", @arr);
  579.             @arr = split(/\s+/, $var);
  580.             $vara = $arr[1];
  581.             $varb = $arr[5];
  582.             $varc = $arr[6];
  583.             $vard = $arr[3];
  584.         }
  585.         $vard = ($vara - $vard) - $varb - $varc;
  586.     } elsif($darwin) {
  587.         $vard = `vm_stat | grep 'Pages active' | awk '{print \$3}'` * 4096;
  588.         $vara = `$sysctl -n hw.memsize`;
  589.     } elsif($sun) {
  590.         $vara = `/usr/sbin/prtconf | grep "Mem" | awk '{print \$3}'` * 1024 * 1024;
  591.         $vard = `/bin/vmstat 1 2 | tail -1 | awk '{print \$5 * 1024}'`;
  592.         $vard = $vara - $vard
  593.     } elsif($irix || $irix64) {
  594.         $var = `top -d1 | grep Memory`; chomp($var);
  595.         $vara = $var;
  596.         $vard = $var;
  597.         $vara =~ s/^.* ([0-9]*)M max.*$/$1/;
  598.         $vara *= 1024 * 1024;
  599.         $vard =~ s/^.* ([0-9]*)M free,.*$/$1/;
  600.         $vard = $vara - ($vard * 1024 * 1024);
  601.     } elsif($netbsd) {
  602.         $vard = `vmstat -t | tail -n 1 | awk '{print \$8}'`;
  603.         $vard = $vard * 4096;
  604.         $vara = `sysctl -n hw.physmem`;
  605.     } else {
  606.         $vard = `vmstat -s | grep 'pages active' | awk '{print \$1}'` * `vmstat -s | grep 'per page' | awk '{print \$1}'`;
  607.         $vara = `$sysctl -n hw.physmem`;
  608.     }
  609.     $varp = sprintf("%.2f", $vard / $vara * 100);
  610.     $vara = sprintf("%.2f", $vara / 1024 / 1024);
  611.     $vard = sprintf("%.2f", $vard / 1024 / 1024);
  612.     return $vard."MB/".$vara."MB ($varp%)";
  613. }
  614.  
  615. sub networkinfobsd {
  616.     $varc = shift;
  617.     $vard = shift;
  618.     @arr = grep(/$varc/, @netstat);
  619.     @arr = grep(/Link/, @arr);
  620.     $var = join("\n", @arr);
  621.     @arr = split(/\s+/, $var);
  622.     $var = $arr[$vard] / 1024 / 1024;
  623.     $var = sprintf("%.2f", $var);
  624.     return $var;
  625. }
  626.  
  627. sub networkinfolinux {
  628.     $varc = shift;
  629.     $vard = shift;
  630.     @arr = grep(/$varc/, @netdev);
  631.     $var = join("\n", @arr);
  632.     @arr = split(/:\s*/, $var);
  633.     @arr = split(/\s+/, $arr[1]);
  634.     $var = $arr[$vard] / 1024 / 1024;
  635.     $var = sprintf("%.2f", $var);
  636.     return $var;
  637. }
  638.  
  639. sub networktraffic {
  640.     $vara = 0;
  641.     $varz = "";
  642.     $varb = scalar @nic;
  643.     if($nic[$vara] ne "") {
  644.         while($vara lt $varb) {
  645.             if($nic[$vara] ne "") {
  646.                 if ($varz eq "") {
  647.                     $varz = $col2." - ".$col1;
  648.                 }
  649.                 if($darwin || $freebsd || $dragonfly) {
  650.                     $varx = &networkinfobsd($nic[$vara], 6);
  651.                     $vary = &networkinfobsd($nic[$vara], 9);
  652.                 }
  653.                 if($netbsd || $openbsd) {
  654.                     $varx = &networkinfobsd($nic[$vara], 4);
  655.                     $vary = &networkinfobsd($nic[$vara], 5);
  656.                 }
  657.                 if($sun) {
  658.                     $varx = &networkinfobsd($nic[$vara], 4);
  659.                     $vary = &networkinfobsd($nic[$vara], 6);
  660.                 }
  661.                 if($linux) {
  662.                     $varx = &networkinfolinux($nic[$vara], 0);
  663.                     $vary = &networkinfolinux($nic[$vara], 8);
  664.                 }
  665.                 $varz .= $nicname[$vara]." Traffic (".$nic[$vara].")".$col2.": ".$col1.$varx."MB In/".$vary."MB Out - ";
  666.             }
  667.             $vara++;
  668.         }
  669.         return $varz;
  670.     }
  671. }
  672.  
  673. sub openfile {
  674.     my $string = shift;
  675.     $data = "";
  676.     if(open(FD, $string)) {
  677.         while($stream = <FD>) {
  678.             $data .= $stream;
  679.             @data = split(/\n/, $data);
  680.         }
  681.         close(FD);
  682.     }
  683.     return @data;
  684. }
  685.  
  686. sub processes {
  687.     if($irix || $irix64 || $sun) {
  688.         $var = `ps -e | grep -v PID | wc -l`;
  689.     } else {
  690.         $var = `ps ax | grep -v PID | wc -l`;
  691.     }
  692.     chomp($var);
  693.     $var = $var;
  694.     $var =~ s/^\s+//;
  695.     $var =~ s/\s+$//;
  696.     return $var;
  697. }
  698.  
  699. sub uptime {
  700.     if($irix || $irix64 || $d9 || $sun) {
  701.         $var = `uptime`; chomp($var);
  702.         if($var =~ /day/) {
  703.             $var =~ s/^.* ([0-9]*) day.* ([0-9]*):([0-9]*), .*$/$1d $2h $3m/;
  704.         } elsif($var =~ /min/) {
  705.             $var =~ s/^.* ([0-9]*) min.*$/0d 0h $1m/;
  706.         } else {
  707.             $var =~ s/^.* ([0-9]*):([0-9]*),.*$/0d $1h $2m/;
  708.         }
  709.         return $var;
  710.     } else {
  711.         if($freebsd || $dragonfly) {
  712.             $var = `$sysctl -n kern.boottime | awk '{print \$4}'`;
  713.         }
  714.         if($netbsd || $openbsd || $darwin) {
  715.             $var = `$sysctl -n kern.boottime`;
  716.         }
  717.         if($linux) {
  718.             @arr = split(/ /, $uptime[0]);
  719.             $varx = $arr[0];
  720.         } else {
  721.             chomp($var);
  722.             $var =~ s/,//g;
  723.             $vary = `date +%s`; chomp($vary);
  724.             $varx = $vary - $var;
  725.         }
  726.         $varx = sprintf("%2d", $varx);
  727.         $vard = floor($varx / 86400);
  728.         $varx %= 86400;
  729.         $varh = floor($varx / 3600);
  730.         $varx %= 3600;
  731.         $varm = floor($varx / 60);
  732.         if($vard eq 0) { $vard = ''; } elsif($vard >= 1) { $vard = $vard.'d '; }
  733.         if($varh eq 0) { $varh = ''; } elsif($varh >= 1) { $varh = $varh.'h '; }
  734.         if($varm eq 0) { $varm = ''; } elsif($varm >= 1) { $varm = $varm.'m'; }
  735.         return $vard.$varh.$varm;
  736.     }
  737. }
  738.  
  739. sub users {
  740.     $var = `uptime`; chomp($var);
  741.     $var =~ s/^.* +(.*) user.*$/$1/;
  742.     return $var;
  743. }
  744.  
  745. my $output;
  746. if($showHostname)       { $output   = $col1."Hostname".$col2.": ".$col1.$osn.$col2." - "; }
  747. if($showOS)             { $output .= $col1."OS".$col2.": ".$col1.$uname.$col2." - "; }
  748. if($linux && $showDistro && length $distro > 0 ) {
  749.     $output .= $col1."Distro".$col2.": ".$col1.$distro;
  750.     if (length $distrov > 0) {
  751.         $output .= " ".$distrov;
  752.     }
  753.     $output .= $col2." - ";
  754. }
  755. if($showCPU)            { $output .= $col1."CPU".$col2.": ".$col1.$cpu.$col2." - "; }
  756. if($showProcesses)      { $output .= $col1."Processes".$col2.": ".$col1.&processes.$col2." - "; }
  757. if($showUptime)         { $output .= $col1."Uptime".$col2.": ".$col1.&uptime.$col2." - "; }
  758. if($showUsers)          { $output .= $col1."Users".$col2.": ".$col1.&users.$col2." - "; }
  759. if($showLoadAverage)    { $output .= $col1."Load Average".$col2.": ".$col1.&loadaverage.$col2." - "; }
  760. if($showBattery)        { $output .= $col1."Battery".$col2.": ".$col1.&battery.$col2." - "; }
  761. if($showMemoryUsage)    { $output .= $col1."Memory Usage".$col2.": ".$col1.&memoryusage.$col2." - "; }
  762. if($showDiskUsage)      { $output .= $col1."Disk Usage".$col2.": ".$col1.&diskusage; }
  763. if($showNetworkTraffic) { $output .= &networktraffic; }
  764. $output =~ s/ - $//g;
  765. print "$output\n";
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!