use PublicInbox::LeiCurl;
use PublicInbox::OnDestroy;
use Digest::SHA qw(sha256_hex sha1_hex);
+use POSIX qw(strftime);
our $LIVE; # pid => callback
our $FGRP_TODO; # objstore -> [ fgrp mirror objects ]
my $buf = delete($self->{'txt._/text/config/raw'}) // return;
my $dst = $self->{cur_dst} // $self->{dst};
my $f = "$dst/inbox.config.example";
- open my $fh, '>', $f or die "open($f): $!";
- print $fh $buf or die "print: $!";
- chmod(0444 & ~umask, $fh) or die "chmod($f): $!";
my $mtime = delete $self->{'mtime._/text/config/raw'};
- $fh->flush or die "flush($f): $!";
- if (defined $mtime) {
- utime($mtime, $mtime, $fh) or die "utime($f): $!";
+ if (sysopen(my $fh, $f, O_CREAT|O_EXCL|O_WRONLY)) {
+ print $fh $buf or die "print: $!";
+ chmod(0444 & ~umask, $fh) or die "chmod($f): $!";
+ $fh->flush or die "flush($f): $!";
+ if (defined $mtime) {
+ utime($mtime, $mtime, $fh) or die "utime($f): $!";
+ }
+ } elsif (!$!{EEXIST}) {
+ die "open($f): $!";
}
my $cfg = PublicInbox::Config->git_config_dump($f, $self->{lei}->{2});
my $ibx = $self->{ibx} = {};
sub set_description ($) {
my ($self) = @_;
my $dst = $self->{cur_dst} // $self->{dst};
- my $f = "$dst/description";
- open my $fh, '+>>', $f or die "open($f): $!";
- seek($fh, 0, SEEK_SET) or die "seek($f): $!";
- my $d = do { local $/; <$fh> } // die "read($f): $!";
- chomp(my $orig = $d);
+ chomp(my $orig = PublicInbox::Git::try_cat("$dst/description"));
+ my $d = $orig;
while (defined($d) && ($d =~ m!^\(\$INBOX_DIR/description missing\)! ||
$d =~ /^Unnamed repository/ || $d !~ /\S/)) {
$d = delete($self->{'txt.description'});
}
$d //= 'mirror of '.($self->{cur_src} // $self->{src});
- chomp $d;
- return if $d eq $orig;
- seek($fh, 0, SEEK_SET) or die "seek($f): $!";
- truncate($fh, 0) or die "truncate($f): $!";
- print $fh $d, "\n" or die "print($f): $!";
- close $fh or die "close($f): $!";
+ atomic_write($dst, 'description', $d."\n") if $d ne $orig;
}
sub index_cloned_inbox {
push(@fetch, "-j$j") if $j;
while (my ($osdir, $fgrpv) = each %$todo) {
my $f = "$osdir/config";
+ return if !keep_going($self);
# clobber group from previous run atomically
my $cmd = ['git', "--git-dir=$osdir", qw(config -f),
push @{$self->{chg}->{fp_mismatch}}, $self->{-key};
}
+sub atomic_write ($$$) {
+ my ($dn, $bn, $raw) = @_;
+ my $ft = File::Temp->new(DIR => $dn, TEMPLATE => "$bn-XXXX");
+ print $ft $raw or die "print($ft): $!";
+ $ft->flush or die "flush($ft): $!";
+ ft_rename($ft, "$dn/$bn", 0666);
+}
+
# modifies the to-be-written manifest entry, and sets values from it, too
sub update_ent {
my ($self) = @_;
my $done = PublicInbox::OnDestroy->new($$, \&up_fp_done, $self);
start_cmd($self, $cmd, $opt, $done);
}
-
$new = $self->{-ent}->{head};
$cur = $self->{-local_manifest}->{$key}->{head} // "\0";
if (defined($new) && $new ne $cur) {
symlink($tgt, $ln) or die "symlink($tgt, $ln): $!";
}
}
+ if (defined(my $t = $self->{-ent}->{modified})) {
+ my ($dn, $bn) = ("$dst/info/web", 'last-modified');
+ my $orig = PublicInbox::Git::try_cat("$dn/$bn");
+ $t = strftime('%F %T', gmtime($t))." +0000\n";
+ File::Path::mkpath($dn);
+ atomic_write($dn, $bn, $t) if $orig ne $t;
+ }
+
$new = $self->{-ent}->{owner} // return;
$cur = $self->{-local_manifest}->{$key}->{owner} // "\0";
return if $cur eq $new;
utime($mtime, $mtime, "$ft") or die "utime(..., $ft): $!";
}
+sub dump_project_list ($$) {
+ my ($self, $m) = @_;
+ my $f = $self->{'-project-list'} // return;
+ my $old = PublicInbox::Git::try_cat($f);
+ my %new;
+
+ open my $dh, '<', '.' or die "open(.): $!";
+ chdir($self->{dst}) or die "chdir($self->{dst}): $!";
+ my @local = grep { -e $_ ? ($new{$_} = undef) : 1 } split(/\n/s, $old);
+ chdir($dh) or die "chdir(restore): $!";
+
+ $new{substr($_, 1)} = 1 for keys %$m; # drop leading '/'
+ my @list = sort keys %new;
+ my @remote = grep { !defined($new{$_}) } @list;
+
+ warn <<EOM if @remote;
+The following local repositories are ignored/gone from $self->{src}:
+EOM
+ warn "\t", $_, "\n" for @remote;
+ warn <<EOM if @local;
+The following repos in $f no longer exist on the filesystem:
+EOM
+ warn "\t", $_, "\n" for @local;
+
+ my (undef, $dn, $bn) = File::Spec->splitpath($f);
+ atomic_write($dn, $bn, join("\n", @list, ''));
+}
+
# FIXME: this gets confused by single inbox instance w/ global manifest.js.gz
sub try_manifest {
my ($self) = @_;
my $mis = delete $self->{chg}->{fp_mismatch};
if ($mis) {
my $t = (stat($ft))[9];
- require POSIX;
- $t = POSIX::strftime('%Y-%m-%d %k:%M:%S %z', localtime($t));
+ $t = strftime('%F %k:%M:%S %z', localtime($t));
warn <<EOM;
W: Fingerprints for the following repositories do not match
W: $mf_url @ $t:
warn(<<EOM, map { ("\t", $_, "\n") } @$bad) if $bad;
W: The following exist and have not been converted to symlinks
EOM
+ dump_project_list($self, $m);
ft_rename($ft, $manifest, 0666);
}
$ic =~ /\A(?:v1|v2|always|never)\z/s or die <<"";
--inbox-config must be one of `always', `v2', `v1', or `never'
- # we support --objstore= and --manifest= with '' (empty string)
- for my $default (qw(objstore manifest.js.gz)) {
- my ($k) = (split(/\./, $default))[0];
+ # we support these switches with '' (empty string).
+ # defaults match example conf distributed with grokmirror
+ my @pairs = qw(objstore objstore manifest manifest.js.gz
+ project-list projects.list);
+ while (@pairs) {
+ my ($k, $default) = splice(@pairs, 0, 2);
my $v = $lei->{opt}->{$k} // next;
$v = $default if $v eq '';
$v = "$self->{dst}/$v" if $v !~ m!\A\.{0,2}/!;
$self->{"-$k"} = $v;
}
+
local $LIVE = {};
local $TODO = {};
local $FGRP_TODO = {};