/
sysop2c.pas
91 lines (80 loc) · 3.08 KB
/
sysop2c.pas
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
(*****************************************************************************)
(*> <*)
(*> SYSOP2C .PAS - Written by Eric Oman <*)
(*> <*)
(*> SysOp functions: System Configuration Editor -- "C" command. <*)
(*> <*)
(*> <*)
(*****************************************************************************)
{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
unit sysop2c;
interface
uses
crt, dos,
{rcg11172000 no overlay under Linux.}
{overlay,}
common;
procedure poslsettings;
implementation
function qq(s:string):string;
var ss:string[22];
begin
ss:='"'+s+'"';
if (length(ss)<16) then ss:=mln(ss,16);
qq:=ss;
end;
procedure poslsettings;
var s:acstring;
c:char;
abort,next,done:boolean;
begin
done:=FALSE;
repeat
with systat do begin
cls;
sprint(#3#5+'System ACS settings');
nl;
abort:=FALSE; next:=FALSE;
printacr('A. Full SysOp :'+qq(sop)+
'B. Full Co-SysOp :'+qq(csop),abort,next);
printacr('C. Message base SysOp :'+qq(msop)+
'D. File base SysOp :'+qq(fsop),abort,next);
printacr('E. SysOp PW at logon :'+qq(spw)+
'F. See PW''s remotely :'+qq(seepw),abort,next);
printacr('G. Post public :'+qq(normpubpost)+
'H. Send e-mail :'+qq(normprivpost),abort,next);
printacr('I. See anon pub post :'+qq(anonpubread)+
'J. See anon E-mail :'+qq(anonprivread),abort,next);
printacr('K. Post anon ANY base :'+qq(anonpubpost)+
'L. E-mail anon :'+qq(anonprivpost),abort,next);
printacr('M. See unval. files :'+qq(seeunval)+
'N. DL unval. files :'+qq(dlunval),abort,next);
printacr('O. No UL/DL ratio :'+qq(nodlratio)+
'P. No post/call ratio :'+qq(nopostratio),abort,next);
printacr('R. No file pt checking:'+qq(nofilepts)+
'S. ULs auto-credited :'+qq(ulvalreq),abort,next);
nl;
prt('Enter selection (A-S) [Q]uit : ');
onek(c,'QABCDEFGHIJKLMNOPRS'^M);
if (c='Q') then done:=TRUE;
nl;
if (not done) then
if (c in ['A'..'P','R'..'S']) then begin
prt('New ACS: '); inputl(s,20);
if (s<>'') then
case c of
'A':sop:=s; 'B':csop:=s;
'C':msop:=s; 'D':fsop:=s;
'E':spw:=s; 'F':seepw:=s;
'G':normpubpost:=s; 'H':normprivpost:=s;
'I':anonpubread:=s; 'J':anonprivread:=s;
'K':anonpubpost:=s; 'L':anonprivpost:=s;
'M':seeunval:=s; 'N':dlunval:=s;
'O':nodlratio:=s; 'P':nopostratio:=s;
'R':nofilepts:=s; 'S':ulvalreq:=s;
end;
end;
end;
until (done) or (hangup);
end;
end.