From e53a573b9b927cb1a93defb4a2bf28f56642d26a Mon Sep 17 00:00:00 2001
From: Florian Pritz <bluewind@xssn.at>
Date: Mon, 5 Apr 2010 12:33:38 +0200
Subject: add check-mail-addr.pl

Signed-off-by: Florian Pritz <bluewind@xssn.at>
---
 check-mail-addr.pl | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100755 check-mail-addr.pl

(limited to 'check-mail-addr.pl')

diff --git a/check-mail-addr.pl b/check-mail-addr.pl
new file mode 100755
index 0000000..f50ed3c
--- /dev/null
+++ b/check-mail-addr.pl
@@ -0,0 +1,17 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+use Mail::CheckUser qw(check_email last_check);
+use File::Basename;
+
+if(@ARGV != 1) {
+  print "usage: ", basename($0), " <emailaddress>\n";
+  exit 2;
+}
+
+if(check_email($ARGV[0])) {
+  exit 0;
+} else {
+  print last_check()->{reason}, "\n";
+  exit 1;
+}
-- 
cgit v1.2.3-24-g4f1b