- chomp $file;
- print STDERR "digest($file) = ";
- my $digest = digest($file);
- $digest =~ y:/:_:;
- print STDERR "$digest\n";
- $digest =~ s:^(.)(.)(.):$1/$2/$3:osg;
- my ($parent) = ($digest =~ m:^(.*/):osg);
- $parent = "$link_dir/$parent";
- mkpath($parent, { verbose => 1 });
- die "mkpath: $parent: $!" unless -d $parent;
- link_files($file, "$link_dir/$digest");
+ for (1) {
+ chomp $file;
+
+ # Get file stat data
+ print STDERR '.';
+ my $st = lstat($file);
+ die "lstat: $file: $!" unless $st;
+
+ # Oops?
+ next unless -f _;
+
+ # Skip the file if it has far too many links already
+ next if ($st->nlink > $link_count_max);
+
+ # Check link to inode
+ my $inode_link = prepare_parents($link_dir, $st->ino . 'I');
+ print STDERR 'I';
+ my $inode_st = lstat($inode_link);
+ my $update_links;
+ if ($inode_st) {
+ my $inode_dev = $inode_st->dev;
+ my $inode_ino = $inode_st->ino;
+ my $file_dev = $st->dev;
+ my $file_ino = $st->ino;
+ if ($inode_ino != $file_ino || $inode_dev != $file_dev) {
+ warn "inode link '$inode_link' is wrong (inode $inode_ino should be $file_ino)" if $inode_ino != $file_ino;
+ warn "inode link '$inode_link' is wrong (dev $inode_dev should be $file_dev)" if $inode_dev != $file_dev;
+ $update_links = 1;
+ }
+ } else {
+ $update_links = 1;
+ }
+ print STDERR "\b";
+
+ # If neither criteria for updating link is met, leave it as-is
+ next unless $update_links;
+
+ # Compute digest
+ print STDERR 'd';
+ my $digest = digest($file);
+ print STDERR "\b";
+
+ # Base64 uses /, we prefer _
+ $digest =~ y:/:_:;
+
+ # Check link to digest
+ my $digest_link = prepare_parents($link_dir, "${digest}D");
+ print STDERR 'D';
+ my $digest_st = lstat($digest_link);
+ if ($digest_st) {
+ my $digest_nlink = $digest_st->nlink;
+ if ($digest_nlink > 31990) {
+ print STDERR 'u';
+ unlink($digest_link) or die "unlink: $digest_link: $!";
+ undef $digest_st;
+ }
+ }
+ print STDERR "\b";
+
+ # Which file are we keeping?
+ my $keep_ino;
+
+ # If digest link exists, link it to file
+ if ($digest_st) {
+ print STDERR 'c';
+ die "NOT identical!" if compare($digest_link, $file);
+
+ # Old, replace input with old file
+ print STDERR '-';
+ link_files($digest_link, $file);
+ $keep_ino = $digest_st->ino;
+ } else {
+ # New, add input to digest
+ print STDERR '+';
+ link_files($file, $digest_link);
+ $keep_ino = $st->ino;
+ }
+
+ # A link to the inode indicates we are done, so do it last
+ $inode_link = prepare_parents($link_dir, "${keep_ino}I");
+ print STDERR ' ';
+ link_files($digest_link, $inode_link);
+
+ }