perl: renaming openser to kamailio in C source files

modules_k/perl/kamailioxs.xs

@@ -1,12 +1,12 @@
 /*
  * $Id$
  *
- * Perl module for OpenSER
+ * Perl module for Kamailio
  *
  * Copyright (C) 2006 Collax GmbH
  *                    (Bastian Friedrich <[email protected]>)
  *
- * This file is part of openser, a free SIP server.
+ * This file is part of kamailio, a free SIP server.
  *
  * openser is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by

modules_k/perl/perl.c

@@ -1,7 +1,7 @@
 /*
  * $Id$
  *
- * Perl module for OpenSER
+ * Perl module for Kamailio
  *
  * Copyright (C) 2006 Collax GmbH
  *                    (Bastian Friedrich <[email protected]>)
@@ -24,7 +24,7 @@
  *
  */
 
-#define DEFAULTMODULE "OpenSER"
+#define DEFAULTMODULE "Kamailio"
 #define MAX_LIB_PATHS 10
 
 #include <stdio.h>
@@ -53,7 +53,7 @@ MODULE_VERSION
 /* Full path to the script including executed functions */
 char *filename = NULL;
 
-/* Path to an arbitrary directory where the OpenSER Perl modules are
+/* Path to an arbitrary directory where the Kamailio Perl modules are
  * installed */
 char *modpath = NULL;
 
@@ -165,18 +165,18 @@ struct module_exports exports = {
 
 
 EXTERN_C void boot_DynaLoader (pTHX_ CV* cv);
-EXTERN_C void boot_OpenSER(pTHX_ CV* cv);
+EXTERN_C void boot_Kamailio(pTHX_ CV* cv);
 
 
 /*
  * This is output by perl -MExtUtils::Embed -e xsinit
- * and complemented by the OpenSER bootstrapping
+ * and complemented by the Kamailio bootstrapping
  */
 EXTERN_C void xs_init(pTHX) {
         char *file = __FILE__;
         dXSUB_SYS;
 
-        newXS("OpenSER::bootstrap", boot_OpenSER, file);
+        newXS("Kamailio::bootstrap", boot_Kamailio, file);
 
         newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file);
 }
@@ -229,7 +229,7 @@ PerlInterpreter *parser_init(void) {
 		}
 	}
 
-	argv[argc] = "-M"DEFAULTMODULE; argc++; /* Always "use" Openser.pm */
+	argv[argc] = "-M"DEFAULTMODULE; argc++; /* Always "use" Kamailio.pm */
 
 	argv[argc] = filename; /* The script itself */
 	argc++;
@@ -314,7 +314,7 @@ struct mi_root* perl_mi_reload(struct mi_root *cmd_tree, void *param)
 
 /*
  * mod_init
- * Called by openser at init time
+ * Called by kamailio at init time
  */
 static int mod_init(void) {
 
@@ -356,7 +356,7 @@ static int mod_init(void) {
 
 /*
  * destroy
- * called by openser at exit time
+ * called by kamailio at exit time
  */
 static void destroy(void)
 {

modules_k/perl/perl.h

@@ -1,7 +1,7 @@
 /*
  * $Id$
  *
- * Perl module for OpenSER
+ * Perl module for Kamailio
  *
  * Copyright (C) 2006 Collax GmbH
  *                    (Bastian Friedrich <[email protected]>)
@@ -44,7 +44,7 @@ extern PerlInterpreter *my_perl;
 
 extern sl_api_t slb;
 
-#define PERLCLASS_MESSAGE	"OpenSER::Message"
-#define PERLCLASS_URI		"OpenSER::URI"
+#define PERLCLASS_MESSAGE	"Kamailio::Message"
+#define PERLCLASS_URI		"Kamailio::URI"
 
 #endif /* PERL_MOD_H */

modules_k/perl/perlfunc.c

@@ -1,7 +1,7 @@
 /*
  * $Id$
  *
- * Perl module for OpenSER
+ * Perl module for Kamailio
  *
  * Copyright (C) 2006 Collax GmbH 
  *                    (Bastian Friedrich <[email protected]>)
@@ -128,7 +128,7 @@ int perl_exec2(struct sip_msg* _msg, char* fnc, char* mystr) {
 	}
 
 	m = sv_newmortal();
-	sv_setref_pv(m, "OpenSER::Message", (void *)_msg);
+	sv_setref_pv(m, "Kamailio::Message", (void *)_msg);
 	SvREADONLY_on(SvRV(m));
 
 

modules_k/perl/perlfunc.h

@@ -1,7 +1,7 @@
 /*
  * $Id$
  *
- * Perl module for OpenSER
+ * Perl module for Kamailio
  *
  * Copyright (C) 2006 Collax GmbH
  *                    (Bastian Friedrich <[email protected]>)

modules_k/perlvdb/perlvdb.h

@@ -52,7 +52,7 @@
 #include "perlvdb_oohelpers.h"
 #include "perlvdbfunc.h"
 
-#define PERL_VDB_BASECLASS	"OpenSER::VDB"
+#define PERL_VDB_BASECLASS	"Kamailio::VDB"
 
 #define PERL_VDB_USETABLEMETHOD	"use_table"
 #define PERL_VDB_INSERTMETHOD	"_insert"

modules_k/perlvdb/perlvdb_conv.c

@@ -62,7 +62,7 @@ AV *conds2perlarray(db_key_t* keys, db_op_t* ops, db_val_t* vals, int n) {
 					element = cond2perlcond(*(keys + i),
 							*(ops + i), vals + i);
 		} else {
-/* OP_EQ is defined in OpenSER _and_ perl. Includes collide :( */
+/* OP_EQ is defined in Kamailio _and_ perl. Includes collide :( */
 #ifdef OP_EQ
 			element = cond2perlcond(*(keys + i), OP_EQ, vals + i);
 #else
@@ -246,7 +246,7 @@ int perlresult2dbres(SV *perlres, db1_res_t **r) {
 			     modified db result value. */
 
 	if (!(SvROK(perlres) &&
-		(sv_derived_from(perlres, "OpenSER::VDB::Result")))) {
+		(sv_derived_from(perlres, "Kamailio::VDB::Result")))) {
 		goto error;
 	}
 	/* Memory allocation for C side result structure */
@@ -406,7 +406,7 @@ end:
 	av_undef(rowarray);
 	return retval;
 error:
-	LM_CRIT("broken result set. Exiting, leaving OpenSER in unknown state.\n");
+	LM_CRIT("broken result set. Exiting, leaving Kamailio in unknown state.\n");
 	return -1;
 }
 

modules_k/perlvdb/perlvdb_conv.h

@@ -35,9 +35,9 @@
 
 #include <XSUB.h>
 
-#define PERL_CLASS_VALUE	"OpenSER::VDB::Value"
-#define PERL_CLASS_PAIR		"OpenSER::VDB::Pair"
-#define PERL_CLASS_REQCOND	"OpenSER::VDB::ReqCond"
+#define PERL_CLASS_VALUE	"Kamailio::VDB::Value"
+#define PERL_CLASS_PAIR		"Kamailio::VDB::Pair"
+#define PERL_CLASS_REQCOND	"Kamailio::VDB::ReqCond"
 
 #define PERL_CONSTRUCTOR_NAME	"new"
 

modules_k/perlvdb/perlvdbfunc.c

@@ -85,7 +85,7 @@ SV *getobj(db1_con_t *con) {
  * - not null
  * - not undef
  * - an object
- * - derived from OpenSER::VDB
+ * - derived from Kamailio::VDB
  */
 int checkobj(SV* obj) {
 	if (obj != NULL) {
@@ -314,13 +314,13 @@ int perlvdb_db_query(db1_con_t* h, db_key_t* k, db_op_t* op, db_val_t* v,
 	av_undef(condarr);
 	av_undef(retkeysarr);
 
-	/* Transform perl result set to OpenSER result set */
+	/* Transform perl result set to Kamailio result set */
 	if (!resultset) {
 		/* No results. */
 		LM_ERR("no perl result set.\n");
 		retval = -1;
 	} else {
-		if (sv_isa(resultset, "OpenSER::VDB::Result")) {
+		if (sv_isa(resultset, "Kamailio::VDB::Result")) {
 			retval = perlresult2dbres(resultset, r);
 		/* Nested refs are decreased/deleted inside the routine */
 			SvREFCNT_dec(resultset);