blob: f50ed3ca415a702ae24a474f22b8f47879be1457 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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;
}
|