s4

changeset 424:c250bc6da8ad

Notify group join/resign of group to adminsl
author HIROSE Yuuji <yuuji@gentei.org>
date Mon, 10 Apr 2017 22:32:14 +0859
parents 21785d5da373
children 961173fdc904
files s4-funcs.sh
diffstat 1 files changed, 10 insertions(+), 0 deletions(-) [+]
line diff
     1.1 --- a/s4-funcs.sh	Sat Mar 18 08:25:55 2017 +0859
     1.2 +++ b/s4-funcs.sh	Mon Apr 10 22:32:14 2017 +0859
     1.3 @@ -2802,9 +2802,12 @@
     1.4      esac
     1.5    fi
     1.6    qgname=`sqlquote $1`
     1.7 +  grid=`query "SELECT rowid FROM grp WHERE gname=$qgname;"`
     1.8    cond="where gname=$qgname and user='$2'"
     1.9    if [ x"$3" = x"yes" ]; then
    1.10      query "replace into grp_mem values($qgname, '$2');"
    1.11 +    # Notify joingrp to admin
    1.12 +    action="に加入しました。"
    1.13      if [ -n "$4" ]; then
    1.14        if msg=`emaildomaincheck "$4"`; then
    1.15  	query "replace into grp_mem_s values($qgname, '$user', 'email', \
    1.16 @@ -2832,7 +2835,14 @@
    1.17      query "delete from grp_mem $cond;
    1.18  delete from grp_mem_s $cond;
    1.19  delete from grp_mem_m $cond;"
    1.20 +    action="から脱退しました。"
    1.21    fi
    1.22 +  smail "$(collectemail `getgroupadmins $1`)" "Member change of $1"<<-EOF
    1.23 +	$url?grp+$grid
    1.24 +    	$user (`gecos $user`)さんが
    1.25 +	グループ $1
    1.26 +	$action
    1.27 +	EOF
    1.28  }
    1.29  grp_add_team() (
    1.30    # $1=grp-rowid $2=team $3...=user-rowid(s)