support 09 and +3859 numbers

diff --git a/pg-listen-zc.pl b/pg-listen-zc.pl
index eddbaa0..7557cf0 100755 (executable)
--- a/pg-listen-zc.pl
+++ b/pg-listen-zc.pl
@@ -78,7 +78,7 @@ while (1) {
                                        while(<$cfg>) {
                                                chomp;
                                                my $email = $_;
-                                               my $number = $1 if $email =~ s{\s+0([0-9]+)$}{};
+                                               my $number = $1 if $email =~ s{\s+(?:\+385|0)([0-9]+)$}{};
                                                $number = '+385' . $number;
 
                                                print ts,"ALERT $email\n";