From owner-FreeBSD-net-jp@jp.freebsd.org  Thu May 14 11:25:28 1998
Received: by jaz.jp.freebsd.org (8.8.8+3.0Wbeta13/8.7.3) id LAA16085
	Thu, 14 May 1998 11:25:28 +0900 (JST)
Received: by jaz.jp.freebsd.org (8.8.8+3.0Wbeta13/8.7.3) with SMTP id LAA16077
	for <FreeBSD-net-jp@jp.freebsd.org>; Thu, 14 May 1998 11:25:23 +0900 (JST)
Received: (qmail 23068 invoked from network); 14 May 1998 11:27:45 +0900
Received: from localhost (127.0.0.1)
  by localhost with SMTP; 14 May 1998 11:27:45 +0900
To: FreeBSD-net-jp@jp.freebsd.org
From: MURATA Nobuhiro <nob@makioka.y-min.or.jp>
In-Reply-To: Your message of "Thu, 14 May 1998 09:56:23 +0900 (JST)"
	<Pine.SUN.3.96LJ1.1b7.980514094301.3414A-100000@msl07>
References: <Pine.SUN.3.96LJ1.1b7.980514094301.3414A-100000@msl07>
X-Mailer: Mew version 1.93b12 on Emacs 20.2 / Mule 3.0 (MOMIJINOGA)
Mime-Version: 1.0
Content-Type: Text/Plain; charset=iso-2022-jp
Content-Transfer-Encoding: 7bit
Message-Id: <19980514112745M.nob@makioka.y-min.or.jp>
Date: Thu, 14 May 1998 11:27:45 +0900
X-Dispatcher: imput version 980128
Lines: 54
Reply-To: FreeBSD-net-jp@jp.freebsd.org
Precedence: list
X-Distribute: distribute [version 2.1 (Alpha) patchlevel=24]
X-Sequence: FreeBSD-net-jp 633
Subject: [FreeBSD-net-jp 633] Re: HTTP on SMTP Gateway application exist ?
Errors-To: owner-FreeBSD-net-jp@jp.freebsd.org
Sender: owner-FreeBSD-net-jp@jp.freebsd.org

$BB<ED!wKR5V$G$9!#(B

Thu, 14 May 1998 09:56:23 +0900 (JST),
 Masashi Wada <d_wada@dash.lsi.melco.co.jp> , wrote:
 
d_wada> $B8=:_!";v>p$,M-$C$F(BSMTP$B$N$_30$N@$3&$K7Q$k%M%C%H%o!<%/$NIt20$KJD$89~$a$i(B
d_wada> $B$l$F$$$k$N$G$9$,!"$=$l$G$b!"30$N@$3&$N>pJs$r(BWeb$B$G8+$?$$(B...$B!!$H8@$&>l9g(B
d_wada> $B$J$s$H$+$J$k%"%W%j%1!<%7%g%s$O$J$$$G$7$g$&$+!#(B
d_wada> 
d_wada> HTTP$B$r%a!<%k$K%Q%C%/$7$FAw$j=P$7$F!"<u$1$H$C$?B&$O%"%s%s%Q%C%/$7$F(B...
d_wada> $B$H$$$&$h$&$J$d$D$H$+!#(B

$B;d$b$3$N$h$&$J<jCJ$,M_$7$/$F!"(B
$B%5!<%P!<B&$G!"(B lynx -dump $B$N7k2L$r(Bmail$B$GJV$;$P$h$$$N$G$O$J$$$+!"(B
$B$H;W$$!"0J2<$N$h$&$J(Bscript$B$r:n$C$F$_$?$s$G$9$,!"(B
$B$&$^$/F0:n$7$F$/$l$F$$$^$;$s!#(B

$B$3$NJ}K!$O$I$3$+(B1$BE@$G(Bhttp$B$,DL$i$J$$$HBLL\$J$s$G$9$,!"!"!"(B

MURATA Nobuhiro
nob@makioka.y-min.or.jp


#! /usr/local/bin/perl
#
#		script for get lynx -dump html  by mail
#		URL  should be in Subject

$tmp	= '/usr/tmp/lynx.tmp';
$lynx	= '/usr/local/bin/lynx';
$nkf	= '/usr/local/bin/nkf';

#
while (<>) {
	if (/^Subject:/) {
		s/^Subject://;
		$url = $_;
	}
	if (/^From:/) {
		($user,$domain ) = /([a-zA-Z\-]+)@([a-zA-Z\-\.]+)/ ;
		$address = "$user\@$domain";
	}
}


$command = "$lynx -dump $url \> $tmp";
system("$command");
$sub = "$url";

system("cat $tmp | $nkf -j |mail -s $sub $address"); 
#
unlink($tmp);
#

