#
# 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=";
}