From 4c7bab35c375c462afd005786741552c431b870e Mon Sep 17 00:00:00 2001
From: Daouda Lo <daouda@mandriva.com>
Date: Mon, 27 Sep 2004 10:09:57 +0000
Subject:  check_valid_email in mdkonline

---
 mdkonline.pm | 6 ++++++
 1 file changed, 6 insertions(+)

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 = ();
-- 
cgit v1.2.1