Add change_password parameter to user creation API

lib/Ravada.pm

@@ -341,6 +341,7 @@ sub _init_user_admin {
         name => 'admin'
         ,password => 'admin'
         ,is_admin => 1
+        ,change_password => 1
     );
     warn "INFO: created default admin user 'admin' with password 'admin'\n"
         if $0 !~ /\.t$/;

lib/Ravada/Auth/SQL.pm

@@ -113,6 +113,7 @@ Adds a new user in the SQL database. Returns nothing.
            , password => $pass
            , is_admin => 0
        , is_temporary => 0
+     , change_password => 0
     );
 
 =cut
@@ -128,25 +129,26 @@ sub add_user {
     my $is_temporary= ($args{is_temporary} or 0);
     my $is_external= ($args{is_external} or 0);
     my $external_auth = $args{external_auth};
+    my $change_password = ($args{change_password} or 0);
 
-    delete @args{'name','password','is_admin','is_temporary','is_external', 'external_auth'};
+    delete @args{'name','password','is_admin','is_temporary','is_external', 'external_auth', 'change_password'};
 
     confess "WARNING: Unknown arguments ".Dumper(\%args)
         if keys %args;
 
 
     my $sth;
     eval { $sth = $$CON->dbh->prepare(
-            "INSERT INTO users (name,password,is_admin,is_temporary, is_external, external_auth)"
-            ." VALUES(?,?,?,?,?,?)");
+            "INSERT INTO users (name,password,is_admin,is_temporary, is_external, external_auth, change_password)"
+            ." VALUES(?,?,?,?,?,?,?)");
     };
     confess $@ if $@;
     if ($password && !$external_auth) {
         $password = sha1_hex($password);
     } else {
         $password = '*LK* no pss';
     }
-    $sth->execute($name,$password,$is_admin,$is_temporary, $is_external, $external_auth);
+    $sth->execute($name,$password,$is_admin,$is_temporary, $is_external, $external_auth, $change_password);
     $sth->finish;
 
     $sth = $$CON->dbh->prepare("SELECT id FROM users WHERE name = ? ");

t/user/50_admin.t

@@ -33,6 +33,7 @@ sub test_default_admin {
 
     my $user = Ravada::Auth::login('admin','admin');
     ok($user);
+    is($user->password_will_be_changed(),1);
 }
 
 ################################################################