summaryrefslogtreecommitdiffstats
path: root/mdkonline.pm
diff options
context:
space:
mode:
Diffstat (limited to 'mdkonline.pm')
-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 = ();