-- Leo's gemini proxy

-- Connecting to going-flying.com:1965...

-- Connected

-- Sending request

-- Meta line: 20 text/gemini; lang=en

# mernisse's standard bash/ksh .profile
#
# John Crichton: [on a suicide mission] How come I'm not afraid?
# Ka D'Argo: Fear accompanies the possibility of death. Calm shepherds
# its certainty.
# John Crichton: I love hanging with you, man.
#

set -o vi

# do this early.  Otherwise bad things might happen
export HISTFILESIZE=131072
export HISTSIZE=131072
export HISTCONTROL=ignoredups

# Set base path, will add more later.
export PATH=/usr/local/bin:/usr/local/sbin:/bin:/usr/bin:/sbin:/usr/sbin

# Mostly because I like funny sudo(8) and screen(1) messages.
export NETHACKOPTIONS=gender:male,horsename:Trigger,dogname:Cujo,catname:Fluffy,number_pad,pickup_types:$,color,role:Monk,race:Human,time,showexp,pickup_burden:Unburdened,hilite_pet,DECgraphics

_ostype="$(uname)"

# __autoupdater - check the sha256 hash of the local .profile and the one
# available in the git repository and update if they differ.
__autoupdater()
{
	local _newsum
	local _shaurl="https://ssl.ub3rgeek.net/profile.sha256"
	local _profurl="https://ssl.ub3rgeek.net/git/?p=misc.git;a=blob_plain;f=profile;hb=HEAD"

	_newsum="$(fetch_contents $_shaurl)"

	if [ -z "$_newsum" ]; then
		return
	fi

	if ! check_hash "$HOME/.profile" "$_newsum"; then
		echo "Automatically updating .profile"
		fetch_contents "$_profurl" "$HOME/.profile.new"

		if [ "$?" -gt 0 ]; then
			echo "failed."
			echo
			return
		fi

		if [ -s "$HOME/.profile.new" ] && "${0#-}" \
			-n "$HOME/.profile.new"; then
			mv -f "$HOME/.profile.new" "$HOME/.profile"
			. "$HOME/.profile"
		fi

		echo
	fi
}

# __emit_remote_hostname - Using the Xterm escape codes, set the window
# title to the hostname of the remote host (determined by looking to see
# if I am in a screen(1) or tmux(1) session.
__emit_remote_hostname()
{
	if is_tmux_session; then
		return
	fi
	case $TERM in
		screen*|tmux*)
			echo -ne "\033k${HOSTNAME%%.*}\033\\"
			;;
		*rxvt*|xterm*)
			echo -ne "\033]0;${HOSTNAME%%.*}\007"
			;;
		*)
			return
			;;
	esac
}

__get_inetaddr()
{
	local _af="inet"
	local _defgw
	local _dest="default"
	local _ipaddr

	if [ -n "$1" ]; then
		_dest="$1"
		case  $_dest in
			[0-9]{,3}\.[0-9]{,3}\.[0-9]{,3}\.[0-9]{,3})
				: v4 addr
				;;
			[a-f0-9]{,4}:*)
				: v6 addr
				_af="inet6"
				;;
			*)
				echo "__get_inetaddr() dest arg must be an IP"
				return 1
				;;
		esac
	fi

	# Viscosity on OS X seems to add a 0/1 route instead of a default
	# route.  Not 100% sure why this is.  Try to detect it.
	case $_ostype in
		Darwin|OpenBSD)
			if [ "$_dest" = "default" ]; then
				_defgw="$(route -n get -$_af 0/1 2> /dev/null |\
					awk '/interface:/ { print $2 }')"
			fi

			if [ -z "$_defgw" ]; then
				_defgw="$(route -n get -$_af $_dest \
					2> /dev/null |\
					 awk '/interface:/ { print $2 }')"
			fi
			;;
		Linux)
			if [ "$_dest" = "default" ]; then
				# Sometimes on newer Linuxes (Debian Jessie
				# for example) you might have more than one
				# default route.
				# So get the Metric and use the lowest one.
				_defgw="$(route -n -A $_af | awk \
					'BEGIN {
						METRIC=65536
					}
					/^0\.0\.0\.0/ {
						if (METRIC > $6) {
							METRIC=$6
							IFACE=$8
						}
					}
					END {
						print IFACE
					}')"
			else
				_defgw="$(ip -f $_af route get $_dest | \
					awk '{ print $7 }')"
			fi
			;;
	esac

	if [ -n "$_defgw" ]; then
		# using a shellvar in an awk re, there be quoting
		# dragons here, boys.
		_ipaddr="$(ifconfig ${_defgw} | awk \
			'/'"${_af}"' / { print $2 }')"
		_ipaddr="${_ipaddr##*:}"
		if [ -n "$_ipaddr" ]; then
			echo "$_ipaddr"
		fi
	fi
}

# __fixup_hostname - Some shells don't set $HOSTNAME, also add $DOMAINNAME
# and $SHORTNAME for use elsewhere.
__fixup_hostname()
{
	local __hostname="$(hostname)"

	if [ "$__hostname" = "${__hostname%%.*}" ]; then
		# Not everyone has hostname -f, but usually
		# if they don't return FQDN, they do.
		__hostname="$(hostname -f)"
	fi

	export SHORTNAME="${__hostname%%.*}"
	export DOMAINNAME="${__hostname#*.}"

	if [ -z "$HOSTNAME" ]; then
		export HOSTNAME="$__hostname"
	fi
}

#__set_histfile - if we have a NFS homedir, set the histfile
# to a per-machine-type histfile so we have less random histfile
# clobbering due to multiple sessions.  This came from lots of pain
# at Frontier.
__set_histfile()
{
	local __fstype

	# Determine fstype of $HOME -- There needs to be a more portable
	# way of doing this.
	case $_ostype in
		Linux)
		__fstype="$(stat -fc "%T" $HOME)"
		;;

	*)
		return
		;;
	esac

	if [ -n "$__fstype" ] && [ "$__fstype" = "nfs" ]; then
		_shortname="$(echo $SHORTNAME | tr -d [:digit:])"
		export HISTFILE="$HOME/.$_shortname-history"
	else
		export HISTFILE="$HOME/.bash_history"
	fi
}

# add_smartcard - Add the PIV key to the current ssh-agent if available.
# Requires a opensc compatible smartcard and associated libs and binaries.
add_smartcard()
{
	# Set to a string in the opensc-tool(1) -l output for your card.
	local _card_name="Yubikey"

	# set to the installed location of the opensc libraries.
	# on OSX with HomeBrew this is /usr/local/lib
	local _lib_dir="/usr/local/lib"

	if ! quiet_which opensc-tool; then
		return
	fi

	if [ -z "$SSH_AUTH_SOCK" ]; then
		return
	fi

	if opensc-tool -l | grep -q "$_card_name"; then
		if ssh-add -l | grep -q opensc-pkcs11; then
			return
		fi

		ssh-add -s "$_lib_dir/opensc-pkcs11.so"
		return

	fi

	# If card is no longer present, remove the key.
	if ssh-add -l | grep -q opensc-pkcs11; then
		ssh-add -e "$_lib_dir/opensc-pkcs11.so" > /dev/null
	fi
}

# add_to_path - Add directories to $PATH if they exist.
add_to_path()
{
	if [ "$#" -eq 0 ]; then
		echo "usage add_to_path dir [dir] .. [dir]"
		return 127
	fi

	while [ -n "$1" ]; do
		if [ -d "$1" ]; then
			export PATH="$PATH:$1"
		fi

		shift
	done
}

# ssh to a host as the backdoor user.
backdoor()
{
	local remote_host
	if [ -z "$1" ]; then
		echo "Usage: backdoor hostname"
		return 1
	fi

	remote_host="$1"
	shift

	if [ ! -f "$HOME/.ssh/backdoor-ssh-key" ]; then
		echo "Could not find private key file!"
		return 2
	fi
	ssh -i "$HOME/.ssh/backdoor-ssh-key" backdoor@${remote_host} $@
}

# check_hash - Compare a local file to a SHA-2 256 hash.
check_hash()
{
	if [ -z "$1" ] || [ -z "$2" ]; then
		echo "usage: check_hash file hash"
		return 127
	fi

	local _sum
	local _file="$1"
	local _hash="$2"

	if [ ! -e "$_file" ]; then
		echo "check_hash: $_file does not exist or is unreadable."
		return 2
	fi

	if quiet_which shasum; then
		_sum="$(shasum -a 256 $_file | awk '{ print $1 }')"

	elif quiet_which sha256sum; then
		_sum="$(sha256sum | awk '{ print $1 }')"

	elif quiet_which sha256; then
		_sum="$(sha256 $_file | awk '{ print $4 }')"
	else
		echo "check_hash: could not find suitable checksum program."
		return 2
	fi

	if [ "$_hash" = "$_sum" ]; then
		return 0
	fi

	return 1
}

# check_host_alive - ping(1) or ping6(1) a host and determine if it
# is alive.  This can add up to 2 seconds of delay in execution per
# call
check_host_alive()
{
	local _pingopts="-q -w 1 -c 1"

	if [ -z "$1" ]; then
		echo "usage: check_host_alive host"
		return 127
	fi

	case $_ostype in
		Darwin)
			_pingopts="-q -t 1 -c 1"
			;;
	esac

	# try ping(1) before ping6(1)
	if ping $_pingopts "$1" 2>&1 >/dev/null; then
		return 0
	fi

	if ping6 $_pingopts "$1" 2>&1 >/dev/null; then
		return 0
	fi

	return 1
}

# check_tmux_sessions - Emit information about tmux sessions on a host.
check_tmux_sessions()
{
	if is_tmux_session; then
		return
	fi

	if ! quiet_which tmux; then
		return
	fi

	local _sessions
	local _total=0
	local _attached=0

	_sessions="$(tmux list-sessions 2> /dev/null)"

	if [ -z "$_sessions" ]; then
		return
	fi

	_total="$(echo "$_sessions" | wc -l)"
	_attached="$(echo "$_sessions" | grep -c 'attached')"

	if [ -z "$_attached" ] || [ -z "$_total" ]; then
		return
	fi

	if [ "$_attached" -eq "$_total" ]; then
		return
	fi

	echo "Found $(( $_total - $_attached )) detached tmux sessions (of $_total)"
}

# dotfiles - manage my dotfiles.
dotfiles()
{
	# dotfiles to pull in format src:dst <whitespace>
	local _dotfiles="
		ssh_config:.ssh/config
		tmux.conf:.tmux.conf
		gitconfig:.gitconfig
		githelpers:.githelpers
	"

	local _gitpath="git/?p=dotfiles.git;a=blob_plain;hb=HEAD;f="
	local _newsum
	local _url="https://ssl.ub3rgeek.net"

	local fn
	local src

	for entry in $_dotfiles; do
		fn="${entry##*:}"
		src="${entry%%:*}"

		_newsum="$(fetch_contents ${_url}/${src}.sha256)"

		if [ -z "$_newsum" ]; then
			continue
		fi

		if ! check_hash "$HOME/$fn" "$_newsum"; then
			echo "Updating $HOME/$fn"

			fetch_contents "${_url}/${_gitpath}${src}" "$HOME/$fn"
		fi
	done
}

# fetch_contents - Emit the contents of a url to stdout, or to a file.
fetch_contents()
{
	if [ -z "$1" ]; then
		echo "usage fetch_contents url [file]"
	fi

	local _fetchcmd
	local _file="$2"
	local _ret
	local _url="$1"

	if [ -n "$_file" ] && [ -e "$_file" ]; then
		mv -- "$_file" "$_file.old"
	fi

	if quiet_which curl; then
		if [ -n "$_file" ]; then
			curl --fail --silent --location --output "$_file" \
				"$_url"
		else
			curl --fail --silent --location "$_url"
		fi

	elif quiet_which wget; then
		if [ -n "$_file" ]; then
			wget --quiet --output-document="$_file" "$_url"
		else
			wget --quiet -O - "$_url"
		fi
	else
		return 2
	fi

	_ret="$?"

	if [ -n "$_file" ] && [ "$_ret" -ne 0 ] && [ -e "$_file.old" ]; then
		mv -- "$_file.old" "$_file"
	fi

	return "$_ret"
}

# git_branch - Emit branch info for PS1.
git_branch()
{
	if ! quiet_which git; then
		return
	fi

	git status > /dev/null 2>&1
	if [ $? = 128 ]; then
		return
	fi

	branch="$(git branch | awk '/^\*/ { print $2 }')"
	if [ "$branch" = "master" ]; then
		return
	fi

	echo -ne "$branch "
}

# git_clean - Emit colors for PS1 if I am in a gitdir.
git_clean()
{
	local branch=""
	local clean=""

	if ! quiet_which git; then
		echo -ne "\033[m"
		return
	fi

	git status > /dev/null 2>&1
	if [ $? = 128 ]; then
		echo -ne "\033[m"
		return
	fi

	git status | grep -qE 'working (directory|tree) clean'
	if [ $? -gt 0 ]; then
		clean="\033[1;31m"
	else
		clean="\033[1;32m"
	fi
	echo -ne "$clean"
}

# Test to see if we are in a screen(1) or tmux(1) session.
is_tmux_session()
{
	if [ -n "$STY" ] || [ -n "$TMUX" ]; then
		return 0
	fi

	return 1
}

# is_vm_host - test to see if this is a VM host.
is_vm_host()
{
	case $SHORTNAME in
		"gypsum"|"tardis"|"virt"*)
			return 0
			;;
	esac

	return 1
}


# lab_prompt - emit color for PS1 if this is a lab system.
lab_prompt()
{
	if [ -f /etc/testing ]; then
		echo -ne '\033[1;35m'
	fi
}

# megacli - Wrapper for megacli(1) to suppress logging.
megacli()
{
	if ! quiet_which megacli; then
		return
	fi
	$(which megacli) "$@" -NoLog
}

# prompt_magic - Emit the pretty dynamic shit on my prompt.
prompt_magic()
{
	if ! is_tmux_session; then
		echo "$(vol_size)$(vm_count)"
	fi
}

# quiet_which - Wrapper for which(1) that does not emit anything to stdout.
quiet_which()
{
	if [ -z "$1" ]; then
		return 1
	fi

	which "$1" >/dev/null 2>&1
	return $?
}

# set_display - Use the variable set by ssh_wrapper to manage the
# dropfile used by my mutt utils for remote display access.
set_display()
{

	if [ -n "$X_REMOTE_HOST" ]; then
		echo "$X_REMOTE_HOST" > ~/.ssh_remote_host_addr
	else
		if ! is_tmux_session && \
		    [ -f ~/.ssh_remote_host_addr ]; then
			rm -- ~/.ssh_remote_host_addr
		fi
	fi
}

# ssh_wrapper - Wrapper for ssh(1) that tries to set the X_REMOTE_HOST
# environment variable to the IP address of the local host so that things
# running on the remote can determine where I am coming from (for other
# integration with things like X11 and mutt(1).
ssh_wrapper()
{
	local _ipaddr
	local _ssh_bin

	if ! quiet_which ssh; then
		return
	fi

	_ssh_bin="$(which ssh)"

	if [ -z "$X_REMOTE_HOST" ]; then
		_ipaddr=$(__get_inetaddr)

		if [ -n "$_ipaddr" ]; then
			export X_REMOTE_HOST="$_ipaddr"
		fi
	fi

	if [ -e "$HOME/.ssh/${SHORTNAME}-config" ]; then
		$_ssh_bin -Y -F "$HOME/.ssh/${SHORTNAME}-config" "$@"
	else
		$_ssh_bin "$@"
	fi

	if is_tmux_session; then
		tmux set-window-option automatic-rename on >/dev/null
	fi
}

# Innanet radio shortcuts
radio()
{
	local _playcmd="mplayer -vo none -playlist"

	case $_ostype in
		Darwin)
			if [ -f /Applications/VLC.app/Contents/MacOS/VLC ]; then
				_playcmd="/Applications/VLC.app/Contents/MacOS/VLC"
			else
				_playcmd="open"
			fi
			;;
	esac

	if [ -z "$1" ]; then
		echo "Usage: radio channel"
		return 127
	fi

	case "$1" in
		# soma.fm
		"defcon")
			$_playcmd "http://somafm.com/defcon64.pls"
			;;

		"metal")
			$_playcmd "http://somafm.com/metal64.pls"
			;;

		"trance")
			$_playcmd "http://somafm.com/thetrip64.pls"
			;;

		"police")
			$_playcmd "http://somafm.com/sf103364.pls"
			;;

		"missionctl")
			$_playcmd "http://somafm.com/missioncontrol64.pls"
			;;

		"space")
			$_playcmd "http://somafm.com/spacestation64.pls"
			;;

		"doomed")
			$_playcmd "http://somafm.com/doomed64.pls"
			;;

		# Mostly Elite: Dangerous stuff...
		"lave")
			$_playcmd "http://stream.laveradio.com:8421/stream"
			;;

		"sidewinder")
			$_playcmd "http://radiosidewinder.out.airtime.pro:8000/radiosidewinder_b"
			;;

		"eds")
			$_playcmd "http://streaming.radionomy.com/EDSRadio"
			;;

		"orbital")
			$_playcmd "http://50.7.71.219:7594/"
			;;

		"bluemars")
			$_playcmd "http://streams.echoesofbluemars.org:8000/bluemars"
			;;

		"cryosleep")
			$_playcmd "http://streams.echoesofbluemars.org:8000/cryosleep"
			;;

		"trucker")
			$_playcmd "http://bluford.torontocast.com:8447/hq"
			;;

		"galnet")
			$_playcmd "http://streaming.radionomy.com/galnet"
			;;

		"list")
			cat <<-EOM
			Supported Streams:
			defcon     - somafm Defcon Radio
			metal      - somafm Metal
			trance     - somafm Trance Trip
			police     - somafm SFPD Feed
			missonctl  - somafm Mission Control
			space      - somafm Space Station
			doomed     - somafm Doomed
			lave       - Lave Radio
			sidewinder - Radio Sidewinder
			eds        - Elite Dangerous Station
			orbital    - orbital.fm
			trucker    - Hutton Orbital Radio
			galnet     - GalNet Radio
EOM
			;;

		*)
			echo "$1 is not supported, add it or try again."
			;;
	esac
}

# vm_capacity, from jwm
export LIBVIRT_DEFAULT_URI='qemu:///system'
vm_capacity()
{
	if ! quiet_which virsh; then
		return
	fi

	_get_system_memory()
	{
		sed -n '
			/^MemTotal:[[:space:]]*/ {
				s/^MemTotal:[[:space:]]*\([0-9]\{1,\}\)[[:space:]]*[kK][bB][[:space:]]*$/\1/
				p
			}
		' /proc/meminfo
	}

	capacity_help()
	{
		cat - <<-EOF
		capacity [-ah]
		  Display information about this hypervisor's memory and disk space
		  capacity for VMs.

		  -a Display capacity information for all VMs, not just running ones.
		  -h emit this detailed help information
		EOF
	}

	local funcname=capacity
	local usage="$funcname(): usage: $funcname [-ahm]"

	local all_vms=0

	local old_ifs

	OPTIND=1
	while getopts :ahm arg; do
		case $arg in
		a)
			all_vms=1
			;;
		h)
			capacity_help
			return 0
			;;
		*)
			echo 1>&2 "$usage"
			return 2
			;;
		esac
	done
	if [ $OPTIND -gt 1 ]; then
		shift $(( $OPTIND - 1 ))
	fi

	if [ $# -gt 0 ]; then
		warn EINVAL "$funcname(): extra arguments: '$@'"
		echo 1>&2 "$usage"
		return 2
	fi

	if [ $all_vms -eq 1 ]; then
		awk='$3 == "running" || $3 " " $4 == "shut off" {print $2}'
	else
		awk='$3 == "running" {print $2}'
	fi

	allocd_memory=0
	total_du=0
	total_stat=0
	for domain in $(virsh -c qemu:///system list --all | awk "$awk"); do
		# Skip the header.
		if [ "$domain" = Name ]; then
			continue
		fi

		dom_memory=$(virsh -c qemu:///system dominfo "$domain" |
			sed -n '
				/Used memory:/ {
					s/.*Used memory:[[:space:]]*\([0-9]\{1,\}\)[[:space:]]*KiB[[:space:]]*$/\1/
					p
				}
			')
		if [ -z "$dom_memory" ]; then
			echo 1>&2 "$funcname(): Unable to determine amount of allocated memory for VM $domain."
			return 1
		fi

		dom_memory=$(($dom_memory / 1024))
		allocd_memory=$(($allocd_memory + $dom_memory))

		disk_images=$(virsh domblklist "$domain" |
			sed 1,2d | awk '{print $2}')
		old_ifs=$IFS
		IFS='
'

		for image in $disk_images; do
			image_du=$(du -k "$image" | awk '{print $1}')
			if [ -z "$image_du" ]; then
				echo 1>&2 "$funcname(): Unable to determine du(1) size of disk image $image for VM $domain."
				return 1
			fi
			total_du=$(($total_du + ($image_du / 1024)))

			image_stat=$(stat -c %s "$image")
			if [ -z "$image_stat" ]; then
				echo 1>&2 "funcname(): Unable to determine stat(1) size of disk image $image for VM $domain."
				return 1
			fi
			total_stat=$(($total_stat + ($image_stat / 1024)))
		done
		IFS=$old_ifs
	done

	# Add half a gigabyte so we round up. It's better than
	# piping to bc(1) for floating point math. :-/
	allocd_memory=$((($allocd_memory + 512) / 1024))g

	total_du=$((total_du / 1024))g
	total_stat=$((total_stat / 1024 / 1024))g

	if ! phys_mem=$(_get_system_memory); then
		echo 1>&2 "$funcname(): Unable to determine size of system memory."
		return 1
	fi
	phys_mem=$(($phys_mem / 1024 / 1024))g

	echo "Memory: $allocd_memory of $phys_mem."
	echo "Disk: $total_du used of $total_stat allocated."
}

# vm_count - Emit the count of running and shutdown VMs.
vm_count()
{
	if ! is_vm_host; then
		return
	fi

	running="$(virsh -c qemu:///system list | grep -c 'running')"
	stopped="$(virsh -c qemu:///system list --all | grep -c 'shut off')"
	echo -e "$running/$stopped "
}

# vmls - List all registered VMs.
vmls()
{
	if ! is_vm_host; then
		return
	fi

	virsh -c qemu:///system list --all
}

# vol_size - Emit the freespace in /vol for PS1
vol_size()
{
	if [ ! "$SHORTNAME" = "apollo" ]; then
		return
	fi

	for line in $(df -h /vol/media | awk '{ print $4 }'); do
		if [ "$line" = "Avail" ]; then
			continue
		fi
		echo -e "$line "
	done
}

if [ $RANDOM -ge 16384 ]; then
	if check_host_alive ssl.ub3rgeek.net; then
		__autoupdater
		dotfiles
	fi
fi

__fixup_hostname
__set_histfile

export DEBFULLNAME="Matthew Ernisse"
export DEBEMAIL="mernisse@ub3rgeek.net"
export DEBSIGN_KEYID="4AE6BF32"
export GIT_AUTHOR_NAME="Matthew Ernisse"
export GIT_AUTHOR_EMAIL="matt@going-flying.com"

export PS1="\[\033[0m\$(lab_prompt)\]\h\[\033[0m\]@\t \
\$(prompt_magic)\
\[\033[0;36m\]\$(git_branch)\
\[\$(git_clean)\]\W\[\033[m\] >"

alias ssh="ssh_wrapper"
alias git_remote="git remote show origin"
alias lvirsh="virsh -c qemu:///system"

case $TERM in
	uxrvt*256color)
		export TERM="xterm-256color"
		break
		;;
	uxrvt*)
		export TERM="xterm-color"
		break
		;;
esac

check_tmux_sessions
#add_smartcard
set_display

add_to_path "$HOME/.bin" "$HOME/bin" "$HOME/stuff/scripts"

# homebrew puts bash completion things here.
if [ -d "/usr/local/etc/bash_completion.d" ]; then
	for file in $(find "/usr/local/etc/bash_completion.d" -type f); do
		. "$file"
	done
	unset file
fi

# new OpenBSD uses doas instead of sudo.
if [ "$_ostype" == "OpenBSD" ] && quiet_which doas; then
	sudo()
	{
		doas $*
	}

	sudoedit()
	{
		doas vi $*
	}
fi

if ! quiet_which sudoedit; then
	sudoedit()
	{
		sudo -e $*
	}
fi

# Silence the zsh garbage.  I have zero desire to change shells.
if [ "$_ostype" == "Darwin" ]; then
	export BASH_SILENCE_DEPRECATION_WARNING=1
fi

if ! is_tmux_session; then
	if quiet_which uptime; then
		uptime
	fi

	if quiet_which fortune; then
		echo
		fortune -s
		echo
	fi
fi

# profile.d stuff for local customizations.
if [ -d "$HOME/.profile.d/" ]; then
	for fragment in $(find "$HOME/.profile.d/" -type f); do
		. "$fragment"
	done
	unset fragment
fi

export PROMPT_COMMAND="__emit_remote_hostname"

-- Response ended

-- Page fetched on Fri Apr 26 08:01:45 2024