This is lines 812 - 826...


 $irf =~ s/([^a-zA-Z0-9_-])/"%" . uc(sprintf("%2.2x",ord($1)))/eg;
                        if (-e "$rrdpath/$dv/$irf.rrd"){
                                $ok = 1;
                        }else{
                                my $ds = 2 * $rrdstep;
                                $ok = 1 + system ("rrdtool",
                                                "create","$rrdpath/$dv/$irf.rrd",
                                                "-s","$rrdstep",
                                                "DS:inoct:COUNTER:$ds:0:10000000000",
                                                "DS:outoct:COUNTER:$ds:0:10000000000",
                                                "DS:inerr:COUNTER:$ds:0:10000000000",
                                                "DS:outerr:COUNTER:$ds:0:10000000000",
                                                "RRA:AVERAGE:0.5:1:200",
                                                "RRA:AVERAGE:0.5:6:360");
                        }