package Mailsort_scj;
require Exporter;
require Filedetails;

use strict;
use Carp;

my @ISA = qw(Exporter Filedetails Mailsort_scj);

my @EXPORT = qw(update_database
		update_options
		update_tntoptions
		update_inputformat
		create_scj
		update_Foreign_Addresses
		Redirect_Rejects);

sub new{
 	my ($proto,$filein) = @_;

    my $type = ref($proto) || $proto;

 	my $params = new Filedetails;
 	$params->{FileName_IN} = $filein;

	&initialise($params);
    bless $params,$type;

	return $params;
}

sub update_database{
	my ($class,$type,$value) =  @_;

    my $valuein = ref($value) || $value;

	$class->{Database}{$type} = $valuein;
}