New build path variable

[freeradius.git] / scripts / create-users.pl

diff --git a/scripts/create-users.pl b/scripts/create-users.pl
index c316e26..36d6f8a 100755 (executable)
--- a/scripts/create-users.pl
+++ b/scripts/create-users.pl
@@ -37,8 +37,8 @@ for ($num=0; $num<$numusers; $num++) {
                $num--;
                next;
        }
-       $userlist{$username} = 1;       
-       
+       $userlist{$username} = 1;
+
        # generate password
        $password = "";
        for($i=0; $i<rand($passlen)+2; $i++) {
@@ -46,13 +46,16 @@ for ($num=0; $num<$numusers; $num++) {
                $password .= $char;
        }
 
+       if (length($num)%2==1) {
+           $num="0".$num;
+       }
        printf PASS "$username:%s:1001:1001:Name:/dev/null:/dev/null\n", crypt($password, $password);
        printf SHAD "$username:%s:1000:0:99999:7:::\n", crypt($password, $password);
        printf RAD  "User-Name=$username, User-Password=$password,NAS-IP-Address=127.0.0.1,NAS-Port-Id=0\n\n";
        print NOCRYPT "$username:$password\n";
-       print USERS "$username  Auth-Type:=Local, User-Password==\"$password\"\n\tClass=\"0x$num\"\n\n";
-} 
-       
+       print USERS "$username  Cleartext-Password := \"$password\"\n\tClass=\"0x$num\"\n\n";
+}
+
 close(PASS);
 close(SHAD);
 close(RAD);