1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/scripts/s4-basic1.case	Mon Aug 03 17:45:02 2015 +0900
     1.3 @@ -0,0 +1,22 @@
     1.4 +  "home"|"")
     1.5 +    rowid=${2%%[!A-Z0-9a-z_]*}
     1.6 +    contenttype; echo
     1.7 +    # func   tbl-deffile	rowidForUpdation
     1.8 +    default_smail $formdir/memo.def
     1.9 +    ;;
    1.10 +  "edittable")
    1.11 +    contenttype; echo
    1.12 +    m4 -D_TITLE_="既存レコードの編集" $layout/html.m4.html
    1.13 +    edittable "$formdir/$2.def" "$2" "$3"
    1.14 +    ;;
    1.15 +  "viewtable")
    1.16 +    contenttype; echo
    1.17 +    m4 -D_TITLE_="レコードの詳細" $layout/html.m4.html
    1.18 +    viewtable "$formdir/$2.def" "$2" "$3"
    1.19 +    ;;
    1.20 +  "showattc")
    1.21 +    # $2=table_m $3=rowid $4=val
    1.22 +    shift
    1.23 +    showattc "$@"
    1.24 +    exit 0
    1.25 +   ;;

     2.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     2.2 +++ b/scripts/s4-sns.case	Mon Aug 03 17:45:02 2015 +0900
     2.3 @@ -0,0 +1,64 @@
     2.4 +  home|"")
     2.5 +    contenttype; echo
     2.6 +    err HOME: just in rowid=`getpar rowid`
     2.7 +    [ -n "`getpar rowid`" ] && par2table $formdir/user.def
     2.8 +    showhome ${2:-$user}
     2.9 +    ;;
    2.10 +  login)
    2.11 +    contenttype; echo
    2.12 +    myargs=""
    2.13 +    showlogin
    2.14 +    ;;
    2.15 +  # "edittable")
    2.16 +  #   contenttype; echo
    2.17 +  #   m4 -D_TITLE_="グループ編集/削除" $layout/html.m4.html
    2.18 +  #   edittable "$formdir/$2.def" "$2" "$3"
    2.19 +  #   ;;
    2.20 +  "showattc")
    2.21 +    shift
    2.22 +    showattc "$@"
    2.23 +    exit 0			# Do not output further chunks
    2.24 +    ;;
    2.25 +  invite|groupman|userconf|groupconf|mems|grps|grp|grpaction|commission|editheading|editart|showattc|send2mem)
    2.26 +    contenttype; echo
    2.27 +    [ -n "$1" ] && shift
    2.28 +    $stage "$@"
    2.29 +    ;;
    2.30 +  "blog")	# $2=grpID
    2.31 +    contenttype; echo
    2.32 +    . ./s4-blog.sh
    2.33 +    blog_addentry $2
    2.34 +    ;;
    2.35 +  "replyblog")
    2.36 +    contenttype; echo
    2.37 +    rowid=${2%%[!A-Z0-9a-z_]*}
    2.38 +    ## err ROWid=$rowid, '$2'=$2
    2.39 +    . ./s4-blog.sh
    2.40 +err blog_reply $rowid
    2.41 +    blog_reply $rowid
    2.42 +    ;;
    2.43 +  lshandout|gethandout)
    2.44 +    contenttype; echo
    2.45 +    rowid=${2%%[!A-Z0-9a-z_]*}
    2.46 +    if [ -z "$rowid" ]; then
    2.47 +      echo "話題番号が未指定です。" | html p
    2.48 +      return
    2.49 +    fi
    2.50 +    . ./s4-blog.sh
    2.51 +    $stage $rowid
    2.52 +    ;;
    2.53 +  lsmyfile)
    2.54 +    contenttype; echo
    2.55 +    . ./s4-blog.sh
    2.56 +    shift
    2.57 +    $stage "$@"
    2.58 +    ;;
    2.59 +  "searchart")			# $2=blogowner
    2.60 +    contenttype; echo
    2.61 +    m4 -D_TITLE_="検索結果" $layout/html.m4.html
    2.62 +    . ./s4-blog.sh
    2.63 +    searchart $2
    2.64 +    ;;
    2.65 +  *)
    2.66 +    exec $0 login
    2.67 +    ;;