projekt kivitendo

package SL::Helper::MT940;

use strict;

use File::Path qw(mkpath);

use File::Copy qw(copy);

sub convert_mt940_data {

  my ($mt940_data) = @_;

  # takes the data from an uploaded mt940 file, converts it to csv via aqbanking and returns the converted data

  # The uploaded file data is stored as a session file, just like the aqbanking settings file.

  my $import_filename = 'bank_transfer.940';

  my $sfile = SL::SessionFile->new($import_filename, mode => '>');

  $sfile->fh->print($mt940_data);

  $sfile->fh->close;

  # create needed dir structure for aqbanking 5.x and 6.x

  my $todir = $sfile->get_path . '/imexporters/csv/profiles';

  mkpath $todir;

  die "Cannot create $todir" unless -d $todir;

  File::Copy::copy('users/aqbanking.conf', $todir.'/kivi.conf');

  die "Cannot create local aqbanking conf " unless -f $todir.'/kivi.conf';

  mkpath $sfile->get_path . '/settings6/aqbanking';

  my $aqbin = $::lx_office_conf{applications}->{aqbanking};

  die "Can't find aqbanking-cli, please check your configuration file.\n" unless -f $aqbin;

  my $cmd = "$aqbin --cfgdir=\"" . $sfile->get_path . "\" import --importer=\"swift\" --profile=\"SWIFT-MT940\" -f " .

          $sfile->get_path . "/$import_filename | $aqbin --cfgdir=\"" . $sfile->get_path . "\" export --profile=kivi 2> /dev/null ";

  my $converted_data = '"empty";"local_bank_code";"local_account_number";"remote_bank_code";"remote_account_number";"transdate";"valutadate";"amount";'.

    '"currency";"remote_name";"remote_name_1";"purpose";"purpose1";"purpose2";"purpose3";"purpose4";"purpose5";"purpose6";"purpose7";"purpose8";"purpose9";'.

    '"purpose10";"purpose11";"transaction_key";"customer_reference";"bank_reference";"transaction_code";"transaction_text"'."\n";

  open my $mt, "-|", "$cmd" || die "Problem with executing aqbanking\n";

  my $headerline = <$mt>;  # discard original aqbanking header line

  while (<$mt>) {

    $converted_data .= $_;

  };

  close $mt;

  return $converted_data;

};

1;

# Location of the aqbanking binary to use when converting MT940 files

# into the kivitendo import format

aqbanking = /usr/bin/aqbanking-cli

  postgresql-contrib aqbanking-tools poppler-utils libhtml-restrict-perl\

      <listitem>

            <para><literal>aqbanking-tools</literal> Für das Parsen des MT940 Bankformats (Version 6 oder höher)</para>

          </listitem>

        <para>Debian und Ubuntu: <programlisting>apt install aqbanking-tools postgresql-contrib poppler-utils</programlisting></para>

        <para>Fedora: <programlisting>dnf install aqbanking poppler-utils postgresql-contrib</programlisting></para>

        <para>openSUSE: <programlisting>zypper install aqbanking-tools poppler-tools</programlisting></para>

  check_aqbanking();

sub check_aqbanking {

  my $aqbin = $::lx_office_conf{applications}->{aqbanking};

  if ( !$aqbin ) {

    print_line('Looking for aqbanking executable', 'not configured','red');

  }

  else {

    my $line = "Looking for aqbanking executable '".$aqbin."'";

    my $shell_out = `$aqbin versions 2>&1 | grep AqBanking-CLI 2> /dev/null`;

    my ($label,$version)  = split /:/,$shell_out;

    if ( $label && $label eq ' AqBanking-CLI' ) {

      chop $version;

      my ($number_version) = $version =~ /(\d+)/;

      if ($number_version < 6) {

        print_line($line, "Requires at least version 6, current version is " . $version, 'red');

      } else {

        print_line($line, $version, 'green');

      }

    } else {

      print_line($line, 'not installed','red');

      my %modinfo = ( name => 'aqbanking' );

      push @missing_modules, \%modinfo;

    }

  }

}