1 case $stage in

2 home|"")

3 contenttype; echo

4 err HOME: just in rowid=`getpar rowid`

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

6 showhome ${2:-$user}

7 ;;

8 login)

9 contenttype; echo

10 myargs=""

11 showlogin

12 ;;

13 # "edittable")

14 # contenttype; echo

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

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

17 # ;;

18 "showattc")

19 shift

20 showattc "$@"

21 exit 0 # Do not output further chunks

22 ;;

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

24 contenttype; echo

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

26 $stage "$@"

27 ;;

28 "blog") # $2=grpID

29 contenttype; echo

30 . ./s4-blog.sh

31 blog_addentry $2

32 ;;

33 "replyblog")

34 contenttype; echo

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

36 ## err ROWid=$rowid, '$2'=$2

37 . ./s4-blog.sh

38 err blog_reply2 $rowid

39 blog_reply $rowid

40 ;;

41 aid[1-9]*)

42 arid=${1#aid}

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

44 . ./s4-blog.sh

45 err b_r_a "$arid"

46 blog_reply_article "$arid"

47 ;;

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

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

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

51 exit 0

52 ;;

53 lshandout|lshandoutall|gethandout|gethandoutcsv|gethandoutcsv2|blogseen)

54 case "$stage" in

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

56 esac

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

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

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

60 return

61 fi

62 . ./s4-blog.sh

63 $stage $rowid

64 ;;

65 lsmyfile)

66 contenttype; echo

67 . ./s4-blog.sh

68 shift

69 $stage "$@"

70 ;;

71 "searchart") # $2=blogowner

72 contenttype; echo

73 m4 -D_TITLE_="検索結果" $layout/html.m4.html

74 . ./s4-blog.sh

75 searchart $2

76 ;;

77 *)

78 exec $0 login

79 ;;

80 esac