Revision 8 (by ahitrov@rambler.ru, 2010/03/29 11:46:38) Contenido UTF-8 core files
<%args>
	$name => undef
	$SETS => undef
</%args>
<%init>
	return undef unless ref $SETS and $name and exists $SETS->{$name};

	# Перекодировка...
	my $str = $SETS->{$name};

    my $i = 0;
    my $n = 0;
    while ($i < 100) {
        my ($res, $msg) = $rpc_client->id->get_tags_by_names( split(/\s*,\s*/, $str) );
        if ($res->{success} and ref($msg) eq 'HASH') {
            return [keys %$msg];
        }
        $i++
    }
	return [];
</%init>