home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / ECO30603.ZIP / ECO30603.LZH / ECOLIBCS / DEMOS / LOGDATE.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-12-11  |  1.5 KB  |  46 lines
  1. uses
  2.   crt, eco_lib, dos
  3.  
  4.   ;
  5.  
  6.  
  7. var
  8.   username,
  9.   servername :  string;
  10.   i          :    word;
  11.   dopurge    : boolean;
  12.   purg       :    byte;
  13.  
  14.  
  15. begin
  16.   writeln(__progname, ', geschreven door Floor, naar een idee van Dickie! -- Versie 0.02α');
  17.   writeln('Geschreven tussen 10 Dec 1992 13:51 en 10 Dec 1992 13:36.');
  18.   if __inparams('/?', i) then begin
  19.     writeln(__progname, ' usage: [/start | /end] {/log filename}'); halt
  20.   end;
  21.   __loginit; programname := __up(__progname);
  22.   logfilename := 'ISIC.LOG';
  23.   if __inparams('/log', i) then logfilename := paramstr(i);
  24.   logheader[04] := '│ █                                                        █ │';
  25.   logheader[05] := '│ █                                                        █ │';
  26.   logheader[06] := '│ █                                                        █ │';
  27.   logheader[07] := '│ █      Written by Floor A.C. Naaijkens for PZH/SO.       █ │';
  28.   logheader[10] := '│                                                            │';
  29.  
  30.   username := getenv('USER');
  31.   servername := getenv('SERVER');
  32.  
  33.  
  34.   if __inparams('/start', i) then begin
  35.     __logapp('*START ' + __curdate + ' ' + username + ' ' + servername);
  36.   end;
  37.   if __inparams('/end', i) then begin
  38.     __logapp('_EINDE ' + __curdate + ' ' + username + ' ' + servername);
  39.   end;
  40.  
  41.   dopurge := __inparams('/purge', i);
  42.   if dopurge then begin purg := __str(paramstr(i)); __setpurge(purg) end else
  43.     __setpurge(255);
  44.   {if dopurge then __logpurge;}
  45. end.
  46.