(*****************************************************************************)
(*>                                                                         <*)
(*>  NEWUSERS.PAS -  Written by Eric Oman                                   <*)
(*>                                                                         <*)
(*>  Logon functions -- New users.                                          <*)
(*>                                                                         <*)
(*>                                                                         <*)
(*****************************************************************************)
{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
unit newusers;

interface

uses
  crt, dos,

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

  mail0, mail1, mail2, mail3,
  misc2, misc3, misc4, miscx,
  cuser,
  doors,
  archive1,
  menus,
  common;

procedure newuser;
procedure newuserinit(nam:astr);

implementation

var
  newusername:astr;

procedure p1;
var c:char;
    tries,i,ii,t:integer;
    s,s1,s2:astr;
    atype,pw:astr;
    done,abort,next,choseansi,chosecolor:boolean;

  procedure showstuff;
  begin
    nl; nl; printf('system');
    nl; nl; printf('newuser');
    if (systat.newuserpw<>'') then begin
      tries:=0; pw:='';
      while ((pw<>systat.newuserpw) and
            (tries<systat.maxlogontries) and (not hangup)) do begin
        prt('Newuser password : '); echo:=FALSE; input(pw,20); echo:=TRUE;
        if ((systat.newuserpw<>pw) and (pw<>'')) then begin
          sl1(#3#8+'>>'+#3#1+' Illegal newuser password: "'+pw+'"');
          inc(tries);
        end;
      end;
      if (tries>=systat.maxlogontries) then begin
        printf('nonewusr');
        hangup:=TRUE;
      end;
    end;
  end;

  procedure doitall;
  type neworderrec=array[1..17] of integer;
  const neworder:neworderrec=(7,10,23,1,4,14,8,12,2,5,6,13,3,11,24,9,-1);
  var i:integer;
      c:char;
  begin
    showstuff;
    if (newusername<>'') then begin
      thisuser.name:=newusername;
      newusername:='';
      i:=2;
    end else
      i:=1;
    repeat
      cstuff(neworder[i],1,thisuser);
      inc(i);
    until ((neworder[i]=-1) or (hangup));
  end;

  procedure dc(var abort:boolean; c:char; n,v:astr);
  begin
    printacr(#3#1+'['+#3#3+c+#3#1+'] '+
             #3#4+mln(n,11)+#3#2+' - '+#3#5+v,abort,next);
  end;

begin
  t:=0;
  doitall;
  if (not hangup) then
    repeat
      done:=FALSE;
      cls;
      abort:=FALSE; next:=FALSE;
      printacr(#3#5+'User Information Change',abort,next);
      nl;
      if (ansi in thisuser.ac) then begin
        atype:='Enabled';
        if (color in thisuser.ac) then atype:=atype+' w/ color'
        else atype:=atype+' w/o color';
      end else
        atype:='Disabled';
      with thisuser do begin
        dc(abort,'A','System name',name);
        dc(abort,'B','Real name',  realname);
        dc(abort,'C','Phone #',    ph);
        dc(abort,'D','Computer',   computer);
        dc(abort,'E','Sex',        sex);
        dc(abort,'F','Birthdate',  bday+' ('+cstr(ageuser(bday))+' years old)');
        dc(abort,'G','City, State',citystate);
        dc(abort,'H','Address',    street);
        dc(abort,'I','Zip code',   zipcode);
        dc(abort,'J','Occupation', occupation);
        dc(abort,'K','Heard from', wherebbs);
        dc(abort,'L','ANSI',       atype);
        dc(abort,'M','Screen size',cstr(linelen)+'x'+cstr(pagelen));
        dc(abort,'N','Password',   pw);
      end;
      nl;
      prt('Selection (A-N) to change, Y when finished :');
      onek(c,'YABCDEFGHIJKLMN');
      if (c<>'Y') then cstuff(pos(c,'HFLGDJACNBMEKI'),1,thisuser) else done:=TRUE;
    until ((done) or (hangup));
end;

procedure p2;
var user:userrec;
    pw:string;
    tries,i,j:integer;
    c:char;
begin
  if (not hangup) then begin
    nl; prompt('Please wait while I save your record ... ');

    reset(uf);
    j:=0;
    for i:=1 to filesize(uf)-1 do begin
      seek(uf,i); read(uf,user);
      if ((user.deleted) and (j=0)) then j:=i;
    end;
    if (j<>0) then usernum:=j else usernum:=filesize(uf);

    with thisuser do begin
      deleted:=FALSE; waiting:=0; firston:=date; laston:=date;
      loggedon:=0; msgpost:=0; emailsent:=0; feedback:=0; ontoday:=0;
      illegal:=0; forusr:=0;
      downloads:=0; uploads:=0; dk:=0; uk:=0;
      linelen:=80; pagelen:=25; ttimeon:=0; note:='';

      for i:=1 to 5 do boardsysop[i]:=255;
      lastmsg:=1; lastfil:=1; credit:=0; timebank:=0;

      for i:=1 to 70 do res[i]:=0;
      for i:=1 to 20 do vote[i]:=0;

      readinzscan; { load old / create new zscan.dat record }
      with zscanr do begin
        for i:=1 to maxboards do
          for j:=1 to 6 do mhiread[i][j]:=0;
        mzscan:=[]; fzscan:=[];
        for i:=1 to maxboards do mzscan:=mzscan+[i];
        for i:=0 to maxuboards do fzscan:=fzscan+[i];
      end;
      savezscanr;

      trapactivity:=FALSE; trapseperate:=FALSE;
      timebankadd:=0;
      mpointer:=-1;
      chatauto:=FALSE; chatseperate:=FALSE;
      slogseperate:=FALSE;

      flistopt:=1;
      avadjust:=0;

      reset(uf); seek(uf,0); read(uf,user); close(uf);
      cols:=user.cols;
      sl:=systat.newsl; dsl:=systat.newdsl; realsl:=sl; realdsl:=dsl;
      filepoints:=systat.newfp;

      ar:=systat.newar;
      tltoday:=systat.timeallow[sl];
    end;

    reset(uf);
    seek(uf,usernum); write(uf,thisuser);
    close(uf);

    isr(thisuser.name,usernum);
    sprint(#3#3+'Saved.');
    repeat
      nl; nl;
      sprint('Your user name is "'+#3#3+allcaps(thisuser.name)+#3#1+
             '", and your user number is '+#3#3+cstr(usernum)+#3#1+'.');
      sprint('Your password is "'+#3#3+thisuser.pw+#3#1+'".');
      nl;
      print('Please remember these.  You will need your password to log on');
      print('again in the future, and your user number helps to log on faster.');
      nl;
      print('Re-enter your password now for verification.');
      prompt('Password: '); echo:=FALSE; input(pw,20); echo:=TRUE;
      if (pw<>thisuser.pw) then print(^G'WRONG!!'^G);
    until ((pw=thisuser.pw) or (hangup));
    nl; nl; nl;

    useron:=TRUE;
    window(1,1,80,25);
    clrscr;
    schangewindow(not cwindowon,systat.curwindow);
    cls;

    if ((exist(systat.afilepath+'newuser.inf')) or
        (exist(systat.gfilepath+'newuser.inf'))) then
      readq('newuser',0);
    topscr;
    if (systat.newapp<>-1) then begin
      printf('newapp');
      irt:='New User Application';
    end;
    nl;
  end;
end;

procedure newuser;
var i:integer;
begin
  sl1(#3#8+' ***'+#3#3+' NewUser'+#3#8+' ***');
  if (systat.numusers>=9999) then begin
    sl1(#3#7+' [*] Maximum user count has been reached.');
    printf('maximum');
    hangup:=TRUE;
  end else begin
    p1; p2;
    if (systat.newapp<>-1) then begin
      reset(uf); i:=forwardm(systat.newapp); close(uf);
      if (i=0) then i:=systat.newapp;
      email1(i,'\NewUser Application');
    end;
    inc(systat.todayzlog.newusers);
    wasnewuser:=TRUE;
  end;
  useron:=TRUE;
end;

procedure newuserinit(nam:astr);
var s:astr;
begin
  newusername:=nam;
  clrscr;
  window(1,1,80,25); gotoxy(1,1);
  tc(14); textbackground(1); clreol;
  if (spd<>'KB') then s:=' New user on at '+spd+' baud '
    else s:=' New user on locally ';
  gotoxy(40-length(s) div 2,1); textbackground(4); write(s);
  tc(3); textbackground(0);
  window(1,2,80,25); gotoxy(1,1);
  if (systat.closedsystem) then begin
    printf('system');
    printf('nonewusr');
    hangup:=TRUE;
  end else begin
    with thisuser do begin
      name:='NEW USER';
      trapactivity:=FALSE;
      trapseperate:=FALSE;
    end;
    inittrapfile;
  end;
end;

end.