Ticket #1206: resort-agi.c

/* este fichero agi se encarga de reorganizar de forma aleatoria una lista de
extensiones que le hayamos pasado. Deberiamos ponerlo en:
/var/lib/asterisk/agi-bin/resort.agi
para ello compilar con: 
  gcc resort-agi.c --static -o /var/lib/asterisk/agi-bin/resort.agi
 */
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>

#define DEBUG 1
FILE *DEBUGFILE=NULL;


int ResortExt(char *in,char *out)
{
  int a,b,cont,ran2;
  float ran;
  char campos[1024],*punt;

  cont=1;                       /* contar cuantos campos tenemos */
  for(a=0;in[a];a++)            /* 1 mas que el numero de signos menos */
    if(in[a]=='-')
      cont++;
  memset(campos,0,sizeof(campos));      /* inicializar a 0s */
  out[0]=0;
  for(a=0;a<cont;a++) {         /* reorganizar lista */
    ran=(float)random();
    ran=ran/RAND_MAX;
    ran=ran*(cont-a);
    ran2=(int)ran;
    for(b=0;b<cont;b++)  /* buscar campo a devolver */
      if(campos[b]==0) {
        ran2--;
        if(ran2<0)
          break;
      }
    ran2=b;
    if(ran2>=cont) {            /* no deberia pasar, pero por si acaso */
      ran2=cont-1;
    }
    campos[ran2]=1;                     /* poner que campo ocupado */
    for(b=0,punt=in;b<ran2;b++)   /* buscar de donde sacar valor */
      punt=strchr(punt,'-')+1;
    while(*punt && *punt!='-')          /* copiar hasta el menos o el final */
      *out++=*punt++;
    *out++='-';                 /* aniadir el caracter menos */
  }
  out[-1]=0;            /* quitar el ultimo menos */
  return cont;
}


int main(int narg,char *args[])
{
  char buffer[1024],buffer2[1024];
  int a;

  if(DEBUG)
    DEBUGFILE=fopen("/tmp/debugfile","wt");
  else
    DEBUGFILE=stderr;

  srandom(time(NULL));          /* inicializar numero aleatorios */
  /* use line buffering */
  setlinebuf(stdout);
  setlinebuf(stderr);
  if(DEBUGFILE)
    fprintf(DEBUGFILE,"Numero parametros %i\n",narg);
  for(a=0;a<narg;a++)
     if(DEBUGFILE)
       fprintf(DEBUGFILE,"%s\n",args[a]);
  /* read and ignore AGI environment */
  while (1) {
    fgets(buffer,sizeof(buffer),stdin);
    if(DEBUGFILE) fprintf(DEBUGFILE,"%s",buffer);
    if (strlen(buffer) <= 1) break;
  }

//  printf("GET VARIABLE ARG3\n");
//  fgets(buffer,sizeof(buffer),stdin);
//  if(DEBUGFILE)
//    fprintf(DEBUGFILE,"%s\n",buffer);

//  printf("GET VARIABLE RingGroupMethod\n");
//  fgets(buffer,sizeof(buffer),stdin);
//  if(DEBUGFILE)
//    fprintf(DEBUGFILE,"%s\n",buffer);

  sprintf(buffer,"12345-23456-34567-45678");
  if(narg>=2)
    strcpy(buffer,args[1]);


  ResortExt(buffer,buffer2);

  printf("SET VARIABLE RESULT %s\n",buffer2);
  if(DEBUGFILE)
    fprintf(DEBUGFILE,"SET VAR RESULT %s\n",buffer2);

  /* Read response from Asterisk and show on console */
  fgets(buffer,sizeof(buffer),stdin);
  if(DEBUGFILE)
    fprintf(DEBUGFILE,"%s\n",buffer);

  return 0;
}