git-svn-id: svn+ssh://svn.dolda2000.com/srv/svn/repos/src/utils@1111
959494ce-11ee-0310-bf91-
de5d638817bd
}
push @matches, $match;
}
}
push @matches, $match;
}
- for $match (@matches) {
- print "$match\n";
- }
}
push @matches, $match;
}
}
push @matches, $match;
}
- for $match (@matches) {
- print "$match\n";
- }
$yppid = open YP, "-|";
if($yppid == 0) {
$yppid = open YP, "-|";
if($yppid == 0) {
+ $mod = 0;
+ bt: while(1) {
+ if(@matches = yplookup $tel) {
+ for $match (@matches) {
+ print $match;
+ print " ($tel)" if $mod;
+ print "\n";
+ }
+ last bt;
+ }
+ last bt if !($tel =~ /(.+)[^0](0*)$/);
+ $tel = $1 . "0" . $2;
+ $mod = 1;
+ }
exit 0;
}
$wppid = open WP, "-|";
if($wppid == 0) {
exit 0;
}
$wppid = open WP, "-|";
if($wppid == 0) {
+ for $match (wplookup $tel) {
+ print "$match\n";
+ }
exit 0;
}
binmode(YP, ":utf8");
exit 0;
}
binmode(YP, ":utf8");