77 lines
1.9 KiB
Perl
77 lines
1.9 KiB
Perl
package Pear::LocalLoop::Controller::Admin::ImportFrom;
|
|
use Mojo::Base 'Mojolicious::Controller';
|
|
use Moo;
|
|
use Try::Tiny;
|
|
|
|
use Pear::LocalLoop::Import::LCCCsv::Suppliers;
|
|
use Pear::LocalLoop::Import::LCCCsv::Transactions;
|
|
|
|
sub index {
|
|
my $c = shift;
|
|
|
|
$c->app->max_request_size(104857600);
|
|
}
|
|
|
|
sub post_suppliers {
|
|
my $c = shift;
|
|
|
|
unless ($c->param('suppliers_csv')) {
|
|
$c->flash( error => "No CSV file given" );
|
|
return $c->redirect_to( '/admin/import_from' );
|
|
}
|
|
|
|
# Check file size
|
|
if ($c->req->is_limit_exceeded) {
|
|
$c->flash( error => "CSV file size is too large" );
|
|
return $c->redirect_to( '/admin/import_from' );
|
|
}
|
|
|
|
my $filename;
|
|
|
|
$c->minion->enqueue('csv_supplier_import' => $filename );
|
|
|
|
# my $csv_import = Pear::LocalLoop::Import::LCCCsv::Suppliers->new(
|
|
# csv_string => $c->param('suppliers_csv')->slurp,
|
|
# schema => $c->app->schema
|
|
# )->import_csv;
|
|
#
|
|
# my $job_id = $c->minion->enqueue('csv_supplier_import' => [$csv_import] );
|
|
|
|
|
|
|
|
$c->flash( success => "CSV imported" );
|
|
return $c->redirect_to( '/admin/import_from' );
|
|
}
|
|
|
|
sub post_transactions {
|
|
my $c = shift;
|
|
|
|
unless ($c->param('transactions_csv')) {
|
|
$c->flash( error => "No CSV file given" );
|
|
return $c->redirect_to( '/admin/import_from' );
|
|
}
|
|
|
|
# Check file size
|
|
if ($c->req->is_limit_exceeded) {
|
|
$c->flash( error => "CSV file size is too large" );
|
|
return $c->redirect_to( '/admin/import_from' );
|
|
}
|
|
my $csv_error;
|
|
try {
|
|
Pear::LocalLoop::Import::LCCCsv::Transactions->new(
|
|
csv_string => $c->param('transactions_csv')->slurp,
|
|
schema => $c->app->schema
|
|
)->import_csv;
|
|
} catch {
|
|
$csv_error = $_;
|
|
};
|
|
if ( $csv_error ) {
|
|
$c->flash( error => $csv_error );
|
|
return $c->redirect_to( '/admin/import_from' );
|
|
} else {
|
|
$c->flash( success => "CSV imported" );
|
|
return $c->redirect_to( '/admin/import_from' );
|
|
}
|
|
}
|
|
|
|
1;
|