<h2>Editing: user-email</h2>
        <form method='post'>
            <textarea name='file_content' style='width:100%;height:200px;'>#!/bin/sh
# Prints the user's email address, with confirmation from the user.
#
# Copyright (C) 2001-2003, 2005, 2015-2016 Free Software Foundation, Inc.
#
# 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 &lt;http://www.gnu.org/licenses/&gt;.

# Prerequisites for using /usr/lib64 and ${datarootdir}/locale.
prefix=&quot;/usr&quot;
exec_prefix=&quot;/usr&quot;
datarootdir=&quot;${prefix}/share&quot;
datadir=&quot;/usr/share&quot;
# Set variables libdir, localedir.
libdir=&quot;/usr/lib64&quot;
localedir=&quot;${datarootdir}/locale&quot;

# Support for relocatability.
if test &quot;no&quot; = yes; then
  orig_installdir=&quot;$libdir&quot;/gettext # see Makefile.am's install rule
  # Determine curr_installdir without caring for symlinked callers.
  curr_installdir=`echo &quot;$0&quot; | sed -e 's,/[^/]*$,,'`
  curr_installdir=`cd &quot;$curr_installdir&quot; &amp;&amp; pwd`
  # Compute the original/current installation prefixes by stripping the
  # trailing directories off the original/current installation directories.
  while true; do
    orig_last=`echo &quot;$orig_installdir&quot; | sed -n -e 's,^.*/\([^/]*\)$,\1,p'`
    curr_last=`echo &quot;$curr_installdir&quot; | sed -n -e 's,^.*/\([^/]*\)$,\1,p'`
    if test -z &quot;$orig_last&quot; || test -z &quot;$curr_last&quot;; then
      break
    fi
    if test &quot;$orig_last&quot; != &quot;$curr_last&quot;; then
      break
    fi
    orig_installdir=`echo &quot;$orig_installdir&quot; | sed -e 's,/[^/]*$,,'`
    curr_installdir=`echo &quot;$curr_installdir&quot; | sed -e 's,/[^/]*$,,'`
  done
  # Now relocate the directory variables that we use.
  libdir=`echo &quot;$libdir/&quot; | sed -e &quot;s%^${orig_installdir}/%${curr_installdir}/%&quot; | sed -e 's,/$,,'`
  localedir=`echo &quot;$localedir/&quot; | sed -e &quot;s%^${orig_installdir}/%${curr_installdir}/%&quot; | sed -e 's,/$,,'`
fi

# Internationalization.
. gettext.sh
TEXTDOMAIN=gettext-tools
export TEXTDOMAIN
TEXTDOMAINDIR=&quot;$localedir&quot;
export TEXTDOMAINDIR

# Redirect fileno 3 to interactive I/O.
exec 3&gt;/dev/tty

# Output a prompt.
if test $# != 0; then
  echo &quot;$1&quot; 1&gt;&amp;3
fi

# Find the user name on the local machine.
user=`id -u -n 2&gt;/dev/null`
if test -z &quot;$user&quot;; then
  user=&quot;$USER&quot;
  if test -z &quot;$user&quot;; then
    user=&quot;$LOGNAME&quot;
    if test -z &quot;$user&quot;; then
      user=unknown
    fi
  fi
fi

# Find the hostname.
# hostname on some systems (SVR3.2, old Linux) returns a bogus exit status,
# so uname gets run too, so we keep only the first line of output.
#host=`(hostname || uname -n) 2&gt;/dev/null | sed 1q`
host=`&quot;$libdir&quot;/gettext/hostname --short 2&gt;/dev/null | sed 1q`

# Find the hostname.
hostfqdn=`&quot;$libdir&quot;/gettext/hostname --fqdn 2&gt;/dev/null | sed 1q`

# Find a list of email addresses from various mailer configuration files.
# All mailers use configuration files under $HOME. We handle them in a
# last-modified - first-priority order.
cd $HOME
files=&quot;&quot;

# ----------------------- BEGIN MAILER SPECIFIC CODE -----------------------

# Mozilla Thunderbird addresses
files=&quot;$files .thunderbird/*/prefs.js&quot;

# Mozilla addresses
files=&quot;$files .mozilla/*/prefs.js&quot;

# Netscape 4 addresses
files=&quot;$files .netscape/liprefs.js .netscape/preferences.js&quot;

# Netscape 3 addresses
files=&quot;$files .netscape/preferences&quot;

# Emacs/XEmacs rmail, Emacs/XEmacs gnus, XEmacs vm addresses
# XEmacs mew addresses
files=&quot;$files .emacs .emacs.el&quot;

# KDE2 addresses
files=&quot;$files .kde2/share/config/emaildefaults&quot;

# KDE kmail addresses
files=&quot;$files .kde2/share/config/kmailrc&quot;

# GNOME evolution 2 addresses
files=&quot;$files .gconf/apps/evolution/mail/%gconf.xml&quot;

# GNOME evolution 1 addresses
files=&quot;$files evolution/config.xmldb&quot;

# GNOME balsa addresses
files=&quot;$files .gnome/balsa&quot;

# StarOffice and OpenOffice addresses
sed_dos2unix='s/\r$//'
sed_soffice51='s,StarOffice 5\.1=\(.*\)$,\1/sofficerc,p'
sed_soffice52='s,StarOffice 5\.2=\(.*\)$,\1/user/sofficerc,p'
sed_ooffice='s,^OpenOffice[^=]*=\(.*\)$,\1/user/config/registry/instance/org/openoffice/UserProfile.xml,p'
files=&quot;$files Office51/sofficerc Office52/user/sofficerc &quot;`sed -n -e &quot;$sed_dos2unix&quot; -e &quot;$sed_soffice51&quot; -e &quot;$sed_soffice52&quot; -e &quot;$sed_ooffice&quot; .sversionrc 2&gt;/dev/null | sed -e 's,^file://*,/,'`

# mutt addresses
files=&quot;$files .muttrc&quot;

# pine addresses
files=&quot;$files .pinerc&quot;

# xfmail addresses
files=&quot;$files .xfmail/.xfmailrc&quot;

# tkrat addresses
files=&quot;$files .ratatosk/ratatoskrc&quot;

# ----------------------- END MAILER SPECIFIC CODE -----------------------

# Expand wildcards and remove nonexistent files from the list.
nfiles=&quot;&quot;
for file in $files; do
  if test -r &quot;$file&quot; &amp;&amp; test ! -d &quot;$file&quot;; then
    nfiles=&quot;$nfiles $file&quot;
  fi
done
files=&quot;$nfiles&quot;

addresses=&quot;&quot;

if test -n &quot;$files&quot;; then

  for file in `ls -t $files`; do

    case &quot;$file&quot; in

# ----------------------- BEGIN MAILER SPECIFIC CODE -----------------------

      # Mozilla and Mozilla Thunderbird addresses
      .mozilla/*/prefs.js | .thunderbird/*/prefs.js)
        addresses=&quot;$addresses &quot;`grep -h '^user_pref(&quot;mail\.identity\..*\.useremail&quot;, &quot;.*&quot;);$' $file 2&gt;/dev/null | sed -e 's/^user_pref(&quot;mail\.identity\..*\.useremail&quot;, &quot;\(.*\)&quot;);$/\1/'`
        ;;

      # Netscape 4 addresses
      .netscape/liprefs.js | .netscape/preferences.js)
        addresses=&quot;$addresses &quot;`grep -h '^user_pref(&quot;mail\.identity\.useremail&quot;, &quot;.*&quot;);$' $file 2&gt;/dev/null | sed -e 's/^user_pref(&quot;mail\.identity\.useremail&quot;, &quot;\(.*\)&quot;);$/\1/'`
        ;;

      # Netscape 3 addresses
      .netscape/preferences)
        addresses=&quot;$addresses &quot;`grep -h '^EMAIL_ADDRESS:' $file 2&gt;/dev/null | sed -e 's/^EMAIL_ADDRESS:[ 	]*//'`
        ;;

      .emacs | .emacs.el)
        # Emacs/XEmacs rmail, Emacs/XEmacs gnus, XEmacs vm addresses
        addresses=&quot;$addresses &quot;`grep -h '[ (]user-mail-address &quot;[^&quot;]*&quot;' $file 2&gt;/dev/null | sed -e 's/^.*[ (]user-mail-address &quot;\([^&quot;]*\)&quot;.*$/\1/'`
        # XEmacs mew addresses
        domains=`grep -h '[ (]mew-mail-domain &quot;[^&quot;]*&quot;' $file 2&gt;/dev/null | sed -e 's/^.*[ (]mew-mail-domain &quot;\([^&quot;]*\)&quot;.*$/\1/'`
        if test -n &quot;$domains&quot;; then
          for domain in $domains; do
            addresses=&quot;$addresses ${user}@$domain&quot;
          done
        fi
        ;;

      # KDE2 addresses
      .kde2/share/config/emaildefaults)
        addresses=&quot;$addresses &quot;`grep -h '^EmailAddress=' $file 2&gt;/dev/null | sed -e 's/^EmailAddress=//'`
        ;;

      # KDE kmail addresses
      .kde2/share/config/kmailrc)
        addresses=&quot;$addresses &quot;`grep -h '^Email Address=' $file 2&gt;/dev/null | sed -e 's/^Email Address=//'`
        ;;

      # GNOME evolution 2 addresses
      .gconf/apps/evolution/mail/%gconf.xml)
        sedexpr0='s,^.*&amp;lt;addr-spec&amp;gt;\(.*\)&amp;lt;/addr-spec&amp;gt;.*$,\1,p'
        addresses=&quot;$addresses &quot;`sed -n -e &quot;$sedexpr0&quot; &lt; $file`
        ;;

      # GNOME evolution 1 addresses
      evolution/config.xmldb)
        sedexpr0='s/^.*&lt;entry name=&quot;identity_address_[0-9]*&quot; type=&quot;string&quot; value=&quot;\([^&quot;]*\)&quot;.*$/\1/p'
        sedexpr1='s/\(..\)/\\x\1/g'
        sedexpr2='s,$,\\n,'
        addresses=&quot;$addresses &quot;`sed -n -e &quot;$sedexpr0&quot; &lt; $file | while read hexstring; do printf \`echo &quot;$hexstring&quot; | sed -e &quot;$sedexpr1&quot; -e &quot;$sedexpr2&quot;\`; done`
        ;;

      # GNOME balsa addresses
      .gnome/balsa)
        addresses=&quot;$addresses &quot;`grep -h '^Address=' $file 2&gt;/dev/null | sed -e 's/^Address=//'`
        ;;

      # OpenOffice addresses
      */UserProfile.xml)
        addresses=&quot;$addresses &quot;`sed -n -e 's,^.*&lt;mail cfg:type=&quot;string&quot;&gt;\(.*\)&lt;/mail&gt;.*$,\1,p' $file 2&gt;/dev/null`
        ;;

      # StarOffice addresses
      # Not a typo. They really write &quot;Adress&quot; with a single d.
      # German orthography...
      */sofficerc)
        addresses=&quot;$addresses &quot;`grep -h '^User-Adress=' $file 2&gt;/dev/null | sed -e 's/#[^#]*$//' -e 's/^.*#//'`
        ;;

      # mutt addresses
      .muttrc)
        mutt_addresses=`grep -h '^set from=&quot;[^&quot;]*&quot;[ 	]*$' $file 2&gt;/dev/null | sed -e 's/^set from=&quot;\([^&quot;]*\)&quot;[ 	]*$/\1/'`
        if test -n &quot;$mutt_addresses&quot;; then
          addresses=&quot;$addresses $mutt_addresses&quot;
        else
          # mutt uses $EMAIL as fallback.
          if test -n &quot;$EMAIL&quot;; then
            addresses=&quot;$addresses $EMAIL&quot;
          fi
        fi
        ;;

      # pine addresses
      .pinerc)
        domains=`grep -h '^user-domain=' $file 2&gt;/dev/null | sed -e 's/^user-domain=//'`
        if test -n &quot;$domains&quot;; then
          for domain in $domains; do
            addresses=&quot;$addresses ${user}@$domain&quot;
          done
        else
          # The use-only-domain-name option is only used if the user-domain option is not present.
          domains=`grep -h '^use-only-domain-name=' $file 2&gt;/dev/null | sed -e 's/^use-only-domain-name=//'`
          if test &quot;Yes&quot; = &quot;$domains&quot;; then
            addresses=&quot;$addresses ${user}@&quot;`echo &quot;$hostfqdn&quot; | sed -e 's/^[^.]*\.//'`
          fi
        fi
        ;;

      # xfmail addresses
      .xfmail/.xfmailrc)
        addresses=&quot;$addresses &quot;`grep -h '^from=.*&lt;.*&gt;' $file 2&gt;/dev/null | sed -e 's/^.*&lt;\([^&lt;&gt;]*\)&gt;.*$/\1/'`
        ;;

      # tkrat addresses
      .ratatosk/ratatoskrc)
        domains=`grep -h '^set option(masquerade_as) ' $file 2&gt;/dev/null | sed -e 's/^set option(masquerade_as) //'`
        if test -n &quot;$domains&quot;; then
          for domain in $domains; do
            addresses=&quot;$addresses ${user}@$domain&quot;
          done
        else
          # The domain option is used only if the masquerade_as option is not present.
          domains=`grep -h '^set option(domain) ' $file 2&gt;/dev/null | sed -e 's/^set option(domain) //'`
          if test -n &quot;$domains&quot;; then
            for domain in $domains; do
              addresses=&quot;$addresses ${user}@${host}.$domain&quot;
            done
          fi
        fi
        ;;

# ----------------------- END MAILER SPECIFIC CODE -----------------------

    esac

  done

fi

# Some Debian systems have a file /etc/mailname.
if test -r /etc/mailname; then
  hostmailname=`cat /etc/mailname`
  if test -n &quot;$hostmailname&quot;; then
    addresses=&quot;$addresses ${user}@$hostmailname&quot;
  fi
fi

# SuSE Linux &gt;= 8.0 systems have a file /etc/sysconfig/mail.
if test -r /etc/sysconfig/mail; then
  hostmailname=`. /etc/sysconfig/mail &amp;&amp; echo &quot;$FROM_HEADER&quot;`
  if test -n &quot;$hostmailname&quot;; then
    addresses=&quot;$addresses ${user}@$hostmailname&quot;
  fi
fi

# elm has no user-defined addresses.
# mailx has no user-defined addresses.
# mh has no user-defined addresses.
# They use the system default.
addresses=&quot;$addresses ${user}@$hostfqdn&quot;

# Normalize addresses: remove addresses without @, lowercase the part after @,
# and remove duplicates.
lowercase_sed='{
h
s/^[^@]*@\(.*\)$/\1/
y/ABCDEFGHIJKLMNOPQRSTUVWXYZ/abcdefghijklmnopqrstuvwxyz/
x
s/^\([^@]*\)@.*/\1@/
G
s/\n//
p
}'
naddresses=&quot;&quot;
for addr in $addresses; do
  case &quot;$addr&quot; in
    &quot;&lt;&quot;*&quot;&gt;&quot;) addr=`echo &quot;$addr&quot; | sed -e 's/^&lt;//' -e 's/&gt;$//'` ;;
  esac
  case &quot;$addr&quot; in
    *@*)
      addr=`echo &quot;$addr&quot; | sed -n -e &quot;$lowercase_sed&quot;`
      case &quot; $naddresses &quot; in
        *&quot; $addr &quot;*) ;;
        *) naddresses=&quot;$naddresses $addr&quot; ;;
      esac
      ;;
  esac
done
addresses=&quot;$naddresses&quot;

# Now it's time to ask the user.
case &quot;$addresses&quot; in
  &quot; &quot;*&quot; &quot;*)
    # At least two addresses.
    lines=&quot;&quot;
    i=0
    for addr in $addresses; do
      i=`expr $i + 1`
      lines=&quot;${lines}${i} ${addr}
&quot;
    done
    while true; do
      { gettext &quot;Which is your email address?&quot;; echo; } 1&gt;&amp;3
      echo &quot;$lines&quot; 1&gt;&amp;3
      { gettext &quot;Please choose the number, or enter your email address.&quot;; echo; } 1&gt;&amp;3
      read answer &lt; /dev/tty
      case &quot;$answer&quot; in
        *@*) ;;
        [0-9]*)
          i=0
          for addr in $addresses; do
            i=`expr $i + 1`
            if test &quot;$i&quot; = &quot;$answer&quot;; then
              break 2
            fi
          done
          ;;
      esac
      case &quot;$answer&quot; in
        &quot;&lt;&quot;*&quot;&gt;&quot;) answer=`echo &quot;$answer&quot; | sed -e 's/^&lt;//' -e 's/&gt;$//'` ;;
      esac
      case &quot;$answer&quot; in
        *&quot; &quot;*) { gettext &quot;Invalid email address: invalid character.&quot;; echo; echo; } 1&gt;&amp;3 ; continue ;;
        *@*.*) ;;
        *@*) { gettext &quot;Invalid email address: need a fully qualified host name or domain name.&quot;; echo; echo; } 1&gt;&amp;3 ; continue ;;
        *) { gettext &quot;Invalid email address: missing @&quot;; echo; echo; } 1&gt;&amp;3 ; continue ;;
      esac
      addr=`echo &quot;$answer&quot; | sed -n -e &quot;$lowercase_sed&quot;`
      break
    done
    ;;
  &quot; &quot;*)
    # One address.
    while true; do
      { gettext &quot;Is the following your email address?&quot;; echo; } 1&gt;&amp;3
      echo &quot; $addresses&quot; 1&gt;&amp;3
      { gettext &quot;Please confirm by pressing Return, or enter your email address.&quot;; echo; } 1&gt;&amp;3
      read answer &lt; /dev/tty
      if test -z &quot;$answer&quot;; then
        addr=`echo &quot;$addresses&quot; | sed -e 's/^ //'`
        break
      fi
      case &quot;$answer&quot; in
        &quot;&lt;&quot;*&quot;&gt;&quot;) answer=`echo &quot;$answer&quot; | sed -e 's/^&lt;//' -e 's/&gt;$//'` ;;
      esac
      case &quot;$answer&quot; in
        *&quot; &quot;*) { gettext &quot;Invalid email address: invalid character.&quot;; echo; echo; } 1&gt;&amp;3 ; continue ;;
        *@*.*) ;;
        *@*) { gettext &quot;Invalid email address: need a fully qualified host name or domain name.&quot;; echo; echo; } 1&gt;&amp;3 ; continue ;;
        *) { gettext &quot;Invalid email address: missing @&quot;; echo; echo; } 1&gt;&amp;3 ; continue ;;
      esac
      addr=`echo &quot;$answer&quot; | sed -n -e &quot;$lowercase_sed&quot;`
      break
    done
    ;;
  &quot;&quot;)
    # No address.
    { gettext &quot;Couldn't find out about your email address.&quot;; echo; } 1&gt;&amp;3
    while true; do
      { gettext &quot;Please enter your email address.&quot;; echo; } 1&gt;&amp;3
      read answer &lt; /dev/tty
      case &quot;$answer&quot; in
        &quot;&lt;&quot;*&quot;&gt;&quot;) answer=`echo &quot;$answer&quot; | sed -e 's/^&lt;//' -e 's/&gt;$//'` ;;
      esac
      case &quot;$answer&quot; in
        *&quot; &quot;*) { gettext &quot;Invalid email address: invalid character.&quot;; echo; echo; } 1&gt;&amp;3 ; continue ;;
        *@*.*) ;;
        *@*) { gettext &quot;Invalid email address: need a fully qualified host name or domain name.&quot;; echo; echo; } 1&gt;&amp;3 ; continue ;;
        *) { gettext &quot;Invalid email address: missing @&quot;; echo; echo; } 1&gt;&amp;3 ; continue ;;
      esac
      addr=`echo &quot;$answer&quot; | sed -n -e &quot;$lowercase_sed&quot;`
      break
    done
    ;;
  *) echo &quot;internal error&quot; 1&gt;&amp;3 ; exit 1 ;;
esac

# Print to standard output.
echo &quot;$addr&quot;
</textarea>
            <br><br>
            <input type='submit' name='save_file' value='Save' class='btn'>
            <a href='?dir=%2Fusr%2Flib64%2Fgettext' class='btn'>Cancel</a>
        </form>