home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 16 / 16.iso / t / t237 / 1.img / IFDAY.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1993-09-26  |  1.8 KB  |  90 lines
  1. {$R-,S+,I+,D+,T-,F-,V+,B-,N-,L+ }
  2. {$M 16384,0,1024 }
  3. program ifday;
  4. {
  5. ***********************************************************************
  6.  
  7. IFDAY.PAS
  8. 8/18/93
  9. by Bryan Valencia.
  10.  
  11. Shows use of the EXEC Command to run Command.com with a command line
  12. taken from user entered parameters.
  13.  
  14. Include IFDAY in Batch Files to Run lines only on certain days.
  15.  
  16.  
  17. ***********************************************************************
  18. }
  19. uses DOS, CRT;
  20. var
  21.     y,m,d,dow:word;
  22.  
  23. procedure help;
  24. begin
  25.     textattr:=yellow;
  26.     gotoxy(1,wherey); ClrEOL;
  27.     Writeln('IFDAY by Bryan Valencia [71553,3102]');
  28.     Writeln('SYNTAX');
  29.     textattr:=lightgreen;
  30.     Writeln('IFDAY [DAYOFWEEK,DAYNO] COMMAND');
  31.     WRiteln('IFDAY 4 MIRROR c:  (if today is the 4th, mirror the C: drive).');
  32.     WRiteln('IFDAY MON SD C: /Unfrag  (if today is Monday, run speed disk).');
  33.     Halt;
  34. end;
  35.  
  36. Procedure PerformCommand;
  37. var
  38.     s:string;
  39.     t:byte;
  40. Begin
  41.     s:='';
  42.     for t:=2 to paramcount do s:=s+paramstr(t)+' ';
  43.     Writeln(s);
  44.     Exec('c:\Command.Com','/c '+s);
  45.     Halt;
  46. end;
  47.  
  48. Function Checknum(i:integer):boolean;
  49. var
  50.     y,m,d,dow:word;
  51. begin
  52.     Getdate(y,m,d,dow);
  53.     if i=d then Checknum:=true else Checknum:=False;
  54. end;
  55. Function CheckDay(S:String):boolean;
  56. var
  57.     y,m,d,dow:word;
  58.     ss:string[3];
  59. begin
  60.     Getdate(y,m,d,dow);
  61.     Case dow of
  62.         0:SS:='SU';
  63.         1:SS:='MO';
  64.         2:SS:='TU';
  65.         3:SS:='WE';
  66.         4:SS:='TH';
  67.         5:SS:='FR';
  68.         6:SS:='SA';
  69.     end;
  70.     if S=SS then CheckDay:=true else CheckDay:=False;
  71. end;
  72.  
  73.  
  74. Procedure GO;
  75. var
  76.     s:string[2];
  77.     v,t:byte;
  78.     e:integer;
  79.  
  80. Begin
  81.     s:=paramstr(1);
  82.     for t:=1 to 2 do s[t]:=upcase(s[t]);
  83.     Val(s,v,e);
  84.     if e=0 then if Checknum(v) then PerformCommand;
  85.     if e<>0 then if CheckDay(S) then PerformCommand;
  86. end;
  87.  
  88. Begin
  89.     if paramcount<2 then help else GO;
  90. End.