From osas@voipembedded.com Tue Jan 21 16:21:00 2020
From: Ovidiu Sas <osas@voipembedded.com>
To: sr-users@lists.kamailio.org
Subject: Re: [SR-Users] Printing xavp
Date: Tue, 21 Jan 2020 10:20:37 -0500
Message-ID:
 <CAND0Lkti_rhGXpEkbCjTxTvx4E0J3=j_BcLaiOpWL8RYaKEyzA@mail.gmail.com>
In-Reply-To:
 <CAKmcL2=JAThytxcgTtGzvxVVrja8RBm1_+ArVDVQV2LdWGiNOg@mail.gmail.com>
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="===============1765131864=="

--===============1765131864==
Content-Type: text/plain; charset="utf-8"
Content-Transfer-Encoding: quoted-printable

Here's something that works:
    $xavp(x=3D>a) =3D "1";
    $xavp(x[0]=3D>b) =3D "2";
    $xavp(x=3D>a) =3D "10";
    $xavp(x[0]=3D>b) =3D "20";
    $xavp(x=3D>a) =3D "100";
    $xavp(x[0]=3D>b) =3D "200";


    $var(i) =3D 0;
    while (pv_isset("$xavp(x[$var(i)])")) {
        xlog("L_INFO", "[$mi] xavp_copy $var(i)\n");
        xavp_copy("x", "$var(i)", "y");
        $var(i) =3D $var(i) + 1;
    }
    xlog("L_INFO", "[$mi] x is duplicated to y\n");

    $var(i) =3D 0;
    while (pv_isset("$xavp(y[0])")) {
        xavp_params_implode("y", "$var(out)");
        xlog("L_INFO", "[$mi] xavp(y[$var(i)])=3D$var(out)\n");
        pv_unset("$xavp(y[0)");
        $var(i) =3D $var(i) + 1;
    }


The output:
Jan 21 10:18:12 asrock k[29060]: INFO: <script>: [1258] xavp_copy 0
Jan 21 10:18:12 asrock k[29060]: INFO: <script>: [1258] xavp_copy 1
Jan 21 10:18:12 asrock k[29060]: INFO: <script>: [1258] xavp_copy 2
Jan 21 10:18:12 asrock k[29060]: INFO: <script>: [1258] x is duplicated to y
Jan 21 10:18:12 asrock k[29060]: INFO: <script>: [1258] xavp(y[0])=3Db=3D200;=
a=3D100;
Jan 21 10:18:12 asrock k[29060]: INFO: <script>: [1258] xavp(y[1])=3Db=3D20;a=
=3D10;
Jan 21 10:18:12 asrock k[29060]: INFO: <script>: [1258] xavp(y[2])=3Db=3D2;a=
=3D1;

-ovidiu

On Tue, Jan 21, 2020 at 12:54 AM Julien Chavanton <jchavanton(a)gmail.com> wr=
ote:
>
> This code as it is is useless, unless we print the content or do something =
before making the copy but can provide a way to to duplicate/reorder stacks.
>
> Maybe looping over
>
>   if (defined $xavp(x[$var(i)]))
>
> Is sufficient, no need to pv_unset
> _______________________________________________
> Kamailio (SER) - Users Mailing List
> sr-users(a)lists.kamailio.org
> https://lists.kamailio.org/cgi-bin/mailman/listinfo/sr-users



--=20
VoIP Embedded, Inc.
http://www.voipembedded.com


--===============1765131864==--