#!/usr/bin/perl

#use utf8;
use strict;
use CGI;

use Opals::Context;#use MARC::File::USMARC;
#use MARC::File::XML;


use Opals::Template qw(
    tmpl_read
    tmpl_write
    tmpl_rangedPageList
    tmpl_searchFieldAdvance
);
my $dbh = Opals::Context->dbh();
END { $dbh->disconnect(); }

open debug ,">/tmp/unionUpload";
my $cgi = CGI->new;
my $input = $cgi->Vars();

my $reqType=$input->{'requestType'};
my $requestId =$input->{'requestId'};
my $unionId       =$input->{'unionId'};
my $reqDataFile = $cgi->param('datafile');

if(!authenticate($dbh,$unionId)){
    print "Permission denied \n";
    return;
}
my $marcFile = "$unionId\n";
while (<$reqDataFile>) {
    $marcFile .= $_ ;
}

print debug $marcFile;
close debug;


#============================================================
sub authenticate{
    my ($dbh,$unionId)=@_;

    return 1;
}