storm/w3m
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

[w3m-dev 02877] some fixes for urimethodmap

Browse Source 
* config.h.dist (RC_DIR): remove tailing /
* configure (mailer): if use_w3mmailer = y, don't ask mailer
* configure (RC_DIR): remove tailing /
* fm.h (Mailer): ifndef USE_W3MMAILER
* main.c (MAIN): ifndef USE_W3MMAILER getenv("MAILER")
* rc.c ("mailer"): ifndef USE_W3MMAILER
* regex.c (newRegex0): \ escape kanji chars
* url.c (searchURIMethods): need escape for -
* scripts/w3mmail.cgi.in: move $url, $qurl
* scripts/w3mmail.cgi.in: url_unquote $to
From: Hironori Sakamoto <hsaka@mth.biglobe.ne.jp>
This commit is contained in:
Fumitoshi UKAI
2002-01-21 15:56:12 +00:00
parent 2af8f6fd2e
commit 004f4abe6e
9 changed files with 53 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
scripts/w3mmail.cgi.in
View File

@@ -1,25 +1,25 @@
#!@PERL@
$rcsid = q$Id: w3mmail.cgi.in,v 1.4 2002/01/20 17:06:42 ukai Exp $;
$rcsid = q$Id: w3mmail.cgi.in,v 1.5 2002/01/21 15:56:13 ukai Exp $;
($id = $rcsid) =~ s/^.*,v ([\d\.]*).*/$1/;
($prog=$0) =~ s/.*\///;
$query = $ENV{'QUERY_STRING'};
$local_cookie = $ENV{'LOCAL_COOKIE'};
$url = $query;
$SENDMAIL = '/usr/lib/sendmail';
$SENDMAIL = '/usr/sbin/sendmail' if -x '/usr/sbin/sendmail';
$SENDMAIL_OPT = '-oi -t';
$qurl = &html_quote($url);
if ($query =~ s/^\w+://) {
$url = $query;
$qurl = &html_quote($url);
$to = $query;
$opt = '';
if ($to =~ /^([^?]*)\?(.*)$/) {
$to = $1;
$opt = $2;
}
$to = &url_unquote($to);
%opt = &parse_opt($opt);
@to = ($to);