home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / bbs / pics16.ark / PICS0C.INC < prev    next >
Encoding:
Text File  |  1987-05-25  |  2.0 KB  |  62 lines
  1. { PICS0C.INC  Pascal Integrated Communications System Overlays }
  2. { 5/25/87 ver 1.6  Copyright 1987 by Les Archambault}
  3.  
  4. Overlay procedure Show_user_stats;
  5.    var str:strtad;
  6.        time_on,time_left,time_today,time_total:integer;
  7.    begin
  8.      seek(logr_file,0);
  9.      read(logr_file,logr_rec);
  10.      str := FormTAD(login_t);
  11.      Writeln(USR);
  12.      Writeln(USR, 'Login             : ', str);
  13.      if user_rec.access>=val_acc then write(usr,'Validated User    : ')
  14.      else write(usr,'Non-Validated User:');
  15.      writeln(usr,user_rec.fn,' ',user_rec.ln);
  16.      Writeln(USR);
  17.      timer(time_on, time_left);
  18.      time_today := user_rec.time_today + time_on;
  19.      time_total := user_rec.time_total + time_on;
  20.      Writeln(USR, 'Caller number     : ', logr_rec.user);
  21.      Writeln(USR, 'Access time today : ', time_today);
  22.      Writeln(USR, 'Access time total : ', time_total);
  23.      str := FormTAD(user_rec.laston);
  24.      Writeln(USR, 'Last on system    : ', str);
  25.      Writeln(USR, 'Last high message : ', user_rec.lasthi);
  26.      Writeln(usr, 'Uploads to date   : ',user_rec.upload);
  27.      Writeln(usr, 'Downloads to date : ',user_rec.download);
  28.      writeln(usr);
  29.    end;
  30.  
  31. Overlay Procedure Update_Newin(Xfrname:filename);
  32.    var i:integer;
  33.        t:tad_array;
  34.        found:boolean;
  35.  
  36.    begin
  37.      found:=false;
  38.      if ok then
  39.        begin
  40.          setsect(homdrv,homusr);
  41.          i:=pred(filesize(nwin_file));
  42.          while (ok) and (i>=0) and (not found) do
  43.            with nwin_rec do
  44.              begin
  45.                seek(nwin_file,i);
  46.                read(nwin_file,nwin_rec);
  47.                if xfrname=name then
  48.                  begin
  49.                    dnloads:=succ(dnloads);
  50.                    gettad(t);
  51.                    last_dnload:=t;
  52.                    found:=true;
  53.                    seek(nwin_file,i);
  54.                    write(nwin_file,nwin_rec);
  55.                  end;
  56.                i:=pred(i);
  57.              end;
  58.        end;
  59.    end;
  60.  
  61. {End of PICS0C.INC }
  62.