projects
/
zc
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
8b4b528
)
support 09 and +3859 numbers
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Tue, 10 May 2022 12:41:28 +0000
(14:41 +0200)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Tue, 10 May 2022 12:41:28 +0000
(14:41 +0200)
pg-listen-zc.pl
patch
|
blob
|
history
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";