SWE/DB/HashedProps.pm

package SWE::DB::HashedProps;
use strict;

require SWE::DB::IDProps;
push our @ISA, 'SWE::DB::IDProps';

require Digest::MD5;
require Encode;

sub _get_file_name ($$$) {
  my $self = shift;
  my $hash = Digest::MD5::md5_hex (Encode::encode ('utf8', $_[0]));
  my $mkdir = $_[1];
  
  my $dir1 = $self->{root_directory_name} . substr ($hash, 0, 2);
  my $dir2 = $dir1 . '/' . substr ($hash, 2, 2);
  substr ($hash, 0, 4) = '';

  my $file_name = $dir2 . '/' . $hash . $self->{leaf_suffix};

  unless ($mkdir) {
    return $file_name;
  }
  
  unless (-d $dir1) {
    mkdir $dir1 or die "$0: $dir1: $!";
  }

  unless (-d $dir2) {
    mkdir $dir2 or die "$0: $dir2: $!";
  }

  if ($self->{version_control}) {
    $self->{version_control}->add_directory ($dir1);
    $self->{version_control}->add_directory ($dir2);
  }

  return $file_name;
} # _get_file_name

1;
1	package SWE::DB::HashedProps;
2	use strict;
3
4	require SWE::DB::IDProps;
5	push our @ISA, 'SWE::DB::IDProps';
6
7	require Digest::MD5;
8	require Encode;
9
10	sub _get_file_name ($$$) {
11	my $self = shift;
12	my $hash = Digest::MD5::md5_hex (Encode::encode ('utf8', $_[0]));
13	my $mkdir = $_[1];
14
15	my $dir1 = $self->{root_directory_name} . substr ($hash, 0, 2);
16	my $dir2 = $dir1 . '/' . substr ($hash, 2, 2);
17	substr ($hash, 0, 4) = '';
18
19	my $file_name = $dir2 . '/' . $hash . $self->{leaf_suffix};
20
21	unless ($mkdir) {
22	return $file_name;
23	}
24
25	unless (-d $dir1) {
26	mkdir $dir1 or die "$0: $dir1: $!";
27	}
28
29	unless (-d $dir2) {
30	mkdir $dir2 or die "$0: $dir2: $!";
31	}
32
33	if ($self->{version_control}) {
34	$self->{version_control}->add_directory ($dir1);
35	$self->{version_control}->add_directory ($dir2);
36	}
37
38	return $file_name;
39	} # _get_file_name
40
41	1;