#!/usr/bin/perl 

#use DBI;
use DBD::mysql;
use DBI qw(:sql_types);

$hostname = "localhost";
$database = "c2";
$username = "collect";
$password = "password";

$dbh = DBI->connect("dbi:mysql:dbname=$database;host=$hostname", "$username", "$password", {
                          RaiseError => 1,
                          AutoCommit => 1
                        }
                      ) || die "Database connection not made: $DBI::errstr";

$sth = $dbh->prepare("SELECT server_id FROM server WHERE server_name =?"); 
$ins = $dbh->prepare("INSERT INTO server_details (server_id, apt_source, cleaner_conf, crons, date, df, dmidecode, ethtool, fstab, groups, hosts, hosts_allow, hosts_deny, ifconfig, j2_serverconf, last, lsmod, lspci, mdstat, mount_nfs, netstat, network, proc_scsi, pw, raidtab, rpm_list, sudoers, sysctl, tr114, uname) values (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)");


$dir = "/usr/local/c2/serverfiles";
opendir(sf, $dir) or die "can't open $dir: $!";
while (defined($serv_dir = readdir(sf))) {
        @data_load = "";
        next if $serv_dir =~ /^\.\.?$/; # skip . and ..
        $sth->execute($serv_dir) or die $sth->errstr;
        $sid = $sth->fetchrow_array;
                #logic to make new server entries if sid = null
        print "$serv_dir has a server id of: $sid\n"; 
                @xml = glob("$dir/$serv_dir/*.xml");
                @data_load[0] = "$sid";
                $inc = 1;
                foreach $xml_file (@xml) {
                         open(XMLFILE, "$xml_file" ) or die "can't open $xml_file: $!"; 
                        while(<XMLFILE>) {
            @data_load[$inc] .= $_;
            }
            $inc++;


$ins->bind_param(1,$data_load[0]); # server_id foreign key
$ins->bind_param(2,$data_load[1]); #apt_source
$ins->bind_param(3,$$data_load[2]); # cleaner_conf
$ins->bind_param(4,$data_load[3]); # crons
$ins->bind_param(5,$data_load[4]); # date
$ins->bind_param(6,$data_load[5]); # df
$ins->bind_param(7,$data_load[6]); # dmidecode
$ins->bind_param(8,$data_load[7]); # ethtool
$ins->bind_param(9,$data_load[8]); # fstab
$ins->bind_param(10,$data_load[9]); # group
$ins->bind_param(11,$data_load[10]); # hosts_allow
$ins->bind_param(12,$data_load[11]); # hosts_deny
$ins->bind_param(13,$data_load[12]); # hosts
$ins->bind_param(14,$data_load[13]); # ifconfig
$ins->bind_param(15,$data_load[14]); # j2_serverconf
$ins->bind_param(16,$data_load[15]); # last
$ins->bind_param(17,$data_load[16]); # lsmod
$ins->bind_param(18,$data_load[17]); # lspci
$ins->bind_param(19,$data_load[18]); # mdstat
$ins->bind_param(20,$data_load[19]); # mount_nfs
$ins->bind_param(21,$data_load[20]); # netstat
$ins->bind_param(22,$data_load[21]); # network
$ins->bind_param(23,$data_load[22]); # proc_scsi
$ins->bind_param(24,$data_load[23]); # pw
$ins->bind_param(25,$data_load[24]); # raidtab
$ins->bind_param(26,$data_load[25]); # rpm_list
$ins->bind_param(27,$data_load[26]); # sudoers
$ins->bind_param(28,$data_load[27]); # sysctl
$ins->bind_param(29,$data_load[28]); # tr114
$ins->bind_param(30,$data_load[29]); # uname
#$ins->bind_param(31,$data_load[30],SQL_DATETIME); # timestamp
$ins->execute() || die "FAIL: $DBI::errstr";
}
closedir(sf);