Listing 1. Function xtitle

{
case $TERM in
  xterm* | rxvt*)
  local
TITLEBAR='\[\033]0;\u@\h:\w\007\]'
  ;;
  *)
  local TITLEBAR=''
  ;;
esac
export PS1=$PS1$TITLEBAR
}