#! c:/perl/bin/perl.exe -slw
use strict;

use Win32;
use Win32::ODBC;

my $DSN = 'ORANGE';
my $DB = new Win32::ODBC($DSN) || die "Error => $!\n";

open (FILE, "$ARGV[0]") ||  die "\n$!\n";
chomp (my @data=<FILE>);
print "\n\nPlease wait......Populating Database\n";
for my $entry (@data)
{
	next if ($entry =~ /^start|^Full/i);
	my @db_values = split (/,/,$entry); 
	#print "$db_values[0]\n";
	$DB->sql("INSERT INTO Files (File_Path, File_Name, Size_Byte, Created, Modified, Accessed, Type) VALUES ('$db_values[0]','$db_values[5]','$db_values[1]','$db_values[2]','$db_values[3]','$db_values[4]','$db_values[6]')");
}
close FILE;
$DB->Close;
print “\n\nCompleted......Please check $DSN database\n\n”; 

##</code><code>##

Use of uninitialized value in concatenation (.) or string at C:\Perl\Orange\pop_
db.pl line 18, <FILE> line 46062.
Use of uninitialized value in concatenation (.) or string at C:\Perl\Orange\pop_
db.pl line 18, <FILE> line 46062.
Use of uninitialized value in concatenation (.) or string at C:\Perl\Orange\pop_
db.pl line 18, <FILE> line 46062.
Use of uninitialized value in concatenation (.) or string at C:\Perl\Orange\pop_
db.pl line 18, <FILE> line 46062.
Use of uninitialized value in concatenation (.) or string at C:\Perl\Orange\pop_
db.pl line 18, <FILE> line 46062.
Use of uninitialized value in concatenation (.) or string at C:\Perl\Orange\pop_
db.pl line 18, <FILE> line 46062.
Use of uninitialized value in concatenation (.) or string at C:\Perl\Orange\pop_
db.pl line 18, <FILE> line 46062.
Use of uninitialized value in concatenation (.) or string at C:\Perl\Orange\pop_
db.pl line 18, <FILE> line 46062.
Use of uninitialized value in concatenation (.) or string at C:\Perl\Orange\pop_
db.pl line 18, <FILE> line 46062.
Use of uninitialized value in concatenation (.) or string at C:\Perl\Orange\pop_
db.pl line 18, <FILE> line 46062.
Use of uninitialized value in concatenation (.) or string at C:\Perl\Orange\pop_
db.pl line 18, <FILE> line 46062.
Use of uninitialized value in concatenation (.) or string at C:\Perl\Orange\pop_
db.pl line 18, <FILE> line 46062.

##</code><code>##

t:/uk legal/Sites and Property/Manchester/ADMINISTRATION/LETTERS 2005/SYK0021LETTER24JAN.doc,29696,1/24/2005,1/24/2005,7/7/2005,SYK0021LETTER24JAN.doc,doc
t:/uk legal/Sites and Property/Manchester/ADMINISTRATION/LETTERS 2005/SYK0021LETTER30JUNE.doc,25088,6/29/2005,6/29/2005,7/7/2005,SYK0021LETTER30JUNE.doc,doc
t:/uk legal/Sites and Property/Manchester/ADMINISTRATION/LETTERS 2005/SYK0042LETTER13JAN.doc,25088,1/13/2005,1/13/2005,7/7/2005,SYK0042LETTER13JAN.doc,doc
t:/uk legal/Sites and Property/Manchester/ADMINISTRATION/LETTERS 2005/SYK0099LETTER13APR.doc,29184,4/13/2005,4/13/2005,7/7/2005,SYK0099LETTER13APR.doc,doc
t:/uk legal/Sites and Property/Manchester/ADMINISTRATION/LETTERS 2005/SYK0099LETTER13MAY.doc,29184,5/13/2005,5/13/2005,7/7/2005,SYK0099LETTER13MAY.doc,doc
t:/uk legal/Sites and Property/Manchester/ADMINISTRATION/LETTERS 2005/SYK0099LETTER16JUNE.doc,30208,6/15/2005,6/15/2005,7/7/2005,SYK0099LETTER16JUNE.doc,doc
t:/uk legal/Sites and Property/Manchester/ADMINISTRATION/LETTERS 2005/SYK0099LETTER17JUNE.doc,25600,6/16/2005,6/16/2005,7/7/2005,SYK0099LETTER17JUNE.doc,doc
t:/uk legal/Sites and Property/Manchester/ADMINISTRATION/LETTERS 2005/SYK0099LETTER20MAY.doc,29696,5/20/2005,5/20/2005,7/7/2005,SYK0099LETTER20MAY.doc,doc
t:/uk legal/Sites and Property/Manchester/ADMINISTRATION/LETTERS 2005/SYK0099LETTER22JUNE.doc,29184,6/21/2005,6/21/2005,7/7/2005,SYK0099LETTER22JUNE.doc,doc
t:/uk legal/Sites and Property/Manchester/ADMINISTRATION/LETTERS 2005/SYK0099LETTER27APR.doc,28672,4/27/2005,4/27/2005,7/7/2005,SYK0099LETTER27APR.doc,doc
t:/uk legal/Sites and Property/Manchester/ADMINISTRATION/LETTERS 2005/SYK0100LETTER17JAN.doc,25088,1/17/2005,1/17/2005,7/7/2005,SYK0100LETTER17JAN.doc,doc
t:/uk legal/Sites and Property/Manchester/ADMINISTRATION/LETTERS 2005/SYK0123LETTER07APR.doc,24576,4/7/2005,4/7/2005,7/7/2005,SYK0123LETTER07APR.doc,doc
t:/uk legal/Sites and Property/Manchester/ADMINISTRATION/LETTERS 2005/SYK0131LETTER08JUNE.doc,25600,6/8/2005,6/8/2005,7/7/2005,SYK0131LETTER08JUNE.doc,doc
t:/uk legal/Sites and Property/Manchester/ADMINISTRATION/LETTERS 2005/SYK0131LETTER17JAN.doc,29184,1/17/2005,1/17/2005,7/7/2005,SYK0131LETTER17JAN.doc,doc
t:/uk legal/Sites and Property/Manchester/ADMINISTRATION/LETTERS 2005/SYK0131LETTER22APR.doc,29184,4/22/2005,4/22/2005,7/7/2005,SYK0131LETTER22APR.doc,doc