[vuser] r571 committed - Fix parameter checking in CreateUser (issue 5)

[codesite...@google.com]

Revision: 571
Author: perlstalker
Date: Tue Sep 15 21:05:05 2009
Log: Fix parameter checking in CreateUser (issue 5)
http://code.google.com/p/vuser/source/detail?r=571

Modified:

/VUser-Google-ProvisioningAPI/trunk/lib/VUser/Google/ProvisioningAPI/V2_0.pm

=======================================
---
/VUser-Google-ProvisioningAPI/trunk/lib/VUser/Google/ProvisioningAPI/V2_0.pm
Tue Sep 1 08:26:41 2009
+++
/VUser-Google-ProvisioningAPI/trunk/lib/VUser/Google/ProvisioningAPI/V2_0.pm
Tue Sep 15 21:05:05 2009
@@ -8,7 +8,7 @@

use vars qw($VERSION);

-our $VERSION = '0.24';
+our $VERSION = '0.25';

use Carp;
use LWP::UserAgent qw(:strict);
@@ -477,7 +477,7 @@

=pod

-CreateUser($userName, $givenName, $familyName, $password, $quota)
+CreateUser($userName, $givenName, $familyName, $password, $quota,
$forceChange, $hashName)

=over

@@ -485,6 +485,8 @@
required. The C<$quota> argument is optional and may not do anything unless
your agreement with Google allows you to change quotas.

+C<$hashName>, if set, must be I<sha-1> or I<md5>.
+
CreateUser() returns a C<VUser::Google::ProvisioningAPI::V2_0::UserEntry>
object if
the request was successful and C<undef> otherwise.

@@ -495,7 +497,7 @@
sub CreateUser {
my $self = shift;

- if (@_ >= 4 and @_ <= 7) {
+ if (@_ < 4 and @_ > 7) {
$self->dprint("CreateUser method requires 4 to 7 arguments\n");
$self->{result}->{reason} = "CreateUser method requires 4 to 7 arguments";
return undef;