summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDaouda Lo <daouda@mandriva.com>2004-09-27 10:09:57 +0000
committerDaouda Lo <daouda@mandriva.com>2004-09-27 10:09:57 +0000
commit4c7bab35c375c462afd005786741552c431b870e (patch)
tree509a2b299b4f7777417ce916fce4e6954ab50c63
parent9e7b482a26b04d2097cf9a1af121c762a72794a0 (diff)
downloadmgaonline-4c7bab35c375c462afd005786741552c431b870e.tar
mgaonline-4c7bab35c375c462afd005786741552c431b870e.tar.gz
mgaonline-4c7bab35c375c462afd005786741552c431b870e.tar.bz2
mgaonline-4c7bab35c375c462afd005786741552c431b870e.tar.xz
mgaonline-4c7bab35c375c462afd005786741552c431b870e.zip
check_valid_email in mdkonline
-rw-r--r--mdkonline.pm6
1 files changed, 6 insertions, 0 deletions
diff --git a/mdkonline.pm b/mdkonline.pm
index e77774e4..393bed95 100644
--- a/mdkonline.pm
+++ b/mdkonline.pm
@@ -66,6 +66,12 @@ sub subscribe_online {
$str
}
+sub check_valid_email {
+ my $email = shift;
+ my $st = $email->get_text=~/^[a-z][a-z0-9_\-]+(\.[a-z][a-z0-9_]+)?@([a-z][a-z0-9_\-]+\.){1,3}(\w{2,4})(\.[a-z]{2})?$/ix ? 1 : 0;
+ return $st
+}
+
sub rpm_ver_parse {
my ($ver) = @_;
my @verparts = ();