From: ja3rmy@uclsun.uclsun.uclosk.co.jp (Masatoshi Yokoyama)
Newsgroups: fj.comp.comm
Subject: Re: UUCP over ISDN.
Keywords: UUCP ISDN
Date: 28 Sep 92 13:49:14 GMT
Distribution: fj
Organization: UCL : Universal Computer Laboratory Co.,Ltd. Osaka, Japan.

$B!N(JUUCP/ISDN $B<B83%l%]!<%H(J No.2'$B!O(J

$B2#;3!w#U#C#L$G$9!#(J


  $BD>A0$K%]%9%H$7$?0J2<$N5-;v(J

In article <3572@uclsun.uclsun.uclosk.co.jp>, ja3rmy@uclsun.uclsun.uclosk.co.jp (Masatoshi Yokoyama) writes:
> $B!N(JUUCP/ISDN $B<B83%l%]!<%H(J No.2$B!O(J
> 
> $B!!Ls#1%+7nA0$K>e5-$N8+=P$7$G;O$^$k(J UUCP/ISDN $B<B83%l%]!<%H$r%]%9%H$7(J
> $B$^$7$?$,!"$=$N8e<c43$NDI2C<B83$,$G$-$^$7$?$N$G$3$3$K%l%]!<%H(J No.2 
> $B$r%]%9%H$7$^$9!#(J
> 
> $B!!$?$@!"DI2CJ,$@$1$N%]%9%H$G$OA02s$N5-;v$,(J expire $B$5$l$F$$$FJ,$+$j(J
> $BFq$$$H;W$$$^$9$N$G!"K\5-;v$G$OA02s5-;v$HDI2C5-;v$r9g$o$;$?A4BNFbMF(J
> $B$K$7$^$7$?!#(J
> $B!!$3$N8e$N%]%9%H$G$OA02s5-;v$,%"%/%;%9$G$-$kJ}$N$?$a$NDI2C5-;v$H!"(J
    ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
> f protocol $B<B83$N$?$a$N(J UUPC $B=$@5FbMFEy$r$^$H$a$F$$$^$9!#(J
  ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
> $B!!DI2CJ,$N<g$JFbMF$O(J PC98 $BMQ(J UUCP $B$G$"$k(J UUPC $B$G$N<B837k2L$G!"8e$O(J
> LUNA $B$N%7%9%F%`JQ99$K$h$j(J ISDN $BD>@\(J login $B$G$NB.EY$,8~>e$7$?7k2L$G(J
> $B$9!#B.EY7k2L$G$O(J 7.,8.,9. $B$,JQ99!&DI2C$5$l$F$$$^$9!#(J

$B!!$NB3JT$G$9!#(J

------------------------------------------------------------------
$B"#!!A02s%l%]!<%H$+$i$NJQ99!&DI2CItJ,$G$9!#(J
------------------------------------------------------------------

> $B!!!N<B834D6-!O(J

>   1. $B%O!<%I%&%'%"(J

>     [H3] : ucluna LUNA 1 / Unios-U / ISDN$B%\!<%I(J  / $BCe?.B&(J
>            $B!t(J f,t $B%W%m%H%3%k$N<B83$N$?$a(J Taylor UUCP $B$r;HMQ$7$^$9!#(J
>     [P3] : PC9801RL5  / MSDOS3.3 / ISDN$B%\!<%I(J

> $B!!(J3. $B%=%U%H%&%'%"(J

>     {uucico} : OS $B$NI8=`%=%U%H$G$9!#(JSun3,LUNA $B$O(J Taylor UUCP $B$G$9!#(J
>     {uupc}   : UUPC/extended for MS-DOS 1.11q-Kenji-BETA2 $B$G$9!#(J

>   4. $BDL?.O)(J

>     <UUPCTA>    : UUPC $B$K(J MCD V0.7 $B$H$$$&(J RS232C $B%I%i%$%P$rAH$_9g$;(J
>                   $B$F(J TA $B7PM3$G@\B3$7$^$9!#(J
>     <UUPCI>     : UUPC $B$K(J FRAPI-A $B%I%i%$%P$r7k9g$7(J ISDN $B%\!<%I7PM3(J
>     $B!!!!!!!!!!!!!!$G@\B3$7$^$9!#(J

> $B!!!NB.EY7k2L!O(J

>   7. <PCUUCPD>-<GETTY>
> 
> t:ucluni!ja3rmy M (13:55:45) [-] -> 138291 / 18.822 secs,    7347 bytes/sec
> t:ja3rmy uclspc (13:59) received 138291 bytes in 21 seconds  6585 bytes/sec
> 
> f:ucluni!ja3rmy M (13:49:45) [-] -> 138291 / 19.656 secs,    7035 bytes/sec
> f:ja3rmy uclspc (13:53) received 138291 bytes in 21 seconds  6585 bytes/sec
> 
> g:ucluni!ja3rmy M (14:00:12) [-] -> 138291 / 208.119 secs,    664 bytes/sec
> g:ja3rmy uclspc (14:03) received 138291 bytes in 209 seconds  662 bytes/sec

>   8. <UUPCTA>-<TA>
> 
> f:pc98!ja3rmy S (13:10:54) [ttyc] -> 138291 / 75.449 secs, 1832 bytes/sec
> f:uclspc!/tmp (/tmp/tt) (13:15:10) <- 138291 / 76.00 secs  1820 bytes/sec
> 
> g:pc98!ja3rmy S (13:18:53) [ttyc] -> 138291 / 78.576 secs, 1759 bytes/sec
> g:uclspc!/tmp (/tmp/tt) (13:23:09) <- 138291 / 80.00 secs  1729 bytes/sec
> 
>   9. <UUPCI>-<GETTY>
> 
> f:ja3rmy pc98 (13:26) sent 138291 bytes in 19 seconds      7278 bytes/sec
> f:ucluni!/tmp (/tmp/tt) (13:26:00) <- 138291 / 20.00 secs  6915 bytes/sec
> 
> g:ja3rmy pc98 (13:37) sent 138291 bytes in 217 seconds      637 bytes/sec
> g:ucluni!/tmp (/tmp/tt) (13:36:16) <- 138291 / 216.00 secs  640 bytes/sec

------------------------------------------------------------------
$B"#!!:#2s$N<B83$G9T$C$?%=!<%9%Q%C%AEy$N>pJs$G$9!#(J
------------------------------------------------------------------

1. Taylor UUCP ( from alt.sources )

  ISDN(FRAPI-A/ISO8208) $B$H(J TCP/IP $B%3%M%/%7%g%s$G(J f protcol $B%F%9%H$r(J
$B$7$?;~!"$I$&$bB.EY$,=P$^$;$s$G$7$?!#D4$Y$k$H!"<u?.B&$+$iBgNL$N(J XON/
XOFF $B$,H/9T$5$l$F$$$F(J S/N $BHf$,Mn$A$F$$$k$?$a$G$7$?!#(J
$B!!$3$N%3%M%/%7%g%s$G$O(J XON/XOFF $B$NI,MW@-$O$"$j$^$;$s!J%l%$%d#3$G$N(J
$B%U%m!<@)8f$,$"$k$?$a!K$N$G!"0J2<$N%Q%C%A$GBP1~$7$^$7$?!#(J

BEGIN ----------
*** ORG/sys2.c	Fri Aug 21 16:39:19 1992
--- sys2.c	Fri Aug 21 21:59:11 1992
***************
*** 1737,1743 ****
--- 1737,1747 ----
        return TRUE;
      case PORTSETTING_SEVEN:
  #if HAVE_BSD_TTY
+ #if 0
        q->snew.sg_flags = CBREAK | ANYP | TANDEM;
+ #else
+       q->snew.sg_flags = CBREAK | ANYP;
+ #endif
  #endif
  #if HAVE_SYSV_TERMIO | HAVE_POSIX_TERMIOS
        q->snew.c_iflag = ISTRIP | IXON | IXOFF;
END ----------


2. UUPC ( from $BF|7P(JMIX, Thanks > kenji $B$5$s(J)
 ( UUPC/extended for MS-DOS 1.11q-Kenji-BETA2 )


(1) RS232C $B%I%i%$%P%$%s%?%U%'!<%9B.EY2~A1(J

$B!!;O$a$OG[I[%-%C%H$=$N$^$^$G(J TA $B$K@\B3$7$F%F%9%H$7$?$H$3$m!"$I$&$b(J
$BB.EY$,=P$:Ls(J 300 B/sec $B$0$i$$$G$7$?!#(J
$B!!$$$m$$$mD4$Y$?$H$3$m!"%I%i%$%P%$%s%?%U%'!<%94X?t(J sread() $B$KBP$7$F(J
$BKh2s#1%P%$%H$:$DFI$_$@$7$F$$$k$N$KKh2s(J time() $B4X?t$G%?%$%`%"%&%HMQ(J
$B%?%$%^$r:n@.$7$F$$$^$7$?!#(J
$B!!0J2<$N%Q%C%A$G$O!"4{$K%P%C%U%!$K<u?.%G!<%?$,$"$l$P%?%$%`%"%&%H=`(J
$BHw$b$;$:%P%C%U%!%G!<%?$rD>$A$K%j%?!<%s$9$k$h$&$K$7$F$$$^$9!#(J
$B!!$"$H$O<u?.%P%C%U%!$r(J 1 KB $B$K3HD%$7$^$7$?!#(J
$B!!$^$?!"B.EY=E;k$N$?$aK\4X?t$N%G%P%C%0%a%C%;!<%8$O%3%a%s%H%"%&%H$7(J
$B$^$7$?!#(J

BEGIN ----------
*** org/ULIBMCD.C	Sun Dec 01 14:17:28 1991
--- ULIBMCD.C	Sat Sep 26 20:38:40 1992
***************
*** 42,48 ****
  static char *driver_id = "MCD";
  static char drv_id[16];	/* driver ID */
  
! #define BUFCHARLEN (512 + 16) /* 512 bytes are enough */
  #define MCDRBUFSIZ (BUFCHARLEN)
  #define MCDTBUFSIZ (BUFCHARLEN)
  static unsigned char mcdrxbuf[MCDRBUFSIZ], mcdtxbuf[MCDTBUFSIZ];
--- 42,48 ----
  static char *driver_id = "MCD";
  static char drv_id[16];	/* driver ID */
  
! #define BUFCHARLEN (1024 + 16) /* 512 bytes are enough */
  #define MCDRBUFSIZ (BUFCHARLEN)
  #define MCDTBUFSIZ (BUFCHARLEN)
  static unsigned char mcdrxbuf[MCDRBUFSIZ], mcdtxbuf[MCDTBUFSIZ];
***************
*** 183,192 ****
  	unsigned int i, pending, elapsed;
  	long start;
  
! 	start = time((long *)NULL);
  	for(;;) {
! 		pending = mcd_get_rbuf_count();
  		printmsg(20, "sread: pending=%d, wanted=%d", pending, wanted);
  		if (pending >= wanted) {	/* got enough in the buffer? */
  		    i = mcd_block_read(buffer, wanted);
  
--- 183,196 ----
  	unsigned int i, pending, elapsed;
  	long start;
  
! 	pending = mcd_get_rbuf_count();
! 	if (pending < wanted) {	/* got not enough in the buffer? */
! 	   start = time((long *)NULL);
!     }
  	for(;;) {
! #if 0
  		printmsg(20, "sread: pending=%d, wanted=%d", pending, wanted);
+ #endif
  		if (pending >= wanted) {	/* got enough in the buffer? */
  		    i = mcd_block_read(buffer, wanted);
  
***************
*** 202,207 ****
--- 206,212 ----
  			if (elapsed >= timeout)
  				return pending;
        }
+ 		pending = mcd_get_rbuf_count();
     }
  } /*sread*/
  
END ----------


(2) $B%Q%1%C%H%P%C%U%!3HD%(J

  TCP/IP , ISDN(FRAPI-A/ISO8208) $B7PM3$G$O(J f protocol $B%Q%1%C%H%5%$(J
$B%:$,(J 1024 B $B$GN.$l$F$/$k$?$a!"%Q%1%C%H%P%C%U%!$r(J 1024 B $B$K3HD%$7(J
$B$^$7$?!#(J

BEGIN ----------
*** org/DCP.H	Sat Oct 05 17:50:36 1991
--- DCP.H	Tue Sep 22 20:23:48 1992
***************
*** 19,25 ****
  
  /* DCP a uucp clone. Copyright Richard H. Lamb 1985,1986,1987 */
  
! #define MAXPACK 256
  
  #define ERROR   10
  #define EMPTY   11
--- 19,25 ----
  
  /* DCP a uucp clone. Copyright Richard H. Lamb 1985,1986,1987 */
  
! #define MAXPACK 1024
  
  #define ERROR   10
  #define EMPTY   11
END ----------


(3) f protocol $B%b%8%e!<%k2~=$(J

$B!!$^$:!"%Q%1%C%H%5%$%:$r(J 1024 B $B$K3HD%$7$^$7$?!#(J

$B!!<!$K!"%U%!%$%k:G=*$N%A%'%C%/%5%`<u?.;~$N%G%P%C%0MQ%P%C%U%!FbMFI=(J
$B<(%a%C%;!<%8$GD>A0$K$"$C$?:G8e$N%U%!%$%kFbMF%Q%1%C%H$rI=<($7$F$7$^(J
$B$&LdBjE@$,$"$C$?$N$G2~=$$7$^$7$?!#(J

$B!!$D$$$G$K!"(Jbuf=|| , data=|| $B$H$$$&I=<($,%U%!%$%kK\BNMQ$H%A%'%C%/(J
$B%5%`MQ$HF1$8$@$C$?$N$G!"%G%P%C%0;~$K8+J,$1$i$l$k$h$&%A%'%C%/%5%`MQ(J
$B$O(J buf-|| , data-|| $B$H$$$&I=<($K$7$^$7$?!#(J

$B!!$5$F!":G$b=EBg$JLdBjE@$,$"$j$^$7$?!#(J
$B!!$=$l$O!"%U%!%$%k%5%$%:$,%Q%1%C%H%P%C%U%!%5%$%:$N@0?tG\$N>l9g$K!"(J
$BE>Aw$,=*N;$7$J$$8=>]$G$7$?!#(J
$B!!$3$N<u?.=hM}J}<0$,%U%!%$%k%(%s%I$KC#$7$?;~E@$G$OL5$/!"%U%!%$%k%((J
$B%s%I$rD6$($?;~E@$G=*N;$9$k$h$&$K$J$C$F$$$k$h$&$G$9!#(J
$B!!$=$N$?$a!"%U%!%$%k<u?.$,%Q%1%C%H%P%C%U%!%5%$%:$N@0?tG\$GCzEY=*$C(J
$B$?;~!"@5>o<u?.;~$N1~Ez=hM}$r9T$o$J$$$G%G%C%I%m%C%/$,H/@8$7$F$$$^$7(J
$B$?!#(J

$B!!0J2<$N%Q%C%A$G$O!":G8e$N%A%'%C%/%5%`=hM}$,=*$j=hM}%G!<%??t$,#0$K(J
$B$J$C$?>l9g$K!":F5"$G<+4X?t$r8F=P$7<+4X?t$N@hF,$K$"$k@5>o<u?.;~$N1~(J
$BEz=hM}$r9T$o$;$F$$$^$9!#(J

$B!!$3$N=$@5$N$"$H!"(JTaylor UUCP $B$N%=!<%9$r8+$F$$$k$H!"(J f protocol $B$G(J
$B$N%A%'%C%/%5%`=hM}$K:F5"$3$=$"$j$^$;$s$G$7$?$,!"$3$l$HF1$8$h$&$J7A(J
$B$NItJ,$,$"$j$^$7$?$N$G!"!JC1$J$k!K;29M$G7G$2$^$9!#(J

BEGIN ----------
*** org/DCPFPKT.C	Sun Aug 25 09:58:14 1991
--- DCPFPKT.C	Tue Sep 08 19:55:22 1992
***************
*** 58,64 ****
  /*                              Defines                               */
  /*--------------------------------------------------------------------*/
  
! #define PKTSIZE   64
  
  #ifndef MAXMSGLEN
  #define MAXMSGLEN BUFSIZ
--- 58,64 ----
  /*                              Defines                               */
  /*--------------------------------------------------------------------*/
  
! #define PKTSIZE   1024
  
  #ifndef MAXMSGLEN
  #define MAXMSGLEN BUFSIZ
***************
*** 228,234 ****
                 len += i;
              }
  
!             printmsg(6, "fgetpkt: buf=|%.*s|", len , packet);
              if (buf[4] != '\r')
              {
                 printmsg(0,"fgetpkt: error: Expected carriage return, \
--- 228,234 ----
                 len += i;
              }
  
!             printmsg(6, "fgetpkt: buf-|%.*s|", len , buf);
              if (buf[4] != '\r')
              {
                 printmsg(0,"fgetpkt: error: Expected carriage return, \
***************
*** 242,249 ****
              *bytes = op - packet;
              if (chksum == sum) {
                 eof = TRUE;
!                printmsg(6, "fgetpkt: data=|%.*s|", *bytes , packet);
!                return OK;
              } else {
                 printmsg(0, "fgetpkt: Checksum mismatch, told %04x, calc %04x",
                              chksum, sum);
--- 242,253 ----
              *bytes = op - packet;
              if (chksum == sum) {
                 eof = TRUE;
!                printmsg(6, "fgetpkt: data-|%.*s|", *bytes , packet);
!                if (*bytes == 0) {
!                   return fgetpkt((char *)NULL, (char *)NULL);
!                } else {
!                   return OK;
!                }
              } else {
                 printmsg(0, "fgetpkt: Checksum mismatch, told %04x, calc %04x",
                              chksum, sum);
END ----------


  -----< Taylor UUCP : protf.c >-----

$B!!=hM}%G!<%??t$r#0$H$7$F!"A4%U%!%$%k%G!<%?$rFI$_@Z$C$?$3$H$r(J
 fgot_data() $B$KDLCN$7!":G8e$N%A%'%C%/%5%`$N=hM}$r0MMj$7$F$$$kItJ,(J
$B$G$9!#(J

> /* Process any data in the receive buffer.  */
> 
> boolean
> ffprocess (pfexit)
>      boolean *pfexit;
> {
> $B!J>JN,!K(J
> 		  /* Tell fgot_data that we've read the entire file by
> 		     passing 0 length data.  This will set *pfexit to
> 		     TRUE and call fffile to verify the checksum.  */
> 		  return fgot_data ((char *) NULL, 0, FALSE, TRUE, pfexit);
> 		}
> $B!J>JN,!K(J
> }


(4) $B%G%P%C%0%l%Y%kDLCN5!G=I|5"(J

$B!!%F%9%H$r;O$a$?:"$O!"(Juucico -x9 $B$G8F$S=P$7$F$bAj<jB&$K%G%P%C%02q(J
$BOC5-O?$N(J audit $B%U%!%$%k$,$G$-$J$$$N$G!"F0:n3NG'$,LLE]$G$7$?!#(J
$B!!$=$3$G%=!<%9$rD4$Y$?$H$3$m!"Aj<jB&$K%G%P%C%0%l%Y%k$rDLCN$9$k(J -x
$B%*%W%7%g%s$N=hM}$,%3%a%s%H%"%&%H$5$l$F$$$k$N$rH/8+$7$^$7$?!#(J
 -Q $B%*%W%7%g%s$O(J Version 2 UUCP $B$G$N2qOC%7!<%1%s%9>H9g%*%W%7%g%s$J(J
$B$N$GI,MWL5$$$H$7$F$b!"(J-x $B%*%W%7%g%s$O%G%P%C%0$KJXMx$J$N$GI|5"$5$;(J
$B$F$*$-$^$7$?!#(J

$B!!$J$*!"$D$$$G$J$,$i(J uucico -x9 $B$G8F$S=P$9$HAj<jB&$K%G%P%C%02qOC5-(J
$BO?$N(J audit $B%U%!%$%k$,$I$s$I$sN/$j$^$9!#Aj<jB&$GDj4|E*$J%U%!%$%k%a%s(J
$B%F$r$7$F$$$J$$$H!"Aj<j$N(J /usr/spool/uucp $B$r05Gw$7$^$9$N$GCm0U$7$F$/(J
$B$@$5$$!#(J

BEGIN ----------
*** org/DCPSYS.C	Sat Dec 07 14:22:52 1991
--- DCPSYS.C	Mon Sep 28 11:47:36 1992
***************
*** 315,321 ****
  
     /* sprintf(msg, "S%.7s -Q0 -x%d", nodename, debuglevel); */
     /* -Q0 -x16 remote debuglevel set */
!    sprintf(msg, "S%s", securep->myname );
     wmsg(msg, TRUE);
  
  /*--------------------------------------------------------------------*/
--- 315,321 ----
  
     /* sprintf(msg, "S%.7s -Q0 -x%d", nodename, debuglevel); */
     /* -Q0 -x16 remote debuglevel set */
!    sprintf(msg, "S%s -x%d", securep->myname, debuglevel);
     wmsg(msg, TRUE);
  
  /*--------------------------------------------------------------------*/
END ----------

-- 
------------------------------------------------------------------
$B"#!!"#!!"#"#"#!!"#!!!!(J $B2#;32m=S(J@($B3t(J)$B%f%K%P!<%5%k%3%s%T%e!<%?8&5f=j(J
$B"#!!"#!!"#!!!!!!"#!!!!(J ja3rmy@uclsun.uclosk.co.jp (@uunet.uu.net)
$B"#"#"#!!"#"#"#!!"#"#"#(J jus member No.83463R