-my $im = $dry_run ? undef : PublicInbox::Import->new($git, $name, $email);
-binmode STDIN;
-my $msg = '';
-use PublicInbox::Filter::Vger;
-my $vger = PublicInbox::Filter::Vger->new;
-sub do_add ($$) {
- my ($im, $msg) = @_;
- $$msg =~ s/(\r?\n)+\z/$1/s;
- $msg = Email::MIME->new($$msg);
- $msg = $vger->scrub($msg);
- my $hdr = $msg->header_obj;
- my $date = $hdr->header_raw('Date');
- if ($date) {
- eval { str2time($date) };
- if ($@) {
- warn "bad Date: $date in ",
- $hdr->header_raw('Message-ID'), ": $@\n";
- }
+my $inboxdir = shift or die $usage; # /path/to/v2/repo
+my $ibx = {
+ inboxdir => $inboxdir,
+ name => $name,
+ version => $version,
+ address => [ $email ],
+ filter => $filter,
+};
+$ibx = PublicInbox::Inbox->new($ibx);
+unless ($dry_run) {
+ if ($version >= 2) {
+ require PublicInbox::V2Writable;
+ PublicInbox::V2Writable->new($ibx, 1)->init_inbox(0);