Add mail check script

#6
NixOS · Sep 17, 2024 · dfd7bfc · dfd7bfc
1 parent 3f84029
commit dfd7bfc
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/scripts/check-mail.pl b/scripts/check-mail.pl
@@ -0,0 +1,14 @@
+#!/usr/bin/env perl
+
+# From https://github.com/andrewcmyers/civs/blob/cbef7e7a0c5dccc0072096db958d2900174bfe16/cgi-bin/mail.pm#L46-L52
+sub CheckAddr {
+    (my $addr) = @_;
+
+    return ($addr =~ m/^[a-z0-9!#$%&'*+\/=?^_`{|}~-]+(?:\.[a-z0-9!#$%&'*+\/=?^_`{|}~-]+)*@(?:[a-z0-9](?:[a-z0-9-]*[a-z0-9])?\.)+(?:[A-Z]{2,8})$/i);
+}
+
+while(my $line = <>) {
+    if (!CheckAddr($line)) {
+        print($line)
+    }
+}