Check-in [ada3faa9e3]
Not logged in

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Add correct group to newly added/blocked users
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: ada3faa9e3f70c675fb1d921c0a36959d4c41766
User & Date: bernd 2019-05-30 23:51:32
Context
2019-06-04
00:42
Scale down check-in: 45f34d2267 user: bernd tags: trunk
2019-05-30
23:51
Add correct group to newly added/blocked users check-in: ada3faa9e3 user: bernd tags: trunk
20:51
Fix find-prev-chatline problem check-in: 3f26366090 user: bernd tags: trunk
Changes
Hide Diffs Unified Diffs Show Whitespace Changes Patch

Changes to gui.fs.

1086
1087
1088
1089
1090
1091
1092
1093
1094
1095
1096
1097
1098
1099
1100
1101
1102
1103
1104
0 Value invitations-notify
Variable invitation-stack

: invitations-s/h ( flag -- )
    invitations swap  IF  /flop  ELSE  /flip  THEN  drop +resize ;

: add-user ( key-o -- )
    data >o perm%default ke-mask !
    o cell- ke-end over - ke-pk $@ key| key# #! o o> .dispose ;
: sub-user ( key-o -- )
    data >o perm%blocked ke-mask !
    o cell- ke-end over - ke-pk $@ key| key# #! o o> .dispose ;

: add-invitation ( addr u -- )
    over >r read-pk2key$ sample-key .clone >o
    o invitation-stack >stack
    {{
	ke-nick $@ }}text
	glue*ll }}glue







|
|

|
|







1086
1087
1088
1089
1090
1091
1092
1093
1094
1095
1096
1097
1098
1099
1100
1101
1102
1103
1104
0 Value invitations-notify
Variable invitation-stack

: invitations-s/h ( flag -- )
    invitations swap  IF  /flop  ELSE  /flip  THEN  drop +resize ;

: add-user ( key-o -- )
    data >o perm%default ke-mask !  "peer" >group-id set-group
    o cell- ke-end over - ke-pk $@ key| key# #! o> save-keys ;
: sub-user ( key-o -- )
    data >o perm%blocked ke-mask !  "blocked" >group-id set-group
    o cell- ke-end over - ke-pk $@ key| key# #! o> save-keys ;

: add-invitation ( addr u -- )
    over >r read-pk2key$ sample-key .clone >o
    o invitation-stack >stack
    {{
	ke-nick $@ }}text
	glue*ll }}glue