src/rrd_create.c

   1 /*****************************************************************************
   2  * RRDtool 1.2.9  Copyright by Tobi Oetiker, 1997-2005
   3  *****************************************************************************
   4  * rrd_create.c  creates new rrds
   5  *****************************************************************************/
   6
   7 #include "rrd_tool.h"
   8 #include "rrd_rpncalc.h"
   9 #include "rrd_hw.h"
  10
  11 #include "rrd_is_thread_safe.h"
  12
  13 unsigned long FnvHash(char *str);
  14 int create_hw_contingent_rras(rrd_t *rrd, unsigned short period, unsigned long hashed_name);
  15 void parseGENERIC_DS(char *def,rrd_t *rrd, int ds_idx);
  16
  17 int
  18 rrd_create(int argc, char **argv)
  19 {
  20     time_t            last_up = time(NULL)-10;
  21     unsigned long     pdp_step = 300;
  22     struct rrd_time_value last_up_tv;
  23     char *parsetime_error = NULL;
  24     long              long_tmp;
  25     int               rc;
  26     optind = 0; opterr = 0;  /* initialize getopt */
  27
  28     while (1){
  29         static struct option long_options[] =
  30         {
  31             {"start",      required_argument, 0, 'b'},
  32             {"step",        required_argument,0,'s'},
  33             {0,0,0,0}
  34         };
  35         int option_index = 0;
  36         int opt;
  37         opt = getopt_long(argc, argv, "b:s:",
  38                           long_options, &option_index);
  39
  40         if (opt == EOF)
  41             break;
  42
  43         switch(opt) {
  44         case 'b':
  45             if ((parsetime_error = parsetime(optarg, &last_up_tv))) {
  46                 rrd_set_error("start time: %s", parsetime_error );
  47                 return(-1);
  48             }
  49             if (last_up_tv.type == RELATIVE_TO_END_TIME ||
  50                 last_up_tv.type == RELATIVE_TO_START_TIME) {
  51                 rrd_set_error("specifying time relative to the 'start' "
  52                               "or 'end' makes no sense here");
  53                 return(-1);
  54             }
  55
  56             last_up = mktime(&last_up_tv.tm) + last_up_tv.offset;
  57
  58             if (last_up < 3600*24*365*10){
  59                 rrd_set_error("the first entry to the RRD should be after 1980");
  60                 return(-1);
  61             }
  62             break;
  63
  64         case 's':
  65             long_tmp = atol(optarg);
  66             if (long_tmp < 1){
  67                 rrd_set_error("step size should be no less than one second");
  68                 return(-1);
  69             }
  70             pdp_step = long_tmp;
  71             break;
  72
  73         case '?':
  74             if (optopt != 0)
  75                 rrd_set_error("unknown option '%c'", optopt);
  76             else
  77                 rrd_set_error("unknown option '%s'",argv[optind-1]);
  78             return(-1);
  79         }
  80     }
  81
  82     rc = rrd_create_r(argv[optind],
  83                       pdp_step, last_up,
  84                       argc - optind - 1, argv + optind + 1);
  85
  86     return rc;
  87 }
  88
  89 /* #define DEBUG */
  90 int
  91 rrd_create_r(char *filename,
  92              unsigned long pdp_step, time_t last_up,
  93              int argc, char **argv)
  94 {
  95     rrd_t             rrd;
  96     long              i;
  97     int               offset;
  98     char *token;
  99     unsigned short dummychar1,dummychar2;
 100     unsigned short token_idx, error_flag, period=0;
 101     unsigned long hashed_name;
 102
 103     /* init rrd clean */
 104     rrd_init(&rrd);
 105     /* static header */
 106     if((rrd.stat_head = calloc(1,sizeof(stat_head_t)))==NULL){
 107         rrd_set_error("allocating rrd.stat_head");
 108         rrd_free(&rrd);
 109         return(-1);
 110     }
 111
 112     /* live header */
 113     if((rrd.live_head = calloc(1,sizeof(live_head_t)))==NULL){
 114         rrd_set_error("allocating rrd.live_head");
 115         rrd_free(&rrd);
 116         return(-1);
 117     }
 118
 119     /* set some defaults */
 120     strcpy(rrd.stat_head->cookie,RRD_COOKIE);
 121     strcpy(rrd.stat_head->version,RRD_VERSION);
 122     rrd.stat_head->float_cookie = FLOAT_COOKIE;
 123     rrd.stat_head->ds_cnt = 0; /* this will be adjusted later */
 124     rrd.stat_head->rra_cnt = 0; /* ditto */
 125     rrd.stat_head->pdp_step = pdp_step; /* 5 minute default */
 126
 127     /* a default value */
 128     rrd.ds_def = NULL;
 129     rrd.rra_def = NULL;
 130
 131     rrd.live_head->last_up = last_up;
 132
 133         /* optind points to the first non-option command line arg,
 134          * in this case, the file name. */
 135         /* Compute the FNV hash value (used by SEASONAL and DEVSEASONAL
 136          * arrays. */
 137     hashed_name = FnvHash(filename);
 138     for(i=0;i<argc;i++){
 139         unsigned int ii;
 140         if (strncmp(argv[i],"DS:",3)==0){
 141             size_t old_size = sizeof(ds_def_t)*(rrd.stat_head->ds_cnt);
 142             if((rrd.ds_def = rrd_realloc(rrd.ds_def,
 143                                          old_size+sizeof(ds_def_t)))==NULL){
 144                 rrd_set_error("allocating rrd.ds_def");
 145                 rrd_free(&rrd);
 146                 return(-1);
 147             }
 148             memset(&rrd.ds_def[rrd.stat_head->ds_cnt], 0, sizeof(ds_def_t));
 149             /* extract the name and type */
 150             switch (sscanf(&argv[i][3],
 151                         DS_NAM_FMT "%1[:]" DST_FMT "%1[:]%n",
 152                         rrd.ds_def[rrd.stat_head->ds_cnt].ds_nam,
 153                         &dummychar1,
 154                         rrd.ds_def[rrd.stat_head->ds_cnt].dst,
 155                         &dummychar2,
 156                         &offset)) {
 157                 case 0:
 158                 case 1: rrd_set_error("Invalid DS name"); break;
 159                 case 2:
 160                 case 3: rrd_set_error("Invalid DS type"); break;
 161                 case 4: /* (%n may or may not be counted) */
 162                 case 5: /* check for duplicate datasource names */
 163                     for (ii=0;ii<rrd.stat_head->ds_cnt;ii++)
 164                         if(strcmp(rrd.ds_def[rrd.stat_head->ds_cnt].ds_nam,
 165                                 rrd.ds_def[ii].ds_nam) == 0)
 166                             rrd_set_error("Duplicate DS name: %s",
 167                                         rrd.ds_def[ii].ds_nam);
 168                     /* DS_type may be valid or not. Checked later */
 169                     break;
 170                 default: rrd_set_error("invalid DS format");
 171             }
 172             if (rrd_test_error()) {
 173                 rrd_free(&rrd);
 174                 return -1;
 175             }
 176
 177             /* parse the remainder of the arguments */
 178             switch(dst_conv(rrd.ds_def[rrd.stat_head->ds_cnt].dst))
 179             {
 180             case DST_COUNTER:
 181             case DST_ABSOLUTE:
 182             case DST_GAUGE:
 183             case DST_DERIVE:
 184                 parseGENERIC_DS(&argv[i][offset+3],&rrd, rrd.stat_head->ds_cnt);
 185                 break;
 186             case DST_CDEF:
 187                 parseCDEF_DS(&argv[i][offset+3],&rrd, rrd.stat_head->ds_cnt);
 188                 break;
 189             default:
 190                 rrd_set_error("invalid DS type specified");
 191                 break;
 192             }
 193
 194             if (rrd_test_error()) {
 195                 rrd_free(&rrd);
 196                 return -1;
 197             }
 198             rrd.stat_head -> ds_cnt++;
 199         } else if (strncmp(argv[i],"RRA:",4)==0){
 200             char *argvcopy;
 201             char *tokptr;
 202             size_t old_size = sizeof(rra_def_t)*(rrd.stat_head->rra_cnt);
 203             if((rrd.rra_def = rrd_realloc(rrd.rra_def,
 204                                           old_size+sizeof(rra_def_t)))==NULL)
 205             {
 206                 rrd_set_error("allocating rrd.rra_def");
 207                 rrd_free(&rrd);
 208                 return(-1);
 209             }
 210             memset(&rrd.rra_def[rrd.stat_head->rra_cnt], 0, sizeof(rra_def_t));
 211
 212             argvcopy = strdup(argv[i]);
 213             token = strtok_r(&argvcopy[4],":", &tokptr);
 214             token_idx = error_flag = 0;
 215             while (token != NULL)
 216             {
 217                 switch(token_idx)
 218                 {
 219                 case 0:
 220                     if (sscanf(token,CF_NAM_FMT,
 221                                rrd.rra_def[rrd.stat_head->rra_cnt].cf_nam) != 1)
 222                         rrd_set_error("Failed to parse CF name");
 223                     switch(cf_conv(rrd.rra_def[rrd.stat_head->rra_cnt].cf_nam))
 224                     {
 225                     case CF_HWPREDICT:
 226                         /* initialize some parameters */
 227                         rrd.rra_def[rrd.stat_head->rra_cnt].par[RRA_hw_alpha].u_val = 0.1;
 228                         rrd.rra_def[rrd.stat_head->rra_cnt].par[RRA_hw_beta].u_val = 1.0/288;
 229                         rrd.rra_def[rrd.stat_head->rra_cnt].par[RRA_dependent_rra_idx].u_cnt =
 230                             rrd.stat_head -> rra_cnt;
 231                         break;
 232                     case CF_DEVSEASONAL:
 233                     case CF_SEASONAL:
 234                         /* initialize some parameters */
 235                         rrd.rra_def[rrd.stat_head->rra_cnt].par[RRA_seasonal_gamma].u_val = 0.1;
 236                         /* fall through */
 237                     case CF_DEVPREDICT:
 238                         rrd.rra_def[rrd.stat_head->rra_cnt].par[RRA_dependent_rra_idx].u_cnt = -1;
 239                         break;
 240                     case CF_FAILURES:
 241                         rrd.rra_def[rrd.stat_head->rra_cnt].par[RRA_delta_pos].u_val = 2.0;
 242                         rrd.rra_def[rrd.stat_head->rra_cnt].par[RRA_delta_neg].u_val = 2.0;
 243                         rrd.rra_def[rrd.stat_head->rra_cnt].par[RRA_window_len].u_cnt = 3;
 244                         rrd.rra_def[rrd.stat_head->rra_cnt].par[RRA_failure_threshold].u_cnt = 2;
 245                         rrd.rra_def[rrd.stat_head->rra_cnt].par[RRA_dependent_rra_idx].u_cnt = -1;
 246                         break;
 247                         /* invalid consolidation function */
 248                     case -1:
 249                         rrd_set_error("Unrecognized consolidation function %s",
 250                                       rrd.rra_def[rrd.stat_head->rra_cnt].cf_nam);
 251                     default:
 252                         break;
 253                     }
 254                     /* default: 1 pdp per cdp */
 255                     rrd.rra_def[rrd.stat_head->rra_cnt].pdp_cnt = 1;
 256                     break;
 257                 case 1:
 258                     switch(cf_conv(rrd.rra_def[rrd.stat_head->rra_cnt].cf_nam))
 259                     {
 260                     case CF_HWPREDICT:
 261                     case CF_DEVSEASONAL:
 262                     case CF_SEASONAL:
 263                     case CF_DEVPREDICT:
 264                     case CF_FAILURES:
 265                         rrd.rra_def[rrd.stat_head->rra_cnt].row_cnt = atoi(token);
 266                         break;
 267                     default:
 268                         rrd.rra_def[rrd.stat_head->rra_cnt].par[RRA_cdp_xff_val].u_val = atof(token);
 269                         if (rrd.rra_def[rrd.stat_head->rra_cnt].par[RRA_cdp_xff_val].u_val<0.0 ||
 270                             rrd.rra_def[rrd.stat_head->rra_cnt].par[RRA_cdp_xff_val].u_val>=1.0)
 271                             rrd_set_error("Invalid xff: must be between 0 and 1");
 272                         break;
 273                     }
 274                     break;
 275                 case 2:
 276                     switch(cf_conv(rrd.rra_def[rrd.stat_head->rra_cnt].cf_nam))
 277                     {
 278                     case CF_HWPREDICT:
 279                         rrd.rra_def[rrd.stat_head->rra_cnt].par[RRA_hw_alpha].u_val = atof(token);
 280                         if (atof(token) <= 0.0 || atof(token) >= 1.0)
 281                             rrd_set_error("Invalid alpha: must be between 0 and 1");
 282                         break;
 283                     case CF_DEVSEASONAL:
 284                     case CF_SEASONAL:
 285                         rrd.rra_def[rrd.stat_head->rra_cnt].par[RRA_seasonal_gamma].u_val =
 286                             atof(token);
 287                         if (atof(token) <= 0.0 || atof(token) >= 1.0)
 288                             rrd_set_error("Invalid gamma: must be between 0 and 1");
 289                         rrd.rra_def[rrd.stat_head->rra_cnt].par[RRA_seasonal_smooth_idx].u_cnt
 290                             = hashed_name % rrd.rra_def[rrd.stat_head->rra_cnt].row_cnt;
 291                         break;
 292                     case CF_FAILURES:
 293                         /* specifies the # of violations that constitutes the failure threshold */
 294                         rrd.rra_def[rrd.stat_head->rra_cnt].par[RRA_failure_threshold].u_cnt =
 295                             atoi(token);
 296                         if (atoi(token) < 1 || atoi(token) > MAX_FAILURES_WINDOW_LEN)
 297                             rrd_set_error("Failure threshold is out of range %d, %d",1,
 298                                           MAX_FAILURES_WINDOW_LEN);
 299                         break;
 300                     case CF_DEVPREDICT:
 301                         /* specifies the index (1-based) of CF_DEVSEASONAL array
 302                          * associated with this CF_DEVPREDICT array. */
 303                         rrd.rra_def[rrd.stat_head->rra_cnt].par[RRA_dependent_rra_idx].u_cnt =
 304                             atoi(token) - 1;
 305                         break;
 306                     default:
 307                         rrd.rra_def[rrd.stat_head->rra_cnt].pdp_cnt = atoi(token);
 308                         break;
 309                     }
 310                     break;
 311                 case 3:
 312                     switch(cf_conv(rrd.rra_def[rrd.stat_head->rra_cnt].cf_nam))
 313                     {
 314                     case CF_HWPREDICT:
 315                         rrd.rra_def[rrd.stat_head->rra_cnt].par[RRA_hw_beta].u_val = atof(token);
 316                         if (atof(token) < 0.0 || atof(token) > 1.0)
 317                             rrd_set_error("Invalid beta: must be between 0 and 1");
 318                         break;
 319                     case CF_DEVSEASONAL:
 320                     case CF_SEASONAL:
 321                         /* specifies the index (1-based) of CF_HWPREDICT array
 322                          * associated with this CF_DEVSEASONAL or CF_SEASONAL array.
 323                          * */
 324                         rrd.rra_def[rrd.stat_head->rra_cnt].par[RRA_dependent_rra_idx].u_cnt =
 325                             atoi(token) - 1;
 326                         break;
 327                     case CF_FAILURES:
 328                         /* specifies the window length */
 329                         rrd.rra_def[rrd.stat_head->rra_cnt].par[RRA_window_len].u_cnt =
 330                             atoi(token);
 331                         if (atoi(token) < 1 || atoi(token) > MAX_FAILURES_WINDOW_LEN)
 332                             rrd_set_error("Window length is out of range %d, %d",1,
 333                                           MAX_FAILURES_WINDOW_LEN);
 334                         /* verify that window length exceeds the failure threshold */
 335                         if (rrd.rra_def[rrd.stat_head->rra_cnt].par[RRA_window_len].u_cnt <
 336                             rrd.rra_def[rrd.stat_head->rra_cnt].par[RRA_failure_threshold].u_cnt)
 337                             rrd_set_error("Window length is shorter than the failure threshold");
 338                         break;
 339                     case CF_DEVPREDICT:
 340                         /* shouldn't be any more arguments */
 341                         rrd_set_error("Unexpected extra argument for consolidation function DEVPREDICT");
 342                         break;
 343                     default:
 344                         rrd.rra_def[rrd.stat_head->rra_cnt].row_cnt = atoi(token);
 345                         break;
 346                     }
 347                     break;
 348                 case 4:
 349                     switch(cf_conv(rrd.rra_def[rrd.stat_head->rra_cnt].cf_nam))
 350                     {
 351                     case CF_FAILURES:
 352                         /* specifies the index (1-based) of CF_DEVSEASONAL array
 353                          * associated with this CF_DEVFAILURES array. */
 354                         rrd.rra_def[rrd.stat_head->rra_cnt].par[RRA_dependent_rra_idx].u_cnt =
 355                             atoi(token) - 1;
 356                         break;
 357                     case CF_HWPREDICT:
 358                         /* length of the associated CF_SEASONAL and CF_DEVSEASONAL arrays. */
 359                         period = atoi(token);
 360                         if (period > rrd.rra_def[rrd.stat_head->rra_cnt].row_cnt)
 361                             rrd_set_error("Length of seasonal cycle exceeds length of HW prediction array");
 362                         break;
 363                     default:
 364                         /* shouldn't be any more arguments */
 365                         rrd_set_error("Unexpected extra argument for consolidation function %s",
 366                                       rrd.rra_def[rrd.stat_head->rra_cnt].cf_nam);
 367                         break;
 368                     }
 369                     break;
 370                 case 5:
 371                     /* If we are here, this must be a CF_HWPREDICT RRA.
 372                      * Specifies the index (1-based) of CF_SEASONAL array
 373                      * associated with this CF_HWPREDICT array. If this argument
 374                      * is missing, then the CF_SEASONAL, CF_DEVSEASONAL, CF_DEVPREDICT,
 375                      * CF_FAILURES.
 376                      * arrays are created automatically. */
 377                     rrd.rra_def[rrd.stat_head->rra_cnt].par[RRA_dependent_rra_idx].u_cnt =
 378                         atoi(token) - 1;
 379                     break;
 380                 default:
 381                     /* should never get here */
 382                     rrd_set_error("Unknown error");
 383                     break;
 384                 } /* end switch */
 385                 if (rrd_test_error())
 386                 {
 387                     /* all errors are unrecoverable */
 388                     free(argvcopy);
 389                     rrd_free(&rrd);
 390                     return (-1);
 391                 }
 392                 token = strtok_r(NULL,":", &tokptr);
 393                 token_idx++;
 394             } /* end while */
 395             free(argvcopy);
 396 #ifdef DEBUG
 397             fprintf(stderr,"Creating RRA CF: %s, dep idx %lu, current idx %lu\n",
 398                     rrd.rra_def[rrd.stat_head->rra_cnt].cf_nam,
 399                     rrd.rra_def[rrd.stat_head->rra_cnt].par[RRA_dependent_rra_idx].u_cnt,
 400                     rrd.stat_head -> rra_cnt);
 401 #endif
 402             /* should we create CF_SEASONAL, CF_DEVSEASONAL, and CF_DEVPREDICT? */
 403             if (cf_conv(rrd.rra_def[rrd.stat_head->rra_cnt].cf_nam) == CF_HWPREDICT
 404                 && rrd.rra_def[rrd.stat_head->rra_cnt].par[RRA_dependent_rra_idx].u_cnt
 405                 == rrd.stat_head -> rra_cnt)
 406             {
 407 #ifdef DEBUG
 408                 fprintf(stderr,"Creating HW contingent RRAs\n");
 409 #endif
 410                 if (create_hw_contingent_rras(&rrd,period,hashed_name) == -1) {
 411                     rrd_set_error("creating contingent RRA");
 412                     rrd_free(&rrd);
 413                     return -1;
 414                 }
 415             }
 416             rrd.stat_head->rra_cnt++;
 417         } else {
 418             rrd_set_error("can't parse argument '%s'",argv[i]);
 419             rrd_free(&rrd);
 420             return -1;
 421         }
 422     }
 423
 424
 425     if (rrd.stat_head->rra_cnt < 1){
 426         rrd_set_error("you must define at least one Round Robin Archive");
 427         rrd_free(&rrd);
 428         return(-1);
 429     }
 430
 431     if (rrd.stat_head->ds_cnt < 1){
 432         rrd_set_error("you must define at least one Data Source");
 433         rrd_free(&rrd);
 434         return(-1);
 435     }
 436     return rrd_create_fn(filename, &rrd);
 437 }
 438
 439 void parseGENERIC_DS(char *def,rrd_t *rrd, int ds_idx)
 440 {
 441     char minstr[DS_NAM_SIZE], maxstr[DS_NAM_SIZE];
 442     /*
 443       int temp;
 444
 445       temp = sscanf(def,"%lu:%18[^:]:%18[^:]",
 446       &(rrd -> ds_def[ds_idx].par[DS_mrhb_cnt].u_cnt),
 447       minstr,maxstr);
 448     */
 449     if (sscanf(def,"%lu:%18[^:]:%18[^:]",
 450                &(rrd -> ds_def[ds_idx].par[DS_mrhb_cnt].u_cnt),
 451                minstr,maxstr) == 3)
 452     {
 453         if (minstr[0] == 'U' && minstr[1] == 0)
 454             rrd -> ds_def[ds_idx].par[DS_min_val].u_val = DNAN;
 455         else
 456             rrd -> ds_def[ds_idx].par[DS_min_val].u_val = atof(minstr);
 457
 458         if (maxstr[0] == 'U' && maxstr[1] == 0)
 459             rrd -> ds_def[ds_idx].par[DS_max_val].u_val = DNAN;
 460         else
 461             rrd -> ds_def[ds_idx].par[DS_max_val].u_val  = atof(maxstr);
 462
 463         if (! isnan(rrd -> ds_def[ds_idx].par[DS_min_val].u_val) &&
 464             ! isnan(rrd -> ds_def[ds_idx].par[DS_max_val].u_val) &&
 465             rrd -> ds_def[ds_idx].par[DS_min_val].u_val
 466             >= rrd -> ds_def[ds_idx].par[DS_max_val].u_val ) {
 467             rrd_set_error("min must be less than max in DS definition");
 468             return;
 469         }
 470     } else {
 471         rrd_set_error("failed to parse data source %s", def);
 472     }
 473 }
 474
 475 /* Create the CF_DEVPREDICT, CF_DEVSEASONAL, CF_SEASONAL, and CF_FAILURES RRAs
 476  * associated with a CF_HWPREDICT RRA. */
 477 int
 478 create_hw_contingent_rras(rrd_t *rrd, unsigned short period, unsigned long hashed_name)
 479 {
 480     size_t old_size;
 481     rra_def_t* current_rra;
 482
 483     /* save index to CF_HWPREDICT */
 484     unsigned long hw_index = rrd -> stat_head -> rra_cnt;
 485     /* advance the pointer */
 486     (rrd -> stat_head -> rra_cnt)++;
 487     /* allocate the memory for the 4 contingent RRAs */
 488     old_size = sizeof(rra_def_t)*(rrd -> stat_head->rra_cnt);
 489     if ((rrd -> rra_def = rrd_realloc(rrd -> rra_def,
 490                                       old_size+4*sizeof(rra_def_t)))==NULL)
 491     {
 492         rrd_set_error("allocating rrd.rra_def");
 493         return(-1);
 494     }
 495     /* clear memory */
 496     memset(&(rrd -> rra_def[rrd -> stat_head->rra_cnt]), 0, 4*sizeof(rra_def_t));
 497
 498     /* create the CF_SEASONAL RRA */
 499     current_rra = &(rrd -> rra_def[rrd -> stat_head -> rra_cnt]);
 500     strcpy(current_rra -> cf_nam,"SEASONAL");
 501     current_rra -> row_cnt = period;
 502     current_rra -> par[RRA_seasonal_smooth_idx].u_cnt = hashed_name % period;
 503     current_rra -> pdp_cnt = 1;
 504     current_rra -> par[RRA_seasonal_gamma].u_val =
 505         rrd -> rra_def[hw_index].par[RRA_hw_alpha].u_val;
 506     current_rra -> par[RRA_dependent_rra_idx].u_cnt = hw_index;
 507     rrd -> rra_def[hw_index].par[RRA_dependent_rra_idx].u_cnt = rrd -> stat_head -> rra_cnt;
 508
 509     /* create the CF_DEVSEASONAL RRA */
 510     (rrd -> stat_head -> rra_cnt)++;
 511     current_rra = &(rrd -> rra_def[rrd -> stat_head -> rra_cnt]);
 512     strcpy(current_rra -> cf_nam,"DEVSEASONAL");
 513     current_rra -> row_cnt = period;
 514     current_rra -> par[RRA_seasonal_smooth_idx].u_cnt = hashed_name % period;
 515     current_rra -> pdp_cnt = 1;
 516     current_rra -> par[RRA_seasonal_gamma].u_val =
 517         rrd -> rra_def[hw_index].par[RRA_hw_alpha].u_val;
 518     current_rra -> par[RRA_dependent_rra_idx].u_cnt = hw_index;
 519
 520     /* create the CF_DEVPREDICT RRA */
 521     (rrd -> stat_head -> rra_cnt)++;
 522     current_rra = &(rrd -> rra_def[rrd -> stat_head -> rra_cnt]);
 523     strcpy(current_rra -> cf_nam,"DEVPREDICT");
 524     current_rra -> row_cnt = (rrd -> rra_def[hw_index]).row_cnt;
 525     current_rra -> pdp_cnt = 1;
 526     current_rra -> par[RRA_dependent_rra_idx].u_cnt
 527         = hw_index + 2; /* DEVSEASONAL */
 528
 529     /* create the CF_FAILURES RRA */
 530     (rrd -> stat_head -> rra_cnt)++;
 531     current_rra = &(rrd -> rra_def[rrd -> stat_head -> rra_cnt]);
 532     strcpy(current_rra -> cf_nam,"FAILURES");
 533     current_rra -> row_cnt = period;
 534     current_rra -> pdp_cnt = 1;
 535     current_rra -> par[RRA_delta_pos].u_val = 2.0;
 536     current_rra -> par[RRA_delta_neg].u_val = 2.0;
 537     current_rra -> par[RRA_failure_threshold].u_cnt = 7;
 538     current_rra -> par[RRA_window_len].u_cnt = 9;
 539     current_rra -> par[RRA_dependent_rra_idx].u_cnt =
 540         hw_index + 2; /* DEVSEASONAL */
 541     return 0;
 542 }
 543
 544 /* create and empty rrd file according to the specs given */
 545
 546 int
 547 rrd_create_fn(char *file_name, rrd_t *rrd)
 548 {
 549     unsigned long    i,ii;
 550     FILE             *rrd_file;
 551     rrd_value_t      *unknown;
 552     int unkn_cnt;
 553
 554     if ((rrd_file = fopen(file_name,"wb")) == NULL ) {
 555         rrd_set_error("creating '%s': %s",file_name, rrd_strerror(errno));
 556         free(rrd->stat_head);
 557         free(rrd->ds_def);
 558         free(rrd->rra_def);
 559         return(-1);
 560     }
 561
 562     fwrite(rrd->stat_head,
 563            sizeof(stat_head_t), 1, rrd_file);
 564
 565     fwrite(rrd->ds_def,
 566            sizeof(ds_def_t), rrd->stat_head->ds_cnt, rrd_file);
 567
 568     fwrite(rrd->rra_def,
 569            sizeof(rra_def_t), rrd->stat_head->rra_cnt, rrd_file);
 570
 571     fwrite(rrd->live_head,
 572            sizeof(live_head_t),1, rrd_file);
 573
 574     if((rrd->pdp_prep = calloc(1,sizeof(pdp_prep_t))) == NULL){
 575         rrd_set_error("allocating pdp_prep");
 576         rrd_free(rrd);
 577         fclose(rrd_file);
 578         return(-1);
 579     }
 580
 581     strcpy(rrd->pdp_prep->last_ds,"UNKN");
 582
 583     rrd->pdp_prep->scratch[PDP_val].u_val = 0.0;
 584     rrd->pdp_prep->scratch[PDP_unkn_sec_cnt].u_cnt =
 585         rrd->live_head->last_up % rrd->stat_head->pdp_step;
 586
 587     for(i=0; i < rrd->stat_head->ds_cnt; i++)
 588         fwrite( rrd->pdp_prep,sizeof(pdp_prep_t),1,rrd_file);
 589
 590     if((rrd->cdp_prep = calloc(1,sizeof(cdp_prep_t))) == NULL){
 591         rrd_set_error("allocating cdp_prep");
 592         rrd_free(rrd);
 593         fclose(rrd_file);
 594         return(-1);
 595     }
 596
 597
 598     for(i=0; i < rrd->stat_head->rra_cnt; i++) {
 599        switch (cf_conv(rrd->rra_def[i].cf_nam))
 600            {
 601            case CF_HWPREDICT:
 602                init_hwpredict_cdp(rrd->cdp_prep);
 603                break;
 604            case CF_SEASONAL:
 605            case CF_DEVSEASONAL:
 606                init_seasonal_cdp(rrd->cdp_prep);
 607                break;
 608            case CF_FAILURES:
 609                /* initialize violation history to 0 */
 610                for (ii = 0; ii < MAX_CDP_PAR_EN; ii++)
 611                {
 612                                 /* We can zero everything out, by setting u_val to the
 613                                  * NULL address. Each array entry in scratch is 8 bytes
 614                                  * (a double), but u_cnt only accessed 4 bytes (long) */
 615                    rrd->cdp_prep->scratch[ii].u_val = 0.0;
 616                }
 617                break;
 618            default:
 619                /* can not be zero because we don't know anything ... */
 620                rrd->cdp_prep->scratch[CDP_val].u_val = DNAN;
 621                /* startup missing pdp count */
 622                rrd->cdp_prep->scratch[CDP_unkn_pdp_cnt].u_cnt =
 623                    ((rrd->live_head->last_up -
 624                  rrd->pdp_prep->scratch[PDP_unkn_sec_cnt].u_cnt)
 625                     % (rrd->stat_head->pdp_step
 626                        * rrd->rra_def[i].pdp_cnt)) / rrd->stat_head->pdp_step;
 627                break;
 628            }
 629
 630        for(ii=0; ii < rrd->stat_head->ds_cnt; ii++)
 631        {
 632            fwrite( rrd->cdp_prep,sizeof(cdp_prep_t),1,rrd_file);
 633        }
 634     }
 635
 636     /* now, we must make sure that the rest of the rrd
 637        struct is properly initialized */
 638
 639     if((rrd->rra_ptr = calloc(1,sizeof(rra_ptr_t))) == NULL) {
 640         rrd_set_error("allocating rra_ptr");
 641         rrd_free(rrd);
 642         fclose(rrd_file);
 643         return(-1);
 644     }
 645
 646     /* changed this initialization to be consistent with
 647      * rrd_restore. With the old value (0), the first update
 648      * would occur for cur_row = 1 because rrd_update increments
 649      * the pointer a priori. */
 650     for (i=0; i < rrd->stat_head->rra_cnt; i++)
 651     {
 652         rrd->rra_ptr->cur_row = rrd->rra_def[i].row_cnt - 1;
 653         fwrite( rrd->rra_ptr, sizeof(rra_ptr_t),1,rrd_file);
 654     }
 655
 656     /* write the empty data area */
 657     if ((unknown = (rrd_value_t *)malloc(512 * sizeof(rrd_value_t))) == NULL) {
 658         rrd_set_error("allocating unknown");
 659         rrd_free(rrd);
 660         fclose(rrd_file);
 661         return(-1);
 662     }
 663     for (i = 0; i < 512; ++i)
 664         unknown[i] = DNAN;
 665
 666     unkn_cnt = 0;
 667     for (i = 0; i < rrd->stat_head->rra_cnt; i++)
 668         unkn_cnt += rrd->stat_head->ds_cnt * rrd->rra_def[i].row_cnt;
 669
 670     while (unkn_cnt > 0) {
 671         fwrite(unknown, sizeof(rrd_value_t), min(unkn_cnt, 512), rrd_file);
 672         unkn_cnt -= 512;
 673      }
 674     free(unknown);
 675
 676     /* lets see if we had an error */
 677     if(ferror(rrd_file)){
 678         rrd_set_error("a file error occurred while creating '%s'",file_name);
 679         fclose(rrd_file);
 680         rrd_free(rrd);
 681         return(-1);
 682     }
 683
 684     fclose(rrd_file);
 685     rrd_free(rrd);
 686     return (0);
 687 }