(*****************************************************************************)
(*>                                                                         <*)
(*>  SYSOP2S .PAS -  Written by Eric Oman                                   <*)
(*>                                                                         <*)
(*>  SysOp functions: System Configuration Editor -- "S" command.           <*)
(*>                                                                         <*)
(*>                                                                         <*)
(*****************************************************************************)
{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
unit sysop2s;

interface

uses
  crt, dos,

  {rcg11172000 no overlay under Linux.}
  {overlay,}

  common;

procedure postring;

implementation

const
  aresure='Are you sure this is what you want? ';

procedure instring(p:astr; var v:astr; len:integer);
var changed:boolean;
begin
  print('Enter new "'+p+'" string:');
  inputwnwc(v,len,changed);
end;

procedure postring;
var fstringf:file of fstringrec;
    s,s2:astr;
    onpage:integer;
    c:char;
    abort,next,done:boolean;

  function cc(s:astr):astr;
  begin
    while pos('^',s)>0 do s[pos('^',s)]:=#3;
    cc:=#3#1+s;
  end;

  procedure showstrings;
  begin
    abort:=FALSE; next:=FALSE;
    with fstring do
      case onpage of
        1:begin
            printacr('A. Ansi logon Q.:'+cc(ansiq),abort,next);
            printacr('B. Logon note #1:'+cc(note[1]),abort,next);
            printacr('   Logon note #2:'+cc(note[2]),abort,next);
            printacr('C. Logon prompt :'+cc(lprompt),abort,next);
            printacr('D. Echo chr     :'+cc(echoc),abort,next);
            printacr('E. SysOp IN     :'+cc(sysopin),abort,next);
            printacr('F. SysOp OUT    :'+cc(sysopout),abort,next);
            printacr('G. Engage chat  :'+cc(engage),abort,next);
            printacr('H. Exit chat    :'+cc(endchat),abort,next);
            printacr('I. Sysop working:'+cc(wait),abort,next);
            printacr('J. Pause screen :'+cc(pause),abort,next);
            nl;
            prt('Enter selection (A-J,[,]),(Q)uit : ');
            onek(c,'QABCDEFGHIJ[]');
          end;
        2:begin
            printacr('A. Message entry L#1:'+cc(entermsg1),abort,next);
            printacr('B. Message entry L#2:'+cc(entermsg2),abort,next);
            printacr('C. NewScan start    :'+cc(newscan1),abort,next);
            printacr('D. NewScan done     :'+cc(newscan2),abort,next);
            printacr('E. Read msgs prompt :'+cc(scanmessage),abort,next);
            printacr('F. Automessage by:  :'+cc(automsgt),abort,next);
            printacr('G. Auto border char.:'+autom,abort,next);
            nl;
            prt('Enter selection (A-G,[,]),(Q)uit : ');
            onek(c,'QABCDEFG[]');
          end;
        3:begin
            printacr('A. Shell to DOS L#1 :'+cc(shelldos1),abort,next);
            printacr('B. Shell to DOS L#2 :'+cc(shelldos2),abort,next);
            printacr('C. Chat call L#1    :'+cc(chatcall1),abort,next);
            printacr('D. Chat call L#2    :'+cc(chatcall2),abort,next);
            printacr('E. Guest user info  :'+cc(guestline),abort,next);
            printacr('F. Name not found   :'+cc(namenotfound),abort,next);
            printacr('G. Bulletin line    :'+cc(bulletinline),abort,next);
            printacr('H. Thanks for voting:'+cc(thanxvote),abort,next);
            nl;
            prt('Enter selection (A-H,[,]),(Q)uit : ');
            onek(c,'QABCDEFGH[]');
          end;
        4:begin
            printacr('A. List line        :'+cc(listline),abort,next);
            printacr('B. File NewScan line:'+cc(newline),abort,next);
            printacr('C. Search line      :'+cc(searchline),abort,next);
            printacr('D. Find Descrip. L#1:'+cc(findline1),abort,next);
            printacr('E. Find Descrip. L#2:'+cc(findline2),abort,next);
            printacr('F. Download line    :'+cc(downloadline),abort,next);
            printacr('G. Upload line      :'+cc(uploadline),abort,next);
            printacr('H. View content line:'+cc(viewline),abort,next);
            printacr('I. Insuff. file pts :'+cc(nofilepts),abort,next);
            printacr('J. Bad UL/DL ratio  :'+cc(unbalance),abort,next);
            nl;
            prt('Enter selection (A-J,[,]),(Q)uit : ');
            onek(c,'QABCDEFGHIJ[]');
          end;
        5:begin
            printacr('A. P/N file info    :'+cc(pninfo),abort,next);
            printacr('B. Get filespec L#1 :'+cc(gfnline1),abort,next);
            printacr('C. Get filespec L#2 :'+cc(gfnline2),abort,next);
            printacr('D. Add to batch     :'+cc(batchadd),abort,next);
            nl;
            prt('Enter selection (A-D,[,]),(Q)uit : ');
            onek(c,'QABCD[]');
          end;
      end;
  end;

  procedure dostringstuff;
  begin
{    cl(4);}
    case c of
      'Q':done:=TRUE;
      '[':begin
            dec(onpage);
            if (onpage<1) then onpage:=5;
          end;
      ']':begin
            inc(onpage);
            if (onpage>5) then onpage:=1;
          end;
    end;
    with fstring do
      case onpage of
        1:case c of
            'A':instring('ANSI logon question',ansiq,80);
            'B':begin
                  print('Enter new logon note.  You may use two lines.');
                  inputwc(s,80);
                  inputwc(s2,80);
                  if (s<>'') then note[1]:=s;
                  if (s2<>'') then note[2]:=s2;
                end;
            'C':instring('Logon prompt',lprompt,40);
            'D':begin
                  prt('Enter new echo character: ');
                  mpl(1); inputl(s,1);
                  if (s<>'') then echoc:=s[1];
                end;
            'E':instring('SysOp IN',sysopin,80);
            'F':instring('SysOp OUT',sysopout,80);
            'G':instring('Engage chat',engage,80);
            'H':instring('End chat',endchat,80);
            'I':instring('SysOp working',wait,80);
            'J':instring('Pause',pause,80);
            'Q':done:=TRUE;
          end;
        2:case c of
            'A':instring('Message entry line 1',entermsg1,80);
            'B':instring('Message entry line 2',entermsg2,80);
            'C':instring('NewScan line 1',newscan1,80);
            'D':instring('NewScan line 2',newscan2,80);
            'E':instring('Read message prompt',scanmessage,80);
            'F':instring('Auto message title',automsgt,80);
            'G':begin
                  print('Enter new auto message border character:');
                  inputl(s,1);
                  if (s<>'') then autom:=s[1];
                end;
          end;
        3:case c of
            'A':instring('Shell to DOS line 1',shelldos1,80);
            'B':instring('Shell to DOS line 2',shelldos2,80);
            'C':instring('Chat call line 1',chatcall1,80);
            'D':instring('Chat call line 2',chatcall2,80);
            'E':instring('Guest user info at logon prompt',guestline,80);
            'F':instring('Name not found line during logon',namenotfound,80);
            'G':instring('Bulletins prompt line',bulletinline,80);
            'H':instring('Thanks for voting',thanxvote,80);
          end;
        4:case c of
            'A':instring('List line',listline,80);
            'B':instring('File NewScan line',newline,80);
            'C':instring('Search line',searchline,80);
            'D':instring('Find description line 1',findline1,80);
            'E':instring('Find description line 2',findline2,80);
            'F':instring('Download line',downloadline,80);
            'G':instring('Upload line',uploadline,80);
            'H':instring('View interior contents line',viewline,80);
            'I':instring('Insufficient file points',nofilepts,80);
            'J':instring('Upload/Download ratio unbalanced',unbalance,80);
          end;
        5:case c of
            'A':instring('P / N file information',pninfo,80);
            'B':instring('Get filespec line 1',gfnline1,80);
            'C':instring('Get filespec line 2',gfnline2,80);
            'D':instring('Add to batch queue',batchadd,80);
          end;
      end;
  end;

begin
  onpage:=1; done:=FALSE;
  repeat
    cls;
    sprint(#3#5+'String configuration - page '+cstr(onpage)+' of 5');
    nl;
    showstrings;
    nl;
    dostringstuff;
  until ((done) or (hangup));
  assign(fstringf,systat.gfilepath+'string.dat');
  reset(fstringf); seek(fstringf,0); write(fstringf,fstring); close(fstringf);
end;

end.