--- /dev/null
+#!/bin/sh
+# Prints the user's email address, with confirmation from the user.
+
+# Redirect fileno 3 to interactive I/O.
+exec 3>/dev/tty
+
+# Output a prompt.
+if test $# != 0; then
+ echo "$1" 1>&3
+fi
+
+# Find the user name on the local machine.
+user=`id -u -n 2>/dev/null`
+if test -z "$user"; then
+ user="$USER"
+ if test -z "$user"; then
+ user="$LOGNAME"
+ if test -z "$user"; then
+ user=unknown
+ fi
+ fi
+fi
+
+# Prerequisites for using @libdir@.
+prefix="@prefix@"
+exec_prefix="@exec_prefix@"
+
+# 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>/dev/null | sed 1q`
+host=`@libdir@/@PACKAGE@/hostname --short 2>/dev/null | sed 1q`
+
+# Find the hostname.
+hostfqdn=`@libdir@/@PACKAGE@/hostname --fqdn 2>/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=""
+
+# ----------------------- BEGIN MAILER SPECIFIC CODE -----------------------
+
+# Mozilla addresses
+files="$files .mozilla/*/prefs.js"
+
+# Netscape 4 addresses
+files="$files .netscape/liprefs.js .netscape/preferences.js"
+
+# Netscape 3 addresses
+files="$files .netscape/preferences"
+
+# Emacs/XEmacs rmail, Emacs/XEmacs gnus, XEmacs vm addresses
+# XEmacs mew addresses
+files="$files .emacs .emacs.el"
+
+# KDE2 addresses
+files="$files .kde2/share/config/emaildefaults"
+
+# KDE kmail addresses
+files="$files .kde2/share/config/kmailrc"
+
+# GNOME balsa addresses
+files="$files .gnome/balsa"
+
+# StarOffice addresses
+files="$files Office51/sofficerc Office52/user/sofficerc"
+
+# mutt addresses
+files="$files .muttrc"
+
+# pine addresses
+files="$files .pinerc"
+
+# xfmail addresses
+files="$files .xfmail/.xfmailrc"
+
+# tkrat addresses
+files="$files .ratatosk/ratatoskrc"
+
+# ----------------------- END MAILER SPECIFIC CODE -----------------------
+
+# Expand wildcards and remove nonexistent files from the list.
+nfiles=""
+for file in $files; do
+ if test -r "$file" && test ! -d "$file"; then
+ nfiles="$nfiles $file"
+ fi
+done
+files="$nfiles"
+
+addresses=""
+
+if test -n "$files"; then
+
+ for file in `ls -t $files`; do
+
+ case "$file" in
+
+# ----------------------- BEGIN MAILER SPECIFIC CODE -----------------------
+
+ # Mozilla addresses
+ .mozilla/*/prefs.js)
+ addresses="$addresses "`grep -h '^user_pref("mail\.identity\..*\.useremail", ".*");$' $file 2>/dev/null | sed -e 's/^user_pref("mail\.identity\..*\.useremail", "\(.*\)");$/\1/'`
+ ;;
+
+ # Netscape 4 addresses
+ .netscape/liprefs.js | .netscape/preferences.js)
+ addresses="$addresses "`grep -h '^user_pref("mail\.identity\.useremail", ".*");$' $file 2>/dev/null | sed -e 's/^user_pref("mail\.identity\.useremail", "\(.*\)");$/\1/'`
+ ;;
+
+ # Netscape 3 addresses
+ .netscape/preferences)
+ addresses="$addresses "`grep -h '^EMAIL_ADDRESS:' $file 2>/dev/null | sed -e 's/^EMAIL_ADDRESS:[ ]*//'`
+ ;;
+
+ .emacs | .emacs.el)
+ # Emacs/XEmacs rmail, Emacs/XEmacs gnus, XEmacs vm addresses
+ addresses="$addresses "`grep -h '[ (]user-mail-address "[^"]*"' $file 2>/dev/null | sed -e 's/^.*[ (]user-mail-address "\([^"]*\)".*$/\1/'`
+ # XEmacs mew addresses
+ domains=`grep -h '[ (]mew-mail-domain "[^"]*"' $file 2>/dev/null | sed -e 's/^.*[ (]mew-mail-domain "\([^"]*\)".*$/\1/'`
+ if test -n "$domains"; then
+ for domain in $domains; do
+ addresses="$addresses ${user}@$domain"
+ done
+ fi
+ ;;
+
+ # KDE2 addresses
+ .kde2/share/config/emaildefaults)
+ addresses="$addresses "`grep -h '^EmailAddress=' $file 2>/dev/null | sed -e 's/^EmailAddress=//'`
+ ;;
+
+ # KDE kmail addresses
+ .kde2/share/config/kmailrc)
+ addresses="$addresses "`grep -h '^Email Address=' $file 2>/dev/null | sed -e 's/^Email Address=//'`
+ ;;
+
+ # GNOME balsa addresses
+ .gnome/balsa)
+ addresses="$addresses "`grep -h '^Address=' $file 2>/dev/null | sed -e 's/^Address=//'`
+ ;;
+
+ # StarOffice addresses
+ # Not a typo. They really write "Adress" with a single d.
+ # German orthography...
+ Office51/sofficerc | Office52/user/sofficerc)
+ addresses="$addresses "`grep -h '^User-Adress=' $file 2>/dev/null | sed -e 's/#[^#]*$//' -e 's/^.*#//'`
+ ;;
+
+ # mutt addresses
+ .muttrc)
+ addresses="$addresses "`grep -h '^set from="[^"]*"[ ]*$' $file 2>/dev/null | sed -e 's/^set from="\([^"]*\)"[ ]*$/\1/'`
+ ;;
+
+ # pine addresses
+ .pinerc)
+ domains=`grep -h '^user-domain=' $file 2>/dev/null | sed -e 's/^user-domain=//'`
+ if test -n "$domains"; then
+ for domain in $domains; do
+ addresses="$addresses ${user}@$domain"
+ 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>/dev/null | sed -e 's/^use-only-domain-name=//'`
+ if test "Yes" = "$domains"; then
+ addresses="$addresses ${user}@"`echo "$hostfqdn" | sed -e 's/^[^.]*\.//'`
+ fi
+ fi
+ ;;
+
+ # xfmail addresses
+ .xfmail/.xfmailrc)
+ addresses="$addresses "`grep -h '^from=.*<.*>' $file 2>/dev/null | sed -e 's/^.*<\([^<>]*\)>.*$/\1/'`
+ ;;
+
+ # tkrat addresses
+ .ratatosk/ratatoskrc)
+ domains=`grep -h '^set option(masquerade_as) ' $file 2>/dev/null | sed -e 's/^set option(masquerade_as) //'`
+ if test -n "$domains"; then
+ for domain in $domains; do
+ addresses="$addresses ${user}@$domain"
+ done
+ else
+ # The domain option is used only if the masquerade_as option is not present.
+ domains=`grep -h '^set option(domain) ' $file 2>/dev/null | sed -e 's/^set option(domain) //'`
+ if test -n "$domains"; then
+ for domain in $domains; do
+ addresses="$addresses ${user}@${host}.$domain"
+ done
+ fi
+ fi
+ ;;
+
+# ----------------------- END MAILER SPECIFIC CODE -----------------------
+
+ esac
+
+ done
+
+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="$addresses ${user}@$hostfqdn"
+
+# 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/\
+//
+p
+}'
+naddresses=""
+for addr in $addresses; do
+ case "$addr" in
+ "<"*">") addr=`echo "$addr" | sed -e 's/^<//' -e 's/>$//'` ;;
+ esac
+ case "$addr" in
+ *@*)
+ addr=`echo "$addr" | sed -n -e "$lowercase_sed"`
+ case " $naddresses " in
+ *" $addr "*) ;;
+ *) naddresses="$naddresses $addr" ;;
+ esac
+ ;;
+ esac
+done
+addresses="$naddresses"
+
+# Now it's time to ask the user.
+case "$addresses" in
+ " "*" "*)
+ # At least two addresses.
+ lines=""
+ i=0
+ for addr in $addresses; do
+ i=`expr $i + 1`
+ lines="${lines}${i} ${addr}
+"
+ done
+ while true; do
+ echo "Which is your email address?" 1>&3
+ echo "$lines" 1>&3
+ echo "Please choose the number, or enter your email address." 1>&3
+ read answer < /dev/tty
+ case "$answer" in
+ *@*) ;;
+ [0-9]*)
+ i=0
+ for addr in $addresses; do
+ i=`expr $i + 1`
+ if test "$i" = "$answer"; then
+ break 2
+ fi
+ done
+ ;;
+ esac
+ case "$answer" in
+ "<"*">") answer=`echo "$answer" | sed -e 's/^<//' -e 's/>$//'` ;;
+ esac
+ case "$answer" in
+ *" "*) echo "Invalid email address: invalid character." 1>&3 ; echo 1>&3 ; continue ;;
+ *@*.*) ;;
+ *@*) echo "Invalid email address: need a fully qualified host name or domain name." 1>&3 ; echo 1>&3 ; continue ;;
+ *) echo "Invalid email address: missing @" 1>&3 ; echo 1>&3 ; continue ;;
+ esac
+ addr=`echo "$answer" | sed -n -e "$lowercase_sed"`
+ break
+ done
+ ;;
+ " "*)
+ # One address.
+ while true; do
+ echo "Is the following your email address?" 1>&3
+ echo " $addresses" 1>&3
+ echo "Please confirm by pressing Return, or enter your email address." 1>&3
+ read answer < /dev/tty
+ if test -z "$answer"; then
+ addr=`echo "$addresses" | sed -e 's/^ //'`
+ break
+ fi
+ case "$answer" in
+ "<"*">") answer=`echo "$answer" | sed -e 's/^<//' -e 's/>$//'` ;;
+ esac
+ case "$answer" in
+ *" "*) echo "Invalid email address: invalid character." 1>&3 ; echo 1>&3 ; continue ;;
+ *@*.*) ;;
+ *@*) echo "Invalid email address: need a fully qualified host name or domain name." 1>&3 ; echo 1>&3 ; continue ;;
+ *) echo "Invalid email address: missing @" 1>&3 ; echo 1>&3 ; continue ;;
+ esac
+ addr=`echo "$answer" | sed -n -e "$lowercase_sed"`
+ break
+ done
+ ;;
+ "")
+ # No address.
+ echo "Couldn't find out about your email address." 1>&3
+ while true; do
+ echo "Please enter your email address." 1>&3
+ read answer < /dev/tty
+ case "$answer" in
+ "<"*">") answer=`echo "$answer" | sed -e 's/^<//' -e 's/>$//'` ;;
+ esac
+ case "$answer" in
+ *" "*) echo "Invalid email address: invalid character." 1>&3 ; echo 1>&3 ; continue ;;
+ *@*.*) ;;
+ *@*) echo "Invalid email address: need a fully qualified host name or domain name." 1>&3 ; echo 1>&3 ; continue ;;
+ *) echo "Invalid email address: missing @" 1>&3 ; echo 1>&3 ; continue ;;
+ esac
+ addr=`echo "$answer" | sed -n -e "$lowercase_sed"`
+ break
+ done
+ ;;
+ *) echo "internal error" 1>&3 ; exit 1 ;;
+esac
+
+# Print to standard output.
+echo "$addr"
projects / thirdparty / gettext.git / commitdiff
