[PATCH 0/2] import_vger_from_mbox improvements

[PATCH 0/2] import_vger_from_mbox improvements

[Eric Wong]

There are lots of mboxes out there :)

Eric Wong (2):
  import_vger_from_mbox: drop redundant "use" statements
  import_vger_from_mbox: add --filter parameter

 scripts/import_vger_from_mbox | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

[PATCH 1/2] import_vger_from_mbox: drop redundant "use" statements

[Eric Wong]

PublicInbox::InboxWritable takes care of those imports.
---
 scripts/import_vger_from_mbox | 3 ---
 1 file changed, 3 deletions(-)

diff --git a/scripts/import_vger_from_mbox b/scripts/import_vger_from_mbox
index 0e5ba6b4..b3aceb6b 100644
--- a/scripts/import_vger_from_mbox
+++ b/scripts/import_vger_from_mbox
@@ -4,10 +4,7 @@
 use strict;
 use warnings;
 use Getopt::Long qw/:config gnu_getopt no_ignore_case auto_abbrev/;
-use PublicInbox::MIME;
 use PublicInbox::InboxWritable;
-use PublicInbox::Import;
-use PublicInbox::MDA;
 my $usage = "usage: $0 NAME EMAIL DIR <MBOX\n";
 my $dry_run;
 my $version = 2;

[PATCH 2/2] import_vger_from_mbox: add --filter parameter

[Eric Wong]

It shouldn't be hard to make this into a more generic
importer not specific to vger lists.
---
 scripts/import_vger_from_mbox | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/scripts/import_vger_from_mbox b/scripts/import_vger_from_mbox
index b3aceb6b..d1ce7231 100644
--- a/scripts/import_vger_from_mbox
+++ b/scripts/import_vger_from_mbox
@@ -9,10 +9,12 @@ my $usage = "usage: $0 NAME EMAIL DIR <MBOX\n";
 my $dry_run;
 my $version = 2;
 my $variant = 'mboxrd';
+my $filter = 'PublicInbox::Filter::Vger';
 my %opts = (
 	'n|dry-run' => \$dry_run,
 	'V|version=i' => \$version,
 	'F|format=s' => \$variant,
+	'filter=s' => \$filter,
 );
 GetOptions(%opts) or die $usage;
 if ($variant ne 'mboxrd' && $variant ne 'mboxo') {
@@ -26,7 +28,7 @@ my $ibx = {
 	name => $name,
 	version => $version,
 	address => [ $email ],
-	filter => 'PublicInbox::Filter::Vger',
+	filter => $filter,
 };
 $ibx = PublicInbox::Inbox->new($ibx);
 unless ($dry_run) {