Parent Directory
| 
Revision Log
++ swe/lib/SWE/DB/ChangeLog 9 Nov 2008 06:46:33 -0000 2008-11-09 Wakaba <wakaba@suika.fam.cx> * Lock.pm, HashedProps.pm, IDDOM.pm, IDGenerator.pm, IDProps.pm, IDText.pm, SuikaWiki3PageList.pm: New modules. * SuikaWiki3.pm, SuikaWiki3LastModified.pm: Changed to use plain base 16 encoded file name string as key, rather than array reference as in SuikaWiki3. * SuikaWiki3LastModified.pm (save_data, set_data): Removed. (load_data): Renamed as |_load_data|. (get_data): Invoke |_load_data| if and only if necessary. * SuikaWiki3Props.pm: Don't treat "%" as a part of hash key.
| 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 $dir1 . '/CVS') { |
| 30 | ## TODO: ... |
| 31 | } |
| 32 | |
| 33 | unless (-d $dir2) { |
| 34 | mkdir $dir2 or die "$0: $dir2: $!"; |
| 35 | } |
| 36 | |
| 37 | unless (-d $dir2 . '/CVS') { |
| 38 | ## TODO: ... |
| 39 | } |
| 40 | |
| 41 | return $file_name; |
| 42 | } # _get_file_name |
| 43 | |
| 44 | 1; |
| admin@suikawiki.org | ViewVC Help |
| Powered by ViewVC 1.1.24 |