Newsgroups: fj.lang.perl
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!etlnews.etl.go.jp!news.trc!nf2.iij.ad.jp!nr0.iij.ad.jp!news.iij.ad.jp!rim.or.jp!Q.T.Honey!aero.kyushu-u!kuee-news!odins-suita!chiba-ns!hagi!is.tsukuba.ac.jp!sakamoto
From: sakamoto@hlla.is.tsukuba.ac.jp (Hideki SAKAMOTO)
Subject: Re: [Q]NewsServer =?ISO-2022-JP?B?GyRAGyRCJCskaTUtO3YkcjxoPVAbKEI=?=
 =?ISO-2022-JP?B?GyRAGyRCJDkbKEI=?=
References: <62flsr$3m4@meridian.akashi.flab.fujitsu.co.jp> 
	<yama-2110971524250001@biotech5e.biotech.okayama-u.ac.jp> 
	<qJLZf.sakamoto@hlla.is.tsukuba.ac.jp> 
	<62k4g0$epo@meridian.akashi.flab.fujitsu.co.jp>
Date: Wed, 22 Oct 1997 08:10:15 GMT
Mime-Version: 1.0 (generated by vin2.0)
Nntp-Posting-Host: hlla-gw
Content-Type: text/plain; charset=ISO-2022-JP
Reply-To: sakamoto@hlla.is.tsukuba.ac.jp (Hideki SAKAMOTO,[HLLA],lab,5161)
Organization: Institute of Information Sciences & Electronics, University of Tsukuba, Japan
Sender: news@is.tsukuba.ac.jp (News Manager)
Message-ID: <qJR7e.sakamoto@hlla.is.tsukuba.ac.jp>
Lines: 62
Xref: galaxy.trc.rwcp.or.jp fj.lang.perl:2438
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.perl&nb=2438&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.

$B:d85$G$9!#(B

$B$H$j$"$($:(BRFC$B$rFI$s$G2<$5$$$H$$$&$3$H$K?T$-$k$N$G$9$,!#(B

On 10/22/97(14:55) hirata@tokyo.pssys.flab.fujitsu.co.jp (hirata) wrote
in <62k4g0$epo@meridian.akashi.flab.fujitsu.co.jp> (fj.lang.perl:3386/maple.is.tsukuba.ac.jp):
 |$BAaB.;n$7$F$_$?$N$G$9$,!"$&$^$/F0$-$^$;$s!#(B
 |$B$I$3$+$H$$$&$H!"(B
 |    print S "GROUP aaa.bbb\r\n";
 |    @msg = split(/\s+/, <S>);
 |    if ($msg[0] ne "211") {
 |        print STDERR "Error: @msg\n";
 |        ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 |$B$3$N%(%i!<%A%'%C%/$G0z$C$+$+$j$^$9!#(B
 |$B%a%C%;!<%8$O0J2<$N$H$*$j$G$9!#(B
 |Error: 200 newsserver InterNetNews NNRP server INN 1.5.1 17
 | -Dec-1996 ready (posting ok).

"200 newsserver $B$&$s$L$s(B"$B$H$$$&$N$O%5!<%P$,:G=i$KJV$7$F$/$k%a%C%;!<%8(B
$B$G$9!#(B

 |$B$I$&$b!"(B<S>$B$K$O#1$DA0$N1~Ez7k2L$,F~$C$F$$$k$h$&$G$9!#(B

$B@53N$K$$$&$H!"(B1$B9TA0$N7k2L$G$9$M!#(B

 |$B$J$<!"D>A0$K<B9T$7$?%3%^%s%I$N7k2L$,H?1G$5$l$F$$$J$$$N$G$7$g$&$+!#(B

$B%P%C%U%!$KN/$C$F$$$k$+$i$G$9!#MW$O:G=i$N(B1$B9T$rFI$_Ht$P$;$P$$$$$N$G!"(B

 |-----------------------------------------------------------------
 |#!/usr/bin/perl
 |
 |    $AF_INET = 2;
 |    $SOCK_STREAM = 2;
 |
 |    $hostname = 'newsserver';
 |    $port = 119;
 |    $sockaddr = 'S n a4 x8';
 |
 |    ($name,$aliases,$proto) = getprotobyname('tcp');
 |    ($name,$aliases,$type,$len,$thisaddr) = gethostbyname($hostname);
 |    $this = pack($sockaddr,$AF_INET,$port,$thisaddr);
 |
 |    socket(S,$AF_INET,$SOCK_STREAM,$proto) || die $!;
 |    connect(S,$this) || die $!;
 |
 |    select(S); $| = 1; select(STDOUT);

      <S>;

($B0J2<F1$8(B)

$B$G$9$M!#(B

 |$B%9%/%j%W%H$O0J2<$N$H$*$j$G$9!#(B
 |$B$G$-$l$P%"%I%P%$%9$r$*4j$$$7$^$9!#(B

$BB?>/$O<+J,$GEXNO$7$^$7$g$&$h!#(B

-- 
  $B:d85(B  $B1Q5*(B   (Hideki Sakamoto) $BC^GHBg3X9)3X8&5f2J(B
  e-mail: sakamoto@hlla.is.tsukuba.ac.jp
