/*

 * Copyright (C) 2001-2003 FhG Fokus

 *

 * This file is part of opensips, a free SIP server.

 *

 * opensips is free software; you can redistribute it and/or modify

 * it under the terms of the GNU General Public License as published by

 * the Free Software Foundation; either version 2 of the License, or

 * (at your option) any later version

 *

 * opensips is distributed in the hope that it will be useful,

 * but WITHOUT ANY WARRANTY; without even the implied warranty of

 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

 * GNU General Public License for more details.

 *

 * You should have received a copy of the GNU General Public License

 * along with this program; if not, write to the Free Software

 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301  USA

 *

 *

 * History:

 * --------

 * 2003-04-04 phrase length corrected not to include trailer 0 (jiri)

 * 2006-12-18 error phrases updates (norman)

 */

/*!

 * \file error.c

 * \brief OpenSIPS Error handling functions

 *

 * \note For a list of error codes in SIP, please check

 * http://www.iana.org/assignments/sip-parameters

 */

#include <stdio.h>

#include "error.h"

#include "str.h"

#include "parser/msg_parser.h"

#include "mem/mem.h"

/*! current function's error; */

int ser_error=-1;

/*! previous error */

int prev_ser_error=-1;

int err2reason_phrase(

  int error,      /*!< current internal ser error */

  int *sip_error,   /*!< the sip error code to which ser error will be turned */

  char *phrase,     /*!< resulting error text */

  int etl,    /*!< error text buffer length */

  char *signature )   /*!< extra text to be appended */

{

  char *error_txt;

  switch( error ) {

    case E_IP_BLOCKED:

      error_txt="Filtered destination";

      *sip_error=-error;

      break;

    case E_SEND:

      error_txt="Send failed";

      *sip_error=-error;

      break;

    case E_BAD_ADDRESS:

      error_txt="Unresolvable destination";

      *sip_error=-error;

      break;

    case E_BAD_REQ:

      error_txt="Bad Request";

      *sip_error=-error;

      break;

    case E_BAD_URI:

      error_txt="Bad URI";

      *sip_error=-error;

      break;

    case E_BAD_TUPEL:

      error_txt="Transaction tuple incomplete";

      *sip_error=-E_BAD_REQ;

      break;

    case E_BAD_TO:

      error_txt="Bad To";

      *sip_error=-E_BAD_REQ;

      break;

    case E_EXEC:

      error_txt="Error in external logic";

      *sip_error=-E_BAD_SERVER;

      break;

    case E_TOO_MANY_BRANCHES:

      error_txt="Forking capacity exceeded";

      *sip_error=-E_BAD_SERVER;

      break;

    case E_Q_INV_CHAR:

      error_txt="Invalid character in q parameter";

      *sip_error=-E_BAD_REQ;

      break;

    case E_Q_EMPTY:

      error_txt="Empty q parameter";

      *sip_error=-E_BAD_REQ;

      break;;

    case E_Q_TOO_BIG:

      error_txt="q parameter too big";

      *sip_error=-E_BAD_REQ;

      break;

    case E_NO_DESTINATION:

      error_txt="No destination available";

      *sip_error=-E_BAD_SERVER;

      break;

    case E_OUT_OF_MEM:

    /* don't disclose lack of mem in release mode */

#ifdef DEBUG

      error_txt="Excuse me I ran out of memory";

      *sip_error=-E_BAD_SERVER;

      break;

#endif

    default:

      error_txt="Server error occurred";

      *sip_error=-E_BAD_SERVER;

      break;

  }

  return snprintf( phrase, etl, "%s (%d/%s)", error_txt,

    -error, signature );

}

char *error_text( int code )

{

  switch(code) {

    case 100: return "Trying";

    case 180: return "Ringing";

    case 181: return "Call is Being Forwarded";

    case 182: return "Queued";

    case 183: return "Session Progress";

    case 200: return "OK";

    case 202: return "Accepted";

    case 300: return "Multiple Choices";

    case 301: return "Moved Permanently";

    case 302: return "Moved Temporarily";

    case 305: return "Use Proxy";

    case 380: return "Alternative Service";

    case 400: return "Bad Request";

    case 401: return "Unauthorized";

    case 402: return "Payment Required";

    case 403: return "Forbidden";

    case 404: return "Not Found";

    case 405: return "Method not Allowed";

    case 406: return "Not Acceptable";

    case 407: return "Proxy Authentication Required";

    case 408: return "Request Timeout";

    case 409: return "Conflict";

    case 410: return "Gone";

    case 411: return "Length Required";

    case 412: return "Conditional Request Failed";

    case 413: return "Request Entity Too Large";

    case 414: return "Request-URI Too Long";

    case 415: return "Unsupported Media Type";

    case 416: return "Unsupported URI Scheme";

    case 417: return "Unknown Resource-Priority";

    case 420: return "Bad Extension";

    case 421: return "Extension Required";

    case 422: return "Session Interval Too Small";

    case 423: return "Interval Too Brief";

    case 428: return "Use Identity Header";

    case 429: return "Provide Referrer Identity";

    case 436: return "Bad Identity-Info";

    case 437: return "Unsupported Certificate";

    case 438: return "Invalid Identity Header";

    case 480: return "Temporarily Unavailable";

    case 481: return "Call/Transaction Does not Exist";

    case 482: return "Loop Detected";

    case 483: return "Too Many Hops";

    case 484: return "Address Incomplete";

    case 485: return "Ambiguous";

    case 486: return "Busy Here";

    case 487: return "Request Terminated";

    case 488: return "Not Acceptable Here";

    case 489: return "Bad Event";

    case 491: return "Request Pending";

    case 493: return "Undecipherable";

    case 494: return "Security Agreement Required";

    case 500: return "Server Internal Error";

    case 501: return "Not Implemented";

    case 502: return "Bad Gateway";

    case 503: return "Service Unavailable";

    case 504: return "Server Time-out";

    case 505: return "Version Not Supported";

    case 513: return "Message Too Large";

    case 555: return "Push Notification Service Not Supported";

    case 580: return "Precondition Failure";

    case 600: return "Busy Everywhere";

    case 603: return "Decline";

    case 604: return "Does not Exist Anywhere";

    case 606: return "Not Acceptable";

  }

  if (code>=600) return "Global Failure";

  else if (code>=500) return "Server Failure";

  else if (code>=400) return "Request Failure";

  else if (code>=300) return "Redirection";

  else if (code>=200) return "Successful";

  else if (code>=100) return "Provisional";

  else return "Unspecified";

}

void get_reply_status( str *status, struct sip_msg *reply, int code )

{

  str phrase;

  status->s=0;

  if (reply==0) {

    LM_CRIT("called with 0 msg\n");

    return;

  }

  if (reply==FAKED_REPLY) {

    phrase.s=error_text(code);

    phrase.len=strlen(phrase.s);

  } else {

    phrase=reply->first_line.u.reply.reason;

  }

  status->len=phrase.len+3/*code*/+1/*space*/;

  status->s=pkg_malloc(status->len+1/*ZT */);

  if (!status->s) {

    LM_ERR("no pkg mem\n");

    return;

  }

  status->s[3]=' ';

  status->s[2]='0'+code % 10; code=code/10;

  status->s[1]='0'+code% 10; code=code/10;

  status->s[0]='0'+code % 10;

  memcpy(&status->s[4], phrase.s, phrase.len);

  status->s[status->len]=0;

}