#!/usr/bin/perl 
use strict;
use warnings;

package FiLeS;

sub new {
    my $class = shift;
    
    my $files = {
	dirRefFile => shift,
        confRefFile => shift,
    };
    bless $files, $class;
    
    return $files;
}

sub getFiles {

    use Config::IniFiles;
    use Fcntl qw( :flock );

    my ( $files , $dataFiles ) = @_;
    
    open my $fh , '<' , "".$dataFiles.""
	or die "Could not open file: ".$dataFiles." - $!\n";

    flock( $fh , LOCK_SH )
	or die "Could not lock '".$dataFiles."' - $!\n";
    
    tie my %ini, 'Config::IniFiles', ( -file => "".$dataFiles."" )
	or die "Error: IniFiles->new: @Config::IniFiles::errors";

    close $fh
	or die "Could not close '".$dataFiles."' - $!\n";

    return $files->{dirRefFile} = \%ini if (%ini);

}

sub makeDirectories {

    my ( $files , $hash_dir ) = @_;

    foreach my $dir ( sort keys %{ $hash_dir } ) {
	#print $dir . " {\n";
	foreach my $keys ( keys %{ $hash_dir->{ $dir } } ) {
	    #print "\t" . $keys . " \t=> ";
	    foreach my $path ( $hash_dir->{ $dir }->{ $keys } ) {
		#print $path . "\n";
		unless(-e $path or mkdir $path) {
		    mkdir ($path , 0755);
		}
	    }
	}
	#print "}\n";
    }

    return $files->{ dirRefFile } = $hash_dir if ( $hash_dir );
}

1;