modules/og2list/valid-recipient.pl

#!/usr/bin/perl -w

use strict;

use FindBin;
use Mail::Verp;
use DBI;

use vars qw(
	    $dsn $dbh

	    $dbtype $dbuser $dbauth $dbhost $dbase
	    $mail_domain

	    $query_address_stmt $query_address_handle

	    $num_list
	   );

# ----------------------------------------------------------------------

# Default values
$mail_domain = "localhost";

Mail::Verp->separator('+');

$dbtype = "mysql";
$dbase  = "";
$dbhost = "localhost";
$dbuser = "";
$dbauth = "";

do "$FindBin::Bin/mail.conf";

# ----------------------------------------------------------------------

$query_address_stmt=<<EOF;
SELECT 1 FROM og2list_groups
WHERE recipient
LIKE ?
EOF

$dsn = "DBI:$dbtype:$dbase:$dbhost";
$dbh = DBI->connect($dsn, $dbuser, $dbauth) or die;

$query_address_handle = $dbh->prepare($query_address_stmt) or die;

unless (exists $ARGV[0]) {
  die;
}

$query_address_handle->execute($ARGV[0]) or die;

$num_list=0;
while ($query_address_handle->fetchrow_array()) {
  $num_list++;
}

if ($query_address_handle->rows() >= 1) {
  print "$ARGV[0] is a valid address.\n";
  exit 0;
} else {
  print "$ARGV[0] is NOT a valid address ($num_list).\n";
  exit 1;
}

# Local Variables:
# mode:cperl
# End:
1	#!/usr/bin/perl -w
2
3	use strict;
4
5	use FindBin;
6	use Mail::Verp;
7	use DBI;
8
9	use vars qw(
10	$dsn $dbh
11
12	$dbtype $dbuser $dbauth $dbhost $dbase
13	$mail_domain
14
15	$query_address_stmt $query_address_handle
16
17	$num_list
18	);
19
20	# ----------------------------------------------------------------------
21
22	# Default values
23	$mail_domain = "localhost";
24
25	Mail::Verp->separator('+');
26
27	$dbtype = "mysql";
28	$dbase = "";
29	$dbhost = "localhost";
30	$dbuser = "";
31	$dbauth = "";
32
33	do "$FindBin::Bin/mail.conf";
34
35	# ----------------------------------------------------------------------
36
37	$query_address_stmt=<<EOF;
38	SELECT 1 FROM og2list_groups
39	WHERE recipient
40	LIKE ?
41	EOF
42
43	$dsn = "DBI:$dbtype:$dbase:$dbhost";
44	$dbh = DBI->connect($dsn, $dbuser, $dbauth) or die;
45
46	$query_address_handle = $dbh->prepare($query_address_stmt) or die;
47
48	unless (exists $ARGV[0]) {
49	die;
50	}
51
52	$query_address_handle->execute($ARGV[0]) or die;
53
54	$num_list=0;
55	while ($query_address_handle->fetchrow_array()) {
56	$num_list++;
57	}
58
59	if ($query_address_handle->rows() >= 1) {
60	print "$ARGV[0] is a valid address.\n";
61	exit 0;
62	} else {
63	print "$ARGV[0] is NOT a valid address ($num_list).\n";
64	exit 1;
65	}
66
67	# Local Variables:
68	# mode:cperl
69	# End: