X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;ds=sidebyside;f=7.1%2Fsrc%2Fclean-alan-list;fp=7.1%2Fsrc%2Fclean-alan-list;h=8dd25c57bd6be51dd871b79a091d379e2bd37371;hb=01534a94130c1f5a3a230cf4fe18365a235ba271;hp=0000000000000000000000000000000000000000;hpb=7b14ba883fb1046508c44be37b4c6ba5da5feacf;p=deb_pkgs%2Fscowl.git

diff --git a/7.1/src/clean-alan-list b/7.1/src/clean-alan-list
new file mode 100755
index 0000000..8dd25c5
--- /dev/null
+++ b/7.1/src/clean-alan-list
@@ -0,0 +1,10 @@
+#!/usr/bin/perl
+
+while (<>) 
+{
+  s/\r?\n$// or die;
+  s/[.:]$//;
+  next if /[ .\/-]/;
+  print "$_\n";
+  die unless /^[A-Za-z']+$/;
+}