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 Side-by-Side Diffs Ignore Whitespace Patch

Changes to gui.fs.

  1086   1086   0 Value invitations-notify
  1087   1087   Variable invitation-stack
  1088   1088   
  1089   1089   : invitations-s/h ( flag -- )
  1090   1090       invitations swap  IF  /flop  ELSE  /flip  THEN  drop +resize ;
  1091   1091   
  1092   1092   : add-user ( key-o -- )
  1093         -    data >o perm%default ke-mask !
  1094         -    o cell- ke-end over - ke-pk $@ key| key# #! o o> .dispose ;
         1093  +    data >o perm%default ke-mask !  "peer" >group-id set-group
         1094  +    o cell- ke-end over - ke-pk $@ key| key# #! o> save-keys ;
  1095   1095   : sub-user ( key-o -- )
  1096         -    data >o perm%blocked ke-mask !
  1097         -    o cell- ke-end over - ke-pk $@ key| key# #! o o> .dispose ;
         1096  +    data >o perm%blocked ke-mask !  "blocked" >group-id set-group
         1097  +    o cell- ke-end over - ke-pk $@ key| key# #! o> save-keys ;
  1098   1098   
  1099   1099   : add-invitation ( addr u -- )
  1100   1100       over >r read-pk2key$ sample-key .clone >o
  1101   1101       o invitation-stack >stack
  1102   1102       {{
  1103   1103   	ke-nick $@ }}text
  1104   1104   	glue*ll }}glue