inxi/inxi
2008-10-28 02:14:34 +00:00

1107 lines
33 KiB
Bash
Executable file
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

#!/bin/bash
########################################################################
#### Script Name: inxi
#### version: 0.1.4
#### Date: October 27 2008
########################################################################
#### inxi is a fork of infobash, the original bash sys info script by locsmif
#### As time permits functionality and recoding will occur.
####
#### inxi, the universal, portable, system info script for irc.
#### Tested with Irssi, Xchat, Konversation, BitchX, KSirc, ircII,
#### Gaim/Pidgin, Weechat, KVIrc and Kopete.
#### Copyright (C) 2005-2007 locsmif <infobash@rebelhomicide.demon.nl>
####
#### This program is free software; you can redistribute it and/or modify
#### it under the terms of the GNU General Public License as published by
#### the Free Software Foundation; either version 3 of the License, or
#### (at your option) any later version.
####
#### This program is distributed in the hope that it will be useful,
#### but WITHOUT ANY WARRANTY; without even the implied warranty of
#### MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
#### GNU General Public License for more details.
####
#### You should have received a copy of the GNU General Public License
#### along with this program. If not, see <http://www.gnu.org/licenses/>.
#### DEPENDENCIES
#### bash >=2.05b(bash), df;readlink;stty;tr;uname;wc(coreutils),
#### gawk(gawk), grep(grep), hostname(hostname), lspci(pciutils),
#### ps;uptime(procps), runlevel(sysvinit), glxinfo;xdpyinfo;xrandr(xbase-clients)
#### Also the proc filesystem should be present and mounted
########################################################################
#### VARIABLES
########################################################################
ALLUP=0 # inxi hasn't been 'booted' yet.
DEBUG=0 # Set levels from 1-10
DEBUG_FLOOD=0 # Debug flood override: toggle on to allow long debug output
DBI=0 # Debug Buffer Index, index into a debug buffer storing debug messages until infobash is 'all up'
((DEBUG)) || exec 2>/dev/null # Reroute all error messages to the bitbucket (if not debugging)
#((DEBUG)) && exec 2>&1 # This is for debugging konversation
# Clear nullglob, because it creates unpredictable situations with IFS=$'\n' ARR=($VAR) IFS="$OIFS"
# type constructs. Stuff like [rev a1] is now seen as a glob expansion pattern, and fails, and
# therefore results in nothing. Tricky as fuck.
shopt -u nullglob
########################################################################
#### UNCALCULATED VARIABLES
########################################################################
SCRIPT_NAME="inxi"
SCRIPT_LOWER_CASE=$( tr '[A-Z]' '[a-z]' <<< $SCRIPT_NAME )
SCRIPT_PATH=$( dirname $0 )
SCRIPT_VERSION_NUMBER=$( grep -m 1 'version:' $SCRIPT_PATH/$SCRIPT_NAME | awk '{print $3}' )
MY_VERSION="$SCRIPT_NAME $SCRIPT_VERSION_NUMBER"
LC_ALL="C" # Make sure every program speaks English.
export LC_ALL
OIFS="$IFS" # Backup the current Internal Field Seperator
unset EMPTY # A more elegant way to have a scheme that doesn't print color codes (neither ANSI nor mIRC) at all. See below.
# COLORS
# DGREY BLACK RED DRED GREEN DGREEN YELLOW DYELLOW
ANSICL="       "
IRCCL=" \x0314 \x0301 \x0304 \x0305 \x0309 \x0303 \x0308 \x0307"
# BLUE DBLUE MAGENTA DMAGENTA CYAN DCYAN WHITE GREY NORMAL
ANSICL="$ANSICL         "
IRCCL=" $IRCCL \x0312 \x0302 \x0313 \x0306 \x0311 \x0310 \x0300 \x0315 \x03"
#ANSICL=($ANSICL); IRCCL=($IRCCL)
COLORS=(DGREY BLACK RED DRED GREEN DGREEN YELLOW DYELLOW BLUE DBLUE MAGENTA DMAGENTA CYAN DCYAN WHITE GREY NORMAL)
# See above for notes on EMPTY
SCHEMES=(EMPTY,EMPTY,EMPTY NORMAL,NORMAL,NORMAL BLUE,NORMAL,NORMAL GREEN,YELLOW,NORMAL DYELLOW,NORMAL,NORMAL CYAN,BLUE,NORMAL RED,NORMAL,NORMAL GREEN,NORMAL,NORMAL YELLOW,NORMAL,NORMAL GREEN,DGREEN,NORMAL BLUE,RED,NORMAL BLUE,NORMAL,RED YELLOW,WHITE,GREEN BLUE,NORMAL,GREEN DCYAN,NORMAL,DMAGENTA)
DEFSCHEME=2 # Defaults to 2, make this 1 for normal, 0 for no colorcodes at all. Set to any other valid scheme you like. Same as runtime parameter.
SHOWHOST=1 # Set this to 0 to avoid printing the hostname
SHOWIRC=2 # SHOWIRC=1 to avoid showing the irc client version number, or SHOWIRC=0 to disable client information completely.
INDENT=14 # Default indentation level
VBL=0 # Verbosity level defaults to 0, this can also be set with -v, -v2, -v3, etc as a parameter.
IBSHELL=0 # Running in a shell? Defaults to false, and is determined later.
NOCPUCOUNT=0 # Wether or not the string "dual" or similar is found in cpuinfo output. If so, avoid dups.
# In cases of derived distros where the version file of the base distro can also be found under /etc, the derived distro's
# version file should go first. (Such as with Sabayon / Gentoo)
DIST_DERIV="antiX kanotix-version knoppix-version redhat-release sabayon-release sidux-version turbolinux-release zenwalk-version"
DIST_MAIN="gentoo-release mandrake-release redhat-release slackware-version SuSE-release"
# debian_version excluded from DIST_MAIN so Debian can fall through to /etc/issue detection. Same goes for Ubuntu.
DIST_BLIST="debian_version ubuntu_version"
FL1='-' # These two determine seperators in single line output, to force irc clients not to break off sections
FL2=''
# Precede a banword with $'\2' to prevent it from being subject to automated escaping by the mkbans routine
# $'\1' gets weird results :
# user@host $ ARR=($'\x01'"one two" three four); echo ${ARR[0]} | hd -v
# 00000000 01 01 6f 6e 65 20 74 77 6f 0a |..one two.|
NORMALBANS=(corporation communications technologies technology group $'\2'"\<ltd\>" ltd. $'\2'"\<inc\>" inc. $'\2'\<co\> co. "(tm)" "(r)" $'\2'"\(rev ..\)")
CPUBANS=(cpu processor $'\2'"[0-9.]+ *[MmGg][Hh][Zz]")
XPATH="/bin:/sbin:/usr/bin:/usr/sbin:/usr/local/bin:/usr/local/sbin" # Extra path variable to make execute failures less likely, merged below
PARAMLIMIT=30 # This is a variable that controls how many parameters infobash will parse in a /proc/<pid>/cmdline file before stopping.
CRAP=0 # New parameter
FLAG=0 # A throw-away 'flag' variable intended to be used throughout infobash
KONVICFG="konversation/scripts/$SCRIPT_LOWER_CASE.conf" # relative path to $(kde-config --path data)
DCOPOBJ="default"
# Source global config overrides
if [[ -s /etc/$SCRIPT_LOWER_CASE.conf ]]
then
source /etc/$SCRIPT_LOWER_CASE.conf
fi
# Source user config overrides
if [[ -s $HOME/.$SCRIPT_LOWER_CASE ]]
then
source $HOME/.$SCRIPT_LOWER_CASE
fi
# WARNING: In the main part below (search for 'KONVI')
# there's a check for Konversation-specific config files.
# Any one of these can override the above if infobash is run
# from Konversation!
########################################################################
#### UTILITY FUNCTIONS
########################################################################
# inxi speaks through here. When run by Konversation, use DCOP
print_screen_output()
{
if (( DEBUG > 5 ))
then
if ((KONVI))
then
dcop "$DCPORT" "$DCOPOBJ" print_screen_output "$DCSERVER" "$DCTARGET" "konvi='$konvi' saying : '$@'"
else
echo "konvi='$konvi' saying : '$@'"
fi
fi
#((KONVI)) && dcop $DCPORT Konversation print_screen_output $DCSERVER "$DCTARGET" "$1" || echo -ne "$1\n"
if (( KONVI ))
then
dcop "$DCPORT" "$DCOPOBJ" print_screen_output "$DCSERVER" "$DCTARGET" "$1"
else
echo -ne "$1\n"
fi
}
# Error handling
error()
{
case $1 in
2)
print_screen_output "$SCRIPT_NAME: large flood danger, debug buffer full!"
;;
3)
print_screen_output "$SCRIPT_NAME: error in colorscheme, or unknown parameter: $2"
;;
4)
print_screen_output "$SCRIPT_NAME: unknown verbosity level $2"
;;
5)
print_screen_output "$SCRIPT_NAME: dependency not met: $2 not found in path"
;;
6)
print_screen_output "$SCRIPT_NAME: /proc not found! Quitting..."
;;
*)
print_screen_output "$SCRIPT_NAME: error unknown: $@"
set -- 99
;;
esac
exit $1
}
debug_script()
{
if (( ALLUP ))
then
if (( !DEBUG ))
then
return
fi
if ((DBI))
then
for (( DBI=0; DBI < ${#DBGBUF[@]}; DBI++ ))
do
print_screen_output "${DBGBUF[DBI]}"
done
DBI=0
fi
print_screen_output "$@"
else
if ((!DEBUG_FLOOD && DBI>10))
then
error 2
fi
DBGBUF[DBI++]="$@"
fi
}
eat()
{
gawk 'BEGIN { RS="" } { gsub(/\n$/,""); gsub(/\n/," "); gsub(/^ *| *$/, ""); gsub(/ +/, " "); printf $0 }' "$1"
}
# Determine if any of the absolutely necessary tools are absent
checkdepend()
{
if [ ! -d /proc/ ]
then
error 6
fi
if ((X))
then
for I in xrandr xdpyinfo glxinfo
do
type -p $I >/dev/null || { debug_script "inxi: Resuming in non X mode: $I not found in path"; X=0; break; }
done
fi
# bc removed from deps for now
for I in df free gawk grep hostname lspci ps readlink runlevel tr uname uptime wc
do
type -p $I >/dev/null || error 5 "$I"
done
}
# Filter boilerplate & buzzwords.
mkbans()
{
unset MKBANS
# Iterate over $@
for BANSTR
do
#echo "BANSTR=\"$BANSTR\"" >&2
if [[ ${BANSTR:0:1} = $'\2' ]]
then
MKBANS="${MKBANS}${MKBANS+|}${BANSTR:1:${#BANSTR}-1}"
else
# Automatically escapes [ ] ( ) . and +
MKBANS="${MKBANS}${MKBANS+|}$(echo "$BANSTR" | gawk '{ gsub(/([\[\]+().])/,"\\\\&"); print }')"
fi
done
echo "$MKBANS"
}
# Set the colorscheme
# $1 = <scheme number>|<"none">
cscheme()
{
local I SCOLORS CLCODES
if [[ $1 -ge ${#SCHEMES[@]} ]]
then
set -- 1
fi
SCHEME="$1" # Set a global variable to allow checking for chosen scheme later
if ((IBSHELL))
then
CLCODES=($ANSICL)
else
CLCODES=($IRCCL)
fi
for (( I=0; I < ${#COLORS[@]}; I++ ))
do
eval "${COLORS[I]}=\"${CLCODES[I]}\""
done
IFS="," ; SCOLORS=(${SCHEMES[$1]}) ; IFS="$OIFS"
C1="${!SCOLORS[0]}"
C2="${!SCOLORS[1]}"
CN="${!SCOLORS[2]}"
((CSCHEME++))
}
# Parse the null separated commandline under /proc/<pid passed in $1>/cmdline
getcmdline()
{
if [[ ! -e /proc/$1/cmdline ]]
then
{ echo 0; return; }
fi
##print_screen_output "Marker"
##print_screen_output "\$1='$1' -=- $(< /proc/$1/cmdline)"
local I=0
unset CMDL
while read -d $'\0' L && [[ $I -lt 32 ]]
do
CMDL[I++]="$L"
done </proc/$1/cmdline
##print_screen_output "\$I='$I'"
if ! ((I))
then
CMDL[0]=$(< /proc/$1/cmdline)
[[ -n ${CMDL[0]} ]] && I=1
fi
CMDLMAX=$I
}
# Determine where infobash was run from
roots()
{
if tty >/dev/null
then
IRC="Shell"
unset IRCV
IBSHELL=1
elif [[ -n $PPID && -f /proc/$PPID/exe ]]
then
IRC=$(readlink /proc/$PPID/exe)
case $(echo $IRC | tr '[:upper:]' '[:lower:]') in
*irssi-text*|*irssi*)
IRCV=" $($IRC -v | gawk 'NR == 1 { print $2 }')"
IRC="Irssi"
;;
*konversation*)
KONVI=1
IRCV="$($IRC -v | gawk '/Konversation:/ { for (i=2;i<=NF;i++) { if (i == NF) { print $i } else { printf $i" " } } exit }')"
T=($IRCV)
if [[ ${T[0]} == *+* ]]; then
# < Sho_> locsmif: The version numbers of SVN versions look like this:
# "<version number of last release>+ #<build number", i.e. "1.0+ #3177" ...
# for releases we remove the + and build number, i.e. "1.0" or soon "1.0.1"
IRCV=" CVS $IRCV"
T2="${T[0]/+/}"
else
IRCV=" ${T[0]}"
T2="${T[0]}"
fi
# Remove any dots except the first, and make sure there are no trailing zeroes,
T2=$(echo "$T2" | gawk '{ sub(/\./, " "); gsub(/\./, ""); sub(/ /, "."); printf("%g\n", $0) }')
# Since Konversation 1.0, the DCOP interface has changed a bit: dcop "$DCPORT" Konversation ..etc
# becomes : dcop "$DCPORT" default ... or dcop "$DCPORT" irc ..etc. So we check for versions smaller
# than 1 and change the DCOP parameter/object accordingly.
[[ ${T2} < 1 ]] && DCOPOBJ="Konversation"
IRC="Konversation"
;;
*xchat*)
IRCV=" $($IRC -v | gawk 'NR == 1 { print $2 }')"
IRC="X-Chat"
;;
*bitchx*)
IRCV=" $($IRC -v | gawk '
/Version/ { a=tolower($2); gsub(/[()]|bitchx-/,"",a); print a; exit }
$2 == "version" { a=tolower($3); sub(/bitchx-/,"",a); print a; exit }
')"
IRC="BitchX"
;;
*ircii*)
IRCV=" $($IRC -v | gawk 'NR == 1 { print $3 }')"
IRC="ircII"
;;
*gaim*)
IRCV=" $($IRC -v | gawk 'NR == 1 { print $2 }')"
IRC="Gaim"
;;
*pidgin*)
IRCV=" $($IRC -v | gawk 'NR == 1 { print $2 }')"
IRC="Pidgin"
;;
*weechat-curses*)
IRCV=" $($IRC -v)"
IRC="Weechat"
;;
*kvirc*)
IRCV=" $($IRC -v 2>&1 | gawk '{ for (i=2;i<=NF;i++) { if (i==NF) print $i; else printf $i" " }; exit }')"
IRC="KVIrc"
;;
*kopete*)
IRCV=" $(kopete -v | gawk '/Kopete:/ { print $2; exit }')"
IRC="Kopete"
;;
*perl*)
unset IRCV # KSirc is one of the possibilities now. KSirc is a wrapper around dsirc, a perl client
getcmdline $PPID
for ((I=0; I<=$CMDLMAX; I++))
do
case ${CMDL[I]} in
*dsirc*)
IRC="KSirc"
# Dynamic runpath detection is too complex with KSirc, because KSirc is started from
# kdeinit. /proc/<pid of the grandparent of this process>/exe is a link to /usr/bin/kdeinit
# with one parameter which contains parameters separated by spaces(??), first param being KSirc.
# Then, KSirc runs dsirc as the perl irc script and wraps around it. When /exec is executed,
# dsirc is the program that runs infobash, therefore that is the parent process that we see.
# You can imagine how hosed I am if I try to make infobash find out dynamically with which path
# KSirc was run by browsing up the process tree in /proc. That alone is straightjacket material.
# (KSirc sucks anyway ;)
IRCV=" $(ksirc -v | gawk '/KSirc:/ { print $2; exit }')"
break
;;
esac
done
if [[ -z $IRCV ]]
then
IRC="Unknown Perl client"
fi
;;
*bash*|*sh*)
unset IRCV
IRC="Shell wrapper"
;;
*)
IRC="Unknown : ${IRC##*/}"
unset IRCV
;;
esac
if [[ $SHOWIRC -lt 2 ]]
then
unset IRCV
fi
else
IRC="PPID=\"$PPID\" - empty?"
unset IRCV
fi
}
# Get the parameters
get_parameters()
{
if [[ -z $1 ]]
then
return 1
fi
while [[ -n $1 ]]
do
case $1 in
--crap)
CRAP=1
;;
-d|--debug)
DEBUG=1
exec 2>&1
;;
-v|-v[1-9]|--verbose)
if [[ ${#1} -eq 3 ]]
then
VBL="${1:2}"
else
if [[ $2 = --* || $2 = -* || -z $2 ]]
then
VBL=1
else
shift
VBL="$1"
fi
fi
echo "$VBL" | grep -q '^[1-3]$' || error 4 "$VBL"
;;
-U)
print_screen_output "Updating $SCRIPT_NAME now..."
wget -O $SCRIPT_PATH/$SCRIPT_NAME http://techpatterns.com/downloads/distro/$SCRIPT_NAME
print_screen_output "To run the new version, just start $SCRIPT_NAME again."
exit 0
;;
--version)
print_screen_output "InfoBash, the universal, portable, system info script for irc."
print_screen_output "Tested with Irssi, Xchat, Konversation, BitchX, KSirc, ircII,"
print_screen_output "Gaim/Pidgin, Weechat, KVIrc and Kopete."
print_screen_output "Copyright (C) 2005-2007 Michiel de Boer a.k.a. locsmif <infobash@rebelhomicide.demon.nl>"
print_screen_output " "
print_screen_output "This program is free software; you can redistribute it and/or modify"
print_screen_output "it under the terms of the GNU General Public License as published by"
print_screen_output "the Free Software Foundation; either version 3 of the License, or"
print_screen_output "(at your option) any later version."
exit 0
;;
*)
echo "$1" | grep -q '^[0-9][0-9]\?$' || error 3 "$1"
if ! ((CSCHEME))
then
cscheme "$1"
fi
;;
esac
shift
done
}
# Enforce boilerplate and buzzword filters
sanitize()
{
# Cannot use strong quotes to unquote a string with pipes in it! bash will interpret the |'s as usual and try to run a subshell!
# Using weak quotes instead, or use '"..."'
echo "$2" | gawk "BEGIN { IGNORECASE=1 } { gsub(/${!1}/,\"\"); gsub(/ [ ]+/,\" \"); gsub(/^ +| +$/,\"\"); print }"
}
########################################################################
#### CALCULATED VARIABLES
########################################################################
# Detect X and set variable "X" accordingly
if [[ $DISPLAY ]]
then
X=1
fi
# Fallback paths put into $XPATH; This might, among others, help on gentoo.
# Now, create a difference of $PATH and $XPATH and add that to $PATH:
unset TPATH
IFS=":"
for I in $XPATH
do
FLAG=0
for J in $PATH
do
if [[ $I = $J ]]
then
FLAG=1
fi
done
if ! ((FLAG))
then
TPATH="$TPATH:$I"
fi
done
IFS="$OIFS"
PATH="${PATH}${TPATH}"
##echo "PATH='$PATH'"
##/bin/sh -c 'echo "PATH in subshell=\"$PATH\""'
# Check for dependencies before running any commands in this script! So yes, here!!
checkdepend
# Do this after sourcing of config overrides so user can customize banwords
NORMALBANS=$(mkbans "${NORMALBANS[@]}") # Contrary to my previous belief, "${ARR[@]}" passes a quoted list, not one string
CPUBANS=$(mkbans "${CPUBANS[@]}")
##echo "NORMALBANS='$NORMALBANS'"
LSPCI=$(lspci -v | awk '{ gsub(/\(prog-if[^)]*\)/,""); print }')
########################################################################
#### MAIN FUNCTIONS
########################################################################
roots
if ((KONVI))
then
DCPORT="$1"
DCSERVER="$2"
DCTARGET="$3"
shift 3
# The section below is on request of Argonel from the Konversation developer team:
# it sources config files like $HOME/.kde/share/apps/konversation/scripts/infobash.conf
IFS=":"
for I in $( kde-config --path data )
do
if [[ -r ${I}${KONVICFG} ]]
then
source "${I}${KONVICFG}"
break
fi
done
IFS="$OIFS"
fi
# "$@" passes every parameter seperately quoted, "$*" passes all parameters as one quoted parameter.
get_parameters "$@"
# If no colorscheme was set in the parameter handling routine, then set the default scheme
if ! ((CSCHEME))
then
cscheme "$DEFSCHEME"
fi
ALLUP=1
debug_script "ALLUP=1 : inxi up and running.."
HN=$(hostname)
unset DISTRO
shopt -s nullglob
cd /etc; DISTGLOB=(*[-_]{release,version})
cd "$OLDPWD"
shopt -u nullglob
if (( ${#DISTGLOB[@]} == 1 ))
then
DISTFILE="${DISTGLOB}"
elif (( ${#DISTGLOB[@]} > 1 ))
then
for I in $DIST_DERIV $DIST_MAIN
do
# Only echo works with ${var[@]}, not print_screen_output() or debug_script()
# This is a known bug, search for the word "strange" inside comments
# echo "I='$I' DISTGLOB[@]='${DISTGLOB[@]}'"
if [[ " ${DISTGLOB[@]} " == *" $I "* ]]
then
DISTFILE="${I}"
break
fi
done
fi
if [ -n "$DISTFILE" -a -s /etc/$DISTFILE -a " $DIST_BLIST " != *" $DISTFILE "* ]
then
DISTRO=$( eat "/etc/$DISTFILE" )
else
# Debian pure should fall through here
DISTFILE="issue"
DISTRO=$( gawk 'BEGIN { RS="" } { gsub(/\\[a-z]/,""); gsub(/ [ ]+/," "); gsub(/^ +| +$/,""); print }' "/etc/${DISTFILE}" )
fi
((${#DISTRO} > 80 && ! CRAP)) && DISTRO="${RED}/etc/${DISTFILE} corrupted, use --crap to override${NORMAL}"
: ${DISTRO:=Unknown distro o_O}
OSKERN=$( uname -a | gawk '{print $1,$3,$(NF-1)}' )
IFS=$'\n'
CPU=($(gawk -F': ' '
# TAKE NOTE: \t+ will work for /proc/cpuinfo, but SOME ARBITRARY FILE used for TESTING might contain SPACES!
# Therefore PATCH to use [ \t]+ when TESTING!
/^processor\t+:/ { nr = $NF }
/^model name/ { cpu[nr, "model"] = $NF }
/^cpu MHz/ {
if (!min) {
min = $NF
}
else {
if ($NF < min) { min = $NF }
}
if ($NF > max) { max = $NF }
cpu[nr, "speed"] = $NF
}
/^cache size/ { cpu[nr, "cache"] = $NF }
/^flags/ { cpu[nr, "flags"] = $NF }
/^bogomips/ { cpu[nr, "bogomips"] = $NF }
END {
#if (!nr) { print ",,,"; exit } # <- should this be necessary or should bash handle that
for (i = 0; i <= nr; i++) {
print cpu[i, "model"] "," cpu[i, "speed"] "," cpu[i, "cache"] "," cpu[i, "flags"] "," cpu[i, "bogomips"]
}
if (!min) {
print "not found"
exit
}
if (min != max) {
printf("Min:%s%s Max:%s%s\n", min, "Mhz", max, "Mhz")
}
else {
printf("%s %s\n", max, "Mhz")
}
}
' /proc/cpuinfo))
IFS="$OIFS"
for ((I=0;I<${#CPU[@]}-1;I++))
do
IFS=","; CPUTMP=(${CPU[I]}); IFS="$OIFS"
unset CPU[I]
CPUTMP[0]=$( sanitize NORMALBANS "${CPUTMP[0]}" )
CPUTMP[0]=$( sanitize CPUBANS "${CPUTMP[0]}" )
# I use all these loops so I can easily extend the cpu array created in the awk script above with more fields per cpu.
for (( J=0; J<${#CPUTMP[@]}; J++ ))
do
if ((J))
then
CPU[I]="${CPU[I]},${CPUTMP[J]}"
else
CPU[I]="${CPUTMP[J]}"
fi
done
done
if echo "${CPU[@]}" | grep -qi 'dual\|triple\|quad'
then
NOCPUCOUNT=1
else
case $(( ${#CPU[@]}-1 )) in
2)
CPU2="Dual"
;;
3)
CPU2="Triple"
;;
4)
CPU2="Quad"
;;
[5-9]|[1-9][0-9])
CPU2="${#CPU[@]}x"
;;
*)
unset CPU2
;;
esac
fi
IFS=","
CPUTMP=(${CPU[0]})
IFS="$OIFS"
# For the short line
CPUMODEL="${CPU2}${CPU2+ }${CPUTMP[0]}" # clocked at [${CPU[${#CPU[@]}-1]}]" # old CPU2
CPUCLOCK="${CPU[${#CPU[@]}-1]}" # old CPU3
CPUFLAGS="${CPUTMP[3]}" # old CPU4
# nx = AMD stack protection extensions
# lm = Intel 64bit extensions
# sse, sse2, pni = sse1,2,3 gfx extensions
# svm = AMD pacifica virtualization extensions
# vmx = Intel IVT (vanderpool) virtualization extensions
CPUFLAGS=$(echo "$CPUFLAGS" | awk '
BEGIN {
RS=" "
ssel["sse"] = 1
ssel["sse2"] = 2
ssel["pni"] = 3
sses[1] = "sse"
sses[2] = "sse2"
sses[3] = "sse3"
}
/^(nx|lm|svm|vmx)$/ {
if (s) { s = s " " $0 }
else { s = $0 }
}
/^(sse2?|pni)$/ {
if (ssel[$0] > sse) sse = ssel[$0]
}
END {
if (sse) {
if (s) s = sses[sse] " " s;
else s = sses[sse]
}
print s
}
')
#grep -oE '\<(nx|lm|sse[0-9]?|pni|svm|vmx)\>' | tr '\n' ' '))
if [[ -z $CPUFLAGS ]]
then
CPUFLAGS="-"
fi
for I in /proc/ide/ide*/hd*
do
if [[ -e $I/media && $(eat $I/media) = disk ]]
then
# BUGFIX: Ran into a debian sarge kernel that did not have the "capacity" file in the hd* directories
if [[ ! -e $I/capacity ]]
then
CAP=0
break
fi
((CAP+=$(eat $I/capacity)))
HDDMOD="${HDDMOD}${HDDMOD+,}$(eat $I/model)"
fi
done
if [[ -e /proc/scsi/scsi ]]
then
# Silly sata detection, will also pick up usb sticks, and it is all I will put into infobash. if you want more, infoperl is on
# the way :)
IFS=$'\n'; THDD=($(gawk '
BEGIN { IGNORECASE=1 }
/host/ {
getline a[$0]
getline b[$0]
}
END {
for (i in a) {
if (b[i] ~ / *type: *direct-access.*/) {
#c=gensub(/^ *vendor: (.+) +model: (.+) +rev: (.+)$/,"\\1 \\2 \\3","g",a[i])
c=gensub(/^ *vendor: (.+) +model: (.+) +rev:.*$/,"\\1 \\2","g",a[i])
gsub(/ [ ]+/, " ", c); gsub(/^ +| +$/, "", c)
#print a[i]
if (c ~ /\<flash\>|\<pendrive\>|memory stick|memory card/) continue
print c
}
}
}
' /proc/scsi/scsi))
IFS="$OIFS"
for (( I=0; I < ${#THDD[@]}; I++ ))
do
HDDMOD="${HDDMOD}${HDDMOD+,}${THDD[I]}"
done
fi
##print_screen_output "$HDDMOD" ; exit
if ((CAP))
then
HDDCAP1="$((CAP/2))"
fi
# See http://lanana.org/docs/device-list/devices-2.6+.txt for major numbers used below
HDDCAP2=$( gawk '$1 ~ /^(3|22|33|8)$/ && $2 % 16 == 0 {size+=$3} END {printf("%d\n",size)}' /proc/partitions )
##print_screen_output "HDDCAP1=\"$HDDCAP1\" HDDCAP2=\"$HDDCAP2"" ; exit
HDD=0
for I in ${!HDDCAP*}
do
if [[ ${!I} -gt $HDD ]]
then
HDD="${!I}"
fi
done
if ((HDD))
then
HDDUSG=$(df | gawk '
p {
if (/^\/dev\/(mapper\/|[hs]d[a-z][0-9]+)/) {
if (NF == 1) {
getline
if (NF == 5) { c += $2 }
else next
}
else if (NF == 6) { c += $3 }
}
}
/^Filesystem/ { p++ }
END { print c }
')
HDDUSG="$((HDDUSG*100/HDD))%used"
HDD="$(($HDD*1024/1000**3))GB"
else
unset HDDUSG
HDD="unknown.."
fi
MEM=$(gawk '
/^MemTotal:/ { tot = $2 }
/^(MemFree|Buffers|Cached):/ { notused+=$2 }
END {
used = tot-notused
printf("%.1f/%.1fMB\n", used/1024, tot/1024)
}' /proc/meminfo)
PROC="$(( $( ps aux | wc -l ) - 1 ))"
UPT=$( uptime | gawk '{ a = gensub(/^.*up *([^,]*).*$/,"\\1","g",$0); gsub(/ /,"",a); print a }' )
IFS=$'\n'
GFX=($( echo "$LSPCI" | gawk -F': ' '/VGA compatible controller/ { print $NF }' ))
IFS="$OIFS"
for (( I=0; I < ${#GFX[@]}; I++ ))
do
GFX[I]=$( sanitize NORMALBANS "${GFX[I]}" )
done
# GFXMEM is UNUSED at the moment, because it shows AGP aperture size, which is not necessarily equal to GFX memory..
# GFXMEM="size=[$(echo "$LSPCI" | gawk '/VGA/{while (!/^$/) {getline;if (/size=[0-9][0-9]*M/) {size2=gensub(/.*\[size=([0-9]+)M\].*/,"\\1","g",$0);if (size<size2){size=size2}}}}END{print size2}')M]"
if ((X))
then
# Added the two ?'s , because the resolution is now reported without spaces around the 'x', as in
# 1400x1050 instead of 1400 x 1050. Change as of X.org version 1.3.0
RES=$(xrandr | gawk '
/\*/ { res[++m] = gensub(/^.* ([0-9]+) ?x ?([0-9]+)[_ ].* ([0-9\.]+)\*.*$/,"\\1x\\2@\\3hz","g",$0) }
END {
for (n in res) {
if (res[n] ~ /^[[:digit:]]+x[[:digit:]]+/)
line = line ? line ", " res[n] : res[n]
}
if (line)
print(line)
}
')
[[ -z $RES ]] && RES=$(xdpyinfo | gawk '/dimensions/ { print $2 }')
# X vendor and version detection.
XVENDOR=$(xdpyinfo | gawk -F': +' '
BEGIN { IGNORECASE=1 }
/vendor string/ {
gsub(/the|,|inc|foundation|project|coorperation/, "", $2)
gsub(/^ +| +$/, "", $2); gsub(/ +/," ",$2)
print $2
}
')
# new method added since radeon and X.org and the disappearance of <X server name> version : ...etc
# Later on, the normal textual version string returned, e.g. like: X.Org version: 6.8.2
# A failover mechanism is in place. (if $XVERNUM is empty, the release number is parsed instead)
XVERNUM=$(xdpyinfo | awk '/version:/ { print $NF }')
[[ -z $XVERNUM ]] && XVERNUM=$(xdpyinfo | gawk -F': +' '
BEGIN { IGNORECASE=1 }
/vendor release number/ {
gsub(/0+$/,"",$2)
gsub(/0+/,".",$2)
print $2
}
')
#X -version 2>&1 | gawk '/^X Window System Version/ { print $5 }'
#This method could be used in the future to detect X when X is not running,
#however currently infobash ignores X checks when X is not found.
XVER="$XVENDOR $XVERNUM"
IFS=$'\n'
GLX=($(glxinfo | gawk -F ': ' '
function join(arr, sep) {
s=""
i=flag=0
for (i in arr) {
if (flag++) s = s sep
s = s i
}
return s
}
BEGIN { IGNORECASE=1 }
/opengl renderer/ {
if ($2 ~ /mesa/) {
# Allow r300 et al, but not the rest
if ($2 ~ / r[3-9][0-9][0-9] /) {
a[$2]
f++
}
next
}
$2 && a[$2]
}
/opengl version/ && (f || $2 !~ /mesa/) { $2 && b[$2] }
/direct rendering/ { $2 && c[$2] }
END {
printf("%s\n%s\n%s\n", join(a,", "), join(b,", "), join(c,", "))
}
'))
IFS="$OIFS"
GLXR="${GLX[0]}"; GLXV="${GLX[1]}"; GLXDR="${GLX[2]}"
# GLXR=$(glxinfo | gawk -F ': ' 'BEGIN {IGNORECASE=1} /opengl renderer/ && $2 !~ /mesa/ {seen[$2]++} END {for (i in seen) {printf("%s ",i)}}')
# GLXV=$(glxinfo | gawk -F ': ' 'BEGIN {IGNORECASE=1} /opengl version/ && $2 !~ /mesa/ {seen[$2]++} END {for (i in seen) {printf("%s ",i)}}')
[[ -z $GLXR || -z $GLXV ]] && MESA=1
AGPMOD=$(gawk '/agp/ && !/agpgart/ && $3 > 0 { print(gensub(/(.*)_agp.*/,"\\1","g",$1)) }' /proc/modules)
else
RES=$(stty -F $(readlink /proc/$PPID/fd/0) size | gawk '{ print $2"x"$1 }')
RUNLVL=$(runlevel | gawk '{ print $2 }')
fi
# (IF VBL > 1)
if ((VBL))
then
if ((SHOWHOST))
then
LNINTRO=$(printf "${C1}%-${INDENT}s${C2} \"%s\"${C1} %s " "Host/Kernel/OS" "$HN" "running")
else
LNINTRO=$(printf "${C1}%-${INDENT}s${C2} " "OS/Kernel")
fi
LNINTRO="$LNINTRO$(echo -ne "${C2}$OSKERN ${CN}[ ${C1}$DISTRO ${CN}]")"
print_screen_output "$LNINTRO"
##print_screen_output "CPU[0]=\"${CPU[0]}\""
IFS=","; CPUTMP=(${CPU[0]}); IFS="$OIFS"
# Strange (and also some expected) behavior encountered.
# If print_screen_output() uses $1 as the parameter to output to the screen, then passing "<text1> ${ARR[@]} <text2>"
# will output only <text1> and the first element of ARR. That "@" splits in elements and "*" _doesn't_, is to be expected.
# However, that text2 is consecutively truncated is somewhat strange, so take note. This has been confirmed by #bash on freenode.
# The above mentioned only emerges when using the debugging markers below
##print_screen_output "CPUTMP=\"***${CPUTMP[@]} $HN+++++++\"----------"
if [[ -z ${CPUTMP[2]} ]]
then
CPUTMP[2]="unknown"
fi
if [[ ${#CPU[@]} -gt 2 ]]
then
CPUNUM="(1)"
else
# Array CPU always has one element: max clockfreq found. Therefore -gt and not -ge
unset CPUNUM
fi
LNCPU=$(printf "${C1}%-${INDENT}s${C2} %s" "CPU Info" "${CPUNUM}${CPUNUM+ }${CPUTMP[0]}")
if [[ $VBL -ge 3 ]]
then
LNCPU=$(printf "%s${C2} %s %s ${C1}%s${CN}%s${C2} %s ${CN}%s" "$LNCPU" "${CPUTMP[2]}" "cache" "flags" "(" "$CPUFLAGS" ")")
fi
LNCPU=$(printf "%s ${C1}%s${C2} ${CN}%s${C2} %s ${CN}%s" "$LNCPU" "clocked at" "[" "${CPUTMP[1]} MHz" "]")
print_screen_output "$LNCPU"
for ((I=1;I<${#CPU[@]}-1;I++))
do
IFS=","
CPUTMP=(${CPU[I]})
IFS="$OIFS"
LNCPU=$( printf "${C1}%-${INDENT}s${C2} %s" " " "($((I+1))) ${CPUTMP[0]}" )
if [[ $VBL -ge 3 ]]
then
LNCPU=$( printf "%s${C2} %s %s ${C1}%s${CN}%s${C2} %s ${CN}%s" "$LNCPU" "${CPUTMP[2]}" "cache" "flags" "(" "$CPUFLAGS" ")" )
fi
LNCPU=$( printf "%s ${C1}%s${C2} ${CN}%s${C2} %s ${CN}%s" "$LNCPU" "clocked at" "[" "${CPUTMP[1]} MHz" "]" )
print_screen_output "$LNCPU"
if [[ $I -gt 10 ]]
then
break
fi
done
LNGFX=$(printf "${C1}%-${INDENT}s${C2} %s" "Videocard" "${GFX[0]}")
if ((X))
then
LNGFX="${LNGFX}$(echo -ne "${C1} $XVER ${CN}[${C2} ${RES} ${CN}]")"
else
LNGFX="${LNGFX}$(echo -ne "${C1} tty resolution ${CN}(${C2} ${RES} ${CN})")"
fi
print_screen_output "$LNGFX"
I=1
while [[ -n ${GFX[I]} && $I -le 3 ]]
do
LNGFX=$( printf "${C1}%-${INDENT}s${C2} %s" " " "${GFX[I]}" )
print_screen_output "$LNGFX"
(( I++ ))
done
if [[ $VBL -ge 2 ]]
then
IFS=$'\n' LNNET=($( echo "$LSPCI" | gawk '
BEGIN { IGNORECASE=1 }
/^[0-9a-f:.]+ (ethernet|network) (controller|bridge)/ || /^[0-9a-f:.]+ [^:]+: .*(ethernet|network).*$/ {
nic=gensub(/^[0-9a-f:.]+ [^:]+: (.+)$/,"\\1","g",$0)
gsub(/realtek semiconductor/, "Realtek", nic)
gsub(/davicom semiconductor/, "Davicom", nic)
gsub(/,/," ", nic)
gsub(/'"$NORMALBANS"'/, "", nic); gsub(/ [ ]+/," ", nic); gsub(/^ +| +$/,"", nic)
# The doublequotes above are necessary because of the pipes in the variable.
eth[nic]++
while (getline && !/^$/) {
if (/I\/O/) ports[nic]=ports[nic]$4" "
}
}
END {
j=0
for (i in eth) {
if (eth[i]>1) {
a[j]=eth[i]"x "i
if (ports[i] != "") a[j]=a[j]", at ports: "ports[i]
}
else {
a[j]=i
if (ports[i] != "") a[j]=a[j]", at port: "ports[i];
}
j++
}
j=0
while (a[j]) {
print a[j]
j++
}
}
'))
IFS="$OIFS"
if [[ -n ${LNNET[@]} ]]
then
I=0
print_screen_output "$(printf "${C1}%-${INDENT}s${C2} %s" "Network cards" "${LNNET[I]}")"
while [[ -n ${LNNET[++I]} ]]
do
print_screen_output "$(printf "${C1}%-${INDENT}s${C2} %s" " " "${LNNET[I]}")"
done
fi
fi
# Some code could look superfluous but BitchX doesn't like lines not ending in a newline. F*&k that bitch!
LNLAST=$(echo -ne "${C1}Processes${C2} ${PROC}${CN} | ${C1}Uptime${C2} ${UPT}${CN} | ${C1}Memory${C2} ${MEM}${CN}")
if [[ $VBL -ge 2 ]]
then
LNLAST="${LNLAST}$(echo -ne " | ${C1}HDD${C2} ${HDDMOD} ${C1}Size${C2} ${HDD} (${HDDUSG})${CN}")"
else
LNLAST="${LNLAST}$(echo -ne " | ${C1}HDD Size${C2} ${HDD} (${HDDUSG})${CN}")"
fi
if ((X)) && ! ((MESA))
then
LNLAST="${LNLAST}$( echo -ne " | ${C1}GLX Renderer${C2} ${GLXR}${CN} | ${C1}GLX Version${C2} ${GLXV}${CN}" )"
if ((CRAP))
then
LNLAST="${LNLAST}$( echo -ne " | ${C1}Direct rendering${C2} ${GLXDR}${CN}" )"
fi
fi
if [[ $RUNLVL ]]
then
LNLAST="${LNLAST}$( echo -ne " | ${C1}Runlevel${C2} ${RUNLVL}${CN}" )"
fi
if ((SHOWIRC))
then
LNLAST="${LNLAST}$( echo -ne " | ${C1}Client${C2} ${IRC}${IRCV}${CN}" )"
fi
LNLAST="${LNLAST}$( echo -ne " | ${C1}${MY_VERSION}" )"
if ((SCHEME))
then
LNLAST="${LNLAST}$( echo -ne "${NORMAL}" )"
fi
print_screen_output "$LNLAST"
else # (IF VBL > 1 ... ELSE)
#cscheme 12
if ! ((IBSHELL))
then
for I in $C1 $C2 $CN ; do case "$I" in "$GREEN"|"$WHITE"|"$YELLOW"|"$CYAN") BGBLACK=1 ;; esac ; done
((BGBLACK)) && { for I in C1 C2 CN ; do [[ "${!I}" = "$NORMAL" ]] && declare $I="${!I}15,1" || declare $I="${!I},1" ; done ; }
#C1="${C1},1"; C2="${C2},1"; CN="${CN},1"
fi
LNSHORT=$(echo -ne "${C1}CPU${CN}[${C2}${CPUMODEL} clocked at ${CPUCLOCK}${CN}] ${C1}Kernel${CN}[${C2}${OSKERN}${CN}] ${C1}Up${CN}[${C2}${FL2}${FL1}${UPT}${FL1}${CN}] ${C1}Mem${CN}[${C2}${FL2}${FL1}${MEM}${FL1}${CN}] ${C1}HDD${CN}[${C2}${FL2}${FL1}${HDD}($HDDUSG)${FL1}${CN}] ${C1}Procs${CN}[${C2}${FL2}${FL1}${PROC}${FL1}${CN}]")
((SHOWIRC)) && LNSHORT="${LNSHORT}$(echo -ne " ${C1}Client${CN}[${C2}${IRC}${IRCV}${CN}]")"
((SCHEME)) && LNSHORT="${LNSHORT}$(echo -ne "$NORMAL")"
print_screen_output "$LNSHORT"
fi # (IF VBL > 1)
if ((IBSHELL && SCHEME))
then
echo -n ""
fi
exit 0 # weechat's executor plugin forced me to do this, and rightfully so, because else the exit code from the last command is taken..