[Asterisk-cvs] asterisk-addons/res_perl AstAPIBase.c, 1.1, 1.2 res_perl.c, 1.2, 1.3 data_perl.c, 1.1, NONE

[anthm at lists.digium.com]

Update of /usr/cvsroot/asterisk-addons/res_perl
In directory mongoose.digium.com:/tmp/cvs-serv2935

Modified Files:
	AstAPIBase.c res_perl.c 
Removed Files:
	data_perl.c 
Log Message:
cleanup

Index: AstAPIBase.c
===================================================================
RCS file: /usr/cvsroot/asterisk-addons/res_perl/AstAPIBase.c,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- AstAPIBase.c	23 Sep 2004 17:49:42 -0000	1.1
+++ AstAPIBase.c	24 Sep 2004 22:13:37 -0000	1.2
@@ -52,8 +52,8 @@
 
 int asterisk_chanlist(int fd)
 {
-#define FORMAT_STRING  "%15s  (%-10s %-12s %-4d) %7s %-12s  %-15s\n"
-#define FORMAT_STRING2 "%15s  (%-10s %-12s %-4s) %7s %-12s  %-15s\n"
+#define FORMAT_STRING  "%15s  (%-10s %-12s %-4d) %7s %-12s	%-15s\n"
+#define FORMAT_STRING2 "%15s  (%-10s %-12s %-4s) %7s %-12s	%-15s\n"
 	struct ast_channel *c=NULL;
 	int numchans = 0;
 	c = ast_channel_walk_locked(NULL);
@@ -268,7 +268,7 @@
 	}
 
 
-	return  ast_say_number(chan, num,AST_DIGIT_ANY, chan->language,(char *) NULL);
+	return	ast_say_number(chan, num,AST_DIGIT_ANY, chan->language,(char *) NULL);
 }
 
 int asterisk_saydigits(struct ast_channel *chan,char *data) {
@@ -347,11 +347,11 @@
 	int res = 0;
 	int ms=timeout;	
 
-	struct ast_dsp *sildet=NULL;         /* silence detector dsp */
+	struct ast_dsp *sildet=NULL;		 /* silence detector dsp */
 	int totalsilence = 0;
 	int dspsilence = 0;
 
-	int gotsilence = 0;             /* did we timeout for silence? */
+	int gotsilence = 0;				/* did we timeout for silence? */
 
 	int rfmt=0;
 

Index: res_perl.c
===================================================================
RCS file: /usr/cvsroot/asterisk-addons/res_perl/res_perl.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- res_perl.c	24 Sep 2004 22:08:05 -0000	1.2
+++ res_perl.c	24 Sep 2004 22:13:37 -0000	1.3
@@ -54,60 +54,60 @@
 }
 
 static char *get_hash_val(PerlInterpreter *my_perl,HV *hash,char *key) {
-    SV *val;
-    char *ret=NULL;
-    if (hash) {
+	SV *val;
+	char *ret=NULL;
+	if (hash) {
 		val = *hv_fetch(hash,key,strlen(key),FALSE);
 		if (val)
[...1099 lines suppressed...]
 
 
 char *description(void) {
-    return tdesc;
+	return tdesc;
 }
 
 int usecount(void) {
-    int res;
-    STANDARD_USECOUNT(res);
-    return res;
+	int res;
+	STANDARD_USECOUNT(res);
+	return res;
 }
 
 char *key() {
-    return ASTERISK_GPL_KEY;
+	return ASTERISK_GPL_KEY;
 }

--- data_perl.c DELETED ---