oscam-conf.c

   1 #define MODULE_LOG_PREFIX "config"
   2
   3 #include "globals.h"
   4 #include "oscam-conf.h"
   5 #include "oscam-config.h"
   6 #include "oscam-files.h"
   7 #include "oscam-garbage.h"
   8 #include "oscam-string.h"
   9
  10 #define CONFVARWIDTH 30
  11
  12 /* Returns the default value if string length is zero, otherwise atoi is called*/
  13 int32_t strToIntVal(char *value, int32_t defaultvalue)
  14 {
  15         if(strlen(value) == 0) { return defaultvalue; }
  16         errno = 0; // errno should be set to 0 before calling strtol
  17         int32_t i = strtol(value, NULL, 10);
  18         return (errno == 0) ? i : defaultvalue;
  19 }
  20
  21 /* Returns the default value if string length is zero, otherwise strtoul is called*/
  22 uint32_t strToUIntVal(char *value, uint32_t defaultvalue)
  23 {
  24         if(strlen(value) == 0) { return defaultvalue; }
  25         errno = 0; // errno should be set to 0 before calling strtoul
  26         uint32_t i = strtoul(value, NULL, 10);
  27         return (errno == 0) ? i : defaultvalue;
  28 }
  29
  30 /* Replacement of fprintf which adds necessary whitespace to fill up the varname to a fixed width.
  31   If varname is longer than CONFVARWIDTH, no whitespace is added*/
  32 void fprintf_conf(FILE *f, const char *varname, const char *fmtstring, ...)
  33 {
  34         int32_t varlen = strlen(varname);
  35         int32_t max = (varlen > CONFVARWIDTH) ? varlen : CONFVARWIDTH;
  36         char varnamebuf[max + 3];
  37         char *ptr = varnamebuf + varlen;
  38         va_list argptr;
  39
  40         cs_strncpy(varnamebuf, varname, sizeof(varnamebuf));
  41         while(varlen < CONFVARWIDTH)
  42         {
  43                 ptr[0] = ' ';
  44                 ++ptr;
  45                 ++varlen;
  46         }
  47         cs_strncpy(ptr, "= ", sizeof(varnamebuf) - (ptr - varnamebuf));
  48         if(fwrite(varnamebuf, sizeof(char), strlen(varnamebuf), f))
  49         {
  50                 if(strlen(fmtstring) > 0)
  51                 {
  52                         va_start(argptr, fmtstring);
  53                         vfprintf(f, fmtstring, argptr);
  54                         va_end(argptr);
  55                 }
  56         }
  57 }
  58
  59 int config_list_parse(const struct config_list *clist, const char *token, char *value, void *config_data)
  60 {
  61         const struct config_list *c;
  62         for(c = clist; c->opt_type != OPT_UNKNOWN; c++)
  63         {
  64                 if(c->opt_type == OPT_SAVE_FUNC || c->opt_type == OPT_FIXUP_FUNC)
  65                         { continue; }
  66                 if(strcasecmp(token, c->config_name) != 0)
  67                         { continue; }
  68                 void *var = config_data + c->var_offset;
  69                 switch(c->opt_type)
  70                 {
  71                 case OPT_INT8:
  72                 {
  73                         *(int8_t *)var = (int8_t)strToIntVal(value, c->def.d_int8);
  74                         return 1;
  75                 }
  76                 case OPT_UINT8:
  77                 {
  78                         uint32_t tmp = strToUIntVal(value, c->def.d_uint8);
  79                         *(uint8_t *)var = (uint8_t)(tmp <= 0xff ? tmp : 0xff);
  80                         return 1;
  81                 }
  82                 case OPT_INT32:
  83                 {
  84                         int32_t tmp = strToIntVal(value, c->def.d_int32);
  85                         memcpy(var, &tmp, sizeof(int32_t));
  86                         return 1;
  87                 }
  88                 case OPT_UINT32:
  89                 {
  90                         uint32_t tmp = strToUIntVal(value, c->def.d_uint32);
  91                         memcpy(var, &tmp, sizeof(uint32_t));
  92                         return 1;
  93                 }
  94                 case OPT_STRING:
  95                 {
  96                         char **scfg = var;
  97                         if(c->def.d_char && strlen(value) == 0)  // Set default
  98                                 { value = c->def.d_char; }
  99                         NULLFREE(*scfg);
 100                         if(strlen(value))
 101                                 { *scfg = cs_strdup(value); }
 102                         return 1;
 103                 }
 104                 case OPT_SSTRING:
 105                 {
 106                         char *scfg = var;
 107                         if(c->def.d_char && strlen(value) == 0)  // Set default
 108                                 { value = c->def.d_char; }
 109                         scfg[0] = '\0';
 110                         unsigned int len = strlen(value);
 111                         if(len)
 112                         {
 113                                 cs_strncpy(scfg, value, c->str_size);
 114                                 if(len > c->str_size)
 115                                 {
 116                                         fprintf(stderr, "WARNING: Config value for '%s' (%s, len=%u) exceeds max length: %d (%s)\n",
 117                                                         token, value, len, c->str_size - 1, scfg);
 118                                 }
 119                         }
 120                         return 1;
 121                 }
 122                 case OPT_HEX_ARRAY:
 123                 {
 124                         uint8_t *hex_array = var;
 125                         if(!strlen(value))
 126                                 { memset(hex_array, 0, c->def.array_size); }
 127                         else if(key_atob_l(value, hex_array, c->def.array_size * 2))
 128                         {
 129                                 memset(hex_array, 0, c->def.array_size);
 130                                 fprintf(stderr, "WARNING: Config value for '%s' (%s, len=%zu) requires %d chars.\n",
 131                                                 token, value, strlen(value), c->def.array_size * 2);
 132                         }
 133                         return 1;
 134                 }
 135                 case OPT_FUNC:
 136                 {
 137                         c->ops.process_fn(token, value, var, NULL);
 138                         return 1;
 139                 }
 140                 case OPT_FUNC_EXTRA:
 141                 {
 142                         c->ops.process_fn_extra(token, value, var, c->def.d_extra, NULL);
 143                         return 1;
 144                 }
 145                 case OPT_FIXUP_FUNC:
 146                 case OPT_SAVE_FUNC:
 147                         return 1;
 148                 case OPT_UNKNOWN:
 149                 {
 150                         fprintf(stderr, "Unknown config type (%s = %s).", token, value);
 151                         break;
 152                 }
 153                 }
 154         }
 155         return 0;
 156 }
 157
 158 void config_list_save_ex(FILE *f, const struct config_list *clist, void *config_data, int save_all,
 159                                                  bool (*check_func)(const struct config_list *clist, void *config_data, const char *setting))
 160 {
 161         const struct config_list *c;
 162         for(c = clist; c->opt_type != OPT_UNKNOWN; c++)
 163         {
 164                 void *var = config_data + c->var_offset;
 165                 if(check_func && c->opt_type != OPT_UNKNOWN)
 166                 {
 167                         if(!check_func(clist, config_data, c->config_name))
 168                                 { continue; }
 169                 }
 170                 switch(c->opt_type)
 171                 {
 172                 case OPT_INT8:
 173                 {
 174                         int8_t val = *(int8_t *)var;
 175
 176                         // always save pmt_mode, because external tools parse it
 177                         if(save_all || val != c->def.d_int8 || !strcmp(c->config_name, "pmt_mode"))
 178                                 { fprintf_conf(f, c->config_name, "%d\n", val); }
 179                         continue;
 180                 }
 181                 case OPT_UINT8:
 182                 {
 183                         uint8_t val = *(uint8_t *)var;
 184                         if(save_all || val != c->def.d_uint8)
 185                                 { fprintf_conf(f, c->config_name, "%u\n", val); }
 186                         continue;
 187                 }
 188                 case OPT_INT32:
 189                 {
 190                         int32_t val;
 191                         memcpy(&val, var, sizeof(int32_t));
 192                         if(save_all || val != c->def.d_int32)
 193                                 { fprintf_conf(f, c->config_name, "%d\n", val); }
 194                         continue;
 195                 }
 196                 case OPT_UINT32:
 197                 {
 198                         uint32_t val;
 199                         memcpy(&val, var, sizeof(uint32_t));
 200                         if(save_all || val != c->def.d_uint32)
 201                                 { fprintf_conf(f, c->config_name, "%u\n", val); }
 202                         continue;
 203                 }
 204                 case OPT_STRING:
 205                 {
 206                         char **val = var;
 207                         if(save_all || !streq(*val, c->def.d_char))
 208                         {
 209                                 fprintf_conf(f, c->config_name, "%s\n", *val ? *val : "");
 210                         }
 211                         continue;
 212                 }
 213                 case OPT_SSTRING:
 214                 {
 215                         char *val = var;
 216                         if(save_all || !streq(val, c->def.d_char))
 217                         {
 218                                 fprintf_conf(f, c->config_name, "%s\n", val[0] ? val : "");
 219                         }
 220                         continue;
 221                 }
 222                 case OPT_HEX_ARRAY:
 223                 {
 224                         uint8_t *hex_array = var;
 225                         uint32_t ok = array_has_nonzero_byte(hex_array, c->def.array_size);
 226                         if(save_all || ok)
 227                         {
 228                                 fprintf_conf(f, c->config_name, "%s", ""); // it should not have \n at the end
 229                                 if(ok)
 230                                 {
 231                                         for(ok = 0; ok < c->def.array_size; ok++)
 232                                         {
 233                                                 fprintf(f, "%02X", hex_array[ok]);
 234                                         }
 235                                 }
 236                                 fprintf(f, "\n");
 237                         }
 238                         continue;
 239                 }
 240                 case OPT_FUNC:
 241                 {
 242                         c->ops.process_fn((const char *)c->config_name, NULL, var, f);
 243                         continue;
 244                 }
 245                 case OPT_FUNC_EXTRA:
 246                 {
 247                         c->ops.process_fn_extra((const char *)c->config_name, NULL, var, c->def.d_extra, f);
 248                         continue;
 249                 }
 250                 case OPT_FIXUP_FUNC:
 251                 case OPT_SAVE_FUNC:
 252                         continue;
 253                 case OPT_UNKNOWN:
 254                         break;
 255                 }
 256         }
 257 }
 258
 259 bool config_list_should_be_saved(const struct config_list *clist, void *var)
 260 {
 261         const struct config_list *c;
 262         for(c = clist; c->opt_type != OPT_UNKNOWN; c++)
 263         {
 264                 if(c->opt_type == OPT_SAVE_FUNC)
 265                 {
 266                         return c->ops.should_save_fn(var);
 267                 }
 268         }
 269         return true;
 270 }
 271
 272 void config_list_apply_fixups(const struct config_list *clist, void *var)
 273 {
 274         const struct config_list *c;
 275         for(c = clist; c->opt_type != OPT_UNKNOWN; c++)
 276         {
 277                 if(c->opt_type == OPT_FIXUP_FUNC)
 278                 {
 279                         c->ops.fixup_fn(var);
 280                         break;
 281                 }
 282         }
 283 }
 284
 285 void config_list_set_defaults(const struct config_list *clist, void *config_data)
 286 {
 287         const struct config_list *c;
 288         for(c = clist; c->opt_type != OPT_UNKNOWN; c++)
 289         {
 290                 void *var = config_data + c->var_offset;
 291                 switch(c->opt_type)
 292                 {
 293                 case OPT_INT8:
 294                 {
 295                         *(int8_t *)var = c->def.d_int8;
 296                         break;
 297                 }
 298                 case OPT_UINT8:
 299                 {
 300                         *(uint8_t *)var = c->def.d_uint8;
 301                         break;
 302                 }
 303                 case OPT_INT32:
 304                 {
 305                         memcpy(var, &c->def.d_int32, sizeof(int32_t));
 306                         break;
 307                 }
 308                 case OPT_UINT32:
 309                 {
 310                         memcpy(var, &c->def.d_uint32, sizeof(uint32_t));
 311                         break;
 312                 }
 313                 case OPT_STRING:
 314                 {
 315                         char **scfg = var;
 316                         NULLFREE(*scfg);
 317                         if(c->def.d_char)
 318                                 { *scfg = cs_strdup(c->def.d_char); }
 319                         break;
 320                 }
 321                 case OPT_SSTRING:
 322                 {
 323                         char *scfg = var;
 324                         scfg[0] = '\0';
 325                         if(c->def.d_char && strlen(c->def.d_char))
 326                                 { cs_strncpy(scfg, c->def.d_char, c->str_size); }
 327                         break;
 328                 }
 329                 case OPT_HEX_ARRAY:
 330                 {
 331                         uint8_t *hex_array = var;
 332                         memset(hex_array, 0, c->def.array_size);
 333                         break;
 334                 }
 335                 case OPT_FUNC:
 336                 {
 337                         c->ops.process_fn((const char *)c->config_name, "", var, NULL);
 338                         break;
 339                 }
 340                 case OPT_FUNC_EXTRA:
 341                 {
 342                         c->ops.process_fn_extra((const char *)c->config_name, "", var, c->def.d_extra, NULL);
 343                         break;
 344                 }
 345                 case OPT_SAVE_FUNC:
 346                 case OPT_FIXUP_FUNC:
 347                 case OPT_UNKNOWN:
 348                         continue;
 349                 }
 350         }
 351         return;
 352 }
 353
 354 void config_list_free_values(const struct config_list *clist, void *config_data)
 355 {
 356         const struct config_list *c;
 357         for(c = clist; c->opt_type != OPT_UNKNOWN; c++)
 358         {
 359                 void *var = config_data + c->var_offset;
 360                 if(c->opt_type == OPT_STRING)
 361                 {
 362                         char **scfg = var;
 363                         NULLFREE(*scfg);
 364                 }
 365                 if(c->free_value && (c->opt_type == OPT_FUNC || c->opt_type == OPT_FUNC_EXTRA))
 366                 {
 367                         c->free_value(var);
 368                 }
 369         }
 370         return;
 371 }
 372
 373 void config_list_gc_values(const struct config_list *clist, void *config_data)
 374 {
 375         const struct config_list *c;
 376         for(c = clist; c->opt_type != OPT_UNKNOWN; c++)
 377         {
 378                 void *var = config_data + c->var_offset;
 379                 if(c->opt_type == OPT_STRING)
 380                 {
 381                         char **scfg = var;
 382                         add_garbage(*scfg);
 383                 }
 384         }
 385         return;
 386 }
 387
 388 int config_section_is_active(const struct config_sections *sec)
 389 {
 390         if(!sec)
 391                 { return 0; }
 392         if(sec->config[0].opt_type == OPT_UNKNOWN)
 393                 { return 0; }
 394         return 1;
 395 }
 396
 397 const struct config_sections *config_find_section(const struct config_sections *conf, char *section_name)
 398 {
 399         const struct config_sections *sec;
 400         for(sec = conf; sec && sec->section; sec++)
 401         {
 402                 if(streq(section_name, sec->section))
 403                 {
 404                         return sec;
 405                 }
 406         }
 407         return NULL;
 408 }
 409
 410 void config_sections_save(const struct config_sections *conf, FILE *f, void *var)
 411 {
 412         const struct config_sections *sec;
 413         for(sec = conf; sec && sec->section; sec++)
 414         {
 415                 if(config_section_is_active(sec) && config_list_should_be_saved(sec->config, var))
 416                 {
 417                         fprintf(f, "[%s]\n", sec->section);
 418                         config_list_apply_fixups(sec->config, var);
 419                         config_list_save(f, sec->config, var, cfg.http_full_cfg);
 420                         fprintf(f, "\n");
 421                 }
 422         }
 423 }
 424
 425 void config_sections_set_defaults(const struct config_sections *conf, void *var)
 426 {
 427         const struct config_sections *sec;
 428         for(sec = conf; sec && sec->section; sec++)
 429         {
 430                 if(config_section_is_active(sec))
 431                         { config_list_set_defaults(sec->config, var); }
 432         }
 433 }
 434
 435 void config_sections_free(const struct config_sections *conf, void *var)
 436 {
 437         const struct config_sections *sec;
 438         for(sec = conf; sec && sec->section; sec++)
 439         {
 440                 if(config_section_is_active(sec))
 441                 {
 442                         config_list_free_values(sec->config, var);
 443                 }
 444         }
 445 }
 446
 447 void config_set_value(const struct config_sections *conf, char *section, const char *token, char *value, void *var)
 448 {
 449         const struct config_sections *sec = config_find_section(conf, section);
 450         if(!sec)
 451         {
 452                 fprintf(stderr, "WARNING: Unknown section '%s'.\n", section);
 453                 return;
 454         }
 455         if(config_section_is_active(sec))
 456         {
 457                 if(!config_list_parse(sec->config, token, value, var))
 458                 {
 459                         fprintf(stderr, "WARNING: In section [%s] unknown setting '%s=%s' tried.\n",
 460                                         section, token, value);
 461                 }
 462         }
 463         else
 464         {
 465                 fprintf(stderr, "WARNING: Section is not active '%s'.\n", section);
 466         }
 467 }
 468
 469 static FILE *__open_config_file(const char *conf_filename, bool die_on_err)
 470 {
 471         char filename[256];
 472         FILE *f = fopen(get_config_filename(filename, sizeof(filename), conf_filename), "r");
 473         if(!f)
 474         {
 475                 if(die_on_err)
 476                 {
 477                         fprintf(stderr, "ERROR: Cannot open file \"%s\" (errno=%d %s)", filename, errno, strerror(errno));
 478                         fprintf(stderr, "\n");
 479                         exit(1);
 480                 }
 481                 else
 482                 {
 483                         cs_log_dbg(D_TRACE, "INFO: Cannot open file \"%s\" (errno=%d %s)", filename, errno, strerror(errno));
 484                 }
 485                 return NULL;
 486         }
 487         return f;
 488 }
 489
 490 FILE *open_config_file(const char *conf_filename)
 491 {
 492         return __open_config_file(conf_filename, false);
 493 }
 494
 495 FILE *open_config_file_or_die(const char *conf_filename)
 496 {
 497         return __open_config_file(conf_filename, true);
 498 }
 499
 500
 501 FILE *create_config_file(const char *conf_filename)
 502 {
 503         char temp_file[256];
 504         get_config_filename(temp_file, sizeof(temp_file), conf_filename);
 505         strncat(temp_file, ".tmp", sizeof(temp_file) - strlen(temp_file) - 1);
 506         FILE *f = fopen(temp_file, "w");
 507         if(!f)
 508         {
 509                 cs_log("ERROR: Cannot create file \"%s\" (errno=%d %s)", temp_file, errno, strerror(errno));
 510                 return NULL;
 511         }
 512         fprintf(f, "# %s generated automatically by Streamboard OSCAM %s SVN r%s\n",
 513                         conf_filename, CS_VERSION, CS_SVN_VERSION);
 514         fprintf(f, "# Read more: http://www.streamboard.tv/svn/oscam/trunk/Distribution/doc/txt/%s.txt\n\n",
 515                         conf_filename);
 516         return f;
 517 }
 518
 519 bool flush_config_file(FILE *f, const char *conf_filename)
 520 {
 521         char dst_file[256], tmp_file[256], bak_file[256];
 522         get_config_filename(dst_file, sizeof(dst_file), conf_filename);
 523         memcpy(tmp_file, dst_file, sizeof(tmp_file));
 524         memcpy(bak_file, dst_file, sizeof(bak_file));
 525         strncat(tmp_file, ".tmp", sizeof(tmp_file) - strlen(tmp_file) - 1);
 526         strncat(bak_file, ".bak", sizeof(bak_file) - strlen(bak_file) - 1);
 527         if(f)
 528         {
 529                 fclose(f);
 530         }
 531         return safe_overwrite_with_bak(dst_file, tmp_file, bak_file, cfg.http_overwrite_bak_file);
 532 }