home *** CD-ROM | disk | FTP | other *** search
/ ftp.uv.es / 2014.11.ftp.uv.es.tar / ftp.uv.es / pub / unix / pine4.10.tar.gz / pine4.10.tar / pine4.10 / imap / src / osdep / tops-20 / log_t20.c < prev    next >
Text File  |  1998-12-16  |  3KB  |  75 lines
  1. /*
  2.  * Program:    TOPS-20 server login
  3.  *
  4.  * Author:    Mark Crispin
  5.  *        6158 Lariat Loop NE
  6.  *        Bainbridge Island, WA  98110-2098
  7.  *        Internet: MRC@Panda.COM
  8.  *
  9.  * Date:    1 August 1988
  10.  * Last Edited:    15 December 1998
  11.  *
  12.  * Copyright 1998 by Mark Crispin
  13.  *
  14.  *  Permission to use, copy, modify, and distribute this software and its
  15.  * documentation for any purpose and without fee is hereby granted, provided
  16.  * that the above copyright notices appear in all copies and that both the
  17.  * above copyright notices and this permission notice appear in supporting
  18.  * documentation, and that the name of Mark Crispin not be used in advertising
  19.  * or publicity pertaining to distribution of the software without specific,
  20.  * written prior permission.  This software is made available "as is", and
  21.  * MARK CRISPIN DISCLAIMS ALL WARRANTIES, EXPRESS OR IMPLIED, WITH REGARD TO
  22.  * THIS SOFTWARE, INCLUDING WITHOUT LIMITATION ALL IMPLIED WARRANTIES OF
  23.  * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE, AND IN NO EVENT SHALL
  24.  * MARK CRISPIN BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES
  25.  * OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
  26.  * WHETHER IN AN ACTION OF CONTRACT, TORT (INCLUDING NEGLIGENCE) OR STRICT
  27.  * LIABILITY, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF
  28.  * THIS SOFTWARE.
  29.  *
  30.  */
  31.  
  32.  
  33. /* Dedication:
  34.  * This file is dedicated with affection to the TOPS-20 operating system, which
  35.  * set standards for user and programmer friendliness that have still not been
  36.  * equaled by more `modern' operating systems.
  37.  * Wasureru mon ka!!!!
  38.  */
  39.  
  40. /* Server log in
  41.  * Accepts: user name string
  42.  *        password string
  43.  *        argument count
  44.  *        argument vector
  45.  * Returns: T if password validated, NIL otherwise
  46.  */
  47.  
  48. long server_login (char *user,char *pass,int argc,char *argv[])
  49. {
  50.   int uid;
  51.   int argblk[5];
  52.   argblk[1] = RC_EMO;        /* require exact match */
  53.   argblk[2] = (int) (user-1);    /* user name */
  54.   argblk[3] = 0;        /* no stepping */
  55.   if (!jsys (RCUSR,argblk)) return NIL;
  56.   uid = argblk[1] = argblk[3];    /* user number */
  57.   argblk[2] = (int) (pass-1);    /* password */
  58.   argblk[3] = 0;        /* no special account */
  59.   if (!jsys (LOGIN,argblk)) return NIL;
  60.   return T;
  61. }
  62.  
  63.  
  64. /* Authenticated server log in
  65.  * Accepts: user name string
  66.  *        argument count
  67.  *        argument vector
  68.  * Returns: T if password validated, NIL otherwise
  69.  */
  70.  
  71. long authserver_login (char *user,int argc,char *argv[])
  72. {
  73.   return NIL;            /* how to implement this on TOPS-20??? */
  74. }
  75.