dmitriy.kazimirov/inxi
1
0
Fork 0
mirror of https://github.com/smxi/inxi.git synced 2024-11-16 16:21:39 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity
inxi/infobash
inxi-svn 61cca4ea15 Initial setup of repo
2008-10-28 00:40:43 +00:00

890 lines
31 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
# InfoBash, 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>
# Freenode:
# Many thanks to etorix, Kano, kelmo, slh in alphabetical order
# and #kanotix for their suggestions and betatesting
# Thanks to friends from #bash for their deep insight, as always.
# 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
ALLUP=0 # Infobash 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 ################################
#################################################################################
SELF="Infobash"
SELF_LC=$(echo "$SELF" | tr '[A-Z]' '[a-z]')
MYVERSION="$SELF v3.01"
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="sidux-version kanotix-version knoppix-version sabayon-release redhat-release turbolinux-release zenwalk-version"
DIST_MAIN="gentoo-release mandrake-release slackware-version redhat-release 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/$SELF_LC.conf" # relative path to $(kde-config --path data)
DCOPOBJ="default"
[[ -s /etc/$SELF_LC.conf ]] && source /etc/$SELF_LC.conf # Source global config overrides
[[ -s $HOME/.$SELF_LC ]] && source $HOME/.$SELF_LC # Source user config overrides
# 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!
#################################################################################
################################ FUNCTIONS ####################################
#################################################################################
# Infobash speaks through here. When run by Konversation, use DCOP
say () {
if ((DEBUG > 5)); then
((KONVI)) && dcop "$DCPORT" "$DCOPOBJ" say "$DCSERVER" "$DCTARGET" "konvi='$konvi' saying : '$@'"\
|| echo "konvi='$konvi' saying : '$@'"
fi
#((KONVI)) && dcop $DCPORT Konversation say $DCSERVER "$DCTARGET" "$1" || echo -ne "$1\n"
((KONVI)) && dcop "$DCPORT" "$DCOPOBJ" say "$DCSERVER" "$DCTARGET" "$1" || echo -ne "$1\n"
}
# Error handling
error () {
case $1 in
2) say "$SELF: large flood danger, debug buffer full!" ;;
3) say "$SELF: error in colorscheme, or unknown parameter: $2" ;;
4) say "$SELF: unknown verbosity level $2" ;;
5) say "$SELF: dependency not met: $2 not found in path" ;;
6) say "$SELF: /proc not found! Quitting..." ;;
*) say "$SELF: error unknown: $@"; set -- 99 ;;
esac
exit $1
}
dbg () {
if ((ALLUP)); then
((DEBUG)) || return
if ((DBI)); then
for ((DBI=0;DBI<${#DBGBUF[@]};DBI++)); do
say "${DBGBUF[DBI]}"
done
DBI=0
fi
say "$@"
else
((!DEBUG_FLOOD && DBI>10)) && error 2
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 () {
[[ -d /proc/ ]] || error 6
if ((X)); then
for I in xrandr xdpyinfo glxinfo; do
type -p $I >/dev/null || { dbg "Infobash: 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
[[ $1 -ge ${#SCHEMES[@]} ]] && set -- 1
SCHEME="$1" # Set a global variable to allow checking for chosen scheme later
((IBSHELL)) && CLCODES=($ANSICL) || CLCODES=($IRCCL)
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 () {
[[ -e /proc/$1/cmdline ]] || { echo 0; return; }
##say "Marker"
##say "\$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
##say "\$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
[[ -z $IRCV ]] && IRC="Unknown Perl client"
;;
*bash*|*sh*)
unset IRCV
IRC="Shell wrapper"
;;
*)
IRC="Unknown : ${IRC##*/}"
unset IRCV
esac
[[ $SHOWIRC -lt 2 ]] && unset IRCV
else
IRC="PPID=\"$PPID\" - empty?"
unset IRCV
fi
}
# Get the parameters
getparams () {
[[ -z $1 ]] && return 1
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"
;;
--version)
say "InfoBash, the universal, portable, system info script for irc."
say "Tested with Irssi, Xchat, Konversation, BitchX, KSirc, ircII,"
say "Gaim/Pidgin, Weechat, KVIrc and Kopete."
say "Copyright (C) 2005-2007 Michiel de Boer a.k.a. locsmif <infobash@rebelhomicide.demon.nl>"
say " "
say "This program is free software; you can redistribute it and/or modify"
say "it under the terms of the GNU General Public License as published by"
say "the Free Software Foundation; either version 3 of the License, or"
say "(at your option) any later version."
exit 0
;;
*)
echo "$1" | grep -q '^[0-9][0-9]\?$' || error 3 "$1"
((CSCHEME)) || cscheme "$1"
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
[[ $DISPLAY ]] && X=1
# 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
[[ $I = $J ]] && FLAG=1
done
((FLAG)) || TPATH="$TPATH:$I"
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 }')
###################################################################################
######################### ############################
######################### M A I N ############################
######################### ############################
###################################################################################
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.
getparams "$@"
# If no colorscheme was set in the parameter handling routine, then set the default scheme
((CSCHEME)) || cscheme "$DEFSCHEME"
ALLUP=1
dbg "ALLUP=1 : Infobash 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 say() or dbg()
# 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 [[ -s /etc/${DISTFILE} && " $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
((J)) && CPU[I]="${CPU[I]},${CPUTMP[J]}" || CPU[I]="${CPUTMP[J]}"
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' ' '))
[[ -z $CPUFLAGS ]] && CPUFLAGS="-"
for I in /proc/ide/ide*/hd*; do
if [[ -e $I/media && $(eat $I/media) = disk ]]; then
if [[ ! -e $I/capacity ]]; then # BUGFIX: Ran into a debian sarge kernel that did not have the "capacity" file in the hd* directories
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
##say "$HDDMOD" ; exit
((CAP)) && HDDCAP1="$((CAP/2))"
# 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)
##say "HDDCAP1=\"$HDDCAP1\" HDDCAP2=\"$HDDCAP2"" ; exit
HDD=0 ; for I in ${!HDDCAP*}; do [[ ${!I} -gt $HDD ]] && HDD="${!I}" ; 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)); then # (IF VBL > 1)
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}]")"
say "$LNINTRO"
##say "CPU[0]=\"${CPU[0]}\""
IFS=","; CPUTMP=(${CPU[0]}); IFS="$OIFS"
# Strange (and also some expected) behavior encountered.
# If say() 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
##say "CPUTMP=\"***${CPUTMP[@]} $HN+++++++\"----------"
[[ -z ${CPUTMP[2]} ]] && CPUTMP[2]="unknown"
[[ ${#CPU[@]} -gt 2 ]] && CPUNUM="(1)" || unset CPUNUM # Array CPU always has one element: max clockfreq found. Therefore -gt and not -ge
LNCPU=$(printf "${C1}%-${INDENT}s${C2} %s" "CPU Info" "${CPUNUM}${CPUNUM+ }${CPUTMP[0]}")
[[ $VBL -ge 3 ]] && LNCPU=$(printf "%s${C2} %s %s ${C1}%s${CN}%s${C2} %s ${CN}%s" "$LNCPU" "${CPUTMP[2]}" "cache" "flags" "(" "$CPUFLAGS" ")")
LNCPU=$(printf "%s ${C1}%s${C2} ${CN}%s${C2} %s ${CN}%s" "$LNCPU" "clocked at" "[" "${CPUTMP[1]} MHz" "]")
say "$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]}")
[[ $VBL -ge 3 ]] && LNCPU=$(printf "%s${C2} %s %s ${C1}%s${CN}%s${C2} %s ${CN}%s" "$LNCPU" "${CPUTMP[2]}" "cache" "flags" "(" "$CPUFLAGS" ")")
LNCPU=$(printf "%s ${C1}%s${C2} ${CN}%s${C2} %s ${CN}%s" "$LNCPU" "clocked at" "[" "${CPUTMP[1]} MHz" "]")
say "$LNCPU"
[[ $I -gt 10 ]] && break
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
say "$LNGFX"
I=1 ; while [[ -n ${GFX[I]} && $I -le 3 ]]; do
LNGFX=$(printf "${C1}%-${INDENT}s${C2} %s" " " "${GFX[I]}")
say "$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
say "$(printf "${C1}%-${INDENT}s${C2} %s" "Network cards" "${LNNET[I]}")"
while [[ -n ${LNNET[++I]} ]]; do
say "$(printf "${C1}%-${INDENT}s${C2} %s" " " "${LNNET[I]}")"
done
fi
fi #if [[ $VBL -ge 2 ]]
# 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}")"
((CRAP)) && LNLAST="${LNLAST}$(echo -ne " | ${C1}Direct rendering${C2} ${GLXDR}${CN}")"
fi
[[ $RUNLVL ]] && LNLAST="${LNLAST}$(echo -ne " | ${C1}Runlevel${C2} ${RUNLVL}${CN}")"
((SHOWIRC)) && LNLAST="${LNLAST}$(echo -ne " | ${C1}Client${C2} ${IRC}${IRCV}${CN}")"
LNLAST="${LNLAST}$(echo -ne " | ${C1}${MYVERSION}")"
((SCHEME)) && LNLAST="${LNLAST}$(echo -ne "${NORMAL}")"
say "$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")"
say "$LNSHORT"
fi # (IF VBL > 1)
((IBSHELL && SCHEME)) && echo -n ""
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..
Reference in a new issue View git blame Copy permalink