$description =~ s/'//g; #'
$description =~ s{|}{}; #|
my $value = $linia[4];
my $customerid = '0';
my @spr;
my @punkty;
$spr[1] = 0;
$spr[2] = 0;
$spr[3] = 0;
$punkty[1] = 0;
$punkty[2] = 0;
$punkty[3] = 0;

# sprawdza id

if ($description =~  m/(ID|AJDI|I\WD)/i){
 my $customerid_t = $description;
 $customerid_t =~ s/.+(ID|AJDI|I\WD)//gi;
 $customerid_t =~ s/[^0-9 ]//g;
 $customerid_t =~ s/^\s+//;
 $customerid_t =~ s/[ ].*//;
 $customerid_t =~ s/\s+$//;
$spr[1]=$customerid_t;
$punkty[1]='2';
}

# sprawdza numer faktury

if($description =~  m/(LMS|lms)/i){
my $ls = '/usr/local/bin/php -r';
my $command1 = 'preg_match("/([0-9]{1,5})(?=(\W?[^0-9]?(LMS|lms).+))/","' . $description . '",$k); print $k[0];';
my $command2 = 'preg_match("/(LMS|lms).?.?[0-9]+/","' . $description . '",$k); print $k[0];';
my $numer = `$ls '$command1'`;
my $rok = `$ls '$command2'`;
$rok =~ s/[^0-9 ]//g;
$rok =~ s/^\s+//;
$rok =~ s/[ ].*//;
$rok =~ s/\s+$//;
if($rok == "08") {
$rok = '2008';
}
elsif($rok == "09") {
$rok = '2009';
}
elsif($rok == "10") {
$rok = '2010';
}
elsif($rok == "11") {
$rok = '2011';
}
elsif($rok == "12") {
$rok = '2012';
}
my $sdbq222 = $dbase->prepare("select customerid as id222 from documents where number='$numer' and cdate > UNIX_TIMESTAMP('$rok-01-01 00:00:00') and cdate <$
$sdbq222->execute;
my $id222 = '0';
if (my $row = $sdbq222->fetchrow_hashref()){
$spr[2]=$row->{'id222'};
$punkty[2]='2';
}

}
# sprawdza imie i nazwisko

if($linia[8] =~ m/ /i){

    @da = split(" ", $linia[8]);
    my $sdbq = $dbase->prepare("SELECT id FROM customers WHERE UPPER(lastname)=UPPER('$da[0]') and UPPER(name)=UPPER('$da[1]')");
       $sdbq->execute;
    my $id = '0';
    if (my $row = $sdbq->fetchrow_hashref()){
        $spr[3] = $row->{'id'};
        $punkty[3]='2';
    }else {
        my $sdbq = $dbase->prepare("SELECT id FROM customers WHERE UPPER(lastname)=UPPER('$da[1]') and UPPER(name)=UPPER('$da[0]')");
           $sdbq->execute;
        if (my $row = $sdbq->fetchrow_hashref()){
            $spr[3] = $row->{'id'};
            $punkty[3]='2';
        }
    }
}

my $ocena = '0';
# sprawdza ID + imie i nazwisko
if(($punkty[1] + $punkty[3]) == '4')
{
        if($spr[1] == $spr[3])
        {
        # dostaje 4 punkty zaznacza na zielona + box
        $customerid = $spr[1];
        $ocena = '4';
        }
        else
        {
        # dostaje 1 punkt i zaznacza na czerwono
        $customerid = $spr[1];
        $ocena = '1';
        }

# sprawdza F.vat + imie i nazwisko
}
elsif(($punkty[2] + $punkty[3]) == '4')
{
        if($spr[2] == $spr[3])
        {
        # dostaje 4 punkty zaznacza na zielona + box
        $customerid = $spr[2];
        $ocena = '4';
        }
        else
        {
        # dostaje 1 punkt i zaznacza na czerwono
        $customerid = $spr[2];
        $ocena = '1';
        }

}
elsif($punkty[1] == '2')
{
        # dostaje 2 punkty na zolto

    my $sdbq223 = $dbase->prepare("SELECT lastname FROM customers WHERE id='$spr[1]'");
       $sdbq223->execute;
    my $lastname = '0';
    my $nazwisko = '9999999999999999999999999999999999999999999999C';
    if (my $row = $sdbq223->fetchrow_hashref()){
$nazwisko = $row->{'lastname'};
$nazwisko =~ s/-/a/gi;
$nazwisko =~ s/-/c/gi;
$nazwisko =~ s/-/e/gi;
$nazwisko =~ s/-/l/gi;
$nazwisko =~ s/-/n/gi;
$nazwisko =~ s/-/o/gi;
$nazwisko =~ s/-/s/gi;
$nazwisko =~ s/-/z/gi;
$nazwisko =~ s/-/z/gi;
$nazwisko =~ s/-/A/gi;
$nazwisko =~ s/-/C/gi;
$nazwisko =~ s/-/E/gi;
$nazwisko =~ s/-/L/gi;
$nazwisko =~ s/-/N/gi;
$nazwisko =~ s/-/O/gi;
$nazwisko =~ s/-/S/gi;
$nazwisko =~ s/-/Z/gi;
$nazwisko =~ s/-/Z/gi;
        }
my $isko = $line;
$isko =~ s/-/a/gi;
$isko =~ s/-/c/gi;
$isko =~ s/-/e/gi;
$isko =~ s/-/l/gi;
$isko =~ s/-/n/gi;
$isko =~ s/-/o/gi;
$isko =~ s/-/s/gi;
$isko =~ s/-/z/gi;
$isko =~ s/-/z/gi;
$isko =~ s/-/A/gi;
$isko =~ s/-/C/gi;
$isko =~ s/-/E/gi;
$isko =~ s/-/L/gi;
$isko =~ s/-/N/gi;
$isko =~ s/-/O/gi;
$isko =~ s/-/S/gi;
$isko =~ s/-/Z/gi;
$isko =~ s/-/Z/gi;
if($isko =~ m/$nazwisko/i){
        $customerid = $spr[1];
        $ocena = '4';
        } else {
        $ocena = '3';
        $customerid = $spr[1];
        }
}
elsif($punkty[2] == '2')
{
    my $sdbq2234 = $dbase->prepare("SELECT lastname FROM customers WHERE id='$spr[2]'");
           $sdbq2234->execute;
               my $lastname = '0';
                   my $nazwisko = '9999999999999999999999999999999999999999999999C';
                       if (my $row = $sdbq2234->fetchrow_hashref()){
                       $nazwisko = $row->{'lastname'};
                       $nazwisko =~ s/-/a/gi;
                       $nazwisko =~ s/-/c/gi;
                       $nazwisko =~ s/-/e/gi;
                       $nazwisko =~ s/-/l/gi;
                       $nazwisko =~ s/-/n/gi;
                       $nazwisko =~ s/-/o/gi;
                       $nazwisko =~ s/-/s/gi;
                       $nazwisko =~ s/-/z/gi;
                       $nazwisko =~ s/-/z/gi;
                       $nazwisko =~ s/-/A/gi;
                       $nazwisko =~ s/-/C/gi;
                       $nazwisko =~ s/-/E/gi;
                       $nazwisko =~ s/-/L/gi;
                       $nazwisko =~ s/-/N/gi;
                       $nazwisko =~ s/-/O/gi;
                       $nazwisko =~ s/-/S/gi;
                       $nazwisko =~ s/-/Z/gi;
                       $nazwisko =~ s/-/Z/gi;
                               }
                               my $isko = $line;
                               $isko =~ s/-/a/gi;
                               $isko =~ s/-/c/gi;
                               $isko =~ s/-/e/gi;
                               $isko =~ s/-/l/gi;
                               $isko =~ s/-/n/gi;
                               $isko =~ s/-/o/gi;
                               $isko =~ s/-/s/gi;
                               $isko =~ s/-/z/gi;
                               $isko =~ s/-/z/gi;
                               $isko =~ s/-/A/gi;
                               $isko =~ s/-/C/gi;
                               $isko =~ s/-/E/gi;
                               $isko =~ s/-/L/gi;
                               $isko =~ s/-/N/gi;
                               $isko =~ s/-/O/gi;
                               $isko =~ s/-/S/gi;
                               $isko =~ s/-/Z/gi;
                               $isko =~ s/-/Z/gi;

                                       if($isko =~ m/$nazwisko/i){
                                       $customerid = $spr[2];
                                       $ocena = '4';
                                       } else {
                                       $ocena = '3';
                                       $customerid = $spr[2];
                                       }

        # dostaje 2 punkty na zolto
#        $customerid = $spr[2];
#       $ocena = '2';
}
elsif($punkty[3] == '2')
{
        # dostaje 2 punkty na zolto
        $customerid = $spr[3];
        $ocena = '2';
}


my $sdbq = $dbase->prepare("INSERT INTO cashimport ( Date , Value , Customer ,Description , CustomerId , Hash, ocena ) VALUES ('$date', '$value', '$c
ustomer','$description', '$customerid', '$hash', '$ocena');");