Do some basic mailing list name validation

1 files changed, 5 insertions, 1 deletions

diff --git a/ag b/ag
index 3e7bf55..c8371db 100755
--- a/ag
+++ b/ag
@@ -53,7 +53,11 @@ op = OptionParser.new do |opts|
   end
 
   opts.on('--list NAME', 'Name of the mailing list to work with') do |name|
-    $options.name = name
+    if name =~ /^[a-zA-Z-]+$/
+      $options.name = name
+    else
+      abort 'List name can only consist of letters and hyphens.'
+    end
   end
 
   opts.on('--file', 'The argument is a file') do