package file;

sub read
      {
                # LEE EL CONTENIDO DE UN ARCHIVO Y LO COLOCA EN UNA VARIABLE
                my ($template) = (@_);
                open(TMPL,$template);
                $tmpl = join'',<TMPL>;
                close TMPL;
                return $tmpl;
}

sub vardump
	{
	# DESCARGA TODAS LAS VARIABLES DE UN ARCHIVO A UNA %
        my ($file) =(@_);
        my %vars = ();
        open(PARAMS, "<".$file);
    while(<PARAMS>)
    {
        if(m/(.*)=(.*)/)
        {
           $vars{$1} = $2;
        }
    }
    close PARAMS;

return %vars;
}

1;