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|grpaction|commission|editheading|editart|showattc|send2mem)

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_reply $rowid

38 blog_reply $rowid

39 ;;

40 lshandout|gethandout)

41 if [ x"$stage" = x"lshandout" ]; then

42 contenttype; echo

43 fi

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

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

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

47 return

48 fi

49 . ./s4-blog.sh

50 $stage $rowid

51 ;;

52 lsmyfile)

53 contenttype; echo

54 . ./s4-blog.sh

55 shift

56 $stage "$@"

57 ;;

58 "searchart") # $2=blogowner

59 contenttype; echo

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

61 . ./s4-blog.sh

62 searchart $2

63 ;;

64 *)

65 exec $0 login

66 ;;