Marco Cantù 1998, Mastering Delphi 4

Project: CGIDATE2.DPR


Project Structure


CGIDATE2.DPR

 program CgiDate2;

 {$APPTYPE CONSOLE}

 uses
   SysUtils;

 begin
   writeln ('HTPP/1.0 200 OK');
   writeln ('CONTENT-TYPE: TEXT/HTML');
   writeln;
   writeln ('<HTML><HEAD>');
   writeln ('<TITLE>Time at this site</TITLE>');
   writeln ('</HEAD><BODY>');
   writeln ('<H1>Time at this site</H1>');
   writeln ('<HR>');
   writeln ('<H4>');

   if ParamCount > 0 then
   begin
     if ParamStr (1) = 'date' then
       writeln (FormatDateTime(
         '"Today is " dddd, mmmm d, yyyy',
         Now))
     else if ParamStr (1) = 'time' then
       writeln (FormatDateTime(
         '"The time is" hh:mm:ss AM/PM',
         Now))
     else if ParamStr (1) = 'both' then
       writeln (FormatDateTime(
         '"Today is " dddd, mmmm d, yyyy,' +
           '"<p> and the time is" hh:mm:ss AM/PM',
         Now))
     else
       writeln ('Error. Invalid parameter: ' +
         ParamStr (1) + '.')
   end
   else
     writeln ('Error. Missing parameter.');
   writeln ('</H4>');
   writeln ('<HR><I>Page generated by CgiDate.exe </I>');
   writeln ('</BODY></HTML>');
 end.


Copyright Marco Cantù 1998