# HG changeset patch
# User HIROSE Yuuji <yuuji@gentei.org>
# Date 1438591502 -32400
# Node ID 6b47328b08b320f93638dc3b6c335c7b4ff7919a
# Parent  8d234636f7b5742006d9a265179853daf3bae39d
add scripts/

diff -r 8d234636f7b5 -r 6b47328b08b3 scripts/s4-basic1.case
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/scripts/s4-basic1.case	Mon Aug 03 17:45:02 2015 +0900
@@ -0,0 +1,22 @@
+  "home"|"")
+    rowid=${2%%[!A-Z0-9a-z_]*}
+    contenttype; echo
+    # func   tbl-deffile	rowidForUpdation
+    default_smail $formdir/memo.def
+    ;;
+  "edittable")
+    contenttype; echo
+    m4 -D_TITLE_="既存レコードの編集" $layout/html.m4.html
+    edittable "$formdir/$2.def" "$2" "$3"
+    ;;
+  "viewtable")
+    contenttype; echo
+    m4 -D_TITLE_="レコードの詳細" $layout/html.m4.html
+    viewtable "$formdir/$2.def" "$2" "$3"
+    ;;
+  "showattc")
+    # $2=table_m $3=rowid $4=val
+    shift
+    showattc "$@"
+    exit 0
+   ;;
diff -r 8d234636f7b5 -r 6b47328b08b3 scripts/s4-sns.case
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/scripts/s4-sns.case	Mon Aug 03 17:45:02 2015 +0900
@@ -0,0 +1,64 @@
+  home|"")
+    contenttype; echo
+    err HOME: just in rowid=`getpar rowid`
+    [ -n "`getpar rowid`" ] && par2table $formdir/user.def
+    showhome ${2:-$user}
+    ;;
+  login)
+    contenttype; echo
+    myargs=""
+    showlogin
+    ;;
+  # "edittable")
+  #   contenttype; echo
+  #   m4 -D_TITLE_="グループ編集/削除" $layout/html.m4.html
+  #   edittable "$formdir/$2.def" "$2" "$3"
+  #   ;;
+  "showattc")
+    shift
+    showattc "$@"
+    exit 0			# Do not output further chunks
+    ;;
+  invite|groupman|userconf|groupconf|mems|grps|grp|grpaction|commission|editheading|editart|showattc|send2mem)
+    contenttype; echo
+    [ -n "$1" ] && shift
+    $stage "$@"
+    ;;
+  "blog")	# $2=grpID
+    contenttype; echo
+    . ./s4-blog.sh
+    blog_addentry $2
+    ;;
+  "replyblog")
+    contenttype; echo
+    rowid=${2%%[!A-Z0-9a-z_]*}
+    ## err ROWid=$rowid, '$2'=$2
+    . ./s4-blog.sh
+err blog_reply $rowid
+    blog_reply $rowid
+    ;;
+  lshandout|gethandout)
+    contenttype; echo
+    rowid=${2%%[!A-Z0-9a-z_]*}
+    if [ -z "$rowid" ]; then
+      echo "話題番号が未指定です。" | html p
+      return
+    fi
+    . ./s4-blog.sh
+    $stage $rowid
+    ;;
+  lsmyfile)
+    contenttype; echo
+    . ./s4-blog.sh
+    shift
+    $stage "$@"
+    ;;
+  "searchart")			# $2=blogowner
+    contenttype; echo
+    m4 -D_TITLE_="検索結果" $layout/html.m4.html
+    . ./s4-blog.sh
+    searchart $2
+    ;;
+  *)
+    exec $0 login
+    ;;