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: |
ada3faa9e3f70c675fb1d921c0a36959 |
| User & Date: | bernd 2019-05-30 23:51:32.790 |
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
Changes to gui.fs.
| ︙ | ︙ | |||
1086 1087 1088 1089 1090 1091 1092 |
0 Value invitations-notify
Variable invitation-stack
: invitations-s/h ( flag -- )
invitations swap IF /flop ELSE /flip THEN drop +resize ;
: add-user ( key-o -- )
| | | | | | 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
|
| ︙ | ︙ |