opendir my $fixeddirs, $directory or die "Can't open dir $directory: $!\n";
my @files = readdir($fixeddirs);
closedir $fixeddirs;
while (<@files>) {
    if ( ( $_ ne '.' ) and ( $_ ne '..' ) and ( $_ ne '.svn' ) ) {
    my $filename = $_;
    my $datname = $filename;
    $datname =~ s/\.txt//g;
    if ( $datname =~ /^BAYAHIBEELE/ ) {
        $datname = substr $datname, 0, 11;
    }
    my $length = q[];
    my $temp1 = q[];
    my $temp2 = q[];

    open my $datfile, '<', "/home/juice/juice38/connectors/bankimporter/datafiles/$dir/$datname.dat" or die "Can't open dat file $datname.dat: $!\nPun intended\n";
    while (<$datfile>) {
        chomp;
        s/^\s*//;
        s/\s*$//;
        if ( $_ ne q[] ) {
            ( $length, $temp1, $temp2 ) = split ';', $_;
        }
    }
    close $datfile;

    my $rec = chr(0) x $length;

    my @garbage = split '\|', $temp1;
    my @fields1;
    my @type1l;

    my $i = 0;
    foreach (@garbage) {
        ($fields1[$i], $type1l[$i]) = split ':', $_;
        $i++;
    }
    
    my $n = 0;
    my @type1o = map{
        $n += $_; $n - $_;
    } @type1l;

    my @type1 = map \substr( $rec, $type1o[ $_ ], $type1l[ $_ ] ), 0 .. $#type1o;

    my @type2;
    my @fields2;
    if ( defined $temp2 ) {
        @garbage = split '\|', $temp2;
        my @type2l;

        $i = 0;
        foreach (@garbage) {
            ($fields2[$i], $type2l[$i]) = split ':', $_;
            $i++;
        }
        
        $n = 0;
        my @type2o = map{
            $n += $_; $n - $_;
        } @type2l;

        @type2 = map \substr( $rec, $type2o[ $_ ], $type2l[ $_ ] ), 0 .. $#type2o;
    }

    my ( $linelayout1, $linelayout2) = q[];
    open my $guide, '<', "/home/juice/juice38/connectors/bankimporter/datafiles/$dir/$datname" or die "Can't open guide file $datname: $!\n";
    while (<$guide>) {
        chomp;
        s/^\s*//;
        s/\s*$//;
        if ( $_ ne q[] ) {
            ( $linelayout1, $linelayout2 ) = split '\|';
        }
    }
    print "\nOpening file $directory/$filename...\n";
    open my $fixedfile, '<', "$directory/$filename" or die "Can't open fixed file $directory/$filename: $!\n";
    my @data;
    my @names;
    my @layout;
    my $errorcount = 0;
    while (<$fixedfile>) {
        $_ = q[] if ( $. == 1 );
        if ( $_ ne q[] ) {
            substr( $rec, 0 ) = $_;
            if ( ! defined $temp2 ) {
                @data = map $$_, @type1;
                @names = @fields1;
                @layout = split ',', $linelayout1;
            } else {
                if ( /^03/ ) {
                    @data = map $$_, @type1;
                    @names = @fields1;
                    @layout = split ',', $linelayout1;
                } else {
                    @data = map $$_, @type2;
                    @names = @fields2;
                    @layout = split ',', $linelayout2;
                }
            }
            my $line = $_;
            foreach (@data) {
                chomp;
                s/\r|\n//g;
                s/^M//g;
                s/^\s*//;
                s/\s*$//;
                s/\'//g;
                s/\"//g;
                s/\\//g;
                s/\(//g;
                s/\)//g;
                s/\+//g;
                if ( $_ eq q[] ) {
                    $_ = 0;
                }
                if (/^\d+$/) {
                    $_ = $_ * 1;
                }
            }

            my $columns = q[];
            my $values = q[];
            my $placeholders = q[];
            foreach (@layout) {
                print "$names[$_]: $data[$_]\n";
                $columns .= "$names[$_],";
                $values .= "$data[$_],";
                $placeholders .= "?,";
            }
            $columns =~ s/,+$//;
            $values =~ s/,+$//;
            $placeholders =~ s/,+$//;
            print "$line\n\n";
            my $status = q[];
            $dbh->do("insert into batchpay (source,$columns,substatus,original,imported) values (?,?,?,?,$placeholders)", {}, "$dir-$filename", $values, $status, $line, $datetime );
            }
        }
    }
    print "Data parsed with $errorcount errors\n";
    close $fixedfile;
}