#!/usr/bin/perl

#use utf8;
use strict;
use CGI;
use Text::CSV_XS;
use Digest::SHA qw(
    sha1_base64
    sha1_hex
);

use Opals::Context;
use Opals::Template_ajax qw(
    tmpl_read
    tmpl_write
);

use Opals::Date qw(
    date_f005
);
use JSON;


my $dbh = Opals::Context->dbh();
END { $dbh->disconnect(); }

my $cgi          = CGI->new;
my $input        = $cgi->Vars();

my $fname = $input->{'bcFile'};
my $fdata = $cgi->param('bcFile');

    my $data = getFile();
    print "Content-type: text/plain\n\n";
    print  encode_json({bcList=>$data});

   #-------------------------------------------------------------
    sub getFile{

        my $upload_filehandle=$cgi->upload("file")||$fdata;
        my @data = ();    
        while(<$upload_filehandle>) {
            $_ =~ s/\n|\r//g;

            push @data,$_;
        }
        
        return \@data;       
    }

#------------------------------------------------------------------------------