create_user_3 in a perl script

Darn typos... I misspelled the "permissions" member int he UserInfo structure. I tested this one and it did create the user for me.

sub handle_create()
{
  my ($UserName, $FullName, $Role, $Partition ) = @_;

  if ( $UserName eq "" ) { $UserName = "testuser1"; }
  if ( $FullName eq "" ) { $FullName = "New User"; }
  if ( $Role eq "" ) { $Role = USER_ROLE_GUEST ; }
  if ( $Partition eq "" ) { $Partition = "Common" ; }

  $Password = {
    is_encrypted => 0,
    password => ""
  };

  $UserID = {
    name => $UserName,
    full_name => $FullName
  };

  $UserPermissions = {
    role => $Role,
    partition => $Partition
  };

  $UserInfo = {
    user => $UserID,
    password => $Password,
    permissions => [$UserPermissions],
    login_shell => "",
  };

  $soapResponse = $UserManagement->create_user_3(
    SOAP::Data->name(users => [$UserInfo])
  );
};

That's the down side of perl with it's dynamic language. You need to make sure you get all the parameter names correct. Using a more tightly bound language like .Net or Java will not have this problem.

-Joe