@@ -1,3 +1,29 @@

+-------------------------------------------------------------------------

+IMPORTANT NOTES

+

+1) The GPL applies to this copy of SIP Express Router software (ser).

+   For a license to use the ser software under conditions

+   other than those described here, or to purchase support for this

+   software, please contact iptel.org by e-mail at the following addresses:

+

+    info@iptel.org

+

+   (see http://www.gnu.org/copyleft/gpl-faq.html#TOCHeardOtherLicense

+    for an explanation how parallel licenses comply with GPL)

+

+2) ser software allows programmers to plug-in external modules to the

+   core part. Note that GPL mandates all plug-ins developed for the

+   ser software released under GPL license to be GPL-ed as well.

+

+   (see http://www.gnu.org/copyleft/gpl-faq.html#GPLAndPlugins

+    for a detailed explanation)

+

+3) Note that the GPL bellow is copyrighted by the Free Software Foundation,

+   but the ser software is copyrighted by iptel.org.

+

+

+-------------------------------------------------------------------------

+

 		    GNU GENERAL PUBLIC LICENSE

 		       Version 2, June 1991

@@ -10,7 +10,7 @@ auto_gen=lex.yy.c cfg.tab.c   #lexx, yacc etc

 #include  source related defs

 include Makefile.sources

-exclude_modules=CVS mysql pike

+exclude_modules=CVS mysql pike 

 static_modules=

 static_modules_path=$(addprefix modules/, $(static_modules))

 extra_sources=$(wildcard $(addsuffix /*.c, $(static_modules_path)))

@@ -76,9 +76,6 @@ INSTALL-MAN = $(INSTALL) -m 644

 #		issues additional debugging information if lock/unlock is called

 # -DFAST_LOCK

 #		uses fast arhitecture specific locking (see the arh. specific section)

-# -DNOISY_REPLIES

-#		turns on appending User-agent and Content-length:0 to ser-generated

-#		replies; 

 # -DBUSY_WAIT

 #		uses busy waiting on the lock

 # -DADAPTIVE_WAIT

@@ -90,37 +87,29 @@ INSTALL-MAN = $(INSTALL) -m 644

 # -DNOSMP

 #		don't use smp compliant locking (faster but won't work on SMP machines)

 #		(not yet enabled)

-# -DWAIT

-#		protection against race condiditions; turn off only for debugging;

-#       to become non-optional if stable

-#

-# -SILENT_FR

-#		if defined, when FR timer hits (in tm) cancel is sent only if forking

-#		if used; otherwise, just delete the transaction without doing anything

+# -DNO_PINGTEL_TAG_HACK

+#		if enabled, To-header-field will be less liberal and will not accept

+#		'tag=' (tag parameter with equal sign and without value); it is called

+#		this way because such message was sighted from a Pingtel phone

 DEFS+= -DNAME='"$(NAME)"' -DVERSION='"$(RELEASE)"' -DARCH='"$(ARCH)"' \

 	 -DOS='"$(OS)"' -DCOMPILER='"$(CC_VER)"'\

 	 -DPKG_MALLOC \

 	 -DSHM_MEM  -DSHM_MMAP \

 	 -DADAPTIVE_WAIT -DADAPTIVE_WAIT_LOOPS=1024 \

-	 -DWAIT \

-	 -DSILENT_FR \

-	 -DNOISY_REPLIES -DVERY_NOISY_REPLIES\

-	 -DPINGTEL_TAG_HACK\

-	 -DF_MALLOC \

- 	 -DUSE_SYNONIM\

 	 -DUSE_IPV6 \

+	 -DEXTRA_DEBUG \

+	 -DVQ_MALLOC  -DDBG_QM_MALLOC \

+	 #-DCONTACT_BUG

+	 #-DF_MALLOC \

+	 #-DDBG_LOCK

 	 #-DNO_DEBUG \

 	 #-DADAPTIVE_WAIT -DADAPTIVE_WAIT_LOOPS=0 \

 	 #-DNOSMP \

 	 #-DEXTRA_DEBUG 

-	 #-DVQ_MALLOC  -DDBG_LOCK  #-DSTATS

-	 #-DDBG_QM_MALLOC 

-# -DUSE_SHM_MEM

-#-DSTATS 

-#-DNO_LOG

-

-

+	 #-DUSE_SHM_MEM

+	 #-DSTATS 

+	 #-DNO_LOG

 #PROFILE=  -pg #set this if you want profiling

 #mode = debug

@@ -3,33 +3,59 @@

 List of currently available ser modules

 ----------------------------------------------------------

 Name	Use		 	 Maturity	Purpose/Depends on

+(owner)

 ----------------------------------------------------------

 acc		regular		 stable		transaction accounting

-		/example				(the module servers also

+(jku)	/example				(the module servers also

 							    as example of how to bind

 								to transaction management)

 								-tm

+

 auth	regular		 stable		digest authentication

-								-sl

+(jja)							-sl

 								-mysql

+

 cpl		experimental alpha		Call Processing Language

+(bia)

+

 ext		experimental alpha		Execution of external URI

-								processing logic

+(bia)							processing logic

+

 im		temporary	 alpha		Stateless instant messaging	

-								client

+(bia)							client

+

 jabber	experimental beta		SIP2Jabber gateway

+(dcm)

+

 maxfwd	regular		 stable		Max-Forwards check

+(bia)

+

 mysql	regular		 stable		supporting MySql interface

+(jja)

+

 pike	experimental alpha		excessive load detection

+(bia)

+

 print	example		 stable		Printing Message to stdout

+(ape)

+

 rr		regular		 stable		Record-Routing

+(jja)

+

 sl		regular		 stable		Stateless Replies

+(bia)

+

 sms		regular		 stable		SMS gateway

-								-tm

+(bia)								-tm

+

 textops regular		 stable		Message Textual Operations

+(ape)

+

 tm		regular		 beta		Transaction Management

+(ape)

+

 usrloc	regular		 stable		User Location

-								-sl

+(jja)								-sl

 								-mysql (optionally)

@@ -44,3 +70,8 @@ ser programmers.

 Maturity is label as stable if a module has been deployed

 for longer time, alpha if it is still being developed and

 beta if it is under test.

+

+Modules underway include presence server functionality,

+firewall control, message store and more. If you are

+interested in any of these or other modules, write us

+to info@iptel.org.

@@ -16,16 +16,16 @@ x (different way) add request header bitmap field for the modules

 High priority:

-- fix/replace T_REF/T_UNREF

-- review all the tm locking

+x fix/replace T_REF/T_UNREF

+x review all the tm locking

 x if () {} else {}

 x plugin interface

 x ipv6 support

-- reply ("response line")

-- drop ACKs for our replies

+x reply ("response line")

+x drop ACKs for our replies

 - icmp error handling

-- add To-tag (for the replies)

-- add User-Agent (for the replies)

+x add To-tag (for the replies)

+x add User-Agent (for the replies)

 Low priority:

 x fix via address someday

@@ -38,7 +38,7 @@ x forward to received= if present

 - exec improvments (add format strings to it)

 - command line switch for checking the config file syntax

 - config file version (a la sendmail)

-- loop detection

+0 loop detection

 - cfg. file reload

 - flags for using names or ip adresses in Via ?

@@ -55,6 +55,6 @@ x the same for rpm

 - the same for FreeBSD and Slackware

-- jku: branch hash computation over canonical values

-- jku: loop checking

+x jku: branch hash computation over canonical values

+0 jku: loop checking

 - jku: try CRC as opposed to MD5

@@ -17,6 +17,7 @@

 #include "sr_module.h"

 #include "mem/mem.h"

 #include "globals.h"

+#include "dset.h"

 #include <sys/types.h>

 #include <sys/socket.h>

@@ -179,6 +180,18 @@ int do_action(struct action* a, struct sip_msg* msg)

 			ret=1;

 			break;

+		/* jku -- introduce a new branch */

+		case APPEND_BRANCH_T:

+			if ((a->p1_type!=STRING_ST)) {

+				LOG(L_CRIT, "BUG: do_action: bad append_branch_t %d\n",

+					a->p1_type );

+				ret=E_BUG;

+				break;

+			}

+			ret=append_branch( msg, a->p1.string, 

+				a->p1.string ? strlen(a->p1.string):0 );

+			break;

+

 		/* jku begin: is_length_greater_than */

 		case LEN_GT_T:

 			if (a->p1_type!=NUMBER_ST) {

@@ -281,6 +294,14 @@ int do_action(struct action* a, struct sip_msg* msg)

 			}

 			ret=1;

 			break;

+		case REVERT_URI_T:

+			if (msg->new_uri.s) {

+				pkg_free(msg->new_uri.s);

+				msg->new_uri.len=0;

+				msg->new_uri.s=0;

+			};

+			ret=1;

+			break;

 		case SET_HOST_T:

 		case SET_HOSTPORT_T:

 		case SET_USER_T:

@@ -46,6 +46,7 @@ SEND	send

 LOG		log

 ERROR	error

 ROUTE	route

+REPLY_ROUTE reply_route

 EXEC	exec

 SETFLAG		setflag

 RESETFLAG	resetflag

@@ -57,8 +58,10 @@ SET_USER		"rewriteuser"|"setuser"|"setu"

 SET_USERPASS	"rewriteuserpass"|"setuserpass"|"setup"

 SET_PORT		"rewriteport"|"setport"|"setp"

 SET_URI			"rewriteuri"|"seturi"

+REVERT_URI		"revert_uri"

 PREFIX			"prefix"

 STRIP			"strip"

+APPEND_BRANCH	"append_branch"

 IF				"if"

 ELSE			"else"

@@ -94,7 +97,12 @@ STAT	statistics

 MAXBUFFER maxbuffer

 CHILDREN children

 CHECK_VIA	check_via

-LOOP_CHECKS	loop_checks

+SYN_BRANCH syn_branch

+SIP_WARNING sip_warning

+FIFO fifo

+FIFO_MODE fifo_mode

+SERVER_SIGNATURE server_signature

+REPLY_TO_VIA reply_to_via

 LOADMODULE	loadmodule

 MODPARAM        modparam

@@ -148,6 +156,7 @@ EAT_ABLE	[\ \t\b\r]

 <INITIAL>{ISFLAGSET}	{ count(); yylval.strval=yytext; return ISFLAGSET; }

 <INITIAL>{LEN_GT}	{ count(); yylval.strval=yytext; return LEN_GT; }

 <INITIAL>{ROUTE}	{ count(); yylval.strval=yytext; return ROUTE; }

+<INITIAL>{REPLY_ROUTE}	{ count(); yylval.strval=yytext; return REPLY_ROUTE; }

 <INITIAL>{EXEC}	{ count(); yylval.strval=yytext; return EXEC; }

 <INITIAL>{SET_HOST}	{ count(); yylval.strval=yytext; return SET_HOST; }

 <INITIAL>{SET_HOSTPORT}	{ count(); yylval.strval=yytext; return SET_HOSTPORT; }

@@ -155,8 +164,10 @@ EAT_ABLE	[\ \t\b\r]

 <INITIAL>{SET_USERPASS}	{ count(); yylval.strval=yytext; return SET_USERPASS; }

 <INITIAL>{SET_PORT}	{ count(); yylval.strval=yytext; return SET_PORT; }

 <INITIAL>{SET_URI}	{ count(); yylval.strval=yytext; return SET_URI; }

+<INITIAL>{REVERT_URI}	{ count(); yylval.strval=yytext; return REVERT_URI; }

 <INITIAL>{PREFIX}	{ count(); yylval.strval=yytext; return PREFIX; }

 <INITIAL>{STRIP}	{ count(); yylval.strval=yytext; return STRIP; }

+<INITIAL>{APPEND_BRANCH}	{ count(); yylval.strval=yytext; return APPEND_BRANCH; }

 <INITIAL>{IF}	{ count(); yylval.strval=yytext; return IF; }

 <INITIAL>{ELSE}	{ count(); yylval.strval=yytext; return ELSE; }

@@ -181,7 +192,12 @@ EAT_ABLE	[\ \t\b\r]

 <INITIAL>{MAXBUFFER}	{ count(); yylval.strval=yytext; return MAXBUFFER; }

 <INITIAL>{CHILDREN}	{ count(); yylval.strval=yytext; return CHILDREN; }

 <INITIAL>{CHECK_VIA}	{ count(); yylval.strval=yytext; return CHECK_VIA; }

-<INITIAL>{LOOP_CHECKS}	{ count(); yylval.strval=yytext; return LOOP_CHECKS; }

+<INITIAL>{SYN_BRANCH}	{ count(); yylval.strval=yytext; return SYN_BRANCH; }

+<INITIAL>{SIP_WARNING}	{ count(); yylval.strval=yytext; return SIP_WARNING; }

+<INITIAL>{FIFO}	{ count(); yylval.strval=yytext; return FIFO; }

+<INITIAL>{FIFO_MODE}	{ count(); yylval.strval=yytext; return FIFO_MODE; }

+<INITIAL>{SERVER_SIGNATURE}	{ count(); yylval.strval=yytext; return SERVER_SIGNATURE; }

+<INITIAL>{REPLY_TO_VIA}	{ count(); yylval.strval=yytext; return REPLY_TO_VIA; }

 <INITIAL>{LOADMODULE}	{ count(); yylval.strval=yytext; return LOADMODULE; }

 <INITIAL>{MODPARAM}     { count(); yylval.strval=yytext; return MODPARAM; }

@@ -56,15 +56,18 @@ void* f_tmp;

 %token LOG_TOK

 %token ERROR

 %token ROUTE

+%token REPLY_ROUTE

 %token EXEC

 %token SET_HOST

 %token SET_HOSTPORT

 %token PREFIX

 %token STRIP

+%token APPEND_BRANCH

 %token SET_USER

 %token SET_USERPASS

 %token SET_PORT

 %token SET_URI

+%token REVERT_URI

 %token IF

 %token ELSE

 %token URIHOST

@@ -90,7 +93,12 @@ void* f_tmp;

 %token STAT

 %token CHILDREN

 %token CHECK_VIA

-%token LOOP_CHECKS

+%token SYN_BRANCH

+%token SIP_WARNING

+%token FIFO

+%token FIFO_MODE

+%token SERVER_SIGNATURE

+%token REPLY_TO_VIA

 %token LOADMODULE

 %token MODPARAM

 %token MAXBUFFER

@@ -151,6 +159,7 @@ statements:	statements statement {}

 statement:	assign_stm 

 		| module_stm

 		| route_stm 

+		| reply_route_stm

 		| CR	/* null statement*/

 	;

@@ -180,8 +189,18 @@ assign_stm:	DEBUG EQUAL NUMBER { debug=$3; }

 		| CHILDREN EQUAL error { yyerror("number expected"); } 

 		| CHECK_VIA EQUAL NUMBER { check_via=$3; }

 		| CHECK_VIA EQUAL error { yyerror("boolean value expected"); }

-		| LOOP_CHECKS EQUAL NUMBER { loop_checks=$3; }

-		| LOOP_CHECKS EQUAL error { yyerror("boolean value expected"); }

+		| SYN_BRANCH EQUAL NUMBER { syn_branch=$3; }

+		| SYN_BRANCH EQUAL error { yyerror("boolean value expected"); }

+		| SIP_WARNING EQUAL NUMBER { sip_warning=$3; }

+		| SIP_WARNING EQUAL error { yyerror("boolean value expected"); }

+		| FIFO EQUAL STRING { fifo=$3; }

+		| FIFO EQUAL error { yyerror("string value expected"); }

+		| FIFO_MODE EQUAL NUMBER { fifo_mode=$3; }

+		| FIFO_MODE EQUAL NUMBER { yyerror("int value expected"); }

+		| SERVER_SIGNATURE EQUAL NUMBER { server_signature=$3; }

+		| SERVER_SIGNATURE EQUAL error { yyerror("boolean value expected"); }

+		| REPLY_TO_VIA EQUAL NUMBER { reply_to_via=$3; }

+		| REPLY_TO_VIA EQUAL error { yyerror("boolean value expected"); }

 		| LISTEN EQUAL ip  {

 								if (sock_no< MAX_LISTEN){

 									tmp=ip_addr2a($3);

@@ -347,6 +366,17 @@ route_stm:	ROUTE LBRACE actions RBRACE { push($3, &rlist[DEFAULT_RT]); }

 										}

 		| ROUTE error { yyerror("invalid  route  statement"); }

 	;

+

+reply_route_stm: REPLY_ROUTE LBRACK NUMBER RBRACK LBRACE actions RBRACE {

+										if (($3<REPLY_RT_NO)&&($3>=1)){

+											push($6, &reply_rlist[$3]);

+										} else {

+											yyerror("invalid reply routing"

+												"table number");

+											YYABORT; }

+										}

+		| REPLY_ROUTE error { yyerror("invalid reply_route statement"); }

+	;

 /*

 rules:	rules rule { push($2, &$1); $$=$1; }

 	| rule {$$=$1; }

@@ -685,6 +715,12 @@ cmd:		FORWARD LPAREN host RPAREN	{ $$=mk_action(	FORWARD_T,

 		| STRIP LPAREN error RPAREN { $$=0; yyerror("bad argument, "

 														"number expected"); }

+		| APPEND_BRANCH LPAREN STRING RPAREN { $$=mk_action( APPEND_BRANCH_T,

+													STRING_ST, 0, $3, 0) ; }

+		| APPEND_BRANCH LPAREN RPAREN { $$=mk_action( APPEND_BRANCH_T,

+													STRING_ST, 0, 0, 0 ) ; }

+		| APPEND_BRANCH {  $$=mk_action( APPEND_BRANCH_T, STRING_ST, 0, 0, 0 ) ; }

+

 		| SET_HOSTPORT LPAREN STRING RPAREN { $$=mk_action( SET_HOSTPORT_T, 

 														STRING_ST, 0, $3, 0); }

 		| SET_HOSTPORT error { $$=0; yyerror("missing '(' or ')' ?"); }

@@ -710,6 +746,8 @@ cmd:		FORWARD LPAREN host RPAREN	{ $$=mk_action(	FORWARD_T,

 		| SET_URI error { $$=0; yyerror("missing '(' or ')' ?"); }

 		| SET_URI LPAREN error RPAREN { $$=0; yyerror("bad argument, "

 										"string expected"); }

+		| REVERT_URI LPAREN RPAREN { $$=mk_action( REVERT_URI_T, 0,0,0,0); }

+		| REVERT_URI { $$=mk_action( REVERT_URI_T, 0,0,0,0); }

 		| ID LPAREN RPAREN			{ f_tmp=(void*)find_export($1, 0);

 									   if (f_tmp==0){

 										yyerror("unknown command, missing"

@@ -22,6 +22,7 @@

 #define CHILD_NO    8

 #define RT_NO 10 /* routing tables number */

+#define REPLY_RT_NO 10 /* reply routing tables number */

 #define DEFAULT_RT 0 /* default routing table */

 #define MAX_REC_LEV 100 /* maximum number of recursive calls */

@@ -46,8 +47,8 @@

 #define MAX_WARNING_LEN  256

-#define MY_BRANCH ";branch=0"

-#define MY_BRANCH_LEN 9

+#define MY_BRANCH ";branch="

+#define MY_BRANCH_LEN 8

 #define MAX_PORT_LEN 7 /* ':' + max 5 letters + \0 */

@@ -88,8 +89,16 @@

 #define MAX_VIA_LINE_SIZE	240

 #define MAX_RECEIVED_SIZE	57

-/* maximum number of processes is constrained by capacity of

-   process bitmaps */

-#define MAX_PROCESSES (sizeof( process_bm_t) * 8 )

+/* maximum number of branches per transaction */

+#define MAX_BRANCHES    4

+/* maximum length of a FIFO server command */

+#define MAX_FIFO_COMMAND 512

+

+/* buffer dimensions for FIFO server */

+#define MAX_CONSUME_BUFFER 1024

+/* where reply pipes may be opened */

+#define FIFO_DIR "/tmp/"

+/* max length of the text of fifo 'print' command */

+#define MAX_PRINT_TEXT 256

 #endif

new file mode 100644

@@ -0,0 +1,87 @@

+/*

+ * $Id$

+ *

+ * destination set

+ */

+

+#include <string.h>

+

+#include "dprint.h"

+#include "config.h"

+#include "parser/parser_f.h"

+#include "parser/msg_parser.h"

+#include "ut.h"

+#include "hash_func.h"

+#include "dset.h"

+

+

+

+/* where we store URIs of additional transaction branches

+  (-1 because of the default branch, #0)

+*/

+static struct branch branches[ MAX_BRANCHES - 1 ];

+/* how many of them we have */

+static unsigned int nr_branches=0;

+/* branch iterator */

+static int branch_iterator=0;

+

+void init_branch_iterator(void)

+{

+	branch_iterator=0;

+}

+

+char *next_branch( int *len )

+{

+	unsigned int i;

+

+	i=branch_iterator;

+	if (i<nr_branches) {

+		branch_iterator++;

+		*len=branches[i].len;

+		return branches[i].uri;

+	} else {

+		*len=0;

+		return 0;

+	}

+}

+

+void clear_branches()

+{

+	nr_branches=0;

+}

+

+/* add a new branch to current transaction */

+int append_branch( struct sip_msg *msg, char *uri, int uri_len )

+{

+	/* if we have already set up the maximum number

+	   of branches, don't try new ones */

+	if (nr_branches==MAX_BRANCHES-1) {

+		LOG(L_ERR, "ERROR: append_branch: max nr of branches exceeded\n");

+		return -1;

+	}

+

+	if (uri_len>MAX_URI_SIZE-1) {

+		LOG(L_ERR, "ERROR: append_branch: too long uri: %.*s\n",

+			uri_len, uri );

+		return -1;

+	}

+

+	/* if not parameterized, take current uri */

+	if (uri==0) {

+		if (msg->new_uri.s) { 

+			uri=msg->new_uri.s;

+			uri_len=msg->new_uri.len;

+		} else {

+			uri=msg->first_line.u.request.uri.s;

+			uri_len=msg->first_line.u.request.uri.len;

+		}

+	}

+	

+	memcpy( branches[nr_branches].uri, uri, uri_len );

+	/* be safe -- add zero termination */

+	branches[nr_branches].uri[uri_len]=0;

+	branches[nr_branches].len=uri_len;

+	

+	nr_branches++;

+	return 1;

+}

new file mode 100644

@@ -0,0 +1,29 @@

+/*

+ * $Id$

+ */

+

+#ifndef _T_FORKS_H

+#define _T_FORKS_H

+

+#include "config.h"

+

+struct branch

+{

+	char uri[MAX_URI_SIZE];

+	unsigned int len;

+};

+

+struct sip_msg;

+

+/*

+typedef int (*tfork_f)( struct sip_msg *msg, char *uri, int uri_len );

+*/

+

+/* add a new branch to current transaction */

+int append_branch( struct sip_msg *msg, char *uri, int uri_len );

+/* iterate through list of new transaction branches */

+void init_branch_iterator();

+char *next_branch( int *len );

+void clear_branches();

+

+#endif

@@ -5,6 +5,9 @@

 #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;

@@ -43,6 +46,10 @@ int err2reason_phrase(

 			error_txt="Regretfuly, we were not able to process the URI";

 			*sip_error=-ser_error;

 			break;

+		case E_BAD_TUPEL:

+			error_txt="Transaction tupel incomplete";

+			*sip_error=-E_BAD_REQ;

+			break;

 		default:

 			error_txt="I'm terribly sorry, server error occured";

 			*sip_error=500;

@@ -51,3 +58,104 @@ int err2reason_phrase(

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

 		-ser_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 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 "Payement 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 410: return "Gone";

+		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 "Bad Extension";

+		case 421: return "Extension Required";

+		case 423: return "Interval Too Brief";

+		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 "Ambigous";

+		case 486: return "Busy Here";

+		case 487: return "Request Terminated";

+		case 488: return "Not Acceptable Here";

+		case 491: return "Request Pending";

+	

+		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 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) {

+		LOG(L_CRIT, "BUG: get_reply_status 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*/+1/*ZT*/;

+	status->s=pkg_malloc(status->len);

+	if (!status->s) {

+		LOG(L_ERR, "ERROR: get_reply_status: no 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-1]=0;

+}

@@ -12,6 +12,12 @@

 #define E_BUG         -5

 #define E_CFG         -6

 #define E_NO_SOCKET		-7

+/* unresolveable topmost Via */

+#define E_BAD_VIA		-8

+/* incomplete transaction tupel */

+#define E_BAD_TUPEL		-9

+/* script programming error */

+#define E_SCRIPT		-10

 #define E_SEND		  -477

 /* unresolveable next-hop address */

@@ -23,12 +29,22 @@

 #define MAX_REASON_LEN	128

+#include "str.h"

+

 /* processing status of the last command */

 extern int ser_error;

 extern int prev_ser_error;

+struct sip_msg;

+

+/* ser error -> SIP error */

 int err2reason_phrase( int ser_error, int *sip_error, 

                 char *phrase, int etl, char *signature );

+/* SIP error core -> SIP text */

+char *error_text( int code );

+

+/* return pkg_malloc-ed reply status in status->s */

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

 #endif

@@ -614,5 +614,6 @@ route[3] {

 		sl_reply_error(); 

 		break; 

 	};

+

 }

new file mode 100644

@@ -0,0 +1,344 @@

+/*

+ * $Id$

+ *

+ * simple UAC for things such as SUBSCRIBE or SMS gateway;

+ * no authentication and other UAC features -- just send

+ * a message, retransmit and await a reply; forking is not

+ * supported during client generation, in all other places

+ * it is -- adding it should be simple

+ */

+

+#include <stdlib.h>

+#include <sys/types.h>

+#include <unistd.h>

+#include <stdio.h>

+#include <errno.h>

+#include <sys/types.h>

+#include <sys/stat.h>

+#include <fcntl.h>

+#include <signal.h>

+#include <string.h>

+#include "dprint.h"

+#include "ut.h"

+#include "error.h"

+#include "config.h"

+#include "globals.h"

+#include "fifo_server.h"

+#include "mem/mem.h"

+

+/* FIFO server vars */

+char *fifo=0; /* FIFO name */

+int fifo_mode=S_IRUSR | S_IWUSR | S_IRGRP | S_IWGRP;

+pid_t fifo_pid;

+/* file descriptors */

+static int fifo_read=0;

+static int fifo_write=0;

+static FILE *fifo_stream;

+

+/* list of fifo command */

+static struct fifo_command *cmd_list=0;

+

+static struct fifo_command *lookup_fifo_cmd( char *name )

+{

+	struct fifo_command *c;

+	for(c=cmd_list; c; c=c->next) {

+		if (strcasecmp(c->name, name)==0) return c;

+	}

+	return 0;

+}

+

+int register_fifo_cmd(fifo_cmd f, char *cmd_name, void *param)

+{

+	struct fifo_command *new_cmd;

+

+	if (lookup_fifo_cmd(cmd_name)) {

+		LOG(L_ERR, "ERROR: register_fifo_cmd: attempt to register synonyms\n");

+		return E_BUG;

+	}

+	new_cmd=malloc(sizeof(struct fifo_command));

+	if (new_cmd==0) {

+		LOG(L_ERR, "ERROR: register_fifo_cmd: out of mem\n");

+		return E_OUT_OF_MEM;

+	}

+	new_cmd->f=f;

+	new_cmd->name=cmd_name;

+	new_cmd->param=param;

+

+	new_cmd->next=cmd_list;

+	cmd_list=new_cmd;

+

+	return 1;

+}

+

+

+int read_line( char *b, int max, FILE *stream, int *read )

+{