From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 6 Jun 2023 19:39:02 +0000 (+0100)
Subject: Break out quiz.pl
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=164199871316b503036a555618c2ea3f33d63f0e;p=bcp5-registry.git

Break out 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;