Response Inc

'File source from Holyguard.net
' HTTP Response Object for CGI Development
'
' Absolutely royalty free for any kind of use
'
' arahnoWare Inc. [c] 2002
'
' http://www.arahnoware.com
'
'

     TYPE QRESPONSE EXTENDS QOBJECT
      SUB WRITE (strDATA AS STRING)
       PRINT strDATA;
      END SUB

      SUB STATUS (httpStatusCode AS INTEGER)
       PRINT "Status: " & httpStatusCode & CHR(13)
      END SUB

      SUB CONTENTTYPE (httpContentType AS STRING)
       PRINT "Content-Type: " & httpContentType & CHR(13)
      END SUB

      SUB DOCTYPE (httpDocType AS STRING)
       PRINT httpDocType & CHR(13)
      END SUB

      SUB CHARSET (httpCharSet AS STRING)
       PRINT httpCharSet & CHR(13)
      END SUB

      SUB REDIRECT(httpRedirectURL AS STRING)
'Not implemented yet
      END SUB
     END TYPE