- $tag, \$beg, $end, $sql);
- } elsif (my $uid = $q->{uid}) {
- if ($uid =~ /\A([0-9]+):([0-9]+|\*)\z/s) {
- my ($beg, $end) = ($1, $2);
- $end = $ibx->over->max if $end eq '*';
- uid_clamp($self, \$beg, \$end);
- $self->msg_more('* SEARCH');
- long_response($self, \&uid_search_uid_range,
- $tag, \$beg, $end, $sql);
- } elsif ($uid =~ /\A[0-9]+\z/s) {
- $uid = $ibx->over->get_art($uid) ? " $uid" : '';
- "* SEARCH$uid\r\n$tag OK Search done\r\n";
- } else {
- "$tag BAD Error\r\n";
- }
+ $tag, [], $sql, $range_info);