#!/bin/bash
########################################################################
####  Script Name: inxi
####  version: 0.1.20
####  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'
if ! ((DEBUG))
then
	# Reroute all error messages to the bitbucket (if not debugging)
	exec 2>/dev/null
fi 
#((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

SCRIPT_NAME="inxi"
SCRIPT_LOWER_CASE=$( tr '[A-Z]' '[a-z]' <<< $SCRIPT_NAME )
SCRIPT_PATH=$( dirname $0 )
SCRIPT_VERSION_NUMBER=$( grep -im 1 'version:' $SCRIPT_PATH/$SCRIPT_NAME | awk '{print $3}' )
SCRIPT_DATE=$( grep -im 1 'date:' $SCRIPT_PATH/$SCRIPT_NAME | awk '{print $3 " " $4 ", " $5}' )
MY_VERSION="$SCRIPT_NAME v:$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)
DEFAULT_SCHEME=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.
SHOW_HOST=1	# Set this to 0 to avoid printing the hostname 
SHOW_IRC=2	# SHOW_IRC=1 to avoid showing the irc client version number, or SHOW_IRC=0 to disable client information completely.
INDENT=14	# Default indentation level
VERBOSITY_LEVEL=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.
NO_CPU_COUNT=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)
DISTROS_SECONDARY="antiX kanotix-version knoppix-version redhat-release sabayon-release sidux-version turbolinux-release zenwalk-version"
DISTROS_PRIMARY="gentoo-release mandrake-release redhat-release slackware-version SuSE-release"
# debian_version excluded from DISTROS_PRIMARY so Debian can fall through to /etc/issue detection. Same goes for Ubuntu.
DISTROS_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 make_bans 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.|
NORMAL_BANS=( corporation communications technologies technology group $'\2'"\<ltd\>" ltd. $'\2'"\<inc\>" inc. $'\2'\<co\> co. "(tm)" "(r)" $'\2'"\(rev ..\)" )
CPU_BANS=( cpu processor $'\2'"[0-9.]+ *[MmGg][Hh][Zz]" )
EXTRA_PATH="/bin:/sbin:/usr/bin:/usr/sbin:/usr/local/bin:/usr/local/sbin" # Extra path variable to make execute failures less likely, merged below
PARAMETER_LIMIT=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

ALLUP=1
HN=$(hostname)

# 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_handler() 
{
	case $1 in
		2)
			print_screen_output "$SCRIPT_NAME: large flood danger, debug buffer full!"
			;;
		3) 
			print_screen_output "$SCRIPT_NAME: error in colorscheme - unsupported number: $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..." 
			;;
		7)
			print_screen_output "$SCRIPT_NAME: unknown parameter: $2" 
			;;
		*) 
			print_screen_output "$SCRIPT_NAME: error unknown: $@" 
			set -- 99 
			;;
	esac
	exit $1
}

script_debugger() 
{
	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_handler 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 
check_script_depends() 
{
	if [ ! -d /proc/ ]
	then
		error_handler 6
	fi

	if ((X))
	then
		for I in xrandr xdpyinfo glxinfo
		do
			type -p $I >/dev/null || { script_debugger "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_handler 5 "$I"
	done
}

# Filter boilerplate & buzzwords.
make_bans() 
{
	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">
set_color_scheme() 
{
	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
get_cmdline() 
{
	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
get_start_app() 
{
	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.
				if [[ ${T2} < 1 ]]
				then
					DCOPOBJ="Konversation"
				fi
				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
				get_cmdline $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 [[ $SHOW_IRC -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
				VERBOSITY_LEVEL="${1:2}"
			else
				if [[ $2 = --* || $2 = -* || -z $2 ]]
				then
					VERBOSITY_LEVEL=1
				else
					shift
					VERBOSITY_LEVEL="$1" 
				fi
			fi
			echo "$VERBOSITY_LEVEL" | grep -q '^[1-3]$' || error_handler 4 "$VERBOSITY_LEVEL"
			;;
		-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
			;;
		[0-9]|[0-9][0-9])
			# these will need to be converted to standard type options
			echo "$1" | grep -q '^[0-9][0-9]\?$' || error_handler 3 "$1"
			if ! ((CSCHEME))
			then
				set_color_scheme "$1"
			fi
			;;
		*)
			error_handler 7 "$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 }"
}


########################################################################
#### MAIN FUNCTIONS
########################################################################

set_calculated_variables()
{
	# Detect X and set variable "X" accordingly
	if [[ $DISPLAY ]]
	then
		X=1 
	fi
	
	# Fallback paths put into $EXTRA_PATH; This might, among others, help on gentoo.
	# Now, create a difference of $PATH and $EXTRA_PATH and add that to $PATH:
	unset TPATH
	IFS=":"
	for I in $EXTRA_PATH
	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\""' 
	
	# Do this after sourcing of config overrides so user can customize banwords
	NORMAL_BANS=$( make_bans "${NORMAL_BANS[@]}" ) # Contrary to my previous belief, "${ARR[@]}" passes a quoted list, not one string
	CPU_BANS=$( make_bans "${CPU_BANS[@]}" )
	##echo "NORMAL_BANS='$NORMAL_BANS'"
	
	LSPCI=$(lspci -v | awk '{ gsub(/\(prog-if[^)]*\)/,""); print }')
}

set_konvi()
{
	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
}

get_distro_data()
{
	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 $DISTROS_SECONDARY $DISTROS_PRIMARY
		do
			# Only echo works with ${var[@]}, not print_screen_output() or script_debugger()
			# 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 " $DISTROS_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}
}

get_cpu_data()
{
	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 NORMAL_BANS "${CPUTMP[0]}" )
		CPUTMP[0]=$( sanitize CPU_BANS "${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
		NO_CPU_COUNT=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
}

get_hard_drive_data()
{
	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
}

get_memory_data()
{
	MEM=$( gawk '
	/^MemTotal:/ { tot = $2 }
	/^(MemFree|Buffers|Cached):/ { notused+=$2 }
	END {
		used = tot-notused
		printf("%.1f/%.1fMB\n", used/1024, tot/1024)
	}' /proc/meminfo )
}

get_processes_uptime()
{
	PROC="$(( $( ps aux | wc -l ) - 1 ))"
	UPT=$( uptime | gawk '{ a = gensub(/^.*up *([^,]*).*$/,"\\1","g",$0); gsub(/ /,"",a); print a }' )
}

get_graphics_data()
{
	IFS=$'\n'
	GFX=($( echo "$LSPCI" | gawk -F': ' '/VGA compatible controller/ { print $NF }' ))
	IFS="$OIFS"
	for (( I=0; I < ${#GFX[@]}; I++ ))
	do
		GFX[I]=$( sanitize NORMAL_BANS "${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)
		}
		' )	
		
		if [[ -z $RES ]]
		then
			RES=$( xdpyinfo | gawk '/dimensions/ { print $2 }' )
		fi
		
		# 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 }' )
		if [[ -z $XVERNUM ]]
		then
			XVERNUM=$(xdpyinfo | gawk -F': +' '
						BEGIN { IGNORECASE=1 } 
						/vendor release number/ { 
							gsub(/0+$/,"",$2)
							gsub(/0+/,".",$2)
							print $2
						}
						')
		fi
	
		#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)}}')
			
		if [[ -z $GLXR || -z $GLXV ]]
		then
			MESA=1
		fi
		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
}

get_networking_data()
{
	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(/'"$NORMAL_BANS"'/, "", 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
}

print_it_out()
{
	# (IF VERBOSITY_LEVEL > 1)
	if ((VERBOSITY_LEVEL))
	then
		if ((SHOW_HOST))
		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 [[ $VERBOSITY_LEVEL -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 [[ $VERBOSITY_LEVEL -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 [[ $VERBOSITY_LEVEL -ge 2 ]]
		then
			get_networking_data
		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 [[ $VERBOSITY_LEVEL -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 ((SHOW_IRC))
		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 VERBOSITY_LEVEL > 1 ... ELSE)
		#set_color_scheme 12
		if ! ((IBSHELL))
		then
			for I in $C1 $C2 $CN
			do
				case "$I" in 
					"$GREEN"|"$WHITE"|"$YELLOW"|"$CYAN") BGBLACK=1
					;;
				esac
			done
			if ((BGBLACK))
			then
				for I in C1 C2 CN
				do
					if [[ "${!I}" = "$NORMAL" ]]
					then
						declare $I="${!I}15,1"
					else
						declare $I="${!I},1"
					fi
				done
				#C1="${C1},1"; C2="${C2},1"; CN="${CN},1"
			fi
		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}]" )
		
		if ((SHOW_IRC))
		then
			LNSHORT="${LNSHORT}$( echo -ne "  ${C1}Client${CN}[${C2}${IRC}${IRCV}${CN}]" )"
		fi
		if ((SCHEME))
		then
			LNSHORT="${LNSHORT}$( echo -ne "$NORMAL" )"
		fi
		print_screen_output "$LNSHORT"
	fi # (IF VERBOSITY_LEVEL > 1)
}

########################################################################
#### SCRIPT EXECUTION
########################################################################

# Check for dependencies before running any commands in this script! So yes, here!!
check_script_depends

set_calculated_variables

get_start_app

# "$@" passes every parameter separately 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
	set_color_scheme "$DEFAULT_SCHEME"
fi

set_konvi

script_debugger "ALLUP=1 : inxi up and running.."

# assemble data for output
get_distro_data
get_cpu_data
get_hard_drive_data
get_memory_data
get_processes_uptime
get_graphics_data

# then create the output
print_it_out

## last steps
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..