sub type_handler {
   my $r = shift;

   my $type = $r->notes('CONTENT_TYPE');
   if ($type) {
      $r->content_type($type);
      return OK;
   }
   else {
      return DECLINED:
   }
}