#!/usr/bin/perl
# $Header: 

#
my %CONFIG_PARAMS;

 
     my $mapattach;

     # grab the map attach from the conf file
     while (my ($key , $value) = each(%CONFIG_PARAMS)) {
        if ($file =~ /$key/) {
           $mapattach = $value;
        }
     }


     # is there a map attach for this file?
     unless (defined $mapattach)  {
       #Println "Could not find the map attachment for $file, please check the configuration file and try again";
       Println "WARN : Ignoring $file, not found in the config file";
      
     }

         # construct aicommand
     $aicommand = qq{"$ENV{'OT_DIR'}/bin/inittrans" -cs $ENV{'OT_QUEUEID'} -at $attach -DINPUT_FILE=$cpfile -DMESSAGE=$mapattach -DBYPASS=OTINOByp.att};