Page History

my @attrs;
push @attrs, \SOAP::Data->value(
    SOAP::Data->name("key" => "config"),
    SOAP::Data->name("value" => \SOAP::Data->value(
      map {
        SOAP::Data->name("entries" => \SOAP::Data->value(
            map {
                SOAP::Data->name("key" => $_),
                SOAP::Data->name("value" => %config$config{$_})
        ))
    } keys %config
    } keys   ))%config
    ))
);

my $context = SOAP::Data->type("Context")->value(
    \SOAP::Data->value(
        SOAP::Data->name("id" => $cid),
        SOAP::Data->name("userAttributes" =>
            \SOAP::Data->value(
                SOAP::Data->name("entries" => @attrs)
            )
        )
    )
);

my $result = $OXResellerContextService->change($context, $oxaascreds);
if ($result->fault()) {
    print STDERR "Error changing context with name $ctxname:\n" .
        $result->faultstring() . "\n";
    next;
}