1 home|"")

2 contenttype; echo

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

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)

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 ## err ROWid=$rowid, '$2'=$2

36 . ./s4-blog.sh

37 err blog_reply2 $rowid

38 blog_reply $rowid

39 ;;

40 aid[1-9]*)

41 arid=${1#aid}

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

43 . ./s4-blog.sh

44 err b_r_a "$arid"

45 blog_reply_article "$arid"

46 ;;

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

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

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

50 exit 0

51 ;;

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

53 case "$stage" in

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

55 esac

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

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

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

59 return

60 fi

61 . ./s4-blog.sh

62 $stage $rowid

63 ;;

64 lsmyfile)

65 contenttype; echo

66 . ./s4-blog.sh

67 shift

68 $stage "$@"

69 ;;

70 "searchart") # $2=blogowner

71 contenttype; echo

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

73 . ./s4-blog.sh

74 searchart $2

75 ;;

76 *)

77 exec $0 login

78 ;;