source: branches/monitor-improvement/oscam-config.c@ 1189

#include "globals.h"
#ifdef CS_WITH_BOXKEYS
#  include "oscam-boxkeys.np"
#endif

#define CONFVARWIDTH 16

static char *cs_conf="oscam.conf";
static char *cs_user="oscam.user";
static char *cs_srvr="oscam.server";
static char *cs_srid="oscam.srvid";
static char *cs_l4ca="oscam.guess";
static char *cs_cert="oscam.cert";
static char *cs_sidt="oscam.services";
//static char *cs_ird="oscam.ird";
#ifdef CS_ANTICASC
static char *cs_ac="oscam.ac";
#endif

static char token[4096];

typedef enum cs_proto_type
{
  TAG_GLOBAL,   // must be first !
  TAG_MONITOR,  // monitor
  TAG_CAMD33,   // camd 3.3x
  TAG_CAMD35,   // camd 3.5x UDP
  TAG_NEWCAMD,  // newcamd
  TAG_RADEGAST, // radegast
  TAG_SERIAL,   // serial (static)
  TAG_CS357X,   // camd 3.5x UDP
  TAG_CS378X,    // camd 3.5x TCP
#ifdef CS_WITH_GBOX
  TAG_GBOX, // gbox
#endif
  TAG_CCCAM,  // cccam
  TAG_DVBAPI
#ifdef CS_ANTICASC
  ,TAG_ANTICASC // anti-cascading
#endif
} cs_proto_type_t;

static char *cctag[]={"global", "monitor", "camd33", "camd35",
                      "newcamd", "radegast", "serial", "cs357x", "cs378x",
#ifdef CS_WITH_GBOX
              "gbox",
#endif
              "cccam", "dvbapi",
#ifdef CS_ANTICASC
                      "anticasc",
#endif
                       NULL};

#ifdef DEBUG_SIDTAB
static void show_sidtab(struct s_sidtab *sidtab)
{
  for (; sidtab; sidtab=sidtab->next)
  {
    int i;
    char buf[1024];
    cs_log("label=%s", sidtab->label);
    sprintf(buf, "caid(%d)=", sidtab->num_caid);
    for (i=0; i<sidtab->num_caid; i++)
      sprintf(buf+strlen(buf), "%04X ", sidtab->caid[i]);
    cs_log("%s", buf);
    sprintf(buf, "provider(%d)=", sidtab->num_provid);
    for (i=0; i<sidtab->num_provid; i++)
      sprintf(buf+strlen(buf), "%08X ", sidtab->provid[i]);
    cs_log("%s", buf);
    sprintf(buf, "services(%d)=", sidtab->num_srvid);
    for (i=0; i<sidtab->num_srvid; i++)
      sprintf(buf+strlen(buf), "%04X ", sidtab->srvid[i]);
    cs_log("%s", buf);
  }
}
#endif

void chk_iprange(char *value, struct s_ip **base)
{
  int i = 0;
  char *ptr1, *ptr2;
  struct s_ip *lip, *cip;

  for (cip=lip=*base; cip; cip=cip->next)
    lip=cip;
  if (!(cip=malloc(sizeof(struct s_ip))))
  {
    fprintf(stderr, "Error allocating memory (errno=%d)\n", errno);
    exit(1);
  }
  if (*base)
    lip->next=cip;
  else
    *base=cip;

  memset(cip, 0, sizeof(struct s_ip));
  for (ptr1=strtok(value, ","); ptr1; ptr1=strtok(NULL, ","))
  {
    if (i == 0) ++i;
    else {
        if (!(cip=malloc(sizeof(struct s_ip)))){
            fprintf(stderr, "Error allocating memory (errno=%d)\n", errno);
            exit(1);
        }
        lip->next = cip;
        memset(cip, 0, sizeof(struct s_ip));
    }
    if( (ptr2=strchr(trim(ptr1), '-')) )
    {
      *ptr2++='\0';
      cip->ip[0]=cs_inet_addr(trim(ptr1));
      cip->ip[1]=cs_inet_addr(trim(ptr2));
    }
    else
      cip->ip[0]=cip->ip[1]=cs_inet_addr(ptr1);
    lip = cip;
  }
}

void chk_caidtab(char *caidasc, CAIDTAB *ctab)
{
  int i;
  char *ptr1, *ptr2, *ptr3;

  //reset caid tab needed for usage while runtime from webif
  for (i=0;i<CS_MAXCAIDTAB;i++){
    ctab->caid[i]=0;
        ctab->mask[i]=0;
        ctab->cmap[i++]=0;
  }

  for (i=0, ptr1=strtok(caidasc, ","); (i<CS_MAXCAIDTAB) && (ptr1); ptr1=strtok(NULL, ","))
  {
    ulong caid, mask, cmap;
    if( (ptr3=strchr(trim(ptr1), ':')) )
      *ptr3++='\0';
    else
      ptr3="";
    if( (ptr2=strchr(trim(ptr1), '&')) )
      *ptr2++='\0';
    else
      ptr2="";
    if (((caid=a2i(ptr1, 2))|(mask=a2i(ptr2,-2))|(cmap=a2i(ptr3, 2))) < 0x10000)
    {
      ctab->caid[i]=caid;
      ctab->mask[i]=mask;
      ctab->cmap[i++]=cmap;
    }
//    else
//      cs_log("WARNING: wrong CAID in %s -> ignored", cs_user);
  }
}

void chk_tuntab(char *tunasc, TUNTAB *ttab)
{
  int i;
  char *ptr1, *ptr2, *ptr3;

  //reset tuntab for usage during runtime from WebIf
  for (i=0;i<CS_MAXTUNTAB;i++) {
        ttab->bt_caidfrom[i]=0;
        ttab->bt_caidto[i]=0;
        ttab->bt_srvid[i++]=0;
  }

    for (i=0, ptr1=strtok(tunasc, ","); (i<CS_MAXTUNTAB) && (ptr1); ptr1=strtok(NULL, ","))
  {
    ulong bt_caidfrom, bt_caidto, bt_srvid;
    if( (ptr3=strchr(trim(ptr1), ':')) )
      *ptr3++='\0';
    else
      ptr3="";
    if( (ptr2=strchr(trim(ptr1), '.')) )
      *ptr2++='\0';
    else
      ptr2="";
    if ((bt_caidfrom=a2i(ptr1, 2))|(bt_srvid=a2i(ptr2,-2))|(bt_caidto=a2i(ptr3, 2)))
    {
      ttab->bt_caidfrom[i]=bt_caidfrom;
      ttab->bt_caidto[i]=bt_caidto;
      ttab->bt_srvid[i++]=bt_srvid;
    }
//    else
//      cs_log("WARNING: wrong Betatunnel in %s -> ignored", cs_user);
  }
}

void chk_services(char *labels, ulong *sidok, ulong *sidno)
{
  int i;
  char *ptr;
  SIDTAB *sidtab;
  *sidok=*sidno=0;
  for (ptr=strtok(labels, ","); ptr; ptr=strtok(NULL, ","))
    for (trim(ptr), i=0, sidtab=cfg->sidtab; sidtab; sidtab=sidtab->next, i++)
    {
      if (!strcmp(sidtab->label, ptr)) *sidok|=(1<<i);
      if ((ptr[0]=='!') && (!strcmp(sidtab->label, ptr+1))) *sidno|=(1<<i);
    }
}

void chk_ftab(char *zFilterAsc, FTAB *ftab, const char *zType, const char *zName, const char *zFiltName)
{
  int i,j;
  char *ptr1,*ptr2,*ptr3;
  char *ptr[CS_MAXFILTERS] = {0};

  memset(ftab, 0, sizeof(FTAB));
  for( i=0, ptr1=strtok(zFilterAsc, ";"); (i<CS_MAXFILTERS) && (ptr1); ptr1=strtok(NULL, ";"), i++ )
  {
    //cs_log("ptr1=%s", ptr1);
    ptr[i] = ptr1;
    if( (ptr2=strchr(trim(ptr1), ':')) )
    {
      //cs_log("ptr2=%s", ptr2);
      *ptr2++='\0';
      //cs_log("ptr2=%s", ptr2);
      ftab->filts[i].caid = (ushort)a2i(ptr1, 4);
      //cs_log("caid=%04X", ftab->filts[i].caid);
      ptr[i] = ptr2;
    }
    else if (zFiltName && zFiltName[0]=='c')
    {
      cs_log("PANIC: CAID field not found in CHID parameter!");
      cs_exit(1);
    }
    ftab->nfilts++;
  }

  if( ftab->nfilts ) cs_debug("%s '%s' %s filter(s):", zType, zName, zFiltName);
  for( i=0; i<ftab->nfilts; i++ )
  {
    cs_debug("CAID #%d: %04X", i, ftab->filts[i].caid);
    for( j=0, ptr3=strtok(ptr[i], ","); (j<CS_MAXPROV) && (ptr3); ptr3=strtok(NULL, ","), j++ )
    {
      ftab->filts[i].prids[j] = a2i(ptr3,6);
      ftab->filts[i].nprids++;
      cs_debug("%s #%d: %06X", zFiltName, j, ftab->filts[i].prids[j]);
    }
  }
  //cs_log("exit chk_ftab");
}

void chk_cltab(char *classasc, CLASSTAB *clstab)
{
  int i;
  char *ptr1;
  for( i=0, ptr1=strtok(classasc, ","); (i<CS_MAXCAIDTAB) && (ptr1); ptr1=strtok(NULL, ",") )
  {
    ptr1=trim(ptr1);
    if( ptr1[0] == '!' )
      clstab->bclass[clstab->bn++] = (uchar)a2i(ptr1+1, 2);
    else
      clstab->aclass[clstab->an++] = (uchar)a2i(ptr1, 2);
  }
}

void chk_port_tab(char *portasc, PTAB *ptab)
{
  int i,j,nfilts,ifilt,iport;
  char *ptr1,*ptr2,*ptr3;
  char *ptr[CS_MAXPORTS] = {0};
  int  port[CS_MAXPORTS] = {0};
  int previous_nports = ptab->nports;

  for (nfilts=i=previous_nports, ptr1=strtok(portasc, ";"); (i<CS_MAXCAIDTAB) && (ptr1); ptr1=strtok(NULL, ";"), i++)
  {
    ptr[i] = ptr1;
    if( (ptr2=strchr(trim(ptr1), '@')) )
    {
      *ptr2++='\0';
      ptab->ports[i].s_port = atoi(ptr1);
      ptr[i] = ptr2;
      port[i] = ptab->ports[i].s_port;
      ptab->nports++;
    }
    nfilts++;
  }

  if( nfilts==1 && strlen(portasc)<6 && ptab->ports[0].s_port == 0 ) {
    ptab->ports[0].s_port = atoi(portasc);
    ptab->nports = 1;
  }

  iport=ifilt = previous_nports;
  for (i=previous_nports; i<nfilts; i++)
  {
    if( port[i]!=0 ) iport = i;
    for (j=0, ptr3=strtok(ptr[i], ","); (j<CS_MAXPROV) && (ptr3); ptr3=strtok(NULL, ","), j++)
    {
      if( (ptr2=strchr(trim(ptr3), ':')) )
      {
        *ptr2++='\0';
        ptab->ports[iport].ftab.nfilts++;
        ifilt = ptab->ports[iport].ftab.nfilts-1;
        ptab->ports[iport].ftab.filts[ifilt].caid = (ushort)a2i(ptr3, 4);
        ptab->ports[iport].ftab.filts[ifilt].prids[j] = a2i(ptr2, 6);
      } else {
        ptab->ports[iport].ftab.filts[ifilt].prids[j] = a2i(ptr3, 6);
      }
      ptab->ports[iport].ftab.filts[ifilt].nprids++;
    }
  }
}

#ifdef NOTUSED
static void chk_srvip(char *value, in_addr_t *ip)
{
  int i;
  char *ptr;
  for (i=0, ptr=strtok(value, ","); ptr; ptr=strtok(NULL, ","))
    if (i<8) ip[i++]=inet_addr(ptr);
}
#endif

void chk_t_global(char *token, char *value)
{
  if (!strcmp(token, "serverip")) { cfg->srvip=inet_addr(value); return; }
  if (!strcmp(token, "logfile")) { strncpy(logfile, value, sizeof(logfile)-1); return; }
  if (!strcmp(token, "pidfile")) { strncpy(cfg->pidfile, value, sizeof(cfg->pidfile)-1); return; }
  if (!strcmp(token, "usrfile")) { strncpy(cfg->usrfile, value, sizeof(cfg->usrfile)-1); return; }
  if (!strcmp(token, "cwlogdir")) { strncpy(cfg->cwlogdir, value, sizeof(cfg->cwlogdir)-1); return; }
  if (!strcmp(token, "clienttimeout"))
  {
      cfg->ctimeout = atoi(value);
      if (cfg->ctimeout < 100)
          cfg->ctimeout *= 1000;
      return;
  }
  if (!strcmp(token, "fallbacktimeout"))
  {
      cfg->ftimeout = atoi(value);
      if (cfg->ftimeout < 100)
          cfg->ftimeout *= 1000;
      return;
  }

  if (!strcmp(token, "clientmaxidle")) { cfg->cmaxidle=atoi(value); return; }
  if (!strcmp(token, "cachedelay")) { cfg->delay=atoi(value); return; }
  if (!strcmp(token, "bindwait")) { cfg->bindwait=atoi(value); return; }
  if (!strcmp(token, "netprio")) { cfg->netprio=atoi(value); return; }
  if (!strcmp(token, "resolvedelay")) { cfg->resolvedelay=atoi(value); return; }
  if (!strcmp(token, "sleep")) { cfg->tosleep=atoi(value); return; }
  if (!strcmp(token, "unlockparental")) { cfg->ulparent=atoi(value); return; }
  if (!strcmp(token, "nice"))
  {
    cfg->nice=atoi(value);
    if ((cfg->nice<-20) || (cfg->nice>20)) cfg->nice=99;
    if (cfg->nice!=99) cs_setpriority(cfg->nice);  // ignore errors
    return;
  }
  if (!strcmp(token, "serialreadertimeout"))
  {
    if (cfg->srtimeout < 100)
      cfg->srtimeout = atoi(value) * 1000;
    else
      cfg->srtimeout = atoi(value);
    if( cfg->srtimeout <=0 )
      cfg->srtimeout=1500;
    return;
  }
  if (!strcmp(token, "maxlogsize"))
  {
    cfg->max_log_size=atoi(value);
    if( cfg->max_log_size <=10 )
      cfg->max_log_size=10;
    return;
  }
  if( !strcmp(token, "showecmdw")) { cfg->show_ecm_dw = atoi(value); return; }
  if( !strcmp(token, "waitforcards")) { cfg->waitforcards = atoi(value); return; }
  if( !strcmp(token, "preferlocalcards")) { cfg->preferlocalcards = atoi(value); return; }
  if (token[0] != '#')
    fprintf(stderr, "Warning: keyword '%s' in global section not recognized\n",token);
}

#ifdef CS_ANTICASC
void chk_t_ac(char *token, char *value)
{
  if (!strcmp(token, "enabled"))
  {
    cfg->ac_enabled=atoi(value);
    if( cfg->ac_enabled<=0 ) cfg->ac_enabled=0;
    else cfg->ac_enabled=1;
    return;
  }

  if (!strcmp(token, "numusers"))
  {
    cfg->ac_users=atoi(value);
    if( cfg->ac_users<0 ) cfg->ac_users=0;
    return;
  }
  if (!strcmp(token, "sampletime"))
  {
    cfg->ac_stime=atoi(value);
    if( cfg->ac_stime<0 ) cfg->ac_stime=2;
    return;
  }
  if (!strcmp(token, "samples"))
  {
    cfg->ac_samples=atoi(value);
    if( cfg->ac_samples<2 || cfg->ac_samples>10) cfg->ac_samples=10;
    return;
  }
  if (!strcmp(token, "penalty"))
  {
    cfg->ac_penalty=atoi(value);
    if( cfg->ac_penalty<0 ) cfg->ac_penalty=0;
    return;
  }
  if (!strcmp(token, "aclogfile"))
  {
    strncpy(cfg->ac_logfile, value, sizeof(cfg->ac_logfile)-1);
    return;
  }
  if( !strcmp(token, "fakedelay") )
  {
    cfg->ac_fakedelay=atoi(value);
    if( cfg->ac_fakedelay<100 || cfg->ac_fakedelay>1000 )
      cfg->ac_fakedelay=1000;
    return;
  }
  if( !strcmp(token, "denysamples") )
  {
    cfg->ac_denysamples=atoi(value);
    if( cfg->ac_denysamples<2 || cfg->ac_denysamples>cfg->ac_samples-1 )
      cfg->ac_denysamples=cfg->ac_samples-1;
    return;
  }
  if (token[0] != '#')
    fprintf(stderr, "Warning: keyword '%s' in anticascading section not recognized\n",token);
//#endif moved this endif up two lines, I think this was erroneous - dingo35
}
#endif

void chk_t_monitor(char *token, char *value)
{
  if (!strcmp(token, "port")) { cfg->mon_port=atoi(value); return; }
  if (!strcmp(token, "serverip")) { cfg->mon_srvip=inet_addr(value); return; }
  if (!strcmp(token, "nocrypt")) { chk_iprange(value, &cfg->mon_allowed); return; }
  if (!strcmp(token, "aulow")) { cfg->mon_aulow=atoi(value); return; }
  if (!strcmp(token, "monlevel")) { cfg->mon_level=atoi(value); return; }
  if (!strcmp(token, "httpport")) { cfg->http_port=atoi(value); return; }
  if (!strcmp(token, "httpuser")) { strncpy(cfg->http_user, value, sizeof(cfg->http_user)-1); cfg->http_user[sizeof(cfg->http_user)-1] = '\0'; return; }
  if (!strcmp(token, "httppwd")) { strncpy(cfg->http_pwd, value, sizeof(cfg->http_pwd)-1); cfg->http_pwd[sizeof(cfg->http_pwd)-1] = '\0'; return; }
  if (!strcmp(token, "httpcss")) { strncpy(cfg->http_css, value, sizeof(cfg->http_css)-1); cfg->http_css[sizeof(cfg->http_css)-1] = '\0'; return; }
  if (!strcmp(token, "httptpl")) { strncpy(cfg->http_tpl, value, sizeof(cfg->http_tpl)-1); cfg->http_css[sizeof(cfg->http_tpl)-1] = '\0'; return; }
  if (!strcmp(token, "httprefresh")) { cfg->http_refresh=atoi(value); return; }
  if (!strcmp(token, "httphideidleclients")) { cfg->http_hide_idle_clients=atoi(value); return; }
  if (!strcmp(token, "hideclient_to")) { cfg->mon_hideclient_to=atoi(value); return; }
  if (token[0] != '#')
    fprintf(stderr, "Warning: keyword '%s' in monitor section not recognized\n",token);
}

void chk_t_camd33(char *token, char *value)
{
  if (!strcmp(token, "port")) { cfg->c33_port=atoi(value); return; }
  if (!strcmp(token, "serverip")) { cfg->c33_srvip=inet_addr(value); return; }
  if (!strcmp(token, "nocrypt")) { chk_iprange(value, &cfg->c33_plain); return; }
  if (!strcmp(token, "passive")) { cfg->c33_passive=(value[0]!='0'); return; }
  if (!strcmp(token, "key"))
  {
    if (key_atob(value, cfg->c33_key))
    {
      fprintf(stderr, "Configuration camd3.3x: Error in Key\n");
      exit(1);
    }
    cfg->c33_crypted=1;
    return;
  }
  if (token[0] != '#')
    fprintf(stderr, "Warning: keyword '%s' in camd33 section not recognized\n",token);
}

void chk_t_camd35(char *token, char *value)
{
  if (!strcmp(token, "port")) { cfg->c35_port=atoi(value); return; }
  if (!strcmp(token, "serverip")) { cfg->c35_tcp_srvip=inet_addr(value); return; }
  if (token[0] != '#')
    fprintf(stderr, "Warning: keyword '%s' in camd35 section not recognized\n",token);
}

void chk_t_camd35_tcp(char *token, char *value)
{
  if (!strcmp(token, "port")) { chk_port_tab(value, &cfg->c35_tcp_ptab); return; }
  if (!strcmp(token, "serverip")) { cfg->c35_tcp_srvip=inet_addr(value); return; }
  if (token[0] != '#')
    fprintf(stderr, "Warning: keyword '%s' in camd35 tcp section not recognized\n",token);
}

void chk_t_newcamd(char *token, char *value)
{
  if (!strcmp(token, "port")) { chk_port_tab(value, &cfg->ncd_ptab); return; }
  if (!strcmp(token, "serverip")) { cfg->ncd_srvip=inet_addr(value); return; }
  if (!strcmp(token, "key"))
  {
    if (key_atob14(value, cfg->ncd_key))
    {
      fprintf(stderr, "Configuration newcamd: Error in Key\n");
      exit(1);
    }
    return;
  }
  if (token[0] != '#')
    fprintf(stderr, "Warning: keyword '%s' in newcamd section not recognized\n",token);
}

void chk_t_radegast(char *token, char *value)
{
  if (!strcmp(token, "port")) { cfg->rad_port=atoi(value); return; }
  if (!strcmp(token, "serverip")) { cfg->rad_srvip=inet_addr(value); return; }
  if (!strcmp(token, "allowed")) { chk_iprange(value, &cfg->rad_allowed); return; }
  if (!strcmp(token, "user")) { strncpy(cfg->rad_usr, value, sizeof(cfg->rad_usr)-1); return; }
  if (token[0] != '#')
    fprintf(stderr, "Warning: keyword '%s' in radegast section not recognized\n",token);
}

void chk_t_serial(char *token, char *value)
{
  if (!strcmp(token, "device"))
  {
    int l;
    l=strlen(cfg->ser_device);
    if (l) cfg->ser_device[l++]=1;  // use ctrl-a as delimiter
    strncpy(cfg->ser_device+l, value, sizeof(cfg->ser_device)-1-l);
    return;
  }
  if (token[0] != '#')
    fprintf(stderr, "Warning: keyword '%s' in serial section not recognized\n",token);
}

#ifdef CS_WITH_GBOX
static void chk_t_gbox(char *token, char *value)
{
//  if (!strcmp(token, "password")) strncpy(cfg->gbox_pwd, i2b(4, a2i(value, 4)), 4);
  if (!strcmp(token, "password")) { cs_atob(cfg->gbox_pwd, value, 4); return; }
  if (!strcmp(token, "maxdist")) { cfg->maxdist=atoi(value); return; }
  if (!strcmp(token, "ignorelist")) { strncpy((char *)cfg->ignorefile, value, sizeof(cfg->ignorefile)-1); return; }
  if (!strcmp(token, "onlineinfos")) { strncpy((char *)cfg->gbxShareOnl, value, sizeof(cfg->gbxShareOnl)-1); return; }
  if (!strcmp(token, "cardinfos")) { strncpy((char *)cfg->cardfile, value, sizeof(cfg->cardfile)-1); return; }
  if (!strcmp(token, "locals"))
  {
    char *ptr1;
    int n=0, i;
    for (i=0, ptr1=strtok(value, ","); (i<CS_MAXLOCALS) && (ptr1); ptr1=strtok(NULL, ","))
    {
      cfg->locals[n++]=a2i(ptr1, 8);
      //printf("%i %08X",n,cfg->locals[n-1]);
    }
    cfg->num_locals=n;
    return;
  }
  if (token[0] != '#')
    fprintf(stderr, "Warning: keyword '%s' in gbox section not recognized\n",token);
}
#endif

void chk_t_cccam(char *token, char *value)
{
  // placeholder for ccam server support
  fprintf(stderr, "Warning: OSCam have no cccam server support yet. Parametr %s = %s\n", token, value);
}

#ifdef HAVE_DVBAPI
void chk_t_dvbapi(char *token, char *value)
{
    if (!strcmp(token, "enabled"))  { cfg->dvbapi_enabled=atoi(value); return; }
    if (!strcmp(token, "au"))       { cfg->dvbapi_au=atoi(value); return; }
    if (!strcmp(token, "boxtype"))  { strncpy(cfg->dvbapi_boxtype, value, sizeof(cfg->dvbapi_boxtype)-1); return; }
    if (!strcmp(token, "user"))     { strncpy(cfg->dvbapi_usr, value, sizeof(cfg->dvbapi_usr)-1); return; }
    if (!strcmp(token, "priority")) { strncpy(cfg->dvbapi_priority, value, sizeof(cfg->dvbapi_priority)-1); return; }
    if (!strcmp(token, "ignore"))   { strncpy(cfg->dvbapi_ignore, value, sizeof(cfg->dvbapi_ignore)-1); return; }
    
    if (token[0] != '#')
        fprintf(stderr, "Warning: keyword '%s' in dvbapi section not recognized\n",token);
}
#endif

static void chk_token(char *token, char *value, int tag)
{
  switch(tag)
  {
    case TAG_GLOBAL  : chk_t_global(token, value); break;
    case TAG_MONITOR : chk_t_monitor(token, value); break;
    case TAG_CAMD33  : chk_t_camd33(token, value); break;
    case TAG_CAMD35  :
    case TAG_CS357X  : chk_t_camd35(token, value); break;
    case TAG_NEWCAMD : chk_t_newcamd(token, value); break;
    case TAG_RADEGAST: chk_t_radegast(token, value); break;
    case TAG_SERIAL  : chk_t_serial(token, value); break;
    case TAG_CS378X  : chk_t_camd35_tcp(token, value); break;
#ifdef CS_WITH_GBOX
    case TAG_GBOX    : chk_t_gbox(token, value); break;
#endif
    case TAG_CCCAM   : chk_t_cccam(token, value); break;
#ifdef HAVE_DVBAPI
    case TAG_DVBAPI  : chk_t_dvbapi(token, value); break;
#else
    case TAG_DVBAPI  : fprintf(stderr, "Warning: OSCam compiled without DVB API support.\n"); break;
#endif
#ifdef CS_ANTICASC
    case TAG_ANTICASC: chk_t_ac(token, value); break;
#endif
  }
}

void init_len4caid()
{
  int nr;
  FILE *fp;
  char *value;

  memset(len4caid, 0, sizeof(ushort)<<8);
  sprintf(token, "%s%s", cs_confdir, cs_l4ca);
  if (!(fp=fopen(token, "r")))
    return;
  for(nr=0; fgets(token, sizeof(token), fp);)
  {
    int i, c;
    char *ptr;
    if (!(value=strchr(token, ':'))) continue;
    *value++='\0';
    if( (ptr=strchr(value, '#')) )
      *ptr='\0';
    if (strlen(trim(token))!=2) continue;
    if (strlen(trim(value))!=4) continue;
    if ((i=byte_atob(token))<0) continue;
    if ((c=word_atob(value))<0) continue;
//printf("idx %02X = %04X\n", i, c); fflush(stdout);
    len4caid[i]=c;
    nr++;
  }
  fclose(fp);
  cs_log("%d lengths for caid guessing loaded", nr);
  return;
}

int search_boxkey(ushort caid, char *key)
{
  int i, rc=0;
  FILE *fp;
  char c_caid[512];

  sprintf(c_caid, "%s%s", cs_confdir, cs_cert);
  fp=fopen(c_caid, "r");
  if (fp)
  {
    for (; (!rc) && fgets(c_caid, sizeof(c_caid), fp);)
    {
      char *c_provid, *c_key;

      c_provid=strchr(c_caid, '#');
      if (c_provid) *c_provid='\0';
      if (!(c_provid=strchr(c_caid, ':'))) continue;
      *c_provid++='\0';
      if (!(c_key=strchr(c_provid, ':'))) continue;
      *c_key++='\0';
      if (word_atob(trim(c_caid))!=caid) continue;
      if ((i=(strlen(trim(c_key))>>1))>256) continue;
      if (cs_atob((uchar *)key, c_key, i)<0)
      {
        cs_log("wrong key in \"%s\"", cs_cert);
        continue;
      }
      rc=1;
    }
    fclose(fp);
  }
#ifdef OSCAM_INBUILD_KEYS
  for(i=0; (!rc) && (npkey[i].keylen); i++)
    if (rc=((caid==npkey[i].caid) && (npkey[i].provid==0)))
      memcpy(key, npkey[i].key, npkey[i].keylen);
#endif
  return(rc);
}

int init_config()
{
  int tag=TAG_GLOBAL;
  FILE *fp;
  char *value;

#ifndef CS_EMBEDDED
#ifdef PRIO_PROCESS
  errno=0;
  if ((cfg->nice=getpriority(PRIO_PROCESS, 0))==(-1))
    if (errno)
#endif
#endif
  cfg->nice=99;
  cfg->ctimeout=CS_CLIENT_TIMEOUT;
  cfg->ftimeout=CS_CLIENT_TIMEOUT / 2;
  cfg->cmaxidle=CS_CLIENT_MAXIDLE;
  cfg->delay=CS_DELAY;
  cfg->bindwait=CS_BIND_TIMEOUT;
  cfg->resolvedelay=CS_RESOLVE_DELAY;
  cfg->mon_level=2;
  cfg->mon_hideclient_to=0;
  cfg->srtimeout=1500;
  cfg->ulparent=0;
  strcpy(cfg->http_user, "");
  strcpy(cfg->http_pwd, "");
  strcpy(cfg->http_css, "");
  cfg->http_refresh=0;
  cfg->http_hide_idle_clients=0;
  strcpy(cfg->http_tpl, "");
#ifdef CS_ANTICASC
  cfg->ac_enabled=0;
  cfg->ac_users=0;
  cfg->ac_stime=2;
  cfg->ac_samples=10;
  cfg->ac_denysamples=8;
  cfg->ac_fakedelay=1000;
  strcpy(cfg->ac_logfile, "./oscam_ac.log");
#endif
  sprintf(token, "%s%s", cs_confdir, cs_conf);
  if (!(fp=fopen(token, "r")))
  {
    fprintf(stderr, "Cannot open config file '%s' (errno=%d)\n", token, errno);
    exit(1);
  }
  while (fgets(token, sizeof(token), fp))
  {
    int i, l;
    //void *ptr;
    if ((l=strlen(trim(token)))<3) continue;
    if ((token[0]=='[') && (token[l-1]==']'))
    {
      for (token[l-1]=0, tag=-1, i=TAG_GLOBAL; cctag[i]; i++)
        if (!strcmp(cctag[i], strtolower(token+1)))
          tag=i;
      continue;
    }
    if (!(value=strchr(token, '='))) continue;
    *value++='\0';
    chk_token(trim(strtolower(token)), trim(value), tag);
  }
  fclose(fp);
  cs_init_log(logfile);
  if (cfg->ftimeout>=cfg->ctimeout)
  {
    cfg->ftimeout = cfg->ctimeout - 100;
    cs_log("WARNING: fallbacktimeout adjusted to %lu ms (must be smaller than clienttimeout (%lu ms))", cfg->ftimeout, cfg->ctimeout);
  }
  if(cfg->ftimeout < cfg->srtimeout)
  {
    cfg->ftimeout = cfg->srtimeout + 100;
    cs_log("WARNING: fallbacktimeout adjusted to %lu ms (must be greater than serialreadertimeout (%lu ms))", cfg->ftimeout, cfg->srtimeout);
  }
  if(cfg->ctimeout < cfg->srtimeout)
  {
    cfg->ctimeout = cfg->srtimeout + 100;
    cs_log("WARNING: clienttimeout adjusted to %lu ms (must be greater than serialreadertimeout (%lu ms))", cfg->ctimeout, cfg->srtimeout);
  }
#ifdef CS_ANTICASC
  if( cfg->ac_denysamples+1>cfg->ac_samples )
  {
    cfg->ac_denysamples=cfg->ac_samples-1;
    cs_log("WARNING: DenySamples adjusted to %d", cfg->ac_denysamples);
  }
#endif
  return 0;
}

void chk_account(char *token, char *value, struct s_auth *account)
{
  int i;
  char *ptr1;//, *ptr2;

  if (!strcmp(token, "user")) { strncpy(account->usr, value, sizeof(account->usr)-1); return; }
  if (!strcmp(token, "pwd")) { strncpy(account->pwd, value, sizeof(account->pwd)-1); return; }
  if (!strcmp(token, "hostname")) { strncpy((char *)account->dyndns, value, sizeof(account->dyndns)-1);return; }
  if (!strcmp(token, "betatunnel")) { chk_tuntab(value, &account->ttab); return; }
  if (!strcmp(token, "uniq")) { account->uniq=atoi(value); return; }
  if (!strcmp(token, "sleep")) { account->tosleep=atoi(value); return; }
  if (!strcmp(token, "monlevel")) { account->monlvl=atoi(value); return; }
  if (!strcmp(token, "caid")) { chk_caidtab(value, &account->ctab); return; }
  /*
   *  case insensitive
   */
  strtolower(value);
  if (!strcmp(token, "au"))
  {
    //set default values for usage during runtime from Webif
    account->au=-1;
    account->autoau=0;

    if(value && value[0]=='1') account->autoau=1;
    for (i=0; i<CS_MAXREADER; i++)
      if ((reader[i].label[0]) &&
          (!strncmp(reader[i].label, value, strlen(reader[i].label))))
        account->au=i;
    return;
  }
  if (!strcmp(token, "group"))\
  {
    for (ptr1=strtok(value, ","); ptr1; ptr1=strtok(NULL, ","))
    {
      int g;
      g=atoi(ptr1);
      if ((g>0) && (g<33)) account->grp|=(1<<(g-1));
    }
    return;
  }
  if(!strcmp(token, "services")) { chk_services(value, &account->sidtabok, &account->sidtabno); return; }
  if(!strcmp(token, "ident")) { chk_ftab(value, &account->ftab, "user", account->usr, "provid"); return; }
  if(!strcmp(token, "class")) { chk_cltab(value, &account->cltab); return; }
  if(!strcmp(token, "chid")) {  chk_ftab(value, &account->fchid, "user", account->usr, "chid"); return; }

  if (!strcmp(token, "expdate"))
  {
    if (!value[0]) {
        account->expirationdate=(time_t)NULL;
        return;
    }
    struct tm cstime;
    memset(&cstime,0,sizeof(cstime));
    for (i=0, ptr1=strtok(value, "-/"); (i<3)&&(ptr1); ptr1=strtok(NULL, "-/"), i++)
    {
      switch(i)
      {
        case 0: cstime.tm_year=atoi(ptr1)-1900; break;
        case 1: cstime.tm_mon =atoi(ptr1)-1;    break;
        case 2: cstime.tm_mday=atoi(ptr1);      break;
      }
    }
    account->expirationdate=mktime(&cstime);
    return;
  }

#ifdef CS_ANTICASC
  if( !strcmp(token, "numusers") )
  {
    account->ac_users = atoi(value);
    return;
  }
  if( !strcmp(token, "penalty") )
  {
    account->ac_penalty = atoi(value);
    return;
  }
#endif
  if (token[0] != '#')
    fprintf(stderr, "Warning: keyword '%s' in account section not recognized\n",token);

//  if (!strcmp(token, "caid"))
//  {
//    for (i=0, ptr1=strtok(value, ","); (i<CS_MAXCAIDTAB) && (ptr1); ptr1=strtok(NULL, ","))
//    {
//      ulong caid, mask;
//      if (ptr2=strchr(trim(ptr1), '&'))
//        *ptr2++='\0';
//      else
//        ptr2="";
//      if (((caid=a2i(ptr1, 2))|(mask=a2i(ptr2,-2))) < 0x10000)
//      {
//        account->caidtab[i][0]=caid;
//        account->caidtab[i++][1]=mask;
//      }
//      else
//        cs_log("WARNING: wrong CAID in %s -> ignored", cs_user);
//    }
//  }
}

int write_services()
{
    int i;
    FILE *f;
    struct s_sidtab *sidtab = cfg->sidtab;
    char tmpfile[256];
    char destfile[256];
    char bakfile[256];

    snprintf(destfile, 255,"%s%s", cs_confdir, cs_sidt);
    snprintf(tmpfile, 255, "%s%s.tmp", cs_confdir, cs_sidt);
    snprintf(bakfile, 255,"%s%s.bak", cs_confdir, cs_sidt);

    if (!(f=fopen(tmpfile, "w"))){
    cs_log("Cannot open file \"%s\" (errno=%d)", tmpfile, errno);
    return(1);
  }
  fprintf(f,"#oscam.services generated automatically\n\n");

    while(sidtab != NULL){
        fprintf(f,"[%s]\n", sidtab->label);
        fprintf_conf(f, CONFVARWIDTH, "caid", "");
    for (i=0; i<sidtab->num_caid; i++){
            if (i==0) fprintf(f,"%04X", sidtab->caid[i]);
            else fprintf(f,",%04X", sidtab->caid[i]);
    }
    fputc((int)'\n', f);
    fprintf_conf(f, CONFVARWIDTH, "provid", "");
    for (i=0; i<sidtab->num_provid; i++){
            if (i==0) fprintf(f,"%08lX", sidtab->provid[i]);
            else fprintf(f,",%08lX", sidtab->provid[i]);
    }
    fputc((int)'\n', f);
    fprintf_conf(f, CONFVARWIDTH, "srvid", "");
    for (i=0; i<sidtab->num_srvid; i++){
            if (i==0) fprintf(f,"%04X", sidtab->srvid[i]);
            else fprintf(f,",%04X", sidtab->srvid[i]);
        }
        fprintf(f,"\n\n");
        sidtab=sidtab->next;
  }

    fclose(f);
    return(safe_overwrite_with_bak(destfile, tmpfile, bakfile, 0));
}

int write_config()
{
    int i,j;
    FILE *f;
    char *dot = "", *dot1 = "", *dot2 = ""; //flags for delimiters
    char tmpfile[256];
    char destfile[256];
    char bakfile[256];

    snprintf(destfile, 255,"%s%s", cs_confdir, cs_conf);
    snprintf(tmpfile, 255, "%s%s.tmp", cs_confdir, cs_conf);
    snprintf(bakfile, 255,"%s%s.bak", cs_confdir, cs_conf);

    if (!(f=fopen(tmpfile, "w"))){
    cs_log("Cannot open file \"%s\" (errno=%d)", tmpfile, errno);
    return(1);
  }
  fprintf(f,"#oscam.config generated automatically\n\n");

    /*global settings*/
    fprintf(f,"[global]\n");
    fprintf_conf(f, CONFVARWIDTH, "serverip", "%s\n", inet_ntoa(*(struct in_addr *)&cfg->srvip));
    fprintf_conf(f, CONFVARWIDTH, "logfile", "%s\n", logfile);
    fprintf_conf(f, CONFVARWIDTH, "pidfile", "%s\n", cfg->pidfile);
    fprintf_conf(f, CONFVARWIDTH, "usrfile", "%s\n", cfg->usrfile);
    fprintf_conf(f, CONFVARWIDTH, "cwlogdir", "%s\n", cfg->cwlogdir);
    fprintf_conf(f, CONFVARWIDTH, "clienttimeout", "%ld\n", cfg->ctimeout/1000);
    fprintf_conf(f, CONFVARWIDTH, "fallbacktimeout", "%ld\n", cfg->ftimeout/1000);
    fprintf_conf(f, CONFVARWIDTH, "clientmaxidle", "%d\n", cfg->cmaxidle);
    fprintf_conf(f, CONFVARWIDTH, "cachedelay", "%ld\n", cfg->delay/1000);
    fprintf_conf(f, CONFVARWIDTH, "bindwait", "%d\n", cfg->bindwait);
    fprintf_conf(f, CONFVARWIDTH, "netprio", "%ld\n", cfg->netprio);
    fprintf_conf(f, CONFVARWIDTH, "resolvedelay", "%d\n", cfg->resolvedelay);
    fprintf_conf(f, CONFVARWIDTH, "sleep", "%d\n", cfg->tosleep);
    fprintf_conf(f, CONFVARWIDTH, "unlockparental", "%d\n", cfg->ulparent);
    fprintf_conf(f, CONFVARWIDTH, "nice", "%d\n", cfg->nice);
    fprintf_conf(f, CONFVARWIDTH, "serialreadertimeout", "%d\n", cfg->srtimeout);
    fprintf_conf(f, CONFVARWIDTH, "maxlogsize", "%d\n", cfg->max_log_size);
    fprintf_conf(f, CONFVARWIDTH, "showecmdw", "%d\n", cfg->show_ecm_dw);
    fprintf_conf(f, CONFVARWIDTH, "waitforcards", "%d\n", cfg->waitforcards);
    fprintf_conf(f, CONFVARWIDTH, "preferlocalcards", "%d\n", cfg->preferlocalcards);
    fputc((int)'\n', f);

    /*monitor settings*/
    fprintf(f,"[monitor]\n");
    fprintf_conf(f, CONFVARWIDTH, "port", "%d\n", cfg->mon_port);
    fprintf_conf(f, CONFVARWIDTH, "serverip", "%s\n", inet_ntoa(*(struct in_addr *)&cfg->mon_srvip));

    fprintf_conf(f, CONFVARWIDTH, "nocrypt", "");
    struct s_ip *cip;
    for (cip = cfg->mon_allowed; cip; cip = cip->next){
        fprintf(f,"%s%s", dot, inet_ntoa(*(struct in_addr *)&cip->ip[0]));
    if (cip->ip[0] == cip->ip[1])   fprintf(f,"-%s", inet_ntoa(*(struct in_addr *)&cip->ip[1]));
    dot=",";
    }
    fputc((int)'\n', f);
    fprintf_conf(f, CONFVARWIDTH, "aulow", "%d\n", cfg->mon_aulow);
    fprintf_conf(f, CONFVARWIDTH, "hideclient_to", "%d\n", cfg->mon_hideclient_to);
    fprintf_conf(f, CONFVARWIDTH, "monlevel", "%d\n", cfg->mon_level);
    fprintf_conf(f, CONFVARWIDTH, "httpport", "%d\n", cfg->http_port);
    fprintf_conf(f, CONFVARWIDTH, "httpuser", "%s\n", cfg->http_user);
    fprintf_conf(f, CONFVARWIDTH, "httppwd", "%s\n", cfg->http_pwd);
    fprintf_conf(f, CONFVARWIDTH, "httpcss", "%s\n", cfg->http_css);
    fprintf_conf(f, CONFVARWIDTH, "httprefresh", "%d\n", cfg->http_refresh);
    fprintf_conf(f, CONFVARWIDTH, "httphideidleclients", "%d\n", cfg->http_hide_idle_clients);
    fputc((int)'\n', f);

    /*newcamd*/
    if ((cfg->ncd_ptab.nports > 0) && (cfg->ncd_ptab.ports[0].s_port > 0)){
        fprintf(f,"[newcamd]\n");
        fprintf_conf(f, CONFVARWIDTH, "port", "");
        dot1 = "";
        for(i = 0; i < cfg->ncd_ptab.nports; ++i){
            fprintf(f,"%s%d@%04X", dot1, cfg->ncd_ptab.ports[i].s_port, cfg->ncd_ptab.ports[i].ftab.filts[0].caid);
            if (cfg->ncd_ptab.ports[i].ftab.filts[0].nprids > 0){
                fprintf(f,":");
                dot2 = "";
                for (j = 0; j < cfg->ncd_ptab.ports[i].ftab.filts[0].nprids; ++j){
                    fprintf(f,"%s%lX", dot2, cfg->ncd_ptab.ports[i].ftab.filts[0].prids[j]);
                    dot2 = ",";
                }
            }
            dot1=";";
        }

        fputc((int)'\n', f);
        fprintf_conf(f, CONFVARWIDTH, "serverip", "%s\n", inet_ntoa(*(struct in_addr *)&cfg->ncd_srvip));
        fprintf_conf(f, CONFVARWIDTH, "key", "");
        for (i=0;i<14;i++) fprintf(f,"%02X", cfg->ncd_key[i]);
        fprintf(f,"\n\n");
    }

    /*camd3.3*/
    if ( cfg->c33_port > 0) {
        fprintf(f,"[camd33]\n");
        fprintf_conf(f, CONFVARWIDTH, "port", "%d\n", cfg->c33_port);
        fprintf_conf(f, CONFVARWIDTH, "serverip", "%s\n", inet_ntoa(*(struct in_addr *)&cfg->c33_srvip));
        fprintf_conf(f, CONFVARWIDTH, "passive", "%d\n", cfg->c33_passive);
        fprintf_conf(f, CONFVARWIDTH, "key", ""); for (i = 0; i < (int) sizeof(cfg->c33_key); ++i) fprintf(f,"%02X", cfg->c33_key[i]); fputc((int)'\n', f);
        fprintf_conf(f, CONFVARWIDTH, "nocrypt", "");
        dot="";
        for (cip = cfg->c33_plain; cip; cip = cip->next){
            fprintf(f,"%s%s", dot, cs_inet_ntoa(cip->ip[0]));
            if (cip->ip[0] != cip->ip[1])   fprintf(f,"-%s", cs_inet_ntoa(cip->ip[1]));
            dot=",";
      }
        fprintf(f,"\n\n");
    }

    /*camd3.5*/
    if ( cfg->c35_port > 0) {
        fprintf(f,"[cs357x]\n");
        fprintf_conf(f, CONFVARWIDTH, "port", "%d\n", cfg->c35_port);
        fprintf_conf(f, CONFVARWIDTH, "serverip", "%s\n", inet_ntoa(*(struct in_addr *)&cfg->c35_tcp_srvip));
        fprintf(f,"\n\n");
    }

    /*camd3.5 TCP*/
    if ((cfg->c35_tcp_ptab.nports > 0) && (cfg->c35_tcp_ptab.ports[0].s_port > 0)) {
        fprintf(f,"[cs378x]\n");
        fprintf_conf(f, CONFVARWIDTH, "port", "");
        dot1 = "";
        for(i = 0; i < cfg->c35_tcp_ptab.nports; ++i){
            fprintf(f,"%s%d@%04X", dot1, cfg->c35_tcp_ptab.ports[i].s_port, cfg->c35_tcp_ptab.ports[i].ftab.filts[0].caid);
            if (cfg->c35_tcp_ptab.ports[i].ftab.filts[0].nprids > 0){
                fprintf(f,":");
                dot2 = "";
                for (j = 0; j < cfg->c35_tcp_ptab.ports[i].ftab.filts[0].nprids; ++j){
                    fprintf(f,"%s%lX", dot2, cfg->c35_tcp_ptab.ports[i].ftab.filts[0].prids[j]);
                    dot2 = ",";
                }
            }
            dot1=";";
        }

        fputc((int)'\n', f);
        fprintf_conf(f, CONFVARWIDTH, "serverip", "%s\n", inet_ntoa(*(struct in_addr *)&cfg->c35_tcp_srvip));
        fputc((int)'\n', f);
    }

    /*Radegast*/
    if ( cfg->rad_port > 0) {
        fprintf(f,"[radegast]\n");
        fprintf_conf(f, CONFVARWIDTH, "port", "%d\n", cfg->rad_port);
        fprintf_conf(f, CONFVARWIDTH, "serverip", "%s\n", inet_ntoa(*(struct in_addr *)&cfg->rad_srvip));
        fprintf_conf(f, CONFVARWIDTH, "user", "%s\n", cfg->rad_usr);
        fprintf_conf(f, CONFVARWIDTH, "allowed", "");
        struct s_ip *cip;
        for (cip = cfg->rad_allowed; cip; cip = cip->next){
            fprintf(f,"%s%s", dot, inet_ntoa(*(struct in_addr *)&cip->ip[0]));
            if (cip->ip[0] == cip->ip[1])   fprintf(f,"-%s", inet_ntoa(*(struct in_addr *)&cip->ip[1]));
            dot=",";
        }
        fprintf(f,"\n\n");
    }

#ifdef CS_WITH_GBOX
    /*Gbox*/
    if ((cfg->gbox_pwd[0] > 0) || (cfg->gbox_pwd[1] > 0) || (cfg->gbox_pwd[2] > 0) || (cfg->gbox_pwd[3] > 0)){
        fprintf(f,"[gbox]\n");
        fprintf_conf(f, CONFVARWIDTH, "password", ""); for (i=0;i<4;i++) fprintf(f,"%02X", cfg->gbox_pwd[i]); fputc((int)'\n', f);;
        fprintf_conf(f, CONFVARWIDTH, "maxdist", "%d\n", cfg->maxdist);
        fprintf_conf(f, CONFVARWIDTH, "ignorelist", "%s\n", cfg->ignorefile);
        fprintf_conf(f, CONFVARWIDTH, "onlineinfos", "%s\n", cfg->gbxShareOnl);
        fprintf_conf(f, CONFVARWIDTH, "cardinfos", "%s\n", cfg->cardfile);
        fprintf_conf(f, CONFVARWIDTH, "locals", "");
        char *dot = "";
        for (i = 0; i < cfg->num_locals; i++){
            fprintf(f,"%s%06lX", dot, cfg->locals[i]);
            dot=";";
        }
        fprintf(f,"\n\n");
    }
#endif

    /*serial*/


    /*cccam placeholder*/

#ifdef HAVE_DVBAPI
    /*dvb-api*/
    if (cfg->dvbapi_enabled > 0) {
        fprintf(f,"[dvbapi]\n");
        fprintf_conf(f, CONFVARWIDTH, "enabled", "%d\n", cfg->dvbapi_enabled);
        fprintf_conf(f, CONFVARWIDTH, "au", "%d\n", cfg->dvbapi_au);
        fprintf_conf(f, CONFVARWIDTH, "boxtype", "%s\n", cfg->dvbapi_boxtype);
        fprintf_conf(f, CONFVARWIDTH, "user", "%s\n", cfg->dvbapi_usr);
        fputc((int)'\n', f);
    }
#endif

#ifdef CS_ANTICASC
    if (cfg->ac_enabled > 0){
        fprintf_conf(f, CONFVARWIDTH, "enabled", "%d\n", cfg->ac_enabled);
        fprintf_conf(f, CONFVARWIDTH, "numusers", "%d\n", cfg->ac_users);
        fprintf_conf(f, CONFVARWIDTH, "sampletime", "%d\n", cfg->ac_stime);
        fprintf_conf(f, CONFVARWIDTH, "samples", "%d\n", cfg->ac_samples);
        fprintf_conf(f, CONFVARWIDTH, "penalty", "%d\n", cfg->ac_penalty);
        fprintf_conf(f, CONFVARWIDTH, "aclogfile", "%s\n", cfg->ac_logfile);
        fprintf_conf(f, CONFVARWIDTH, "denysamples", "%d\n", cfg->ac_denysamples);
        fprintf_conf(f, CONFVARWIDTH, "fakedelay", "%d\n", cfg->ac_fakedelay);
        fputc((int)'\n', f);
    }
#endif

    fclose(f);

    return(safe_overwrite_with_bak(destfile, tmpfile, bakfile, 0));
}

int write_userdb()
{
    int i;
    FILE *f;
    struct s_auth *account;
    char *dot = ""; //flag for comma
    char tmpfile[256];
    char destfile[256];
    char bakfile[256];

    snprintf(destfile, 255,"%s%s", cs_confdir, cs_user);
    snprintf(tmpfile, 255, "%s%s.tmp", cs_confdir, cs_user);
    snprintf(bakfile, 255,"%s%s.bak", cs_confdir, cs_user);

  if (!(f=fopen(tmpfile, "w"))){
    cs_log("Cannot open file \"%s\" (errno=%d)", tmpfile, errno);
    return(1);
  }
  fprintf(f,"#oscam.user generated automatically\n\n");

  //each account
    for (account=cfg->account; (account) ; account=account->next){
        fprintf(f,"[account]\n");
        fprintf_conf(f, CONFVARWIDTH, "user", "%s\n", account->usr);
        fprintf_conf(f, CONFVARWIDTH, "pwd", "%s\n", account->pwd);
        struct tm * timeinfo = localtime (&account->expirationdate);
        char buf [80];
        strftime (buf,80,"%Y-%m-%d",timeinfo);
        if(strcmp(buf,"1970-01-01"))
            fprintf_conf(f, CONFVARWIDTH, "expdate", "%s\n", buf);
        else
            fprintf_conf(f, CONFVARWIDTH, "expdate", "\n");

        //group
        char *value = mk_t_group((long*)account->grp);
        fprintf_conf(f, CONFVARWIDTH, "group", "%s\n", value);
        free(value);

        fprintf_conf(f, CONFVARWIDTH, "hostname", "%s\n", account->dyndns);
        fprintf_conf(f, CONFVARWIDTH, "uniq", "%d\n", account->uniq);
        fprintf_conf(f, CONFVARWIDTH, "sleep", "%d\n", account->tosleep);
        fprintf_conf(f, CONFVARWIDTH, "monlevel", "%d\n", account->monlvl);

        if (account->au > -1)
            if (account->au < CS_MAXREADER)
                fprintf_conf(f, CONFVARWIDTH, "au", "%s\n", reader[account->au].label);
        if (account->autoau == 1) fprintf_conf(f, CONFVARWIDTH, "au", "1\n");

        fprintf_conf(f, CONFVARWIDTH, "services", "");
        char sidok[33]; long2bitchar(account->sidtabok,sidok);
        char sidno[33]; long2bitchar(account->sidtabno,sidno);
        struct s_sidtab *sidtab = cfg->sidtab;
        i=0; dot = "";
        for (; sidtab; sidtab=sidtab->next){
            if(sidok[i]=='1')   {fprintf(f,"%s%s", dot, sidtab->label); dot = ",";}
            if(sidno[i]=='1') {fprintf(f,"%s!%s", dot, sidtab->label); dot = ",";}
            i++;
        }
        fputc((int)'\n', f);

        //CAID
        value = mk_t_caidtab(&account->ctab);
        fprintf_conf(f, CONFVARWIDTH, "caid", "%s\n", value);
        free(value);

        //betatunnel
        value = mk_t_tuntab(&account->ttab);
        fprintf_conf(f, CONFVARWIDTH, "betatunnel", "%s\n", value);
        free(value);

        //ident
        value = mk_t_ftab(&account->ftab);
        fprintf_conf(f, CONFVARWIDTH, "ident", "%s\n", value);
        free(value);

#ifdef CS_ANTICASC
        fprintf_conf(f, CONFVARWIDTH, "numusers", "%d\n", account->ac_users);
        fprintf_conf(f, CONFVARWIDTH, "penalty", "%d\n", account->ac_penalty);
#endif
        fputc((int)'\n', f);
    }
  fclose(f);

  return(safe_overwrite_with_bak(destfile, tmpfile, bakfile, 0));
}

int init_userdb()
{
  int tag=0, nr, nro, expired;
  //int first=1;
  FILE *fp;
  char *value;
  struct s_auth *ptr;
  /*static */struct s_auth *account=(struct s_auth *)0;

  sprintf(token, "%s%s", cs_confdir, cs_user);
  if (!(fp=fopen(token, "r")))
  {
    cs_log("Cannot open file \"%s\" (errno=%d)", token, errno);
    return(1);
  }
  for (nro=0, ptr=cfg->account; ptr; nro++)
  {
    struct s_auth *ptr_next;
    ptr_next=ptr->next;
    free(ptr);
    ptr=ptr_next;
  }
  nr=0;
  while (fgets(token, sizeof(token), fp))
  {
    int i, l;
    void *ptr;
    if ((l=strlen(trim(token)))<3) continue;
    if ((token[0]=='[') && (token[l-1]==']'))
    {
      token[l-1]=0;
      tag=(!strcmp("account", strtolower(token+1)));
      if (!(ptr=malloc(sizeof(struct s_auth))))
      {
        cs_log("Error allocating memory (errno=%d)", errno);
        return(1);
      }
      if (account)
        account->next=ptr;
      else
        cfg->account=ptr;
      account=ptr;
      memset(account, 0, sizeof(struct s_auth));
      account->au=(-1);
      account->monlvl=cfg->mon_level;
      account->tosleep=cfg->tosleep;
      for (i=1; i<CS_MAXCAIDTAB; account->ctab.mask[i++]=0xffff);
      for (i=1; i<CS_MAXTUNTAB; account->ttab.bt_srvid[i++]=0x0000);
      nr++;
#ifdef CS_ANTICASC
      account->ac_users=cfg->ac_users;
      account->ac_penalty=cfg->ac_penalty;
      account->ac_idx = nr;
#endif
      continue;
    }
    if (!tag) continue;
    if (!(value=strchr(token, '='))) continue;
    *value++='\0';
    chk_account(trim(strtolower(token)), trim(value), account);
  }
  fclose(fp);

  for (expired=0, ptr=cfg->account; ptr;)
  {
    if(ptr->expirationdate && ptr->expirationdate<time(NULL)) expired++;
    ptr=ptr->next;
  }

  cs_log("userdb reloaded: %d accounts freed, %d accounts loaded, %d expired", nro, nr, expired);
  return(0);
}

static void chk_entry4sidtab(char *value, struct s_sidtab *sidtab, int what)
{
  int i, b;
  char *ptr;
  ushort *slist=(ushort *) 0;
  ulong *llist=(ulong *) 0;
  ulong caid;
  char buf[strlen(value) + 1];
  strncpy(buf, value, sizeof(buf));
  b=(what==1) ? sizeof(ulong) : sizeof(ushort);
  for (i=0, ptr=strtok(value, ","); ptr; ptr=strtok(NULL, ","))
  {
    caid=a2i(ptr, b);
    if (!errno) i++;
  }
  //if (!i) return(0);
  if (b==sizeof(ushort))
    slist=malloc(i*sizeof(ushort));
  else
    llist=malloc(i*sizeof(ulong));
  strcpy(value, buf);
  for (i=0, ptr=strtok(value, ","); ptr; ptr=strtok(NULL, ","))
  {
    caid=a2i(ptr, b);
    if (errno) continue;
    if (b==sizeof(ushort))
      slist[i++]=(ushort) caid;
    else
      llist[i++]=caid;
  }
  switch (what)
  {
    case 0: sidtab->caid=slist;
            sidtab->num_caid=i;
            break;
    case 1: sidtab->provid=llist;
            sidtab->num_provid=i;
            break;
    case 2: sidtab->srvid=slist;
            sidtab->num_srvid=i;
            break;
  }
}

void chk_sidtab(char *token, char *value, struct s_sidtab *sidtab)
{
  if (!strcmp(token, "caid")) { chk_entry4sidtab(value, sidtab, 0); return; }
  if (!strcmp(token, "provid")) { chk_entry4sidtab(value, sidtab, 1); return; }
  if (!strcmp(token, "ident")) { chk_entry4sidtab(value, sidtab, 1); return; }
  if (!strcmp(token, "srvid")) { chk_entry4sidtab(value, sidtab, 2); return; }
  if (token[0] != '#')
    fprintf(stderr, "Warning: keyword '%s' in sidtab section not recognized\n",token);
}

int init_sidtab()
{
  int nr, nro;
  FILE *fp;
  char *value;
  struct s_sidtab *ptr;
  struct s_sidtab *sidtab=(struct s_sidtab *)0;

  sprintf(token, "%s%s", cs_confdir, cs_sidt);
  if (!(fp=fopen(token, "r")))
  {
    cs_log("Cannot open file \"%s\" (errno=%d)", token, errno);
    return(1);
  }
  for (nro=0, ptr=cfg->sidtab; ptr; nro++)
  {
    struct s_sidtab *ptr_next;
    ptr_next=ptr->next;
    if (ptr->caid) free(ptr->caid);
    if (ptr->provid) free(ptr->provid);
    if (ptr->srvid) free(ptr->srvid);
    free(ptr);
    ptr=ptr_next;
  }
  nr=0;
  while (fgets(token, sizeof(token), fp))
  {
    int l;
    void *ptr;
    if ((l=strlen(trim(token)))<3) continue;
    if ((token[0]=='[') && (token[l-1]==']'))
    {
      token[l-1]=0;
      if (!(ptr=malloc(sizeof(struct s_sidtab))))
      {
        cs_log("Error allocating memory (errno=%d)", errno);
        return(1);
      }
      if (sidtab)
        sidtab->next=ptr;
      else
        cfg->sidtab=ptr;
      sidtab=ptr;
      nr++;
      memset(sidtab, 0, sizeof(struct s_sidtab));
      strncpy(sidtab->label, strtolower(token+1), sizeof(sidtab->label));
      continue;
    }
    if (!sidtab) continue;
    if (!(value=strchr(token, '='))) continue;
    *value++='\0';
    chk_sidtab(trim(strtolower(token)), trim(strtolower(value)), sidtab);
  }
  fclose(fp);

#ifdef DEBUG_SIDTAB
  show_sidtab(cfg->sidtab);
#endif
  cs_log("services reloaded: %d services freed, %d services loaded", nro, nr);
  return(0);
}

int init_srvid()
{
  int nr;
  FILE *fp;
  char *value;
  static struct s_srvid *srvid=(struct s_srvid *)0;

  sprintf(token, "%s%s", cs_confdir, cs_srid);
  if (!(fp=fopen(token, "r")))
  {
    cs_log("can't open file \"%s\" (err=%d), no service-id's loaded",
           token, errno);
    return(0);
  }
  nr=0;
  while (fgets(token, sizeof(token), fp))
  {
    int l;
    void *ptr;
    if ((l=strlen(trim(token)))<6) continue;
    if (!(value=strchr(token, ':'))) continue;
    *value++='\0';
    if (strlen(token)!=4) continue;
    if (!(ptr=malloc(sizeof(struct s_srvid))))
    {
      cs_log("Error allocating memory (errno=%d)", errno);
      return(1);
    }
    if (srvid)
      srvid->next=ptr;
    else
      cfg->srvid=ptr;
    srvid=ptr;
    memset(srvid, 0, sizeof(struct s_srvid));
    srvid->srvid=word_atob(token);
    strncpy(srvid->name, value, sizeof(srvid->name)-1);
    nr++;
  }
  fclose(fp);
  cs_log("%d service-id's loaded", nr);
  return(0);
}

static void chk_reader(char *token, char *value, struct s_reader *rdr)
{
  int i;
  char *ptr;
  /*
   *  case sensitive first
   */
  if (!strcmp(token, "device"))
  {
    for (i=0, ptr=strtok(value, ","); (i<3)&&(ptr); ptr=strtok(NULL, ","), i++)
    {
      trim(ptr);
      switch(i)
      {
        case 0: strncpy(rdr->device, ptr, sizeof(rdr->device)-1); break;
        case 1: rdr->r_port=atoi(ptr); break;
        case 2: rdr->l_port=atoi(ptr); break;
      }
    }
    return;
  }
  if (!strcmp(token, "key"))
  {
    if (key_atob14(value, rdr->ncd_key))
    {
      fprintf(stderr, "Configuration newcamd: Error in Key\n");
      exit(1);
    }
    return;
  }
#ifdef CS_WITH_GBOX
  if (!strcmp(token, "password")) { strncpy((char *)rdr->gbox_pwd, (const char *)i2b(4, a2i(value, 4)), 4); return; }
  if (!strcmp(token, "premium")) { rdr->gbox_prem=1; return; }
#endif
  if (!strcmp(token, "account"))
  {
    for (i=0, ptr=strtok(value, ","); (i<2)&&(ptr); ptr=strtok(NULL, ","), i++)
    {
      trim(ptr);
      switch(i)
      {
        case 0: strncpy(rdr->r_usr, ptr, sizeof(rdr->r_usr)-1); break;
        case 1: strncpy(rdr->r_pwd, ptr, sizeof(rdr->r_pwd)-1); break;
      }
    }
    return;
  }
  if( !strcmp(token, "pincode")) { strncpy(rdr->pincode, value, sizeof(rdr->pincode)-1); return; }
  if (!strcmp(token, "readnano")) { strncpy((char *)rdr->emmfile, value, sizeof(rdr->emmfile)-1); return; }
  /*
   *  case insensitive
   */
  strtolower(value);

  if (!strcmp(token, "services")) { chk_services(value, &rdr->sidtabok, &rdr->sidtabno); return; }
  if (!strcmp(token, "inactivitytimeout")) {   rdr->tcp_ito = atoi(value);  return; }
  if (!strcmp(token, "reconnecttimeout")) {    rdr->tcp_rto = atoi(value);  return; }
  if (!strcmp(token, "disableserverfilter")) { rdr->ncd_disable_server_filt = atoi(value);  return; }

  if (!strcmp(token, "label")) { strncpy(rdr->label, value, sizeof(rdr->label)-1); return; }
  if (!strcmp(token, "fallback")) { rdr->fallback=atoi(value) ? 1 : 0; return; }
  if (!strcmp(token, "logport")) { rdr->log_port=atoi(value); return; }
  if (!strcmp(token, "caid")) { chk_caidtab(value, &rdr->ctab); return; }
  if (!strcmp(token, "boxid")) { rdr->boxid=a2i(value,4); return; }
  if (!strcmp(token, "aeskey"))
  {
    if (key_atob(value, rdr->aes_key))
    {
      fprintf(stderr, "Configuration reader: Error in AES Key\n");
      exit(1);
    }
    return;
  }
  if (!strcmp(token, "n3_rsakey"))
  {
    rdr->nagra_native=1;
    if (key_atob_l(value, rdr->rsa_mod, 128))
    {
      fprintf(stderr, "Configuration reader: Error in n3_rsakey\n");
      exit(1);
    }
    return;
  }
  if (!strcmp(token, "tiger_rsakey"))
  {
    rdr->nagra_native=1;
    if (key_atob_l(value, rdr->rsa_mod, 240))
    {
      fprintf(stderr, "Configuration reader: Error in tiger_rsakey\n");
      exit(1);
    }
    return;
  }
  if (!strcmp(token, "n3_boxkey"))
  {
    if (key_atob_l(value, rdr->nagra_boxkey, 16))
    {
      fprintf(stderr, "Configuration reader: Error in Nagra Boxkey\n");
      exit(1);
    }
    return;
  }
  if (!strcmp(token, "tiger_ideakey"))
  {
    if (key_atob_l(value, rdr->nagra_boxkey, 32))
    {
      fprintf(stderr, "Configuration reader: Error in Nagra Boxkey\n");
      exit(1);
    }
    return;
  }
  if (!strcmp(token, "detect"))
  {
    for (i=0; RDR_CD_TXT[i]; i++)
    {
      if (!strcmp(value, RDR_CD_TXT[i]))
        rdr->detect=i;
      else
        if ((value[0]=='!') && (!strcmp(value+1, RDR_CD_TXT[i])))
          rdr->detect=i|0x80;
    }
    return;
  }
  if (!strcmp(token, "mhz")) { rdr->mhz=atoi(value); return; }
  if (!strcmp(token, "cardmhz")) { rdr->cardmhz=atoi(value); return; }
  if (!strcmp(token, "protocol"))
  {
    if (!strcmp(value, "mouse")) {      rdr->typ=R_MOUSE; return; }
    if (!strcmp(value, "smartreader")) {      rdr->typ=R_SMART; return; }
    if (!strcmp(value, "internal")) {   rdr->typ=R_INTERNAL; return; }
#ifdef HAVE_PCSC
    if (!strcmp(value, "pcsc")) {   rdr->typ=R_PCSC; return; }
#endif
    if (!strcmp(value, "serial")) {     rdr->typ=R_SERIAL; return; }
    if (!strcmp(value, "camd35")) {     rdr->typ=R_CAMD35; return; }
    if (!strcmp(value, "cs378x")) {     rdr->typ=R_CS378X; return; }
    if (!strcmp(value, "cs357x")) {     rdr->typ=R_CAMD35; return; }
    if (!strcmp(value, "gbox")) {       rdr->typ=R_GBOX; return; }
    if (!strcmp(value, "cccam")) {
      rdr->typ=R_CCCAM;
     // strcpy(value, "1");
     // chk_caidtab(value, &rdr->ctab); // this is a MAJOR hack for auto multiple caid support (not currently working due to ncd table issue)
      return;
    }
    if (!strcmp(value, "radegast")) {       rdr->typ=R_RADEGAST; return; }
    if (!strcmp(value, "newcamd") ||
        !strcmp(value, "newcamd525")) {rdr->typ=R_NEWCAMD;
                                       rdr->ncd_proto=NCD_525; return; }
    if (!strcmp(value, "newcamd524")) {rdr->typ=R_NEWCAMD;
                                       rdr->ncd_proto=NCD_524; return; }
    fprintf(stderr, "WARNING: value '%s' in protocol-line not recognized, assuming MOUSE\n",value);
    rdr->typ=R_MOUSE;
    return;
  }
  if (!strcmp(token, "ident")) { chk_ftab(value, &rdr->ftab,"reader",rdr->label,"provid"); return; }
  if (!strcmp(token, "class")) { chk_cltab(value, &rdr->cltab); return; }
  if (!strcmp(token, "chid")) {  chk_ftab(value, &rdr->fchid,"reader",rdr->label,"chid"); return; }
  if (!strcmp(token, "showcls")) { rdr->show_cls = atoi(value); return; }
  if (!strcmp(token, "maxqlen"))
  {
    rdr->maxqlen = atoi(value);
    if( rdr->maxqlen<0 || rdr->maxqlen>CS_MAXQLEN )
      rdr->maxqlen=CS_MAXQLEN;
    return;
  }
  if (!strcmp(token, "group"))
  {
    for (ptr=strtok(value, ","); ptr; ptr=strtok(NULL, ","))
    {
      int g;
      g=atoi(ptr);
      if ((g>0) && (g<33)) rdr->grp|=(1<<(g-1));
    }
    return;
  }
  if (!strcmp(token, "emmcache"))
  {
    for (i=0, ptr=strtok(value, ","); (i<3)&&(ptr); ptr=strtok(NULL, ","), i++)
      switch(i)
      {
        case 0: rdr->cachemm=atoi(ptr);   break;
        case 1: rdr->rewritemm=atoi(ptr); break;
        case 2: rdr->logemm=atoi(ptr);    break;
      }
    if (rdr->rewritemm <=0) {
      fprintf(stderr, "Notice: Setting EMMCACHE to %i,1,%i instead of %i,%i,%i. Zero or negative number of rewrites is silly\n", rdr->cachemm,rdr->logemm,rdr->cachemm,rdr->rewritemm,rdr->logemm);
      rdr->rewritemm = 1;
    }
    return;
  }

  if (!strcmp(token, "blocknano"))
  {
    if (!strcmp(value,"all")) //wildcard is used
      for (i=0 ; i<256; i++)
  rdr->b_nano[i] |= 0x01; //set all lsb's to block all nanos
    else
      for (ptr=strtok(value, ","); ptr; ptr=strtok(NULL, ","))
  if ((i=byte_atob(ptr))>=0)
    rdr->b_nano[i]|= 0x01; //lsb is set when to block nano
    return;
  }
  if (!strcmp(token, "savenano"))
  {
    if (!strcmp(value,"all")) //wildcard is used
      for (i=0 ; i<256; i++)
  rdr->b_nano[i] |= 0x02; //set all lsb+1 to save all nanos to file
    else
      for (ptr=strtok(value, ","); ptr; ptr=strtok(NULL, ","))
  if ((i=byte_atob(ptr))>=0)
    rdr->b_nano[i]|= 0x02; //lsb+1 is set when to save nano to file
    return;
  }
  if (!strcmp(token, "cccversion")) {  // cccam version
    if (strlen(value)>sizeof(rdr->cc_version)-1) {
      fprintf(stderr, "cccam config: version too long\n");
      exit(1);
    }
    bzero(rdr->cc_version, sizeof(rdr->cc_version));
    strncpy(rdr->cc_version, value, sizeof(rdr->cc_version)-1);
    return;
  }
  if (!strcmp(token, "cccbuild")) {  // cccam build number
    if (strlen(value)>sizeof(rdr->cc_build)-1) {
      fprintf(stderr, "cccam config build number too long\n");
      exit(1);
    }
    bzero(rdr->cc_build, sizeof(rdr->cc_build));
    strncpy(rdr->cc_build, value, sizeof(rdr->cc_build)-1);
    return;
  }
  if (!strcmp(token, "cccmaxhop")) {  // cccam max card distance
    rdr->cc_maxhop = atoi(value);
    return;
  }
  if (token[0] != '#')
    fprintf(stderr, "Warning: keyword '%s' in reader section not recognized\n",token);
}

int init_readerdb()
{
  int tag=0, nr;
  FILE *fp;
  char *value;

  sprintf(token, "%s%s", cs_confdir, cs_srvr);
  if (!(fp=fopen(token, "r")))
  {
    cs_log("can't open file \"%s\" (errno=%d)\n", token, errno);
    return(1);
  }
  nr=0;
  while (fgets(token, sizeof(token), fp))
  {
    int i, l;
    if ((l=strlen(trim(token)))<3) continue;
    if ((token[0]=='[') && (token[l-1]==']'))
    {
      token[l-1]=0;
      tag=(!strcmp("reader", strtolower(token+1)));
      if (reader[nr].label[0] && reader[nr].typ) nr++;
      memset(&reader[nr], 0, sizeof(struct s_reader));
      reader[nr].tcp_rto = 30;
      reader[nr].show_cls = 10;
      reader[nr].maxqlen = CS_MAXQLEN;
      reader[nr].mhz = 357;
      reader[nr].cardmhz = 357;
      strcpy(reader[nr].pincode, "none");
      for (i=1; i<CS_MAXCAIDTAB; reader[nr].ctab.mask[i++]=0xffff);
      continue;
    }
    if (!tag) continue;
    if (!(value=strchr(token, '='))) continue;
    *value++='\0';
    chk_reader(trim(strtolower(token)), trim(value), &reader[nr]);
  }
  fclose(fp);
  return(0);
}

/*
int init_irdeto_guess_tab()
{
  int i, j, skip;
  int b47;
  FILE *fp;
  char token[128], *value, *ptr;
  char zSid[5];
  uchar b3;
  ushort caid, sid;
  struct s_irdeto_quess *ird_row, *head;

  memset(cfg->itab, 0, sizeof(cfg->itab));
  sprintf(token, "%s%s", cs_confdir, cs_ird);
  if (!(fp=fopen(token, "r")))
  {
    cs_log("can't open file \"%s\" (errno=%d) irdeto guessing not loaded",
           token, errno);
    return(1);
  }
  while (fgets(token, sizeof(token), fp))
  {
    if( strlen(token)<20 ) continue;
    for( i=b3=b47=caid=sid=skip=0, ptr=strtok(token, ":"); (i<4)&&(ptr); ptr=strtok(NULL, ":"), i++ )
    {
      trim(ptr);
      if( *ptr==';' || *ptr=='#' || *ptr=='-' ) {
        skip=1;
        break;
      }
      switch(i)
      {
        case 0: b3   = a2i(ptr, 2); break;
        case 1: b47  = a2i(ptr, 8); break;
        case 2: caid = a2i(ptr, 4); break;
        case 3:
          for( j=0; j<4; j++ )
            zSid[j]=ptr[j];
          zSid[4]=0;
          sid  = a2i(zSid, 4);
          break;
      }
    }
    if( !skip )
    {
      if (!(ird_row=(struct s_irdeto_quess*)malloc(sizeof(struct s_irdeto_quess))))
      {
        cs_log("Error allocating memory (errno=%d)", errno);
        return;
      }
      ird_row->b47  = b47;
      ird_row->caid = caid;
      ird_row->sid  = sid;
      ird_row->next = 0;

      head = cfg->itab[b3];
      if( head ) {
        while( head->next )
          head=head->next;
        head->next=ird_row;
      }
      else
        cfg->itab[b3]=ird_row;

      //cs_debug("%02X:%08X:%04X:%04X", b3, b47, caid, sid);
    }
  }
  fclose(fp);

  for( i=0; i<0xff; i++ )
  {
    head=cfg->itab[i];
    while(head)
    {
      cs_debug("itab[%02X]: b47=%08X, caid=%04X, sid=%04X",
               i, head->b47, head->caid, head->sid);
      head=head->next;
    }
  }
  return(0);
}
*/

#ifdef CS_ANTICASC
void init_ac()
{
  int nr;
  FILE *fp;
  //char *value;

  sprintf(token, "%s%s", cs_confdir, cs_ac);
  if (!(fp=fopen(token, "r")))
  {
    cs_log("can't open file \"%s\" (errno=%d) anti-cascading table not loaded",
            token, errno);
    return;
  }

  for(nr=0; fgets(token, sizeof(token), fp);)
  {
    int i, skip;
    ushort caid, sid, chid, dwtime;
    ulong  provid;
    char *ptr, *ptr1;
    struct s_cpmap *ptr_cpmap;
    static struct s_cpmap *cpmap=(struct s_cpmap *)0;

    if( strlen(token)<4 ) continue;

    caid=sid=chid=dwtime=0;
    provid=0;
    skip=0;
    ptr1=0;
    for( i=0, ptr=strtok(token, "="); (i<2)&&(ptr); ptr=strtok(NULL, "="), i++ )
    {
      trim(ptr);
      if( *ptr==';' || *ptr=='#' || *ptr=='-' ) {
        skip=1;
        break;
      }
      switch( i )
      {
        case 0:
          ptr1=ptr;
          break;
        case 1:
          dwtime = atoi(ptr);
          break;
      }
    }

    if( !skip )
    {
      for( i=0, ptr=strtok(ptr1, ":"); (i<4)&&(ptr); ptr=strtok(NULL, ":"), i++ )
      {
        trim(ptr);
        switch( i )
        {
        case 0:
          if( *ptr=='*' ) caid = 0;
          else caid = a2i(ptr, 4);
          break;
        case 1:
          if( *ptr=='*' ) provid = 0;
          else provid = a2i(ptr, 6);
          break;
        case 2:
          if( *ptr=='*' ) sid = 0;
          else sid = a2i(ptr, 4);
          break;
        case 3:
          if( *ptr=='*' ) chid = 0;
          else chid = a2i(ptr, 4);
          break;
        }
      }
      if (!(ptr_cpmap=(struct s_cpmap*)malloc(sizeof(struct s_cpmap))))
      {
        cs_log("Error allocating memory (errno=%d)", errno);
        return;
      }
      if( cpmap )
        cpmap->next=ptr_cpmap;
      else
        cfg->cpmap=ptr_cpmap;
      cpmap=ptr_cpmap;

      cpmap->caid   = caid;
      cpmap->provid = provid;
      cpmap->sid    = sid;
      cpmap->chid   = chid;
      cpmap->dwtime = dwtime;
      cpmap->next   = 0;

      cs_debug("nr=%d, caid=%04X, provid=%06X, sid=%04X, chid=%04X, dwtime=%d",
                nr, caid, provid, sid, chid, dwtime);
      nr++;
    }
  }
  fclose(fp);
  //cs_log("%d lengths for caid guessing loaded", nr);
  return;
}
#endif

/*
 * makes a char ready to write a token into config or webIf
 */
char *mk_t_caidtab(CAIDTAB *ctab){
    int i = 0, needed = 1, pos = 0;
    while(ctab->caid[i]){
        if(ctab->mask[i]) needed += 10;
        else needed += 5;
        if(ctab->cmap[i]) needed += 5;
        ++i;
    }
    char *value = (char *) malloc(needed * sizeof(char));
    i = 0;
    while(ctab->caid[i]) {
        if(i == 0) {
            sprintf(value + pos, "%04X", ctab->caid[i]);
            pos += 4;
        } else {
            sprintf(value + pos, ",%04X", ctab->caid[i]);
            pos += 5;
        }
        if(ctab->mask[i]){
            sprintf(value + pos, "&%04X", ctab->mask[i]);
            pos += 5;
        }
        if(ctab->cmap[i]){
            sprintf(value + pos, ":%04X", ctab->cmap[i]);
            pos += 5;
        }
        ++i;
    }
    value[pos] = '\0';
    return value;
}

/*
 * makes a char ready to write a token into config or webIf
 */
char *mk_t_tuntab(TUNTAB *ttab){
    int i = 0, needed = 1, pos = 0;
    while(ttab->bt_caidfrom[i]){
        if(ttab->bt_srvid[i]) needed += 10;
        else needed += 5;
        if(ttab->bt_caidto[i]) needed += 5;
        ++i;
    }
    char *value = (char *) malloc(needed * sizeof(char));
    i = 0;
    while(ttab->bt_caidfrom[i]) {
        if(i == 0) {
            sprintf(value + pos, "%04X", ttab->bt_caidfrom[i]);
            pos += 4;
        } else {
            sprintf(value + pos, ",%04X", ttab->bt_caidfrom[i]);
            pos += 5;
        }
        if(ttab->bt_srvid[i]){
            sprintf(value + pos, ".%04X", ttab->bt_srvid[i]);
            pos += 5;
        }
        if(ttab->bt_caidto[i]){
            sprintf(value + pos, ":%04X", ttab->bt_caidto[i]);
            pos += 5;
        }
        ++i;
    }
    value[pos] = '\0';
    return value;
}

/*
 * makes a char ready to write a token into config or webIf
 */
char *mk_t_group(ulong *grp){
    int i = 0, needed = 1, pos = 0, dot = 0;
    char grpbit[33];
    long2bitchar((long) grp, grpbit);

    for(i = 0; i < 32; i++){
        if (grpbit[i] == '1'){
            needed += 2;
            if(i > 9) needed += 1;
        }
    }
    char *value = (char *) malloc(needed * sizeof(char));

    for(i = 0; i < 32; i++){
        if (grpbit[i] == '1'){
            if (dot == 0){
                sprintf(value + pos, "%d", i+1);
                if (i > 9)pos += 2;
                else pos += 1;
                dot = 1;
            } else {
                sprintf(value + pos, ",%d", i+1);
                if (i > 9)pos += 3;
                else pos += 2;
            }
        }
    }
    value[pos] = '\0';
    return value;
}

/*
 * makes a char ready to write a token into config or webIf
 */
char *mk_t_ftab(FTAB *ftab){
    int i = 0, j = 0, needed = 1, pos = 0;

    needed = ftab->nfilts * 5;
    for (i = 0; i < ftab->nfilts; ++i)
        needed += ftab->filts[i].nprids * 7;

    char *value = (char *) malloc(needed * sizeof(char));

    char *dot="";
    for (i = 0; i < ftab->nfilts; ++i){
        sprintf(value + pos, "%s%04X", dot, ftab->filts[i].caid);
        pos += 4;
        if (i > 0) pos += 1;
        dot=":";
        for (j = 0; j < ftab->filts[i].nprids; ++j) {
            sprintf(value + pos, "%s%06lX", dot, ftab->filts[i].prids[j]);
            pos += 7;
            dot=",";
        }
        dot=";";
    }

    value[pos] = '\0';
    return value;
}