From 164199871316b503036a555618c2ea3f33d63f0e Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 6 Jun 2023 20:39:02 +0100
Subject: [PATCH] Break out quiz.pl

---
 bcp5-registry.pl |  8 ++------
 quiz.pl          | 11 +++++++++++
 2 files changed, 13 insertions(+), 6 deletions(-)
 create mode 100644 quiz.pl

diff --git a/bcp5-registry.pl b/bcp5-registry.pl
index b0c7690..5447771 100755
--- a/bcp5-registry.pl
+++ b/bcp5-registry.pl
@@ -76,6 +76,7 @@ require 'utils.pl';
 require 'networks.pl';
 require 'listdb.pl';
 require 'passwords.pl';
+require 'quiz.pl';
 
 if (!($invokestyle eq 'manual' || $invokestyle eq 'maintain')) {
     lock_database();
@@ -205,12 +206,7 @@ if ($invokestyle eq 'maintain') {
     
 } elsif (length $in{'mailpasswd'}) {
 
-    if (! $in{'quiz'}) {
-        finish_error('noquiz');
-    } elsif ($in{'quiz'} !~ m{^(?:bcp5|rfc1918)$}i) {
-        finish_error('badquiz');
-    }
-
+    quiz_check_answer();
     read_database();
     get_entry();
     show_entry();
diff --git a/quiz.pl b/quiz.pl
new file mode 100644
index 0000000..7737ebd
--- /dev/null
+++ b/quiz.pl
@@ -0,0 +1,11 @@
+#!/usr/bin/perl
+
+sub quiz_check_answer () {
+    if (! $in{'quiz'}) {
+        finish_error('noquiz');
+    } elsif ($in{'quiz'} !~ m{^(?:bcp5|rfc1918)$}i) {
+        finish_error('badquiz');
+    }
+}
+
+1;
-- 
2.30.2