#
# Intiliase global data and hint settings
# 
BEGIN
{
    %database_platforms = (
			   "ora"	=> "Oracle",
			   "sql"	=> "Sybase",
			   "mss"	=> "Mssql"
			  );
    my %hints_setting = (
             "MODULE"   => \&set_object_module_hint,
             "TYPE"     => \&set_object_type_hint,
             "TEMPLATE" => \&set_object_template_hint
    );
    my $hints =  <<HINTS_DATA;
TYPE:unknown:f_ali_alb_init_profile.mss:procedure 
TYPE:unknown:f_ali_alb_init_profile.ora:procedure 
MODULE:unknown:v_state_dr.ora:misc   
HINTS_DATA
	  
    my @hints = split /\n/, $hints;  				  
    				  
    foreach (@hints) {
             chomp;
             my @line = split /:/;
             my $proc = $hints_setting{ shift @line };
             &{$proc}( @line ) if ($proc);
    }
    
    $history_delimitertext = "--DO NOT CHANGE BELOW THIS LINE--LASTLOG=";
}


##</code><code>##

sub set_object_module_hint
{
    my ($project)	= $_[0];
    my ($objectname)	= $_[1];
    my ($modulename)	= lc ($_[2]);
    $modulename 	=~s/\s//g; 	
    my ($result);

    $result = 0;
    if ($modulename eq "misc") {

    	if (exists $object_module_hints {$objectname}) {
			log_message "Overriding module hint '$modulename' for database object name '$objectname'";
    	}
    	$object_module_hints {$objectname} = $modulename;
    	$result = 1;

    } else {
      log_error "Invalid module hint '$modulename' for database object name '$objectname'";
    }
    return $result;
}