new

[zc] / pg-listen-zc.pl

diff --git a/pg-listen-zc.pl b/pg-listen-zc.pl
index eddbaa0..0a4cdec 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";
@@ -87,7 +87,7 @@ while (1) {
                                                print $s "From: Senzori Alert <alert\@senzori.subvision.hr>\nTo: $email\nSubject: alert $name $time\n\n$msg\n\n" . dump($row) . "\n.\n";
                                                close($s);
 
-                                               my $cmd = "ssh -p 22022 -i /home/dpavlin/.ssh/sendsms_rsa asterisk\@192.168.44.212 $number $msg";
+                                               my $cmd = "ssh -p 22022 -i /home/dpavlin/.ssh/sendsms_rsa asterisk\@192.168.200.240 $number $msg";
                                                print ts,"## $cmd\n";
                                                system $cmd;
                                        }