diff options
| -rw-r--r-- | mdkonline.pm | 6 |
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 = (); |