1 case $stage in

2 home|"")

3 contenttype; echo

4 [ -n "`getpar rowid`" ] && par2table $formdir/user.def

5 showhome ${2:-$user}

6 ;;

7 login)

8 contenttype; echo

9 myargs=""

10 showlogin

11 ;;

12 # "edittable")

13 # contenttype; echo

14 # m4 -D_TITLE_="グループ編集/削除" $layout/html.m4.html

15 # edittable "$formdir/$2.def" "$2" "$3"

16 # ;;

17 "showattc")

18 shift

19 showattc "$@"

20 exit 0 # Do not output further chunks

21 ;;

22 invite|groupman|userconf|groupconf|mems|grps|grp|groupupdate|groupclone|grpaction|joingrpadmit|commission|editheading|editart|showattc|send2mem|mvart|migrategrp)

23 contenttype; echo

24 [ -n "$1" ] && shift

25 $stage "$@"

26 ;;

27 "blog") # $2=grpID

28 contenttype; echo

29 . ./s4-blog.sh

30 blog_addentry $2

31 ;;

32 "replyblog")

33 contenttype; echo

34 rowid=${2%%[!A-Z0-9a-z_]*}

35 . ./s4-blog.sh

36 blog_reply $rowid "$3"

37 ;;

38 aid[1-9]*)

39 arid=${1#aid}

40 arid=${arid%%[!0-9]*}

41 . ./s4-blog.sh

42 blog_reply_article "$arid"

43 ;;

44 reload*) # Dirty workaround for reloading page just after submit

45 newurl="$urlbase?replyblog+${stage#*/}#bottom"

46 echo "Refresh: 0; $newurl"; echo

47 exit 0

48 ;;

49 lshandout|lshandoutall|gethandout|gethandoutcsv|gethandoutcsv2|blogseen|getteamcsv|blog_setfrozen)

50 case "$stage" in

51 lshandout*|blogseen*) contenttype; echo ;;

52 esac

53 rowid=${2%%[!A-Z0-9a-z_]*}

54 if [ -z "$rowid" ]; then

55 echo "話題番号が未指定です。" | html p

56 return

57 fi

58 . ./s4-blog.sh

59 shift; shift

60 $stage $rowid "$@"

61 ;;

62 lsmyfile)

63 contenttype; echo

64 . ./s4-blog.sh

65 shift

66 $stage "$@"

67 ;;

68 "searchart") # $2=blogowner

69 contenttype; echo

70 . ./s4-blog.sh

71 searchart $2

72 ;;

73 *)

74 exec $0 login

75 ;;

76 esac