1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47
|
set term ^; // voici la ligne 31 dans mon éditeur
execute block returns(usr varchar(31), passwd varchar(36))
as
declare variable frst varchar(32);
declare variable mddl varchar(32);
declare variable lst varchar(32);
declare variable attr varchar(4096);
declare variable sql varchar(4096);
declare variable uid int;
declare variable gid int;
begin
for select rdb$user_name, rdb$first_name, rdb$middle_name, rdb$last_name, rdb$uid, rdb$gid,
uuid_to_char(gen_uuid()) from rdb$users
where rdb$user_name is not null and upper(rdb$user_name) != 'SYSDBA'
into :usr, :frst, :mddl, :lst, :uid, :gid, :passwd
do begin
-- basic fields
sql = 'create or alter user ' || usr || ' password ''' || passwd || '''';
if (frst is not null) then sql = sql || ' firstname ''' || frst || '''';
if (mddl is not null) then sql = sql || ' middlename ''' || mddl || '''';
if (lst is not null) then sql = sql || ' lastname ''' || lst || '''';
sql = sql || ' active';
-- attributes
attr = '';
if (uid is not null) then attr = 'uid=''' || uid || '''';
if (gid is not null) then begin
if (char_length(attr) > 0) then attr = attr || ', ';
attr = attr || 'gid=''' || gid || '''';
end
if (char_length(attr) > 0) then begin
sql = sql || ' tags (' || attr || ')';
end
-- create it
execute statement sql;
-- and show password to admin
suspend;
end
end^
commit^
exit^ |
Partager