From owner-FreeBSD-net-jp@jp.freebsd.org  Thu May 14 12:18:37 1998
Received: by jaz.jp.freebsd.org (8.8.8+3.0Wbeta13/8.7.3) id MAA19475
	Thu, 14 May 1998 12:18:37 +0900 (JST)
Received: by jaz.jp.freebsd.org (8.8.8+3.0Wbeta13/8.7.3) with ESMTP id MAA19467
	for <FreeBSD-net-jp@jp.freebsd.org>; Thu, 14 May 1998 12:18:34 +0900 (JST)
Received: from [203.136.35.105] (diamond37.kinotrope.co.jp [203.136.35.105]) by mail.t3.rim.or.jp (8.8.5/3.4W3-rim1.1) with ESMTP id MAA09102; Thu, 14 May 1998 12:18:40 +0900 (JST)
Message-Id: <199805140318.MAA09102@mail.t3.rim.or.jp>
X-Sender: hirose31@mail.t3.rim.or.jp
X-Mailer: Macintosh Eudora Pro Version 3.1.1-Jr2
In-Reply-To: <19980514112745M.nob@makioka.y-min.or.jp>
References: Your message of "Thu, 14 May 1998 09:56:23 +0900
 (JST)"<Pine.SUN.3.96LJ1.1b7.980514094301.3414A-100000@msl07>
 <Pine.SUN.3.96LJ1.1b7.980514094301.3414A-100000@msl07>
Mime-Version: 1.0
Content-Type: text/plain; charset="ISO-2022-JP"
Content-Transfer-Encoding: 7bit
Date: Thu, 14 May 1998 12:18:30 +0900
To: FreeBSD-net-jp@jp.freebsd.org
From: HIROSE Masaaki <hirose31@t3.rim.or.jp>
Reply-To: FreeBSD-net-jp@jp.freebsd.org
Precedence: list
X-Distribute: distribute [version 2.1 (Alpha) patchlevel=24]
X-Sequence: FreeBSD-net-jp 635
Subject: [FreeBSD-net-jp 635] Re: HTTP on SMTP Gateway application
 exist ?
Errors-To: owner-FreeBSD-net-jp@jp.freebsd.org
Sender: owner-FreeBSD-net-jp@jp.freebsd.org


$B$R$m$;$H$b$&$7$^$9!#(J

MURATA Nobuhiro$B$5$s$,(J 98.5.14 11:27 AM +0900 $B:"(J
   $B!X(J[FreeBSD-net-jp 633] Re: HTTP on SMTP Gateway application$B!Y$K$D$$$F=q$-$^$7$?(J

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


$BB(@J$J$N$G$"$J$,$"$k$+$b$7$l$^$;$s$,!"0l1~!"F0$-$^$7$?!#(J
perl4 $B$J$i(J s/or/||/ $B$7$F$/$@$5$$!#(J

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

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

### source or not
$lynxop = '-source';
#$lynxop = '-dump';
$mail   = '/usr/bin/mail';

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

$sub = "$url";

open (M, "| $nkf -j | $mail -s '$sub' $address") or exit 69;
open(L, "$lynx $lynxop $url |") or exit 69;
while (<L>) {
	print M;
}
close(L);
close(M);
#
exit 0;
----------8<----------8<----------8<----------8<----------8<----------

$B$G$O$G$O(J


---
$B$R$m$;$^$5$"$-(J
 E-mail: hirose31@t3.rim.or.jp
 WWW   : http://www.t3.rim.or.jp/%7Ehirose31/
Fingerprint = 33 32 2E FF C1 95 F9 F2  2A BF BC 6F 02 8E 48 EA


