Path: galaxy.trc.rwcp.or.jp!news.trc!imnet3!news.imnet.ad.jp!news.join.ad.jp!newsserver.jvnc.net!198.138.0.5!newshub.northeast.verio.net!news.idt.net!news.globix.net!news-pen-2.sprintlink.net!news-east1.sprintlink.net!-program!news-peer1.sprintlink.net!news-in-east1.sprintlink.net!news.sprintlink.net!news2.smatnet.net!news.sprintsvc.net!news.smatnet.net!uunet!ffx.uu.net!in3.uu.net!np0.iij.ad.jp!nnx.mfeed.ad.jp!202.234.232.39.MISMATCH!nntp-egw.ocn.ad.jp!nn-os001.ocn.ad.jp!shiva.tri.asanuma.co.jp!usenet
From: MORI Kouji <mori@tri.asanuma.co.jp>
Newsgroups: fj.comp.lang.perl,fj.comp.lang.postscript,fj.sources.d
Subject: Re: unofficial patch for a2ps.pl-1.43-pre1 (was: a2ps.pl-1.43-pre1)
Date: 05 Mar 1999 10:35:40 +0900
Organization: Techinical Research Institute, Asanuma Corp., Takatsuki, Japan
Lines: 43
Sender: mori@kurishna.tri.asanuma.co.jp
Message-ID: <80u2w0k9ar.fsf@kurishna.tri.asanuma.co.jp>
References: <19990110234830V.utashiro@iij.ad.jp>
	<wk678jwv3g.fsf@remus.dti.ne.jp>
NNTP-Posting-Host: shiva.tri.asanuma.co.jp
Mime-Version: 1.0 (generated by SEMI 1.12.0 - "Nishi-Kanazawa")
Content-Type: text/plain; charset=ISO-2022-JP
User-Agent: Chao-gnus/6.12.5 SEMI/1.12.0 (Nishi-Kanazawa) FLIM/1.12.1
 (=?ISO-8859-4?Q?Nishinoky=F2?=) Emacs/20.3.92 (i386--freebsd) MULE/4.0
 (HANANOEN)
Xref: galaxy.trc.rwcp.or.jp fj.comp.lang.perl:1081 fj.comp.lang.postscript:211 fj.sources.d:3332
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.sources.d&nb=3332&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.

Hideyuki Endo <endo-h@remus.dti.ne.jp> writes:

>  *$B%W%j%s%H$7$??M$N%m%0%$%sL>(B($B2DG=$J$i%[%9%HL>$b(B)$B$r=PNO$9$k$h$&$K$7$?!#(B
>   ($B650iMQ7W;;5!%;%s%?!<$J$I$G$OJXMx$G$O(B?)

> $BE0DlE*$J8!::$O$7$F$$$J$$$N$G!"@H<e$+$b$7$l$^$;$s!#(B
> $B%P%0$,$"$C$?$i65$($F$/$@$5$$!#(B

> +sub getsign {
> +    local ($sign);
> +    return undef unless ($sign = $ENV{USER}); 

SunOS 5.5 $B$H$+(B($BB>$K$I$s$J$N$,$"$k$+CN$j$^$;$s$,(B)$B$@$H(B
$B4D6-JQ?t(B USER $B$ODj5A$5$l$J$$$N$G(B getlogin $B$r;H$C$F(B

> +    return undef unless ($sign = getlogin | (getpwuid($<))[0]);

$B$H$+$$$&$h$&$K$7$?J}$,NI$$$H;W$$$^$9!#(B


$B%*%j%8%J%k$N(B a2ps.pl-1.43-pre1 $B$K$b$=$&$$$&$H$3$m$,$"$j$^$9$M!#(B

--- a2ps.pl-1.43-pre1Fri Mar  5 10:24:49 1999
+++ a2ps.pl-1.43-pre1.newFri Mar  5 10:29:38 1999
@@ -552,7 +552,7 @@
     s/[\\%]%/\377/g;# save escaped %
     s/%default/$default_sublabel/g;# %default
 
-    s/%user/$ENV{'USER'}||(getpwuid($<))[0]/ge;# %user
+    s/%user/getlogin||(getpwuid($<))[0]/ge;# %user
 
     # compatible with mh_format(5)
     s/%month\b/$mon[$mon]/g;# %month


# telnet $B$G(B Solaris $B$KF~$C$F0u:~$7$?$iB>?M$N(B user name $B$,(B
# $B0u:~$5$l$?$N$GJQ$@$H;W$C$?$i!"(Binetd $B$r:F5/F0$7$??M$,$$$F(B
# $B$=$N;~$N4D6-JQ?t$,<u$17Q$,$l$F$$$?$3$H$,H=L@!#(B(^^;)

-- 
$B?9(B $B9@Fs(B(MORI Kouji)
($B3t(B)$B^I>BAH(B $B5;=Q8&5f=j(B
E-mail: mori@tri.asanuma.co.jp
