user/dev discussion of public-inbox itself
 help / color / mirror / code / Atom feed
blob c6c0c01b1332e5694279b828d9c5e6f0e1852b44 1151 bytes (raw)

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
# Copyright (C) 2021 all contributors <meta@public-inbox.org>
# License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>

# for the "lei init" command, not sure if it's even needed...
package PublicInbox::LeiInit;
use v5.10.1;
use File::Spec;

sub lei_init {
	my ($self, $dir) = @_;
	my $cfg = $self->_lei_cfg(1);
	my $cur = $cfg->{'leistore.dir'};
	$dir //= $self->store_path;
	$dir = $self->rel2abs($dir);
	my @cur = stat($cur) if defined($cur);
	$cur = File::Spec->canonpath($cur // $dir);
	my @dir = stat($dir);
	my $exists = "# leistore.dir=$cur already initialized" if @dir;
	if (@cur) {
		if ($cur eq $dir) {
			$self->_lei_store(1)->done;
			return $self->qerr($exists);
		}

		# some folks like symlinks and bind mounts :P
		if (@dir && "@cur[1,0]" eq "@dir[1,0]") {
			$self->lei_config('leistore.dir', $dir);
			$self->_lei_store(1)->done;
			return $self->qerr("$exists (as $cur)");
		}
		return $self->fail(<<"");
E: leistore.dir=$cur already initialized and it is not $dir

	}
	$self->lei_config('leistore.dir', $dir);
	$self->_lei_store(1)->done;
	$exists //= "# leistore.dir=$dir newly initialized";
	$self->qerr($exists);
}

1;

debug log:

solving c6c0c01b ...
found c6c0c01b in https://80x24.org/public-inbox.git

Code repositories for project(s) associated with this public inbox

	https://80x24.org/public-inbox.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).