[Mldonkey-commits] mldonkey distrib/ChangeLog src/daemon/driver/dr...

[mldonkey-commits]

CVSROOT:        /sources/mldonkey
Module name:    mldonkey
Changes by:     spiralvoice <spiralvoice>       07/01/17 18:53:28

Modified files:
        distrib        : ChangeLog 
        src/daemon/driver: driverMain.ml 

Log message:
        patch #5673

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/mldonkey/distrib/ChangeLog?cvsroot=mldonkey&r1=1.1153&r2=1.1154
http://cvs.savannah.gnu.org/viewcvs/mldonkey/src/daemon/driver/driverMain.ml?cvsroot=mldonkey&r1=1.134&r2=1.135

Patches:
Index: distrib/ChangeLog
===================================================================
RCS file: /sources/mldonkey/mldonkey/distrib/ChangeLog,v
retrieving revision 1.1153
retrieving revision 1.1154
diff -u -b -r1.1153 -r1.1154
--- distrib/ChangeLog   17 Jan 2007 18:51:41 -0000      1.1153
+++ distrib/ChangeLog   17 Jan 2007 18:53:28 -0000      1.1154
@@ -15,6 +15,7 @@
 =========
 
 2007/01/17
+5673: New core start parameter: -useradd "user pass", needed for Debian package
 5678: New options for command force_web_infos: kind/URL (thx to Schlumpf)
 
 2007/01/15

Index: src/daemon/driver/driverMain.ml
===================================================================
RCS file: /sources/mldonkey/mldonkey/src/daemon/driver/driverMain.ml,v
retrieving revision 1.134
retrieving revision 1.135
diff -u -b -r1.134 -r1.135
--- src/daemon/driver/driverMain.ml     8 Dec 2006 12:26:25 -0000       1.134
+++ src/daemon/driver/driverMain.ml     17 Jan 2007 18:53:28 -0000      1.135
@@ -305,6 +305,23 @@
       "-pid", Arg.String (fun s -> pid := s;
       ),
        _s ": directory for pid file";
+      "-useradd", Arg.Rest (fun s ->
+        (match String2.split s ' ' with
+        | user :: pass :: _ ->
+            if user2_user_exists user then
+              begin
+                user2_user_set_password (user2_user_find user) pass;
+                Printf.printf "%sPassword of user %s changed\n%!" (log_time 
()) user
+              end
+            else
+              begin
+                user2_user_add user (Md4.Md4.string pass) ();
+                Printf.printf "%sUser %s added\n%!" (log_time ()) user
+              end;
+            Options.save_with_help_private users_ini;
+            Printf.printf "%sSaved changes to users.ini\n%!" (log_time ())
+        | _ -> raise (Arg.Bad "invalid syntax"));
+          exit 0), _s "\"<user> <pass>\" : create user/change password";
     ] @
       !more_args
       @