#!/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-2012 locsmif <ltown2@web.de>
# Copyright (C) 2008-2024 Stefan Lippers-Hollmann <s.l-h@gmx.de>

# 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 2
# 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), lspci(pciutils),
# ps;uptime(procps), glxinfo;xdpyinfo;xrandr(xbase-clients)
# Also the proc filesystem should be present and mounted

# NOTE: in several places, this script uses constructs like ${VAR:+foo}
# This is different from ${VAR+foo} in that ${VAR+foo} will expand to 'foo'
# even when $VAR equals the empty string (""), but not when $VAR is unset.
# Therefore this script uses ${VAR:+foo} by preference until further notice.
# Vim search string? Try: ${[A-Za-z0-9_-]\+:\?+

DEBUG=0		# Set levels from 1-10
((DEBUG)) || exec 2>/dev/null # Reroute all error messages to the bitbucket (if not debugging)
#((DEBUG)) && exec 2>&1 # This is for debugging konversation

#################################################################################
#######################  UNCALCULATED VARIABLES  ################################
#################################################################################

SELF="Infobash"
SELF_LC=$(echo "$SELF" | tr '[A-Z]' '[a-z]')
MYVERSION="$SELF v3.65"
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="[1;30m [0;30m [1;31m [0;31m [1;32m [0;32m [1;33m [0;33m"
IRCCL="   \x0314   \x0301   \x0304   \x0305   \x0309   \x0303   \x0308   \x0307"
#                 BLUE     DBLUE    MAGENTA  DMAGENTA CYAN     DCYAN    WHITE    GREY     NORMAL
ANSICL="$ANSICL [1;34m [0;34m [1;35m [0;35m [1;36m [0;36m [1;37m [0;37m [0;37m"
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, -v4, 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="aptosid-version 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 openwrt_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 and subsidiaries $'\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

[[ -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

# OpenWrt provides only a very limited environment, override problematic settings
if [ -r /etc/openwrt_release ]; then
	DEFSCHEME=0
	SHOWIRC=0
fi

#################################################################################
################################  FUNCTIONS  ####################################
#################################################################################

# Infobash speaks through here.
say () {
	((DEBUG > 5)) && SAYSTR="saying : '$*'" || SAYSTR="$1"
	
	echo -ne "$SAYSTR\n"
}

# Error handling
error () {
	case $1 in
	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 () {
	((DEBUG)) && say "$@" || return
}

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 lspci ps readlink 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:+|}$(gawk '{ gsub(/([\[\]+().])/,"\\\\&"); print }' <<< "$BANSTR")"
		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 "\$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
	
	# Sometimes parameters aren't separated by nullbytes
	if ! ((I)); then
		CMDL[0]=$(< /proc/$1/cmdline)
		[[ -n ${CMDL[0]} ]] && I=1
	fi
	CMDLMAX=$I
}

do_sysinfo_x86 () {
	local vendor product file

	for file in sys_vendor board_vendor; do
		vendor="$(cat /sys/devices/virtual/dmi/id/$file 2>/dev/null)"
		case "$vendor" in
		empty | \
		System\ manufacturer | \
		To\ [bB]e\ [fF]illed\ [bB]y\ O\.E\.M\.)
			continue
			;;
		esac
		[ -n "$vendor" ] && break
	done

	for file in product_name board_name; do
		product="$(cat /sys/devices/virtual/dmi/id/$file 2>/dev/null)"
		case "$vendor:$product" in
		?*:empty | \
		?*:System\ Product\ Name | \
		?*:To\ [bB]e\ [fF]illed\ [bB]y\ O\.E\.M\.)
			continue
			;;
		"PC Engines:APU")
			product="apu1"
			break
			;;
		"Sophos:SG"|"Sophos:XG")
			local product_version
			product_version="$(cat /sys/devices/virtual/dmi/id/product_version 2>/dev/null)"
			case "$product_version" in
			105*|115*|125*|135*)
				product="${product}-${product_version}"
				break
				;;
			esac
			;;
		"Supermicro:Super Server")
			continue
			;;
		?*:?*)
			break
			;;
		esac
	done

	if [ -n "$vendor" ]; then
		if [ -n "$product" ]; then
			echo "$vendor $product"
		else
			echo "$vendor"
		fi
	else
		if [ -n "$product" ]; then
			echo "$product"
		else
			return
		fi
	fi
}

# Determine where infobash was run from
roots () {
	if tty >/dev/null; then
		IRC="Shell"
		unset IRCV
		IBSHELL=1
	elif [[ -n $PPID && -L /proc/$PPID/exe ]]; then
		IRC="$(readlink /proc/$PPID/exe)"
		case "$(tr '[:upper:]' '[:lower:]' <<< "${IRC##*/}")" in dash|bash|sh)
				# We want to know who wrapped it into the shell.
				PPPID="$(gawk '/PPid:/ { print $2 }' /proc/$PPID/status)"
				if [[ -n $PPPID && -L /proc/$PPPID/exe ]]; then
						IRC="$(readlink /proc/$PPPID/exe)"
				fi
		esac
		
		case "$(tr '[:upper:]' '[:lower:]' <<< "${IRC}")" in
		*irssi-text*|*irssi*)
			IRCV=" $($IRC -v | gawk 'NR == 1 { print $2 }')"
			IRC="Irssi"
		;;
		*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
			dbg "PPID: \${CMDL[@]}='${CMDL[*]}'"
		
			# Test for Konversation	
			if grep -qi '^perl .*konversation/scripts/cmd\( konversation\)\? [0-9]\+ #[^ ]\+ infobash' <<< "${CMDL[*]}"; then
				IRCV="$(konversation -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"
				else
					IRCV=" ${T[0]}"
				fi
				IRC="Konversation"
			else
				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
			fi
			[[ -z $IRCV ]] && IRC="Unknown Perl client"
		;;
		*quasselclient*)
			# client only, connecting to remote core
			# note: version string pre 0.4x is different, however there is no /exec support back then
			IRCV=" $($IRC -v | gawk 'NR == 1 { print $3 }')"
			IRC="Quassel"
		;;
		*quassel)
			# monolithic, client and core in one
			# note: version string pre 0.4x is different, however there is no /exec support back then
			IRCV=" $($IRC -v | gawk 'NR == 1 { print $3 }')"
			IRC="Quassel [M]"
		;;
		*bash*|*sh*)
			unset IRCV
			IRC="Shell wrapper"
		;;
		*)
			IRC="Unknown : ${IRC##*/}"
			unset IRCV
		esac
		[[ $SHOWIRC -lt 2 ]] && unset IRCV
	else
		dbg "No client detected"
		IRC="PPID=\"$PPID\" - empty?"
		unset IRCV
	fi
	STTYPPID="${PPPID:-$PPID}"
}

# 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
			grep -q '^[1-4]$' <<< "$VBL" || 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-2009  Michiel de Boer a.k.a. locsmif <ltown2@web.de>"
			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 2 of the License, or"
			say "(at your option) any later version."
			exit 0
		;;
		*)
			grep -q '^[0-9][0-9]\?$' <<< "$1" || 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 '"..."'
	gawk "BEGIN { IGNORECASE=1 } { gsub(/${!1}/,\"\"); gsub(/ [ ]+/,\" \"); gsub(/^ +| +$/,\"\"); print }" <<< "$2"
}

#################################################################################
##########################  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

# "$@" 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"

if type -p hostname >/dev/null; then
	HN=$(hostname)
else
	[ -r /proc/sys/kernel/hostname ] && HN=$(</proc/sys/kernel/hostname) || SHOWHOST=0
fi

unset DISTRO
cd /etc; DISTGLOB=(*[-_]{release,version}); cd "$OLDPWD"
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 [[ -n ${DISTFILE} && -s /etc/${DISTFILE} && " $DIST_BLIST " != *" $DISTFILE "* ]]; then
	DISTRO=$(eat "/etc/${DISTFILE}")
elif [[ -n /etc/os-release && -s /etc/os-release && " $DIST_BLIST " != *" $DISTFILE "* ]]; then
	DISTRO=$(grep ^PRETTY_NAME= /etc/os-release | sed -e s/^PRETTY_NAME=// -e s/^\"// -e s/\"$//)
else
	# Debian pure should fall through here
	DISTFILE="issue"
	DISTRO=$(gawk '{ gsub(/\\[a-z]/,""); gsub(/ [ ]+/," "); gsub(/^ +| +$/,""); print ; exit }' "/etc/${DISTFILE}")
fi
((${#DISTRO} > 80 && ! CRAP)) && DISTRO="${RED}/etc/${DISTFILE} corrupted, use --crap to override${NORMAL}"
if [ -r /etc/openwrt_release ]; then
	DISTRO="$(gawk -F\' '/^DISTRIB_DESCRIPTION/{print $2}' /etc/openwrt_release)"
fi
: ${DISTRO:=Unknown distro o_O}

OSKERN=$(uname -a | gawk '{print $1,$3,$(NF-1)}')

if [ -d /sys/firmware/efi ]; then
	FIRMWARE="UEFI "
	if [ -r /sys/firmware/efi/fw_platform_size ]; then
		FIRMWARE="UEFI$(head -n1 /sys/firmware/efi/fw_platform_size) "
	fi
else
	FIRMWARE=""
fi

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 model\t|^cpu\t/ { cpu[nr, "model"] = $NF }

/^cpu MHz|^clock|^BogoMIPS/    {
	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"

# Last element is frequency
CPUFREQ="${CPU[${#CPU[@]}-1]}"
unset CPU[${#CPU[@]}-1]

for ((I=0;I<${#CPU[@]};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 grep -qi 'dual\|triple\|quad' <<< "${CPU[@]}"; then
	NOCPUCOUNT=1
else
	case $((${#CPU[@]})) in 
	2)
		CPUTUPLE="Dual"
	;;
	3)
		CPUTUPLE="Triple"
	;;
	4)
		CPUTUPLE="Quad"
	;;
	# Note: http://en.wikipedia.org/wiki/Tuple  (8 would/could be Octuple)
	[5-9]|[1-9][0-9]) 
		CPUTUPLE="${#CPU[@]}x"
	;;
	*) 
		unset CPUTUPLE
	;;
	esac
fi

IFS=","; CPUTMP=(${CPU[0]}); IFS="$OIFS"
# For the short line
CPUMODEL="${CPUTUPLE}${CPUTUPLE:+ }${CPUTMP[0]}" 
CPUCLOCK="$CPUFREQ"             #"${CPU[${#CPU[@]}-1]}"	
CPUFLAGS="${CPUTMP[3]}"
# ht = Intel Hyper-Threading
# 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"
}
/^(ht|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 '\<(ht|nx|lm|sse[0-9]?|pni|svm|vmx)\>' | tr '\n' ' '))
[[ -z $CPUFLAGS ]] && CPUFLAGS="-"

for I in /proc/ide/ide*/hd*; do 
	if [[ -r $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
# It doesn't matter whether CAP is empty or not, if it was, it now becomes 0.
CAP=$((CAP/2))

if [[ -z $HDDMOD ]]; then
	for I in /sys/block/*; do
		(($(<"$I/removable"))) && continue
		 # HDD_SIZE = $(($(<"$I/size")*512/1000**3))
		[[ -r $I/device/model ]] && HDDMOD="${HDDMOD}${HDDMOD:+,}$(eat $I/device/model)"
	done
fi

##say "$HDDMOD" ; exit
((CAP)) && HDDCAP1="$CAP"
# See http://lanana.org/docs/device-list/devices-2.6+.txt for major numbers used below
HDDCAP2=$(gawk '$1 ~ /^(3|22|33|8|259)$/ && $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]+)|nvme[0-9]+n[0-9]+p[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 2>/dev/null | wc -l)-1))"
[[ $PROC -eq -1 ]] && PROC="$(($(ps 2>/dev/null | wc -l)-1))" || :
UPT=$(uptime | gawk '{ a = gensub(/^.*up *([^,]*).*$/,"\\1","g",$0); gsub(/ /,"",a); print a }')

IFS=$'\n'; GFX=($(gawk -F': ' '/VGA compatible controller/ { print $NF }' <<< "$LSPCI")); 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=[$(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}' <<< "$LSPCI")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|corporation/, "", $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/$STTYPPID/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 $FIRMWARE${CN}[ ${C1}$DISTRO ${CN}]")"
	say "$LNINTRO"

	if [[ $VBL -ge 4 ]]; then
		LNSYSTEM=$(printf "${C1}%-${INDENT}s${C2} %s" "System" "$(do_sysinfo_x86)")
		say "$LNSYSTEM"
	fi # (IF VBL >= 4)

	##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"

	CPUNUM="${#CPU[@]}"
		
	for ((I=0;I<$CPUNUM;I++)); do
		IFS=","; CPUTMP=(${CPU[I]}); IFS="$OIFS"
		if ((CPUNUM > 1)); then
			CNSTR="${CPUNUM}x"
		else
			unset CNSTR
		fi
		((I)) && CTITLE=" " || CTITLE="CPU Info"
		LNCPU=$(printf "${C1}%-${INDENT}s${C2} %s" "$CTITLE" "${CNSTR}${CNSTR:+ }${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"
		((CPUNUM > 1)) && 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=($(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++
			}
		}
		' <<< "$LSPCI"))
		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}${FL2}${FL1}${CPUMODEL} clocked at ${CPUCLOCK}${FL1}${CN}]  ${C1}Kernel${CN}[${C2}${FL2}${FL1}${OSKERN}${FL1}${CN}]")
	LNSHORT=$(echo -ne "${LNSHORT}  ${C1}Up${CN}[${C2}${FL2}${FL1}${UPT}${FL1}${CN}]  ${C1}Mem${CN}[${C2}${FL2}${FL1}${MEM}${FL1}${CN}]")
	LNSHORT=$(echo -ne "${LNSHORT}  ${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 "[0m"
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..

