ACE/apps/JAWS2/HTTP_10_Write.cpp

   1 #include "JAWS/JAWS.h"
   2 #include "JAWS/IO.h"
   3 #include "JAWS/IO_Handler.h"
   4 #include "JAWS/Policy.h"
   5
   6 #include "HTTP_10.h"
   7
   8 #include "HTTP_10_Request.h"
   9
  10
  11 // --------------- WRITE TASK ----------------------
  12
  13 JAWS_HTTP_10_Write_Task::JAWS_HTTP_10_Write_Task ()
  14 {
  15 }
  16
  17 JAWS_HTTP_10_Write_Task::~JAWS_HTTP_10_Write_Task ()
  18 {
  19 }
  20
  21 int
  22 JAWS_HTTP_10_Write_Task::handle_put (JAWS_Data_Block *data, ACE_Time_Value *)
  23 {
  24   JAWS_TRACE ("JAWS_HTTP_10_Write_Task::handle_put");
  25
  26   JAWS_IO_Handler *handler = data->io_handler ();
  27
  28   JAWS_Dispatch_Policy *policy = this->policy ();
  29   if (policy == 0) policy = data->policy ();
  30
  31   JAWS_IO *io = policy->io ();
  32
  33   JAWS_HTTP_10_Request *info = static_cast<JAWS_HTTP_10_Request *> (data->payload ());
  34
  35   if (info->status () == (int) JAWS_HTTP_10_Request::STATUS_QUIT)
  36     {
  37       data->payload (0);
  38       delete info;
  39       return -3;
  40     }
  41
  42 #if 0
  43   ACE_DEBUG ((LM_DEBUG, " (%t) request %s::%s::%s parsed\n",
  44               (info->method () ? info->method () : "-"),
  45               (info->uri () ? info->uri () : "="),
  46               (info->version () ? info->version () : "HTTP/0.9")));
  47 #endif
  48
  49   if (info->type () != (int) JAWS_HTTP_10_Request::GET)
  50     info->set_status (JAWS_HTTP_10_Request::STATUS_NOT_IMPLEMENTED);
  51
  52   if (info->type () == (int) JAWS_HTTP_10_Request::QUIT)
  53     info->set_status (JAWS_HTTP_10_Request::STATUS_QUIT);
  54
  55   if (info->status () != (int) JAWS_HTTP_10_Request::STATUS_OK)
  56     {
  57       JAWS_TRACE ("JAWS_HTTP_10_Write_Task::handle_put, ! STATUS OK");
  58
  59       char msg[] =
  60         "<html><head><title>HTTP/1.0 500 Internal Server Error</title>"
  61         "<body><h1>Server Error</h1>HTTP/1.0 500 Internal Server Error"
  62         "</body></html>";
  63
  64       io->send_error_message (handler, msg, sizeof (msg));
  65       switch (handler->status ())
  66         {
  67         case JAWS_IO_Handler::WRITE_OK:
  68         case JAWS_IO_Handler::WRITE_OK_A:
  69           if (info->status () == (int) JAWS_HTTP_10_Request::STATUS_QUIT)
  70             {
  71               data->payload (0);
  72               delete info;
  73               return -3;
  74             }
  75
  76           data->payload (0);
  77           delete info;
  78           return 0;
  79
  80         case JAWS_IO_Handler::WRITE_ERROR:
  81         case JAWS_IO_Handler::WRITE_ERROR_A:
  82           data->payload (0);
  83           delete info;
  84           return -1;
  85
  86         default:
  87           return 2;
  88         }
  89
  90       return 2;
  91     }
  92   else
  93     {
  94       if (ACE_OS::strcmp (info->version (), "HTTP/0.9") == 0)
  95         io->transmit_file (handler,
  96                            info->path (),
  97                            "",
  98                            0,
  99                            "",
 100                            0);
 101       else
 102         io->transmit_file (handler,
 103                            info->path (),
 104                            "HTTP/1.0 200 Ok\r\n\r\n",
 105                            19,
 106                            "",
 107                            0);
 108
 109       switch (handler->status ())
 110         {
 111         case JAWS_IO_Handler::TRANSMIT_OK_A:
 112           {
 113             JAWS_TRACE ("JAWS_HTTP_10_Write_Task::handle_put, OK_A");
 114             data->payload (0);
 115             delete info;
 116             return 1;
 117           }
 118
 119         case JAWS_IO_Handler::TRANSMIT_OK:
 120           {
 121             JAWS_TRACE ("JAWS_HTTP_10_Write_Task::handle_put, OK");
 122             data->payload (0);
 123             delete info;
 124             return 0;
 125           }
 126         case JAWS_IO_Handler::TRANSMIT_ERROR:
 127           {
 128             JAWS_TRACE ("JAWS_HTTP_10_Write_Task::handle_put, ERROR");
 129             data->payload (0);
 130             delete info;
 131             return 0;
 132           }
 133         case JAWS_IO_Handler::TRANSMIT_ERROR_A:
 134           {
 135             JAWS_TRACE ("JAWS_HTTP_10_Write_Task::handle_put, ERROR_A");
 136             data->payload (0);
 137             delete info;
 138             return 1;
 139           }
 140         default:
 141           {
 142             JAWS_TRACE ("JAWS_HTTP_10_Write_Task::handle_put, DEFAULT");
 143             data->payload (0);
 144             delete info;
 145             return 1;
 146           }
 147         }
 148
 149     }
 150
 151   data->payload (0);
 152   delete info;
 153   return -1;
 154 }