| rev |
line source |
|
yuuji@0
|
1 /* ========================================================================
|
|
yuuji@0
|
2 * Copyright 1988-2006 University of Washington
|
|
yuuji@0
|
3 *
|
|
yuuji@0
|
4 * Licensed under the Apache License, Version 2.0 (the "License");
|
|
yuuji@0
|
5 * you may not use this file except in compliance with the License.
|
|
yuuji@0
|
6 * You may obtain a copy of the License at
|
|
yuuji@0
|
7 *
|
|
yuuji@0
|
8 * http://www.apache.org/licenses/LICENSE-2.0
|
|
yuuji@0
|
9 *
|
|
yuuji@0
|
10 *
|
|
yuuji@0
|
11 * ========================================================================
|
|
yuuji@0
|
12 */
|
|
yuuji@0
|
13
|
|
yuuji@0
|
14 /*
|
|
yuuji@0
|
15 * Program: TOPS-20 server login
|
|
yuuji@0
|
16 *
|
|
yuuji@0
|
17 * Author: Mark Crispin
|
|
yuuji@0
|
18 * Networks and Distributed Computing
|
|
yuuji@0
|
19 * Computing & Communications
|
|
yuuji@0
|
20 * University of Washington
|
|
yuuji@0
|
21 * Administration Building, AG-44
|
|
yuuji@0
|
22 * Seattle, WA 98195
|
|
yuuji@0
|
23 * Internet: MRC@CAC.Washington.EDU
|
|
yuuji@0
|
24 *
|
|
yuuji@0
|
25 * Date: 1 August 1988
|
|
yuuji@0
|
26 * Last Edited: 30 August 2006
|
|
yuuji@0
|
27 */
|
|
yuuji@0
|
28
|
|
yuuji@0
|
29
|
|
yuuji@0
|
30 /* Dedication:
|
|
yuuji@0
|
31 * This file is dedicated with affection to the TOPS-20 operating system, which
|
|
yuuji@0
|
32 * set standards for user and programmer friendliness that have still not been
|
|
yuuji@0
|
33 * equaled by more `modern' operating systems.
|
|
yuuji@0
|
34 * Wasureru mon ka!!!!
|
|
yuuji@0
|
35 */
|
|
yuuji@0
|
36
|
|
yuuji@0
|
37 /* Server log in
|
|
yuuji@0
|
38 * Accepts: user name string
|
|
yuuji@0
|
39 * password string
|
|
yuuji@0
|
40 * authenticating user name string
|
|
yuuji@0
|
41 * argument count
|
|
yuuji@0
|
42 * argument vector
|
|
yuuji@0
|
43 * Returns: T if password validated, NIL otherwise
|
|
yuuji@0
|
44 */
|
|
yuuji@0
|
45
|
|
yuuji@0
|
46 long server_login (char *user,char *pass,char *authuser,int argc,char *argv[])
|
|
yuuji@0
|
47 {
|
|
yuuji@0
|
48 int uid;
|
|
yuuji@0
|
49 int argblk[5];
|
|
yuuji@0
|
50 if (authuser && *authuser) { /* not available */
|
|
yuuji@0
|
51 syslog (LOG_NOTICE|LOG_AUTH,
|
|
yuuji@0
|
52 "Login %s failed: invalid authentication ID %s host=%.80s",
|
|
yuuji@0
|
53 user,authuser,tcp_clienthost ());
|
|
yuuji@0
|
54 sleep (3);
|
|
yuuji@0
|
55 return NIL;
|
|
yuuji@0
|
56 }
|
|
yuuji@0
|
57 argblk[1] = RC_EMO; /* require exact match */
|
|
yuuji@0
|
58 argblk[2] = (int) (user-1); /* user name */
|
|
yuuji@0
|
59 argblk[3] = 0; /* no stepping */
|
|
yuuji@0
|
60 if (!jsys (RCUSR,argblk)) return NIL;
|
|
yuuji@0
|
61 uid = argblk[1] = argblk[3]; /* user number */
|
|
yuuji@0
|
62 argblk[2] = (int) (pass-1); /* password */
|
|
yuuji@0
|
63 argblk[3] = 0; /* no special account */
|
|
yuuji@0
|
64 if (!jsys (LOGIN,argblk)) return NIL;
|
|
yuuji@0
|
65 return T;
|
|
yuuji@0
|
66 }
|
|
yuuji@0
|
67
|
|
yuuji@0
|
68
|
|
yuuji@0
|
69 /* Authenticated server log in
|
|
yuuji@0
|
70 * Accepts: user name string
|
|
yuuji@0
|
71 * authenticating user name string
|
|
yuuji@0
|
72 * argument count
|
|
yuuji@0
|
73 * argument vector
|
|
yuuji@0
|
74 * Returns: T if password validated, NIL otherwise
|
|
yuuji@0
|
75 */
|
|
yuuji@0
|
76
|
|
yuuji@0
|
77 long authserver_login (char *user,char *authuser,int argc,char *argv[])
|
|
yuuji@0
|
78 {
|
|
yuuji@0
|
79 return NIL; /* how to implement this on TOPS-20??? */
|
|
yuuji@0
|
80 }
|
