Select Code to Download

use strict;
use DBI;
...
    }
    print "\n";
}

if(defined($_))
{
...
{
  print "NULL";
}

[cacti@cacti other]$ perl cacti.pl
id        local_data_template_data_idlocal_data_iddata_template_iddata
+_input_idt_name    name      name_cachedata_source_patht_active  acti
+ve    t_rrd_steprrd_step  t_rra_id  
...
72        70        9         49        0         NULL10 minutes10 min
+utes/var/www/cacti_rrd/MMS/Daily/CDR_TOTAL_901R902M905S906FOREIGNOPTU
+S.rrdNULLon        NULL600       NULL
[cacti@cacti other]$

INSERT INTO data_template_data (id, local_data_template_data_id, local
+_data_id, data_template_id, data_input_id, t_name, name, name_cache, 
+data_source_path, t_active, active, t_rrd_step, rrd_step, t_rra_id) V
+ALUES
  (3, 0, 0, 3, 2, 'on', '|host_description| - Hard Drive Space', '', N
+ULL, '', 'on', '', 300, ''),
...
  (70, 0, 0, 49, 0, '', '10 minutes', '', NULL, '', 'on', '', 600, '')
+,
  (71, 70, 8, 49, 0, NULL, '10 minutes', '10 minutes', '/var/www/cacti
+_rrd/MMS/Daily/CDR_TOTAL_901S902M905S906WAPENC.rrd', NULL, 'on', NULL
+, 600, NULL),
  (72, 70, 9, 49, 0, NULL, '10 minutes', '10 minutes', '/var/www/cacti
+_rrd/MMS/Daily/CDR_TOTAL_901R902M905S906FOREIGNOPTUS.rrd', NULL, 'on'
+, NULL, 600, NULL);