gnu/dist/gettext/gettext-tools/src/user-email.sh.in

   1 #!/bin/sh
   2 # Prints the user's email address, with confirmation from the user.
   3 #
   4 # Copyright (C) 2001-2003 Free Software Foundation, Inc.
   5 #
   6 # This program is free software; you can redistribute it and/or modify
   7 # it under the terms of the GNU General Public License as published by
   8 # the Free Software Foundation; either version 2, or (at your option)
   9 # any later version.
  10 #
  11 # This program is distributed in the hope that it will be useful,
  12 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 # GNU General Public License for more details.
  15 #
  16 # You should have received a copy of the GNU General Public License
  17 # along with this program; if not, write to the Free Software
  18 # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  19
  20 # Prerequisites for using @libdir@ and @localedir@.
  21 prefix="@prefix@"
  22 exec_prefix="@exec_prefix@"
  23 datadir="@datadir@"
  24 # Set variables libdir, localedir.
  25 libdir="@libdir@"
  26 localedir="@localedir@"
  27
  28 # Support for relocatability.
  29 if test "@RELOCATABLE@" = yes; then
  30   orig_installdir="$libdir"/gettext # see Makefile.am's install rule
  31   # Determine curr_installdir without caring for symlinked callers.
  32   curr_installdir=`echo "$0" | sed -e 's,/[^/]*$,,'`
  33   curr_installdir=`cd "$curr_installdir" && pwd`
  34   # Compute the original/current installation prefixes by stripping the
  35   # trailing directories off the original/current installation directories.
  36   while true; do
  37     orig_last=`echo "$orig_installdir" | sed -n -e 's,^.*/\([^/]*\)$,\1,p'`
  38     curr_last=`echo "$curr_installdir" | sed -n -e 's,^.*/\([^/]*\)$,\1,p'`
  39     if test -z "$orig_last" || test -z "$curr_last"; then
  40       break
  41     fi
  42     if test "$orig_last" != "$curr_last"; then
  43       break
  44     fi
  45     orig_installdir=`echo "$orig_installdir" | sed -e 's,/[^/]*$,,'`
  46     curr_installdir=`echo "$curr_installdir" | sed -e 's,/[^/]*$,,'`
  47   done
  48   # Now relocate the directory variables that we use.
  49   libdir=`echo "$libdir/" | sed -e "s%^${orig_installdir}/%${curr_installdir}/%" | sed -e 's,/$,,'`
  50   localedir=`echo "$localedir/" | sed -e "s%^${orig_installdir}/%${curr_installdir}/%" | sed -e 's,/$,,'`
  51 fi
  52
  53 # Internationalization.
  54 . gettext.sh
  55 TEXTDOMAIN=gettext-tools
  56 export TEXTDOMAIN
  57 TEXTDOMAINDIR="$localedir"
  58 export TEXTDOMAINDIR
  59
  60 # Redirect fileno 3 to interactive I/O.
  61 exec 3>/dev/tty
  62
  63 # Output a prompt.
  64 if test $# != 0; then
  65   echo "$1" 1>&3
  66 fi
  67
  68 # Find the user name on the local machine.
  69 user=`id -u -n 2>/dev/null`
  70 if test -z "$user"; then
  71   user="$USER"
  72   if test -z "$user"; then
  73     user="$LOGNAME"
  74     if test -z "$user"; then
  75       user=unknown
  76     fi
  77   fi
  78 fi
  79
  80 # Find the hostname.
  81 # hostname on some systems (SVR3.2, old Linux) returns a bogus exit status,
  82 # so uname gets run too, so we keep only the first line of output.
  83 #host=`(hostname || uname -n) 2>/dev/null | sed 1q`
  84 host=`"$libdir"/gettext/hostname --short 2>/dev/null | sed 1q`
  85
  86 # Find the hostname.
  87 hostfqdn=`"$libdir"/gettext/hostname --fqdn 2>/dev/null | sed 1q`
  88
  89 # Find a list of email addresses from various mailer configuration files.
  90 # All mailers use configuration files under $HOME. We handle them in a
  91 # last-modified - first-priority order.
  92 cd $HOME
  93 files=""
  94
  95 # ----------------------- BEGIN MAILER SPECIFIC CODE -----------------------
  96
  97 # Mozilla addresses
  98 files="$files .mozilla/*/prefs.js"
  99
 100 # Netscape 4 addresses
 101 files="$files .netscape/liprefs.js .netscape/preferences.js"
 102
 103 # Netscape 3 addresses
 104 files="$files .netscape/preferences"
 105
 106 # Emacs/XEmacs rmail, Emacs/XEmacs gnus, XEmacs vm addresses
 107 # XEmacs mew addresses
 108 files="$files .emacs .emacs.el"
 109
 110 # KDE2 addresses
 111 files="$files .kde2/share/config/emaildefaults"
 112
 113 # KDE kmail addresses
 114 files="$files .kde2/share/config/kmailrc"
 115
 116 # GNOME evolution addresses
 117 files="$files evolution/config.xmldb"
 118
 119 # GNOME balsa addresses
 120 files="$files .gnome/balsa"
 121
 122 # StarOffice and OpenOffice addresses
 123 sed_dos2unix='s/\r$//'
 124 sed_soffice51='s,StarOffice 5\.1=\(.*\)$,\1/sofficerc,p'
 125 sed_soffice52='s,StarOffice 5\.2=\(.*\)$,\1/user/sofficerc,p'
 126 sed_ooffice='s,^OpenOffice[^=]*=\(.*\)$,\1/user/config/registry/instance/org/openoffice/UserProfile.xml,p'
 127 files="$files Office51/sofficerc Office52/user/sofficerc "`sed -n -e "$sed_dos2unix" -e "$sed_soffice51" -e "$sed_soffice52" -e "$sed_ooffice" .sversionrc 2>/dev/null | sed -e 's,^file://*,/,'`
 128
 129 # mutt addresses
 130 files="$files .muttrc"
 131
 132 # pine addresses
 133 files="$files .pinerc"
 134
 135 # xfmail addresses
 136 files="$files .xfmail/.xfmailrc"
 137
 138 # tkrat addresses
 139 files="$files .ratatosk/ratatoskrc"
 140
 141 # ----------------------- END MAILER SPECIFIC CODE -----------------------
 142
 143 # Expand wildcards and remove nonexistent files from the list.
 144 nfiles=""
 145 for file in $files; do
 146   if test -r "$file" && test ! -d "$file"; then
 147     nfiles="$nfiles $file"
 148   fi
 149 done
 150 files="$nfiles"
 151
 152 addresses=""
 153
 154 if test -n "$files"; then
 155
 156   for file in `ls -t $files`; do
 157
 158     case "$file" in
 159
 160 # ----------------------- BEGIN MAILER SPECIFIC CODE -----------------------
 161
 162       # Mozilla addresses
 163       .mozilla/*/prefs.js)
 164         addresses="$addresses "`grep -h '^user_pref("mail\.identity\..*\.useremail", ".*");$' $file 2>/dev/null | sed -e 's/^user_pref("mail\.identity\..*\.useremail", "\(.*\)");$/\1/'`
 165         ;;
 166
 167       # Netscape 4 addresses
 168       .netscape/liprefs.js | .netscape/preferences.js)
 169         addresses="$addresses "`grep -h '^user_pref("mail\.identity\.useremail", ".*");$' $file 2>/dev/null | sed -e 's/^user_pref("mail\.identity\.useremail", "\(.*\)");$/\1/'`
 170         ;;
 171
 172       # Netscape 3 addresses
 173       .netscape/preferences)
 174         addresses="$addresses "`grep -h '^EMAIL_ADDRESS:' $file 2>/dev/null | sed -e 's/^EMAIL_ADDRESS:[        ]*//'`
 175         ;;
 176
 177       .emacs | .emacs.el)
 178         # Emacs/XEmacs rmail, Emacs/XEmacs gnus, XEmacs vm addresses
 179         addresses="$addresses "`grep -h '[ (]user-mail-address "[^"]*"' $file 2>/dev/null | sed -e 's/^.*[ (]user-mail-address "\([^"]*\)".*$/\1/'`
 180         # XEmacs mew addresses
 181         domains=`grep -h '[ (]mew-mail-domain "[^"]*"' $file 2>/dev/null | sed -e 's/^.*[ (]mew-mail-domain "\([^"]*\)".*$/\1/'`
 182         if test -n "$domains"; then
 183           for domain in $domains; do
 184             addresses="$addresses ${user}@$domain"
 185           done
 186         fi
 187         ;;
 188
 189       # KDE2 addresses
 190       .kde2/share/config/emaildefaults)
 191         addresses="$addresses "`grep -h '^EmailAddress=' $file 2>/dev/null | sed -e 's/^EmailAddress=//'`
 192         ;;
 193
 194       # KDE kmail addresses
 195       .kde2/share/config/kmailrc)
 196         addresses="$addresses "`grep -h '^Email Address=' $file 2>/dev/null | sed -e 's/^Email Address=//'`
 197         ;;
 198
 199       # GNOME evolution addresses
 200       evolution/config.xmldb)
 201         sedexpr0='s/^.*<entry name="identity_address_[0-9]*" type="string" value="\([^"]*\)".*$/\1/p'
 202         sedexpr1='s/\(..\)/\\x\1/g'
 203         sedexpr2='s,$,\\n,'
 204         addresses="$addresses "`sed -n -e "$sedexpr0" < $file | while read hexstring; do printf \`echo "$hexstring" | sed -e "$sedexpr1" -e "$sedexpr2"\`; done`
 205         ;;
 206
 207       # GNOME balsa addresses
 208       .gnome/balsa)
 209         addresses="$addresses "`grep -h '^Address=' $file 2>/dev/null | sed -e 's/^Address=//'`
 210         ;;
 211
 212       # OpenOffice addresses
 213       */UserProfile.xml)
 214         addresses="$addresses "`sed -n -e 's,^.*<mail cfg:type="string">\(.*\)</mail>.*$,\1,p' $file 2>/dev/null`
 215         ;;
 216
 217       # StarOffice addresses
 218       # Not a typo. They really write "Adress" with a single d.
 219       # German orthography...
 220       */sofficerc)
 221         addresses="$addresses "`grep -h '^User-Adress=' $file 2>/dev/null | sed -e 's/#[^#]*$//' -e 's/^.*#//'`
 222         ;;
 223
 224       # mutt addresses
 225       .muttrc)
 226         addresses="$addresses "`grep -h '^set from="[^"]*"[     ]*$' $file 2>/dev/null | sed -e 's/^set from="\([^"]*\)"[       ]*$/\1/'`
 227         ;;
 228
 229       # pine addresses
 230       .pinerc)
 231         domains=`grep -h '^user-domain=' $file 2>/dev/null | sed -e 's/^user-domain=//'`
 232         if test -n "$domains"; then
 233           for domain in $domains; do
 234             addresses="$addresses ${user}@$domain"
 235           done
 236         else
 237           # The use-only-domain-name option is only used if the user-domain option is not present.
 238           domains=`grep -h '^use-only-domain-name=' $file 2>/dev/null | sed -e 's/^use-only-domain-name=//'`
 239           if test "Yes" = "$domains"; then
 240             addresses="$addresses ${user}@"`echo "$hostfqdn" | sed -e 's/^[^.]*\.//'`
 241           fi
 242         fi
 243         ;;
 244
 245       # xfmail addresses
 246       .xfmail/.xfmailrc)
 247         addresses="$addresses "`grep -h '^from=.*<.*>' $file 2>/dev/null | sed -e 's/^.*<\([^<>]*\)>.*$/\1/'`
 248         ;;
 249
 250       # tkrat addresses
 251       .ratatosk/ratatoskrc)
 252         domains=`grep -h '^set option(masquerade_as) ' $file 2>/dev/null | sed -e 's/^set option(masquerade_as) //'`
 253         if test -n "$domains"; then
 254           for domain in $domains; do
 255             addresses="$addresses ${user}@$domain"
 256           done
 257         else
 258           # The domain option is used only if the masquerade_as option is not present.
 259           domains=`grep -h '^set option(domain) ' $file 2>/dev/null | sed -e 's/^set option(domain) //'`
 260           if test -n "$domains"; then
 261             for domain in $domains; do
 262               addresses="$addresses ${user}@${host}.$domain"
 263             done
 264           fi
 265         fi
 266         ;;
 267
 268 # ----------------------- END MAILER SPECIFIC CODE -----------------------
 269
 270     esac
 271
 272   done
 273
 274 fi
 275
 276 # Some Debian systems have a file /etc/mailname.
 277 if test -r /etc/mailname; then
 278   hostmailname=`cat /etc/mailname`
 279   if test -n "$hostmailname"; then
 280     addresses="$addresses ${user}@$hostmailname"
 281   fi
 282 fi
 283
 284 # SuSE Linux >= 8.0 systems have a file /etc/sysconfig/mail.
 285 if test -r /etc/sysconfig/mail; then
 286   hostmailname=`. /etc/sysconfig/mail && echo "$FROM_HEADER"`
 287   if test -n "$hostmailname"; then
 288     addresses="$addresses ${user}@$hostmailname"
 289   fi
 290 fi
 291
 292 # elm has no user-defined addresses.
 293 # mailx has no user-defined addresses.
 294 # mh has no user-defined addresses.
 295 # They use the system default.
 296 addresses="$addresses ${user}@$hostfqdn"
 297
 298 # Normalize addresses: remove addresses without @, lowercase the part after @,
 299 # and remove duplicates.
 300 lowercase_sed='{
 301 h
 302 s/^[^@]*@\(.*\)$/\1/
 303 y/ABCDEFGHIJKLMNOPQRSTUVWXYZ/abcdefghijklmnopqrstuvwxyz/
 304 x
 305 s/^\([^@]*\)@.*/\1@/
 306 G
 307 s/\
 308 //
 309 p
 310 }'
 311 naddresses=""
 312 for addr in $addresses; do
 313   case "$addr" in
 314     "<"*">") addr=`echo "$addr" | sed -e 's/^<//' -e 's/>$//'` ;;
 315   esac
 316   case "$addr" in
 317     *@*)
 318       addr=`echo "$addr" | sed -n -e "$lowercase_sed"`
 319       case " $naddresses " in
 320         *" $addr "*) ;;
 321         *) naddresses="$naddresses $addr" ;;
 322       esac
 323       ;;
 324   esac
 325 done
 326 addresses="$naddresses"
 327
 328 # Now it's time to ask the user.
 329 case "$addresses" in
 330   " "*" "*)
 331     # At least two addresses.
 332     lines=""
 333     i=0
 334     for addr in $addresses; do
 335       i=`expr $i + 1`
 336       lines="${lines}${i} ${addr}
 337 "
 338     done
 339     while true; do
 340       { gettext "Which is your email address?"; echo; } 1>&3
 341       echo "$lines" 1>&3
 342       { gettext "Please choose the number, or enter your email address."; echo; } 1>&3
 343       read answer < /dev/tty
 344       case "$answer" in
 345         *@*) ;;
 346         [0-9]*)
 347           i=0
 348           for addr in $addresses; do
 349             i=`expr $i + 1`
 350             if test "$i" = "$answer"; then
 351               break 2
 352             fi
 353           done
 354           ;;
 355       esac
 356       case "$answer" in
 357         "<"*">") answer=`echo "$answer" | sed -e 's/^<//' -e 's/>$//'` ;;
 358       esac
 359       case "$answer" in
 360         *" "*) { gettext "Invalid email address: invalid character."; echo; echo; } 1>&3 ; continue ;;
 361         *@*.*) ;;
 362         *@*) { gettext "Invalid email address: need a fully qualified host name or domain name."; echo; echo; } 1>&3 ; continue ;;
 363         *) { gettext "Invalid email address: missing @"; echo; echo; } 1>&3 ; continue ;;
 364       esac
 365       addr=`echo "$answer" | sed -n -e "$lowercase_sed"`
 366       break
 367     done
 368     ;;
 369   " "*)
 370     # One address.
 371     while true; do
 372       { gettext "Is the following your email address?"; echo; } 1>&3
 373       echo " $addresses" 1>&3
 374       { gettext "Please confirm by pressing Return, or enter your email address."; echo; } 1>&3
 375       read answer < /dev/tty
 376       if test -z "$answer"; then
 377         addr=`echo "$addresses" | sed -e 's/^ //'`
 378         break
 379       fi
 380       case "$answer" in
 381         "<"*">") answer=`echo "$answer" | sed -e 's/^<//' -e 's/>$//'` ;;
 382       esac
 383       case "$answer" in
 384         *" "*) { gettext "Invalid email address: invalid character."; echo; echo; } 1>&3 ; continue ;;
 385         *@*.*) ;;
 386         *@*) { gettext "Invalid email address: need a fully qualified host name or domain name."; echo; echo; } 1>&3 ; continue ;;
 387         *) { gettext "Invalid email address: missing @"; echo; echo; } 1>&3 ; continue ;;
 388       esac
 389       addr=`echo "$answer" | sed -n -e "$lowercase_sed"`
 390       break
 391     done
 392     ;;
 393   "")
 394     # No address.
 395     { gettext "Couldn't find out about your email address."; echo; } 1>&3
 396     while true; do
 397       { gettext "Please enter your email address."; echo; } 1>&3
 398       read answer < /dev/tty
 399       case "$answer" in
 400         "<"*">") answer=`echo "$answer" | sed -e 's/^<//' -e 's/>$//'` ;;
 401       esac
 402       case "$answer" in
 403         *" "*) { gettext "Invalid email address: invalid character."; echo; echo; } 1>&3 ; continue ;;
 404         *@*.*) ;;
 405         *@*) { gettext "Invalid email address: need a fully qualified host name or domain name."; echo; echo; } 1>&3 ; continue ;;
 406         *) { gettext "Invalid email address: missing @"; echo; echo; } 1>&3 ; continue ;;
 407       esac
 408       addr=`echo "$answer" | sed -n -e "$lowercase_sed"`
 409       break
 410     done
 411     ;;
 412   *) echo "internal error" 1>&3 ; exit 1 ;;
 413 esac
 414
 415 # Print to standard output.
 416 echo "$addr"