Committer: akanashin
LJSUP-12885: SMS notification - Add TajikistanU trunk/bin/misc/smsru_stats.pl
Modified: trunk/bin/misc/smsru_stats.pl =================================================================== --- trunk/bin/misc/smsru_stats.pl 2012-08-30 15:00:46 UTC (rev 12593) +++ trunk/bin/misc/smsru_stats.pl 2012-08-31 06:52:35 UTC (rev 12594) @@ -263,19 +263,19 @@ return $PHONES{$number} if exists $PHONES{$number}; - my $provider_name; for my $provider (keys %{$LJ::SMSRU{provider}}) { - my $code = $LJ::SMSRU{provider}->{$provider}->{code}; + if (my $check_number = $LJ::SMSRU{provider}->{$provider}->{check_number}) { + &$check_number($number); + $PHONES{$number} = $provider; + return $provider; + } + } - my ($def) = $number =~ /^$code(\d\d\d)\d{7}$/; - - next unless $def; - - $provider_name = $LJ::SMSRU{provider_by_code_def}->{$code.$def}; - if ($provider_name) { - $PHONES{$number} = $provider_name; - return $provider_name; - } + my ($def) = $number =~ /^7(\d\d\d)\d{7}$/; + my $provider_name = $LJ::SMSRU{provider_by_code_def}->{'7'.$def}; + if ($provider_name) { + $PHONES{$number} = $provider_name; + return $provider_name; } unless ($provider_name) {