my ($self, $svc) = @_;
my $result = $self->request_user_edit(
'Add' => 1,
$self->svc_acct_params($svc),
my ($self, $svc) = @_;
my $result = $self->request_user_edit(
'Add' => 1,
$self->svc_acct_params($svc),
my $url = URI->new('http://' . $self->host . $path);
warn "$me request: \n".Dumper(\@params)."\n\n" if $DEBUG >= 2;
my $response = $self->ua->post($url, \@params);
my $url = URI->new('http://' . $self->host . $path);
warn "$me request: \n".Dumper(\@params)."\n\n" if $DEBUG >= 2;
my $response = $self->ua->post($url, \@params);
'db_$D$Users.StartDate' => $setup_date,
'db_$D$Users.UserExpiryDate' => $expire_date,
'db_$RS$Users.GroupName' => $self->option('group'),
'db_$D$Users.StartDate' => $setup_date,
'db_$D$Users.UserExpiryDate' => $expire_date,
'db_$RS$Users.GroupName' => $self->option('group'),