1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
|
/* ========================================================================
* Copyright 1988-2006 University of Washington
*
* Licensed under the Apache License, Version 2.0 (the "License");
* you may not use this file except in compliance with the License.
* You may obtain a copy of the License at
*
* http://www.apache.org/licenses/LICENSE-2.0
*
*
* ========================================================================
*/
/*
* Program: Operating-system dependent routines -- TOPS-20 version
*
* Author: Mark Crispin
* Networks and Distributed Computing
* Computing & Communications
* University of Washington
* Administration Building, AG-44
* Seattle, WA 98195
* Internet: MRC@CAC.Washington.EDU
*
* Date: 1 August 1988
* Last Edited: 30 August 2006
*/
/* Dedication:
* This file is dedicated with affection to the TOPS-20 operating system, which
* set standards for user and programmer friendliness that have still not been
* equaled by more `modern' operating systems.
* Wasureru mon ka!!!!
*/
#include "mail.h"
#include <jsys.h> /* must be before tcp_t20.h */
#include "tcp_t20.h" /* must be before osdep include tcp.h */
#include <time.h>
#include "osdep.h"
#include <sys/time.h>
#include "misc.h"
#include <stdio.h>
#include <fcntl.h>
#include <sys/stat.h>
#include <ctype.h>
#include "fs_t20.c"
#include "ftl_t20.c"
#include "nl_t20.c"
#include "env_t20.c"
#include "tcp_t20.c"
#include "log_t20.c"
#define MD5ENABLE "PS:<SYSTEM>CRAM-MD5.PWD"
#include "auth_md5.c"
#include "auth_ext.c"
#include "auth_pla.c"
#include "auth_log.c"
/* Emulator for UNIX gethostid() call
* Returns: host id
*/
long gethostid ()
{
int argblk[5];
#ifndef _APRID
#define _APRID 28
#endif
argblk[1] = _APRID;
jsys (GETAB,argblk);
return (long) argblk[1];
}
/* Emulator for UNIX getpass() call
* Accepts: prompt
* Returns: password
*/
#define PWDLEN 128 /* used by Linux */
char *getpass (const char *prompt)
{
char *s;
static char pwd[PWDLEN];
int argblk[5],mode;
argblk[1] = (int) (prompt-1); /* prompt user */
jsys (PSOUT,argblk);
argblk[1] = _PRIIN; /* get current TTY mode */
jsys (RFMOD,argblk);
mode = argblk[2]; /* save for later */
argblk[2] &= ~06000;
jsys (SFMOD,argblk);
jsys (STPAR,argblk);
fgets (pwd,PWDLEN-1,stdin);
pwd[PWDLEN-1] = '\0';
if (s = strchr (pwd,'\n')) *s = '\0';
putchar ('\n');
argblk[2] = mode;
jsys (SFMOD,argblk);
jsys (STPAR,argblk);
return pwd;
}
|
