🚀 go-pugleaf

fj.net.www の記事 <6glp08$bll@news.nc.u-tokyo.ac.jp>
'98/04/11(土) 03:54:55頃、ささべ てつろうさんによると:

>   もちろん browser を使えばエンコードされるのはわかっています。ただ今
> 回の場合コマンドラインから cron なり E-mail なりをトリガに、とある web
> page へ POST をしたいので普通のブラウザでは難しいのです。もしかして 
> Lynx に外から POST の内容を渡す方法があったりするなら、もちろんそれで
> 良いのですけれど。

lynx -post_data を使えばよいかと。手元にある lynx
fumiya@kumasun:~ % lynx -version

Lynx Version 2.7.2 (1997)
Copyrights held by the University of Kansas, CERN, and other contributors.
Distributed under the GNU General Public License.
See http://lynx.browser.org/ and the online help for more information.

にはついています。
あとは POST するデータを作るスクリプトを利用して

% querystring word=cat dic0=on | \
  lynx -post_data -source http://www.bento.ad.jp/~fumiya/Dic/ > cat.html

でどうでしょう?

以下、あまり考えずに作ったスクリプトを添付します。
URL エンコードが正しいかどうかは厳密にチェックしておりません。
ほかも適当。(-_-; ご参考まで。

querystring ---------------------------------------------------------
#!/usr/local/bin/perl
#
# Copyright (c) 1998 by SATOH Fumiyasu
# 1998/04/13 - since 1998/02/06

$0 =~ /([^\/]+)$/;
if ($1 eq "urlencode") {
    print &urlencode($_) while (<>);
} elsif ($1 eq "methodget") {
    &setenv("REQUEST_METHOD", "GET");
    &setenv("QUERY_STRING", &querystring(@ARGV));
} elsif ($1 eq "methodpost") {
    $content .= $_ while (<STDIN>);
    print "POST $ARGV[0] HTTP/1.0\n";
    print "Content-Length: ", length($content), "\n\n";
    print $content;
} elsif ($1 eq "querystring") {
    print &querystring(@ARGV);
}

sub urlencode
{
    local($query) = $_[0];

    $query =~ tr/ /+/;
    $query =~ s/([^\w*-.@])/&encode($1)/eg;
    $query;
}

sub encode
{
    return "+" if ($_[0] eq " ");
    return sprintf("%%%02X", ord($1));
}

sub setenv
{
    local($name, $value) = @_;
    $value =~ s/'/\\'/g;

    if ($ENV{'SHELL'} =~ /csh$/) {
	print "setenv $name '$value';\n";
    } else {
	print "$name=$value; export '$name'\n";
    }
}

sub querystring
{
    local($query);

    foreach (@_) {
	if (/([^=]*)=(.*)/) {
	    $query .= &urlencode($1). "=". &urlencode($2). "&";
	}
    }
    chop($query);	# chopping last '&'

    return $query;
}

-- >8 -- daily signature -- >8 --
佐藤文優 <fumiya@cij.co.jp,fumiya@yk.rim.or.jp>
Internet: http://www.bento.ad.jp/~fumiya/
SAMBA   : http://samba.bento.ad.jp/
LAN     : http://kumasun.si.ykhm.cij.co.jp/bento/
postmaster はヘルプデスクではありません。ボランティアでもないです。