MT#6843 API: only autogen pass if not provided

lib/NGCP/Panel/Form/Subscriber/SubscriberAPI.pm

@@ -90,7 +90,16 @@ has_block 'actions' => (
 
 # override parent here to prevent any password magic
 sub update_fields {
-    my $self = shift;
+    my ($self) = @_;
+    my $c = $self->ctx;
+    return unless $c;
+
+    if($c->config->{security}->{password_sip_autogenerate}) {
+        $self->field('password')->required(0);
+    }
+    if($c->config->{security}->{password_web_autogenerate}) {
+        $self->field('webpassword')->required(0);
+    }
 }
 
 1;

lib/NGCP/Panel/Utils/Subscriber.pm

@@ -161,14 +161,14 @@ sub create_subscriber {
     }
 
     my $passlen = $c->config->{security}->{password_min_length} || 8;
-    if($c->config->{security}->{password_sip_autogenerate}) {
+    if($c->config->{security}->{password_sip_autogenerate} && !$params->{password}) {
         $params->{password} = String::MkPasswd::mkpasswd(
             -length => $passlen,
             -minnum => 1, -minlower => 1, -minupper => 1, -minspecial => 1,
             -distribute => 1, -fatal => 1,
         );
     }
-    if($c->config->{security}->{password_web_autogenerate}) {
+    if($c->config->{security}->{password_web_autogenerate} && !$params->{webpassword}) {
         $params->{webpassword} = String::MkPasswd::mkpasswd(
             -length => $passlen,
             -minnum => 1, -minlower => 1, -minupper => 1, -minspecial => 1,