home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / tnlogin.zip / telnetd2.cmd < prev   
OS/2 REXX Batch file  |  1997-01-20  |  742b  |  34 lines
  1. /* telnetd2.cmd - daemon / inetd entry to telnet login replacement */
  2.  
  3. /* Author:  Kai Uwe Rommel <rommel@ars.muc.de>
  4.  * Created: Sun Sep 18 1994
  5.  *
  6.  * $Id: telnetd2.cmd,v 1.2 1997/01/20 13:24:55 rommel Exp $
  7.  * $Revision: 1.2 $
  8.  */
  9.  
  10. /*
  11.  * $Log: telnetd2.cmd,v $
  12.  * Revision 1.2  1997/01/20 13:24:55  rommel
  13.  * %etc% does no longer point into \tcpip tree
  14.  *
  15.  * Revision 1.1  1994/09/18 19:43:25  rommel
  16.  * Initial revision
  17.  * 
  18.  */
  19.  
  20. Call SetLocal
  21. '@echo off'
  22.  
  23. tcpip = Value('ETC',,'OS2ENVIRONMENT')
  24. tcpip = FileSpec('drive',tcpip) || '\tcpip'
  25.  
  26. 'set telnet_comspec=%comspec%'
  27. 'set comspec='tcpip'bin\login2.exe'
  28. 'set ttysocket=%1'
  29. 'telnetd %1 %2 %3 %4 %5 %6 %7 %8 %9'
  30.  
  31. Call EndLocal 
  32.  
  33. /* end of telnetd2.cmd */
  34.