Mercurial > hg > foxridge-archiver

comparison MPIWGStor.pm @ 49:4d958249d337

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
updated junk file list for netatalk special files
author casties
date Tue, 06 Mar 2007 18:41:25 +0100
parents 398ef4b8f072
children 116162d2d06e
comparison
equal deleted inserted replaced
48:173e9823761e 49:4d958249d337
10 use vars qw(@ISA @EXPORT $VERSION 10 use vars qw(@ISA @EXPORT $VERSION
11 $debug %junk_files %index_files $index_file_perm $archived_index_file_perm 11 $debug %junk_files %index_files $index_file_perm $archived_index_file_perm
12 $file_perm); 12 $file_perm);
13 use Exporter; 13 use Exporter;
14 14
15 $VERSION = 0.6.2; # ROC 10.2.2006 15 $VERSION = 0.6.3; # ROC 6.3.2007
16 16
17 @ISA = qw(Exporter); 17 @ISA = qw(Exporter);
18 18
19 @EXPORT = qw($debug %junk_files %index_files $index_file_perm $archived_index_file_perm 19 @EXPORT = qw($debug %junk_files %index_files $index_file_perm $archived_index_file_perm
20 $file_perm 20 $file_perm
25 # debug level 25 # debug level
26 $debug = 0; 26 $debug = 0;
27 27
28 # junk files 28 # junk files
29 %junk_files = ( 29 %junk_files = (
30 '.HSResource' => '.HSResource', 30 # netatalk stuff
31 '.HSancillary' => '.HSancillary', 31 '.AppleDB' => '.AppleDB',
32 '.HSicon' => '.HSicon', 32 '.AppleDesktop' => '.AppleDesktop',
33 'Network Trash Folder' => 'Network Trash Folder', 33 '.AppleDouble' => '.AppleDouble',
34 'TheVolumeSettingsFolder' => 'TheVolumeSettingsFolder', 34 '.FBCIndex' => '.FBCIndex',
35 '.DS_Store' => '.DS_Store' 35 '.FBCLockFolder' => '.FBCLockFolder',
36 ); 36 ':2eTemporaryItems' => ':2eTemporaryItems',
37 ':2eDS_Store' => ':2eDS_Store',
38 # standard appleshare stuff
39 '.DS_Store' => '.DS_Store',
40 '.TemporaryItems' => '.TemporaryItems',
41 'Network Trash Folder' => 'Network Trash Folder',
42 'TheVolumeSettingsFolder' => 'TheVolumeSettingsFolder',
43 # old appleshare software turds
44 '.HSResource' => '.HSResource',
45 '.HSancillary' => '.HSancillary',
46 '.HSicon' => '.HSicon'
47 );
37 48
38 # filenames to not delete (but archive) 49 # filenames to not delete (but archive)
39 %index_files = ( 50 %index_files = (
40 'index.meta' => 'index.meta', 51 'index.meta' => 'index.meta',
41 'index.meta.old' => 'index.meta.old' 52 'index.meta.old' => 'index.meta.old'