{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
unit miscx;

interface

uses
  crt, dos,

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

  common,
  doors,
  misc1;

procedure finduser(var s:astr; var usernum:integer);
procedure dsr(uname:astr);
procedure ssm(dest:integer; s:astr);
procedure isr(uname:astr;usernum:integer);
procedure logon1st;

implementation

uses
  archive1;

procedure finduser(var s:astr; var usernum:integer);
var user:userrec;
    sr:smalrec;
    nn:astr;
    i,ii,t:integer;
    sfo,ufo:boolean;
begin
  s:=''; usernum:=0;
  input(nn,36);
  if (nn='?') then begin

    exit;
  end;
  while (copy(nn,1,1)=' ') do nn:=copy(nn,2,length(nn)-1);
  while (copy(nn,length(nn),1)=' ') do nn:=copy(nn,1,length(nn)-1);
  while (pos('  ',nn)<>0) do delete(nn,pos('  ',nn),1);
  if ((hangup) or (nn='')) then exit;
  s:=nn;
  usernum:=value(nn);
  if (usernum<>0) then begin
    if (usernum<0) then
      usernum:=-3             (* illegal negative number entry *)
    else begin
      ufo:=(filerec(uf).mode<>fmclosed);
      if (not ufo) then reset(uf);
      if (usernum>filesize(uf)-1) then begin
        print('Unknown User.');
        usernum:=0;
      end else begin
        seek(uf,usernum); read(uf,user);
        if (user.deleted) then begin
          print('Unknown User.');
          usernum:=0;
        end;
      end;
      if (not ufo) then close(uf);
    end;
  end else begin
    if (nn<>'') then begin
      sfo:=(filerec(sf).mode<>fmclosed);
      if (not sfo) then reset(sf);
      ii:=0; t:=1;
      while ((t<=filesize(sf)-1) and (ii=0)) do begin
        seek(sf,t); read(sf,sr);
        if (nn=sr.name) then ii:=sr.number;
        inc(t);
      end;
      if (ii<>0) then usernum:=ii;
    end;
    if (nn='NEW') then usernum:=-1;
    if (nn='GUEST') then
      if (systat.guestuser=-1) then
        print('No guest user account available.')
      else
        usernum:=-2;
    if (usernum=0) then print('Unknown User.');
    if (not sfo) then close(sf);
  end;
end;

procedure ssm(dest:integer; s:astr);
var u:userrec;
    x:smr;
    ufo:boolean;
begin
  {$I-} reset(smf); {$I+}
  if (ioresult<>0) then rewrite(smf);
  seek(smf,filesize(smf));
  x.msg:=s; x.destin:=dest;
  write(smf,x);
  close(smf);

  ufo:=(filerec(uf).mode<>fmclosed);
  if (not ufo) then reset(uf);
  if ((dest>=1) and (dest<=filesize(uf))) then begin
    seek(uf,dest); read(uf,u);
    if (not (smw in u.ac)) then begin
      u.ac:=u.ac+[smw];
      seek(uf,dest); write(uf,u);
    end;
  end;
  if (not ufo) then close(uf);
  if (dest=usernum) then thisuser.ac:=thisuser.ac+[smw];
end;

procedure dsr(uname:astr);
var t,ii:integer;
    sr:smalrec;
    sfo:boolean;
begin
  sfo:=(filerec(sf).mode<>fmclosed);
  if (not sfo) then reset(sf);

  ii:=0; t:=1;
  while ((t<=filesize(sf)-1) and (ii=0)) do begin
    seek(sf,t); read(sf,sr);
    if (sr.name=uname) then ii:=t;
    inc(t);
  end;

  if (ii<>0) then begin
    if (ii<>filesize(sf)-1) then
      for t:=ii to filesize(sf)-2 do begin
        seek(sf,t+1); read(sf,sr);
        seek(sf,t); write(sf,sr);
      end;
    seek(sf,filesize(sf)-1); truncate(sf);
    dec(systat.numusers); savesystat;
  end
  else sl1('*** Couldn''t delete "'+uname+'"');
  if (not sfo) then close(sf);
end;

procedure isr(uname:astr; usernum:integer);
var t,i,ii:integer;
    sr:smalrec;
    sfo:boolean;
begin
  sfo:=(filerec(sf).mode<>fmclosed);
  if (not sfo) then reset(sf);

  if (filesize(sf)=1) then ii:=0
  else begin
    ii:=0; t:=1;
    while ((t<=filesize(sf)-1) and (ii=0)) do begin
      seek(sf,t); read(sf,sr);
      if (uname<sr.name) then ii:=t;
      inc(t);
    end;
    for i:=filesize(sf)-1 downto ii+1 do begin
      seek(sf,i); read(sf,sr);
      seek(sf,i+1); write(sf,sr);
    end;
  end;
  with sr do begin name:=uname; number:=usernum; end;
  seek(sf,ii+1); write(sf,sr);
  inc(systat.numusers); savesystat;
  if (not sfo) then close(sf);
end;

procedure logon1st;
var ul:text;
    u:userrec;
    zf:file of zlogrec;
    fil:file of astr;
    d1,d2:zlogrec;
    s,s1:astr;
    n,z,c1,num,rcode:integer;
    c:char;
    abort:boolean;
begin
  if (spd<>'KB') then begin
    inc(systat.callernum);
    inc(systat.todayzlog.calls);
  end;

  realsl:=thisuser.sl; realdsl:=thisuser.dsl;
  commandline('Purging files in TEMP directories 1, 2, and 3 ...');
  purgedir(systat.temppath+'1\');
  purgedir(systat.temppath+'2\');
  purgedir(systat.temppath+'3\');

  if (systat.lastdate<>date) then begin
    prompt('Please wait ....');
    commandline('Updating user time left ...');
    reset(uf);
    for n:=1 to filesize(uf)-1 do begin
      seek(uf,n); read(uf,u);
      with u do begin
        tltoday:=systat.timeallow[sl];
        timebankadd:=0; ontoday:=0;
      end;
      seek(uf,n); write(uf,u);
    end;
    close(uf);

    commandline('Updating ZLOG.DAT ...');
    assign(zf,systat.gfilepath+'zlog.dat');
    {$I-} reset(zf); {$I+}
    if (ioresult<>0) then begin
      rewrite(zf);
      d1.date:='';
      for n:=1 to 2 do write(zf,d1);
    end;

    d1:=systat.todayzlog;
    d1.date:=systat.lastdate;

    for n:=filesize(zf)-1 downto 0 do begin
      seek(zf,n); read(zf,d2);
      seek(zf,n+1); write(zf,d2);
    end;
    seek(zf,0);
    write(zf,d1);
    close(zf);
    systat.lastdate:=date;

    commandline('Updating SysOp Log files ...');

    assign(ul,systat.trappath+'sysop'+cstr(systat.backsysoplogs)+'.log');
    {$I-} erase(ul); {$I+} num:=ioresult;

    for n:=systat.backsysoplogs-1 downto 1 do
      if (exist(systat.trappath+'sysop'+cstr(n)+'.log')) then begin
        assign(ul,systat.trappath+'sysop'+cstr(n)+'.log');
        rename(ul,systat.trappath+'sysop'+cstr(n+1)+'.log');
      end;

    d1:=systat.todayzlog;
    sl1('');
    sl1('Total time on........: '+cstr(d1.active));
    sl1('Percent of activity..: '+sqoutsp(ctp(d1.active,1440))+' ('+
                                  cstr(d1.calls)+' calls)');
    sl1('New users............: '+cstr(d1.newusers));
    sl1('Public posts.........: '+cstr(d1.pubpost));
    sl1('Private mail sent....: '+cstr(d1.privpost));
    sl1('Feedback sent........: '+cstr(d1.fback));
    sl1('Critical Errors......: '+cstr(d1.criterr));
    sl1('Downloads today......: '+cstr(d1.downloads)+'-'+cstrl(d1.dk)+'k');
    sl1('Uploads today........: '+cstr(d1.uploads)+'-'+cstrl(d1.uk)+'k');

    close(sysopf);
    rename(sysopf,systat.trappath+'sysop1.log');

    assign(sysopf,systat.trappath+'sysop.log');
    rewrite(sysopf); close(sysopf); append(sysopf);
    sl1('');
    sl1(' ____________________________________');
    sl1('/                                    \');
    sl1('\  Coyote BBS log For     '+date+':  /');
    sl1(' \__________________________________/');
    sl1('');
    sl1('');

    assign(ul,systat.gfilepath+'user.log');
    rewrite(ul);
    writeln(ul);
    writeln(ul,'Log of callers for '+date+':');
    writeln(ul);
    close(ul);

    systat.todayzlog.date:=date;
    with systat.todayzlog do begin
      for n:=0 to 4 do userbaud[n]:=0;
      active:=0; calls:=0; newusers:=0; pubpost:=0; privpost:=0;
      fback:=0; criterr:=0; uploads:=0; downloads:=0; uk:=0; dk:=0;
    end;

    if (exist('daystart.bat')) then
      shelldos(FALSE,process_door('daystart.bat @F @L @B @G @T @R'),rcode);

    print(' thank you.'); nl;
    enddayf:=TRUE;
  end;

  if (thisuser.slogseperate) then begin
    assign(sysopf1,systat.trappath+'slog'+cstr(usernum)+'.log');
    {$I-} append(sysopf1); {$I+}
    if (ioresult<>0) then begin
      rewrite(sysopf1);
      append(sysopf1);
      s:=''; s1:='';
      for n:=1 to 26+length(nam) do begin s:=s+'_'; s1:=s1+' '; end;
      writeln(sysopf1,'');
      writeln(sysopf1,'  '+s);
      writeln(sysopf1,'>>'+s1+'<<');
      writeln(sysopf1,'>> Coyote BBS Log FOr     '+nam+': <<');
      writeln(sysopf1,'>>'+s+'<<');
      writeln(sysopf1,'');
    end;
    writeln(sysopf1);
    s:=#3#3+'Logon '+#3#5+'['+dat+']'+#3#4+' (';
    if (spd<>'KB') then s:=s+spd+' baud)' else s:=s+'Keyboard)';
    if (systat.stripclog) then s:=stripcolor(s);
    writeln(sysopf1,s);
  end;

  s:=#3#3+cstr(systat.callernum)+#3#4+' -- '+#3#0+nam+#3#4+' -- '+
     #3#3+'Today '+cstr(thisuser.ontoday+1);
  if (trapping) then s:=s+#3#0+'*';
  sl1(s);

  if (spd<>'KB') then begin
    assign(ul,systat.gfilepath+'user.log');
    {$I-} append(ul); {$I+}
    if (ioresult<>0) then begin
      rewrite(ul);
      append(ul);
    end;
    s:=#3#5+mln(cstr(systat.callernum),6)+#3#9+'- '+
       #3#0+mln(nam,26)+#3#9+' - '+#3#3+time+#3#9+' -'+#3#3+mrn(spd,5);
    if (wasnewuser) then s:=s+#3#5+' <New User>';
    if (wasguestuser) then s:=s+#3#5+' <Guest User>';
    writeln(ul,s); close(ul);
  end;
end;

end.