From owner-man-jp@jp.freebsd.org  Fri Jun 20 09:36:28 1997
Received: by jaz.jp.freebsd.org (8.8.5+2.7Wbeta5/8.7.3) id JAA24810
	Fri, 20 Jun 1997 09:36:28 +0900 (JST)
Received: by jaz.jp.freebsd.org (8.8.5+2.7Wbeta5/8.7.3) with ESMTP id JAA24753
	for <man-jp@jp.freebsd.org>; Fri, 20 Jun 1997 09:36:25 +0900 (JST)
Received: (8.8.5/3.5Wpl4-ent.yrp.1) id JAA20506; Fri, 20 Jun 1997 09:36:20 +0900 (JST)
Received: (8.8.5/3.5Wpl4-svc.yrp.1) id JAA12059; Fri, 20 Jun 1997 09:36:19 +0900 (JST)
Message-Id: <199706200036.JAA12059@service.yrp-ktrl.co.jp>
To: man-jp@jp.freebsd.org
In-Reply-To: Your message of "Thu, 19 Jun 1997 14:10:57 +0900"
References: <199706190510.OAA02409@service.yrp-ktrl.co.jp>
X-Mailer: Mew version 1.70 on Emacs 19.28.2 / Mule 2.3
Mime-Version: 1.0
Content-Type: Text/Plain; charset=iso-2022-jp
Content-Transfer-Encoding: 7bit
Date: Fri, 20 Jun 1997 09:36:18 +0900
From: Takahiro Yugawa <yugawa@yrp-ktrl.co.jp>
Reply-To: man-jp@jp.freebsd.org
Precedence: bulk
X-Distribute: distribute [version 2.1 (Alpha) patchlevel=19]
X-Sequence: man-jp 157
Subject: [man-jp 157] sending a diff with psend-jpman
Errors-To: owner-man-jp@jp.freebsd.org
Sender: owner-man-jp@jp.freebsd.org

$B$f$,$o$G$9!#(B

Takahiro Yugawa <yugawa@yrp-ktrl.co.jp>$B$5$s$N(B
[man-jp 150] something wrong with jaz ?$B$K4X$9$k(B
$B5-;v(B<199706190510.OAA02409@service.yrp-ktrl.co.jp>$B$K$h$k$H(B

yugawa> psend-jpman $B$G:9J,$NAwIU$r$9$k:]$K(B($B>e5-$H$OJL$N(B)$BLdBj$,$"$k$h$&$J$N$G!"(B
yugawa> $B$=$N=$@5$r3NG'$9$k$?$a$K$b$<$R$H$b:9J,$GAwIU$7$?$$$N$G$9$,!#(B

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

# $Id: psend-jpman,v 1.6 1997/04/14 09:11:05 ryo2 Exp $

$B$N(B psend-jpman $B$K$F!":9J,7A<0$NAwIU$r9T$C$?$H$3$m!"(B

> $B0J2<$N%(%i!<$K$h$j!"AwIU$5$l$?@.2LJ*$O<uM}$5$l$^$;$s$G$7$?!#(B
> 
>   ncrcontrol.8diff $BCf$K(B jpman $B$,4IM}$9$k(B $Id$ $B$,8+Ev$?$j$^$;$s!#(B

$B$H$$$&%(%i!<$GCF$+$l$F$7$^$$$^$7$?!#$=$b$=$b:9J,7A<0$@$+$i(B $Id$ $B$,(B
$B$"$k$O$:$O$J$$$N$K!"$H;W$C$FNI$/8+$k$H%U%!%$%kL>$N(B `8' $B$H(B `diff' $B$N(B
$B4V$K(B `.' $B$,$J$$$N$K5$$,$D$-$^$7$?!#$G!";n$7$K(B send-jpman $B$NJ}$G(B
$B:9J,7A<0$N%U%!%$%k$r:n@.$9$k$H!"(B`ncrcontrol.8.diff' $B$H$$$&%U%!%$%kL>$G(B
$B:n@.$5$l$k$N$G!"(Bpsend-jpman $B$NJ}$b$=$l$KJ;$;$FJQ99$7$?$H$3$m!"(B
$B@5>o$K<u$1IU$1$FLc$($k$h$&$K$J$j$^$7$?!#(B

$B0J2<$K%Q%C%A$rE:IU$7$^$9!#$D$$$G$K:Y$+$$=$@5$b$7$F$"$j$^$9!#(B

-- 
 ( ( (   $BEr@nN49-(B Takahiro Yugawa
  ) ) )  yugawa@yrp-ktrl.co.jp

--- psend-jpman.orig	Thu Jun 19 10:53:13 1997
+++ psend-jpman	Thu Jun 19 17:04:01 1997
@@ -33,7 +33,7 @@
 	<Account> ::= your account-ID when you reserved
 
   (Options)
-	-P  print the contents to standard ountput instead of mailing
+	-P  print the contents to standard output instead of mailing
 
   (Example)
     psend-jpman man.1 nobody999
@@ -106,13 +106,13 @@
 defined($origmanpage) && do {
     $buf = "";
     ($origname, $buf) = &readfile($origmanpage);
-    $origname = $basename."orig";
+    $origname = "$basename.orig";
     $output = ">$TMPWORKDIR/$origname";
     open(F, $output) || &err_exit("Can't open file $TMPWORKDIR/$origname",
 				  "$TMPWORKDIR/$origname $B$r:n@.$G$-$^$;$s!#(B");
     print F $buf; undef $buf;
     close(F);
-    $diffname = $basename."diff";
+    $diffname = "$basename.diff";
     system("cd $TMPWORKDIR ; $diff $origname $basename >$diffname");
     -z "$TMPWORKDIR/$diffname"
 	&& &err_exit("Generating a diff-file failed.",
@@ -243,7 +243,7 @@
     $dbuf .= '-' x 64 ."\n";
     $dbuf .= ($lang)? "$l $B9T(B, $k $B%P%$%H(B":"$l lines, $k bytes";
     $dbuf .= "\n";
-    $dbuf .= ($lang)? "$B$I$&$7$^$9$+(B? (edit[$B:FJT=8(B]/send[$BAw?.<B9T(B]/quit[$BCf;_(B]/cancel[$BGK4~(B]) ":"What now? (Edit/Send/Quit) ";
+    $dbuf .= ($lang)? "$B$I$&$7$^$9$+(B? (edit[$B:FJT=8(B]/send[$BAw?.<B9T(B]/quit[$BCf;_(B]/cancel[$BGK4~(B]) ":"What now? (Edit/Send/Quit/Cancel) ";
     print $dbuf;
     $_ = <STDIN>;
     /^[Ee]/ && (system("$defeditor $maildraft"), next);

