| Line # | Revision | Author | |
|---|---|---|---|
| 1 | 8 | ahitrov@rambler.ru | <%args> |
| 2 | $name => undef | ||
| 3 | $SETS => undef | ||
| 4 | </%args> | ||
| 5 | <%init> | ||
| 6 | return undef unless ref $SETS and $name and exists $SETS->{$name}; | ||
| 7 | |||
| 8 | # Перекодировка... | ||
| 9 | my $str = $SETS->{$name}; | ||
| 10 | |||
| 11 | my $i = 0; | ||
| 12 | my $n = 0; | ||
| 13 | while ($i < 100) { | ||
| 14 | my ($res, $msg) = $rpc_client->id->get_tags_by_names( split(/\s*,\s*/, $str) ); | ||
| 15 | if ($res->{success} and ref($msg) eq 'HASH') { | ||
| 16 | return [keys %$msg]; | ||
| 17 | } | ||
| 18 | $i++ | ||
| 19 | } | ||
| 20 | return []; | ||
| 21 | </%init> |