@@ -597,98 +597,6 @@ todo: add some way to remove fields. Fields in profile can only be modified or
597
597
}
598
598
}
599
599
600
-
601
-
602
- =head2 lookup_globus_user
603
-
604
- $users = $obj->lookup_globus_user($usernames)
605
-
606
- =over 4
607
-
608
- =item Parameter and return types
609
-
610
- =begin html
611
-
612
- <pre >
613
- $usernames is a reference to a list where each element is an UserProfile.username
614
- $users is a reference to a hash where the key is an UserProfile.username and the value is an UserProfile.GlobusUser
615
- username is a string
616
- GlobusUser is a reference to a hash where the following keys are defined:
617
- email has a value which is a string
618
- fullName has a value which is a string
619
- userName has a value which is a string
620
-
621
- </pre >
622
-
623
- =end html
624
-
625
- =begin text
626
-
627
- $usernames is a reference to a list where each element is an UserProfile.username
628
- $users is a reference to a hash where the key is an UserProfile.username and the value is an UserProfile.GlobusUser
629
- username is a string
630
- GlobusUser is a reference to a hash where the following keys are defined:
631
- email has a value which is a string
632
- fullName has a value which is a string
633
- userName has a value which is a string
634
-
635
-
636
- =end text
637
-
638
- =item Description
639
-
640
-
641
-
642
- =back
643
-
644
- =cut
645
-
646
- sub lookup_globus_user
647
- {
648
- my ($self , @args ) = @_ ;
649
-
650
- # Authentication: required
651
-
652
- if ((my $n = @args ) != 1)
653
- {
654
- Bio::KBase::Exceptions::ArgumentValidationError-> throw(error =>
655
- " Invalid argument count for function lookup_globus_user (received $n , expecting 1)" );
656
- }
657
- {
658
- my ($usernames ) = @args ;
659
-
660
- my @_bad_arguments;
661
- (ref ($usernames ) eq ' ARRAY' ) or push (@_bad_arguments, " Invalid type for argument 1 \" usernames\" (value was \" $usernames \" )" );
662
- if (@_bad_arguments) {
663
- my $msg = " Invalid arguments passed to lookup_globus_user:\n " . join (" " , map { " \t $_ \n " } @_bad_arguments);
664
- Bio::KBase::Exceptions::ArgumentValidationError-> throw(error => $msg ,
665
- method_name => ' lookup_globus_user' );
666
- }
667
- }
668
-
669
- my $url = $self -> {url };
670
- my $result = $self -> {client }-> call($url , $self -> {headers }, {
671
- method => " UserProfile.lookup_globus_user" ,
672
- params => \@args ,
673
- });
674
- if ($result ) {
675
- if ($result -> is_error) {
676
- Bio::KBase::Exceptions::JSONRPC-> throw(error => $result -> error_message,
677
- code => $result -> content-> {error }-> {code },
678
- method_name => ' lookup_globus_user' ,
679
- data => $result -> content-> {error }-> {error } # JSON::RPC::ReturnObject only supports JSONRPC 1.1 or 1.O
680
- );
681
- } else {
682
- return wantarray ? @{$result -> result} : $result -> result-> [0];
683
- }
684
- } else {
685
- Bio::KBase::Exceptions::HTTP-> throw(error => " Error invoking method lookup_globus_user" ,
686
- status_line => $self -> {client }-> status_line,
687
- method_name => ' lookup_globus_user' ,
688
- );
689
- }
690
- }
691
-
692
600
693
601
sub status
694
602
{
@@ -732,16 +640,16 @@ sub version {
732
640
Bio::KBase::Exceptions::JSONRPC-> throw(
733
641
error => $result -> error_message,
734
642
code => $result -> content-> {code },
735
- method_name => ' lookup_globus_user ' ,
643
+ method_name => ' update_user_profile ' ,
736
644
);
737
645
} else {
738
646
return wantarray ? @{$result -> result} : $result -> result-> [0];
739
647
}
740
648
} else {
741
649
Bio::KBase::Exceptions::HTTP-> throw(
742
- error => " Error invoking method lookup_globus_user " ,
650
+ error => " Error invoking method update_user_profile " ,
743
651
status_line => $self -> {client }-> status_line,
744
- method_name => ' lookup_globus_user ' ,
652
+ method_name => ' update_user_profile ' ,
745
653
);
746
654
}
747
655
}
@@ -987,40 +895,6 @@ profile has a value which is an UserProfile.UserProfile
987
895
988
896
989
897
990
- =head2 GlobusUser
991
-
992
- =over 4
993
-
994
-
995
-
996
- =item Definition
997
-
998
- =begin html
999
-
1000
- <pre >
1001
- a reference to a hash where the following keys are defined:
1002
- email has a value which is a string
1003
- fullName has a value which is a string
1004
- userName has a value which is a string
1005
-
1006
- </pre >
1007
-
1008
- =end html
1009
-
1010
- =begin text
1011
-
1012
- a reference to a hash where the following keys are defined:
1013
- email has a value which is a string
1014
- fullName has a value which is a string
1015
- userName has a value which is a string
1016
-
1017
-
1018
- =end text
1019
-
1020
- =back
1021
-
1022
-
1023
-
1024
898
=cut
1025
899
1026
900
package Bio::KBase::UserProfile::Client::RpcClient ;
0 commit comments