CGI Web Programming/zh CN

program mini;
    
    uses dos;
    
    var
      a:string;
      c:char;
    begin
      //set a cookie (must come before content-type line below)
      //don't forget to change the expires date
    writeln('Set-cookie:widget=value; path=/; expires= Mon, 21-Mar-2005  18:37:00 GMT');
    
      //output legal http page
      writeln('Content-Type:text/html',#10#13);
    
      //demonstrate get cookies
      a:= GetEnv('HTTP_COOKIE');
      writeln('cookies:',a);
      
      //demonstrate GET result
      a:='';
      a:= GetEnv('QUERY_STRING');
      writeln('GET: ',a);
        
      //demonstrate POST result 
      a:='';
      while not eof(input) do
      begin
         read(c);
         a:= a+c;
      end;	 
      writeln('POST: ',a);
    end.

unit SelfDebug;
    
    {
    Instructions:
    -Include unit anywhere in the program.
    -Change DEBUGGER constant to match your debugger (gdb, ddd,gdbtui...)
    -For Windows, if the program to debug is running as a service (e.g. CGI application
     from Apache running as a service), make sure the service is configured with
     "Interact with desktop" checked. Failing to do so, the debugger will be started
     without a console, break the program and hang waiting for input. Killing the debugger
     is your only option.
    -For Linux, if the program to debug is running as a different user (e.g. CGI application),
     run "xhost +" in a terminal to enable all users to connect to xserver.
     If needed, change DISPLAY to match your DISPLAY environment variable
    }
    
    {$mode objfpc}{$H+}
    
    interface
    
    uses
      Classes, SysUtils,Process;
    
    implementation
    
    const
      {$ifdef windows}
      DEBUGGER='C:\lazarus\mingw\bin\7.3\gdb.exe';
      {$endif}
      {$ifdef linux}
      DEBUGGER='gdb';
      DISPLAY=':0.0';
      {$endif}
      MSWAIT=2000;
    
    var
      AProcess: TProcess;
    
    initialization
    AProcess := TProcess.Create(nil);
    {$ifdef windows}
    AProcess.CommandLine := format('cmd /C START "Debugging %s" /WAIT "%s" "%s" %d"',[paramstr(0),debugger,paramstr(0),GetProcessID]);
    {$endif}
    {$ifdef linux}
    AProcess.CommandLine := format('xterm -display %s -T "Debugging %s" -e "%s" "%s" %d',[DISPLAY,paramstr(0),DEBUGGER,paramstr(0),GetProcessID]);
    {$endif}
    AProcess.Execute;
    sleep(MSWAIT);
    finalization
    AProcess.Free;
    end.