From ce45bdfca43008785329cfa51aa7c807c0603dd5 Mon Sep 17 00:00:00 2001
From: Mickey Nasriachi <mickey@cpan.org>
Date: Sat, 3 May 2025 15:03:50 +0000
Subject: [PATCH] bin/author - support alternative input file

---
 bin/author.pl | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/bin/author.pl b/bin/author.pl
index 4289408..dbdeacd 100644
--- a/bin/author.pl
+++ b/bin/author.pl
@@ -51,14 +51,17 @@
 };
 
 # args
-my $pauseid;
-GetOptions( "pauseid=s" => \$pauseid );
+my ( $pauseid, $whois_file );
+GetOptions(
+    "whois_file=s" => \$whois_file,
+    "pauseid=s"    => \$pauseid,
+);
 
 # setup
 my $es = MetaCPAN::ES->new( type => "author" );
 
 log_info {'Reading 00whois'};
-my $authors_data = read_00whois();
+my $authors_data = $whois_file || read_00whois();
 
 if ($pauseid) {
     log_info {"Indexing 1 author"};