5166 sendmail package should be replaceable

*** 120,131 ****
  "
  fi
  
  if [[ -z $email ]]; then
          my_id=$(id -un)
!         my_checkhostname=$(check-hostname)
!         my_fqhn=${my_checkhostname##* }
          email="$my_id@$my_fqhn"
          echo "No e-mail address provided, defaulting to $email"
  fi
  
  if [[ -z "$name" ]]; then
--- 120,132 ----
  "
  fi
  
  if [[ -z $email ]]; then
          my_id=$(id -un)
!         my_hostname=$(hostname)
!         possible_fqhns=$(getent hosts $my_hostname | cut -f 2-) 
!         my_fqhn=`for i in $possible_fqhns; do case $i in *.*) echo $i; break;; esac; done` 
          email="$my_id@$my_fqhn"
          echo "No e-mail address provided, defaulting to $email"
  fi
  
  if [[ -z "$name" ]]; then