[GB.DESKTOP]
* BUG: Desktop.SendMail() does not quote the "-" character in e-mail addresses anymore. git-svn-id: svn://localhost/gambas/trunk@5613 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Benoît Minisini
parent
8b6c4b72f8
commit
0e7ca733b8
6 changed files with 739 additions and 7 deletions
|
|
@ -37,7 +37,7 @@ SearchString=True
|
|||
|
||||
[OpenFile]
|
||||
Active=1
|
||||
File[1]=".src/MMain.module:59.29"
|
||||
File[1]=".src/MMain.module:16.31"
|
||||
File[2]="gambas.sourceforge.net/menu.html:57.61"
|
||||
File[3]="gambas.sourceforge.net/home.html.template:55.48"
|
||||
File[4]="gambas.sourceforge.net/style.css:12.14"
|
||||
|
|
|
|||
|
|
@ -14,7 +14,7 @@ Sub InitVar()
|
|||
'DIM aDev AS String[] = ["92", "91", "90", "51"]
|
||||
|
||||
$cVar["OLD_VERSION"] = "2.24.0"
|
||||
$cVar["DEV_VERSION"] = "3.4.0"
|
||||
$cVar["DEV_VERSION"] = "3.4.1"
|
||||
|
||||
InitAuthor
|
||||
|
||||
|
|
|
|||
|
|
@ -56,10 +56,10 @@
|
|||
<div align="center"><img id="logo" src="logo.png"/></div>
|
||||
|
||||
<div>
|
||||
<a class="download-orange" target="_blank" href="http://sourceforge.net/projects/gambas/files/gambas3/gambas3-3.4.0.tar.bz2/download">
|
||||
{Download} <b>Gambas 3.4.0</b>
|
||||
<a class="download-orange" target="_blank" href="http://sourceforge.net/projects/gambas/files/gambas3/gambas3-3.4.1.tar.bz2/download">
|
||||
{Download} <b>Gambas 3.4.1</b>
|
||||
</a>
|
||||
<div class="release-notes" align="center"><a href="http://gambasdoc.org/help/doc/release/3.4.0?view&$(LANG)">{Release Notes}</a></div>
|
||||
<div class="release-notes" align="center"><a href="http://gambasdoc.org/help/doc/release/3.4.1?view&$(LANG)">{Release Notes}</a></div>
|
||||
</div>
|
||||
|
||||
<div style="display:inline-table;">
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
54 Maurizio Da Lio
|
||||
55 Maurizio Da Lio
|
||||
37 GNU/Linex
|
||||
33 Radoslav Dejanovic
|
||||
20 Ricardo Díaz Martin
|
||||
|
|
|
|||
|
|
@ -0,0 +1,730 @@
|
|||
#!/bin/sh
|
||||
#---------------------------------------------
|
||||
# xdg-email
|
||||
#
|
||||
# Utility script to open the users favorite email program, using the
|
||||
# RFC 2368 mailto: URI spec
|
||||
#
|
||||
# Refer to the usage() function below for usage.
|
||||
#
|
||||
# Copyright 2009-2010, Fathi Boudra <fabo@freedesktop.org>
|
||||
# Copyright 2009-2010, Rex Dieter <rdieter@fedoraproject.org>
|
||||
# Copyright 2006, Kevin Krammer <kevin.krammer@gmx.at>
|
||||
# Copyright 2006, Jeremy White <jwhite@codeweavers.com>
|
||||
#
|
||||
# LICENSE:
|
||||
#
|
||||
# Permission is hereby granted, free of charge, to any person obtaining a
|
||||
# copy of this software and associated documentation files (the "Software"),
|
||||
# to deal in the Software without restriction, including without limitation
|
||||
# the rights to use, copy, modify, merge, publish, distribute, sublicense,
|
||||
# and/or sell copies of the Software, and to permit persons to whom the
|
||||
# Software is furnished to do so, subject to the following conditions:
|
||||
#
|
||||
# The above copyright notice and this permission notice shall be included
|
||||
# in all copies or substantial portions of the Software.
|
||||
#
|
||||
# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
|
||||
# OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
||||
# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
|
||||
# THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR
|
||||
# OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
|
||||
# ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
|
||||
# OTHER DEALINGS IN THE SOFTWARE.
|
||||
#
|
||||
#---------------------------------------------
|
||||
|
||||
manualpage()
|
||||
{
|
||||
cat << _MANUALPAGE
|
||||
Name
|
||||
|
||||
xdg-email - command line tool for sending mail using the user's preferred
|
||||
e-mail composer
|
||||
|
||||
Synopsis
|
||||
|
||||
xdg-email [--utf8] [--cc address] [--bcc address] [--subject text] [--body text
|
||||
] [--attach file] [ mailto-uri | address(es) ]
|
||||
|
||||
xdg-email { --help | --manual | --version }
|
||||
|
||||
Description
|
||||
|
||||
xdg-email opens the user's preferred e-mail composer in order to send a mail to
|
||||
address(es) or mailto-uri. RFC2368 defines mailto: URIs. xdg-email limits
|
||||
support to, cc, subject and body fields in mailto-uri, all other fields are
|
||||
silently ignored. address(es) must follow the syntax of RFC822. Multiple
|
||||
addresses may be provided as separate arguments.
|
||||
|
||||
All information provided on the command line is used to prefill corresponding
|
||||
fields in the user's e-mail composer. The user will have the opportunity to
|
||||
change any of this information before actually sending the e-mail.
|
||||
|
||||
xdg-email is for use inside a desktop session only. It is not recommended to
|
||||
use xdg-email as root.
|
||||
|
||||
See http://portland.freedesktop.org/EmailConfig for information on how the user
|
||||
can change the e-mail composer that is used.
|
||||
|
||||
Options
|
||||
|
||||
--utf8
|
||||
Indicates that all command line options that follow are in utf8. Without
|
||||
this option, command line options are expected to be encoded according to
|
||||
locale. If the locale already specifies utf8 this option has no effect.
|
||||
This option does not affect mailto URIs that are passed on the command
|
||||
line.
|
||||
--cc address
|
||||
Specify a recipient to be copied on the e-mail.
|
||||
--bcc address
|
||||
Specify a recipient to be blindly copied on the e-mail.
|
||||
--subject text
|
||||
Specify a subject for the e-mail.
|
||||
--body text
|
||||
Specify a body for the e-mail. Since the user will be able to make changes
|
||||
before actually sending the e-mail, this can be used to provide the user
|
||||
with a template for the e-mail. text may contain linebreaks.
|
||||
--attach file
|
||||
|
||||
Specify an attachment for the e-mail. file must point to an existing file.
|
||||
|
||||
Some e-mail applications require the file to remain present after xdg-email
|
||||
returns.
|
||||
|
||||
--help
|
||||
Show command synopsis.
|
||||
--manual
|
||||
Show this manualpage.
|
||||
--version
|
||||
Show the xdg-utils version information.
|
||||
|
||||
Environment Variables
|
||||
|
||||
xdg-email honours the following environment variables:
|
||||
|
||||
XDG_UTILS_DEBUG_LEVEL
|
||||
Setting this environment variable to a non-zero numerical value makes
|
||||
xdg-email do more verbose reporting on stderr. Setting a higher value
|
||||
increases the verbosity.
|
||||
|
||||
Exit Codes
|
||||
|
||||
An exit code of 0 indicates success while a non-zero exit code indicates
|
||||
failure. The following failure codes can be returned:
|
||||
|
||||
1
|
||||
Error in command line syntax.
|
||||
2
|
||||
One of the files passed on the command line did not exist.
|
||||
3
|
||||
A required tool could not be found.
|
||||
4
|
||||
The action failed.
|
||||
5
|
||||
No permission to read one of the files passed on the command line.
|
||||
|
||||
Configuration
|
||||
|
||||
Visit http://portland.freedesktop.org/EmailConfig for information how to
|
||||
configure xdg-email to use the email client of your choice.
|
||||
|
||||
Examples
|
||||
|
||||
xdg-email 'Jeremy White <jwhite@example.com>'
|
||||
|
||||
xdg-email --attach /tmp/logo.png \
|
||||
--subject 'Logo contest' \
|
||||
--body 'Attached you find the logo for the contest.' \
|
||||
'jwhite@example.com'
|
||||
|
||||
xdg-email --subject 'Your password is about to expire' \
|
||||
'jwhite@example.com' 'bastian@example.com' 'whipple@example.com'
|
||||
|
||||
_MANUALPAGE
|
||||
}
|
||||
|
||||
usage()
|
||||
{
|
||||
cat << _USAGE
|
||||
xdg-email - command line tool for sending mail using the user's preferred
|
||||
e-mail composer
|
||||
|
||||
Synopsis
|
||||
|
||||
xdg-email [--utf8] [--cc address] [--bcc address] [--subject text] [--body text
|
||||
] [--attach file] [ mailto-uri | address(es) ]
|
||||
|
||||
xdg-email { --help | --manual | --version }
|
||||
|
||||
_USAGE
|
||||
}
|
||||
|
||||
#@xdg-utils-common@
|
||||
|
||||
#----------------------------------------------------------------------------
|
||||
# Common utility functions included in all XDG wrapper scripts
|
||||
#----------------------------------------------------------------------------
|
||||
|
||||
DEBUG()
|
||||
{
|
||||
[ -z "${XDG_UTILS_DEBUG_LEVEL}" ] && return 0;
|
||||
[ ${XDG_UTILS_DEBUG_LEVEL} -lt $1 ] && return 0;
|
||||
shift
|
||||
echo "$@" >&2
|
||||
}
|
||||
|
||||
#-------------------------------------------------------------
|
||||
# Exit script on successfully completing the desired operation
|
||||
|
||||
exit_success()
|
||||
{
|
||||
if [ $# -gt 0 ]; then
|
||||
echo "$@"
|
||||
echo
|
||||
fi
|
||||
|
||||
exit 0
|
||||
}
|
||||
|
||||
|
||||
#-----------------------------------------
|
||||
# Exit script on malformed arguments, not enough arguments
|
||||
# or missing required option.
|
||||
# prints usage information
|
||||
|
||||
exit_failure_syntax()
|
||||
{
|
||||
if [ $# -gt 0 ]; then
|
||||
echo "xdg-email: $@" >&2
|
||||
echo "Try 'xdg-email --help' for more information." >&2
|
||||
else
|
||||
usage
|
||||
echo "Use 'man xdg-email' or 'xdg-email --manual' for additional info."
|
||||
fi
|
||||
|
||||
exit 1
|
||||
}
|
||||
|
||||
#-------------------------------------------------------------
|
||||
# Exit script on missing file specified on command line
|
||||
|
||||
exit_failure_file_missing()
|
||||
{
|
||||
if [ $# -gt 0 ]; then
|
||||
echo "xdg-email: $@" >&2
|
||||
fi
|
||||
|
||||
exit 2
|
||||
}
|
||||
|
||||
#-------------------------------------------------------------
|
||||
# Exit script on failure to locate necessary tool applications
|
||||
|
||||
exit_failure_operation_impossible()
|
||||
{
|
||||
if [ $# -gt 0 ]; then
|
||||
echo "xdg-email: $@" >&2
|
||||
fi
|
||||
|
||||
exit 3
|
||||
}
|
||||
|
||||
#-------------------------------------------------------------
|
||||
# Exit script on failure returned by a tool application
|
||||
|
||||
exit_failure_operation_failed()
|
||||
{
|
||||
if [ $# -gt 0 ]; then
|
||||
echo "xdg-email: $@" >&2
|
||||
fi
|
||||
|
||||
exit 4
|
||||
}
|
||||
|
||||
#------------------------------------------------------------
|
||||
# Exit script on insufficient permission to read a specified file
|
||||
|
||||
exit_failure_file_permission_read()
|
||||
{
|
||||
if [ $# -gt 0 ]; then
|
||||
echo "xdg-email: $@" >&2
|
||||
fi
|
||||
|
||||
exit 5
|
||||
}
|
||||
|
||||
#------------------------------------------------------------
|
||||
# Exit script on insufficient permission to write a specified file
|
||||
|
||||
exit_failure_file_permission_write()
|
||||
{
|
||||
if [ $# -gt 0 ]; then
|
||||
echo "xdg-email: $@" >&2
|
||||
fi
|
||||
|
||||
exit 6
|
||||
}
|
||||
|
||||
check_input_file()
|
||||
{
|
||||
if [ ! -e "$1" ]; then
|
||||
exit_failure_file_missing "file '$1' does not exist"
|
||||
fi
|
||||
if [ ! -r "$1" ]; then
|
||||
exit_failure_file_permission_read "no permission to read file '$1'"
|
||||
fi
|
||||
}
|
||||
|
||||
check_vendor_prefix()
|
||||
{
|
||||
file_label="$2"
|
||||
[ -n "$file_label" ] || file_label="filename"
|
||||
file=`basename "$1"`
|
||||
case "$file" in
|
||||
[a-zA-Z]*-*)
|
||||
return
|
||||
;;
|
||||
esac
|
||||
|
||||
echo "xdg-email: $file_label '$file' does not have a proper vendor prefix" >&2
|
||||
echo 'A vendor prefix consists of alpha characters ([a-zA-Z]) and is terminated' >&2
|
||||
echo 'with a dash ("-"). An example '"$file_label"' is '"'example-$file'" >&2
|
||||
echo "Use --novendor to override or 'xdg-email --manual' for additional info." >&2
|
||||
exit 1
|
||||
}
|
||||
|
||||
check_output_file()
|
||||
{
|
||||
# if the file exists, check if it is writeable
|
||||
# if it does not exists, check if we are allowed to write on the directory
|
||||
if [ -e "$1" ]; then
|
||||
if [ ! -w "$1" ]; then
|
||||
exit_failure_file_permission_write "no permission to write to file '$1'"
|
||||
fi
|
||||
else
|
||||
DIR=`dirname "$1"`
|
||||
if [ ! -w "$DIR" -o ! -x "$DIR" ]; then
|
||||
exit_failure_file_permission_write "no permission to create file '$1'"
|
||||
fi
|
||||
fi
|
||||
}
|
||||
|
||||
#----------------------------------------
|
||||
# Checks for shared commands, e.g. --help
|
||||
|
||||
check_common_commands()
|
||||
{
|
||||
while [ $# -gt 0 ] ; do
|
||||
parm="$1"
|
||||
shift
|
||||
|
||||
case "$parm" in
|
||||
--help)
|
||||
usage
|
||||
echo "Use 'man xdg-email' or 'xdg-email --manual' for additional info."
|
||||
exit_success
|
||||
;;
|
||||
|
||||
--manual)
|
||||
manualpage
|
||||
exit_success
|
||||
;;
|
||||
|
||||
--version)
|
||||
echo "xdg-email 1.1.0 rc1"
|
||||
exit_success
|
||||
;;
|
||||
esac
|
||||
done
|
||||
}
|
||||
|
||||
check_common_commands "$@"
|
||||
|
||||
[ -z "${XDG_UTILS_DEBUG_LEVEL}" ] && unset XDG_UTILS_DEBUG_LEVEL;
|
||||
if [ ${XDG_UTILS_DEBUG_LEVEL-0} -lt 1 ]; then
|
||||
# Be silent
|
||||
xdg_redirect_output=" > /dev/null 2> /dev/null"
|
||||
else
|
||||
# All output to stderr
|
||||
xdg_redirect_output=" >&2"
|
||||
fi
|
||||
|
||||
#--------------------------------------
|
||||
# Checks for known desktop environments
|
||||
# set variable DE to the desktop environments name, lowercase
|
||||
|
||||
detectDE()
|
||||
{
|
||||
if [ x"$KDE_FULL_SESSION" = x"true" ]; then DE=kde;
|
||||
elif [ x"$GNOME_DESKTOP_SESSION_ID" != x"" ]; then DE=gnome;
|
||||
elif `dbus-send --print-reply --dest=org.freedesktop.DBus /org/freedesktop/DBus org.freedesktop.DBus.GetNameOwner string:org.gnome.SessionManager > /dev/null 2>&1` ; then DE=gnome;
|
||||
elif xprop -root _DT_SAVE_MODE 2> /dev/null | grep ' = \"xfce4\"$' >/dev/null 2>&1; then DE=xfce;
|
||||
elif [ x"$DESKTOP_SESSION" == x"LXDE" ]; then DE=lxde;
|
||||
else DE=""
|
||||
fi
|
||||
}
|
||||
|
||||
#----------------------------------------------------------------------------
|
||||
# kfmclient exec/openURL can give bogus exit value in KDE <= 3.5.4
|
||||
# It also always returns 1 in KDE 3.4 and earlier
|
||||
# Simply return 0 in such case
|
||||
|
||||
kfmclient_fix_exit_code()
|
||||
{
|
||||
[ x"$KDE_SESSION_VERSION" = x"4" ] && return 0;
|
||||
version=`LC_ALL=C.UTF-8 kde-config --version 2>/dev/null | grep '^KDE'`
|
||||
major=`echo $version | sed 's/KDE.*: \([0-9]\).*/\1/'`
|
||||
minor=`echo $version | sed 's/KDE.*: [0-9]*\.\([0-9]\).*/\1/'`
|
||||
release=`echo $version | sed 's/KDE.*: [0-9]*\.[0-9]*\.\([0-9]\).*/\1/'`
|
||||
test "$major" -gt 3 && return $1
|
||||
test "$minor" -gt 5 && return $1
|
||||
test "$release" -gt 4 && return $1
|
||||
return 0
|
||||
}
|
||||
|
||||
run_thunderbird()
|
||||
{
|
||||
local THUNDERBIRD MAILTO NEWMAILTO TO CC BCC SUBJECT BODY ATTACH
|
||||
THUNDERBIRD="$1"
|
||||
MAILTO=$(echo "$2" | sed 's/^mailto://')
|
||||
echo "$MAILTO" | grep -qs "^?"
|
||||
if [ "$?" = "0" ] ; then
|
||||
MAILTO=$(echo "$MAILTO" | sed 's/^?//')
|
||||
else
|
||||
MAILTO=$(echo "$MAILTO" | sed 's/^/to=/' | sed 's/?/\&/')
|
||||
fi
|
||||
|
||||
MAILTO=$(echo "$MAILTO" | sed 's/&/\n/g')
|
||||
TO=$(echo "$MAILTO" | grep '^to=' | sed 's/^to=//' | awk '{ printf "%s,",$0 }')
|
||||
CC=$(echo "$MAILTO" | grep '^cc=' | sed 's/^cc=//' | awk '{ printf "%s,",$0 }')
|
||||
BCC=$(echo "$MAILTO" | grep '^bcc=' | sed 's/^bcc=//' | awk '{ printf "%s,",$0 }')
|
||||
SUBJECT=$(echo "$MAILTO" | grep '^subject=' | tail -n 1)
|
||||
BODY=$(echo "$MAILTO" | grep '^body=' | tail -n 1)
|
||||
ATTACH=$(echo "$MAILTO" | sed 's/^attach=/\n\nfile:\/\//g' | awk '/^file:/ { printf "%s,",$0 }' | sed 's/,$//')
|
||||
|
||||
if [ -z "$TO" ] ; then
|
||||
NEWMAILTO=
|
||||
else
|
||||
NEWMAILTO="to='$TO'"
|
||||
fi
|
||||
if [ -n "$CC" ] ; then
|
||||
NEWMAILTO="${NEWMAILTO},cc='$CC'"
|
||||
fi
|
||||
if [ -n "$BCC" ] ; then
|
||||
NEWMAILTO="${NEWMAILTO},bcc='$BCC'"
|
||||
fi
|
||||
if [ -n "$SUBJECT" ] ; then
|
||||
NEWMAILTO="${NEWMAILTO},$SUBJECT"
|
||||
fi
|
||||
if [ -n "$BODY" ] ; then
|
||||
NEWMAILTO="${NEWMAILTO},$BODY"
|
||||
fi
|
||||
|
||||
if [ -n "$ATTACH" ] ; then
|
||||
NEWMAILTO="${NEWMAILTO},attachment='${ATTACH}'"
|
||||
fi
|
||||
|
||||
NEWMAILTO=$(echo "$NEWMAILTO" | sed 's/^,//')
|
||||
DEBUG 1 "Running $THUNDERBIRD -compose \"$NEWMAILTO\""
|
||||
echo "Running $THUNDERBIRD -compose \"$NEWMAILTO\""
|
||||
"$THUNDERBIRD" -compose "$NEWMAILTO"
|
||||
if [ $? -eq 0 ]; then
|
||||
exit_success
|
||||
else
|
||||
exit_failure_operation_failed
|
||||
fi
|
||||
}
|
||||
|
||||
open_kde()
|
||||
{
|
||||
local client kde_email_profile_name
|
||||
kde_email_profile_name=`kreadconfig --file emaildefaults --group Defaults --key Profile`
|
||||
client=`kreadconfig --file emaildefaults --group PROFILE_"$kde_email_profile_name" --key EmailClient | cut -d ' ' -f 1`
|
||||
echo $client | grep thunderbird > /dev/null 2>&1
|
||||
if [ $? -eq 0 ] ; then
|
||||
run_thunderbird "$client" "$1"
|
||||
fi
|
||||
|
||||
if [ -f /etc/SuSE-release ] ; then
|
||||
# Workaround for SUSE 10.0
|
||||
[ -z "$client" ] && client="kmail"
|
||||
if ! which "$client" > /dev/null 2> /dev/null; then
|
||||
DEBUG 3 "KDE has $client configured as email client which isn't installed"
|
||||
if which gnome-open > /dev/null 2> /dev/null && which evolution > /dev/null 2> /dev/null; then
|
||||
DEBUG 3 "Try gnome-open instead"
|
||||
open_gnome "$1"
|
||||
fi
|
||||
fi
|
||||
fi
|
||||
DEBUG 1 "Running kmailservice \"$1\""
|
||||
if [ x"$KDE_SESSION_VERSION" = x"4" ]; then
|
||||
KMAILSERVICE=`kde4-config --locate kmailservice --path exe 2>/dev/null`
|
||||
else
|
||||
KMAILSERVICE=`which kmailservice 2>/dev/null`
|
||||
fi
|
||||
# KDE uses locale's encoding when decoding the URI, so set it to UTF-8
|
||||
LC_ALL=C.UTF-8 $KMAILSERVICE "$1"
|
||||
kfmclient_fix_exit_code $?
|
||||
|
||||
if [ $? -eq 0 ]; then
|
||||
exit_success
|
||||
else
|
||||
exit_failure_operation_failed
|
||||
fi
|
||||
}
|
||||
|
||||
open_gnome()
|
||||
{
|
||||
local client
|
||||
client=`gconftool-2 --get /desktop/gnome/url-handlers/mailto/command | cut -d ' ' -f 1` || ""
|
||||
echo $client | grep thunderbird > /dev/null 2>&1
|
||||
if [ $? -eq 0 ] ; then
|
||||
run_thunderbird "$client" "$1"
|
||||
fi
|
||||
|
||||
if gvfs-open --help 2>/dev/null 1>&2; then
|
||||
DEBUG 1 "Running gvfs-open \"$1\""
|
||||
gvfs-open "$1"
|
||||
else
|
||||
DEBUG 1 "Running gnome-open \"$1\""
|
||||
gnome-open "$1"
|
||||
fi
|
||||
|
||||
if [ $? -eq 0 ]; then
|
||||
exit_success
|
||||
else
|
||||
exit_failure_operation_failed
|
||||
fi
|
||||
}
|
||||
|
||||
|
||||
open_xfce()
|
||||
{
|
||||
DEBUG 1 "Running exo-open \"$1\""
|
||||
exo-open "$1"
|
||||
|
||||
if [ $? -eq 0 ]; then
|
||||
exit_success
|
||||
else
|
||||
exit_failure_operation_failed
|
||||
fi
|
||||
}
|
||||
|
||||
open_generic()
|
||||
{
|
||||
IFS=":"
|
||||
for browser in $BROWSER; do
|
||||
if [ x"$browser" != x"" ]; then
|
||||
|
||||
browser_with_arg=`printf "$browser" "$1" 2>/dev/null`
|
||||
if [ $? -ne 0 ]; then browser_with_arg=$browser;
|
||||
fi
|
||||
|
||||
if [ x"$browser_with_arg" = x"$browser" ]; then "$browser" "$1";
|
||||
else $browser_with_arg;
|
||||
fi
|
||||
|
||||
if [ $? -eq 0 ]; then exit_success;
|
||||
fi
|
||||
fi
|
||||
done
|
||||
|
||||
exit_failure_operation_impossible "no method available for opening '$1'"
|
||||
}
|
||||
|
||||
url_encode()
|
||||
{
|
||||
result=$(echo "$1" | $utf8 | awk '
|
||||
BEGIN {
|
||||
for ( i=1; i<=255; ++i ) ord [ sprintf ("%c", i) "" ] = i + 0
|
||||
e = ""
|
||||
linenr = 1
|
||||
}
|
||||
{
|
||||
if ( linenr++ != 1 ) {
|
||||
e = e "%0D%0A"
|
||||
}
|
||||
for ( i=1; i<=length ($0); ++i ) {
|
||||
c = substr ($0, i, 1)
|
||||
if ( ord [c] > 127 ) {
|
||||
e = e "%" sprintf("%02X", ord [c])
|
||||
} else if ( ord[c] == 45 ) {
|
||||
e = e c
|
||||
} else if ( c ~ /[@a-zA-Z0-9.\\\/]/ ) {
|
||||
e = e c
|
||||
} else {
|
||||
e = e "%" sprintf("%02X", ord [c])
|
||||
}
|
||||
}
|
||||
}
|
||||
END {
|
||||
print e
|
||||
}
|
||||
')
|
||||
}
|
||||
|
||||
options=
|
||||
mailto=
|
||||
utf8="iconv -t utf8"
|
||||
while [ $# -gt 0 ] ; do
|
||||
parm="$1"
|
||||
shift
|
||||
|
||||
case "$parm" in
|
||||
--utf8)
|
||||
utf8="cat"
|
||||
;;
|
||||
|
||||
--to)
|
||||
if [ -z "$1" ] ; then
|
||||
exit_failure_syntax "email address argument missing for --to"
|
||||
fi
|
||||
url_encode "$1"
|
||||
options="${options}to=${result}&"
|
||||
shift
|
||||
;;
|
||||
|
||||
--cc)
|
||||
if [ -z "$1" ] ; then
|
||||
exit_failure_syntax "email address argument missing for --cc"
|
||||
fi
|
||||
url_encode "$1"
|
||||
options="${options}cc=${result}&"
|
||||
shift
|
||||
;;
|
||||
|
||||
--bcc)
|
||||
if [ -z "$1" ] ; then
|
||||
exit_failure_syntax "email address argument missing for --bcc"
|
||||
fi
|
||||
url_encode "$1"
|
||||
options="${options}bcc=${result}&"
|
||||
shift
|
||||
;;
|
||||
|
||||
--subject)
|
||||
if [ -z "$1" ] ; then
|
||||
exit_failure_syntax "text argument missing for --subject option"
|
||||
fi
|
||||
url_encode "$1"
|
||||
options="${options}subject=${result}&"
|
||||
shift
|
||||
;;
|
||||
|
||||
--body)
|
||||
if [ -z "$1" ] ; then
|
||||
exit_failure_syntax "text argument missing for --body option"
|
||||
fi
|
||||
url_encode "$1"
|
||||
options="${options}body=${result}&"
|
||||
shift
|
||||
;;
|
||||
|
||||
--attach)
|
||||
if [ -z "$1" ] ; then
|
||||
exit_failure_syntax "file argument missing for --attach option"
|
||||
fi
|
||||
check_input_file "$1"
|
||||
file=`readlink -f "$1"` # Normalize path
|
||||
if [ -z "$file" -o ! -f "$file" ] ; then
|
||||
exit_failure_file_missing "file '$1' does not exist"
|
||||
fi
|
||||
|
||||
url_encode "$file"
|
||||
options="${options}attach=${result}&"
|
||||
shift
|
||||
;;
|
||||
|
||||
-*)
|
||||
exit_failure_syntax "unexpected option '$parm'"
|
||||
;;
|
||||
|
||||
mailto:*)
|
||||
mailto="$parm"
|
||||
;;
|
||||
|
||||
*@*)
|
||||
url_encode "$parm"
|
||||
if [ -z "${mailto}" ] ; then
|
||||
mailto="mailto:"${result}"?"
|
||||
else
|
||||
options="${options}to=${result}&"
|
||||
fi
|
||||
;;
|
||||
|
||||
*)
|
||||
exit_failure_syntax "unexpected argument '$parm'"
|
||||
;;
|
||||
esac
|
||||
done
|
||||
|
||||
if [ -z "${mailto}" ] ; then
|
||||
# TO address is optional
|
||||
mailto="mailto:?"
|
||||
fi
|
||||
|
||||
case $mailto in
|
||||
*\?)
|
||||
mailto="${mailto}${options}"
|
||||
;;
|
||||
|
||||
*\?*)
|
||||
mailto="${mailto}&${options}"
|
||||
;;
|
||||
|
||||
*)
|
||||
mailto="${mailto}?${options}"
|
||||
;;
|
||||
esac
|
||||
|
||||
# Strip trailing ? and &
|
||||
mailto=`echo "${mailto}"| sed 's/[?&]$//'`
|
||||
|
||||
# Shouldn't happen
|
||||
[ x"${mailto}" != x"" ] || exit_failure_syntax
|
||||
|
||||
if which xdg-email-hook.sh > /dev/null 2> /dev/null; then
|
||||
xdg-email-hook.sh "${mailto}"
|
||||
if [ $? -eq 0 ]; then
|
||||
exit_success
|
||||
else
|
||||
exit_failure_operation_failed
|
||||
fi
|
||||
fi
|
||||
|
||||
detectDE
|
||||
|
||||
if [ x"$DE" = x"" ]; then
|
||||
DE=generic
|
||||
fi
|
||||
|
||||
# if BROWSER variable is not set, check some well known browsers instead
|
||||
if [ x"$BROWSER" = x"" ]; then
|
||||
BROWSER=links2:links:lynx:w3m
|
||||
if [ -n "$DISPLAY" ]; then
|
||||
BROWSER=firefox:mozilla:epiphany:konqueror:chromium-browser:google-chrome:$BROWSER
|
||||
fi
|
||||
fi
|
||||
|
||||
case "$DE" in
|
||||
kde)
|
||||
open_kde "${mailto}"
|
||||
;;
|
||||
|
||||
gnome)
|
||||
open_gnome "${mailto}"
|
||||
;;
|
||||
|
||||
xfce)
|
||||
open_xfce "${mailto}"
|
||||
;;
|
||||
|
||||
generic|lxde)
|
||||
open_generic "${mailto}"
|
||||
;;
|
||||
|
||||
*)
|
||||
exit_failure_operation_impossible "no method available for opening '${mailto}'"
|
||||
;;
|
||||
esac
|
||||
|
|
@ -548,7 +548,9 @@ result=$(echo "$1" | $utf8 | awk '
|
|||
c = substr ($0, i, 1)
|
||||
if ( ord [c] > 127 ) {
|
||||
e = e "%" sprintf("%02X", ord [c])
|
||||
} else if ( c ~ /[@a-zA-Z0-9.-\\\/]/ ) {
|
||||
} else if ( ord[c] == 45 ) {
|
||||
e = e c
|
||||
} else if ( c ~ /[@a-zA-Z0-9.\\\/]/ ) {
|
||||
e = e c
|
||||
} else {
|
||||
e = e "%" sprintf("%02X", ord [c])
|
||||
|
|
|
|||
Loading…
Reference in a new issue