Mercurial > hgrepos > hgweb.cgi > s4

changeset 92:6b47328b08b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
add scripts/
author HIROSE Yuuji <yuuji@gentei.org>
date Mon, 03 Aug 2015 17:45:02 +0900
parents 8d234636f7b5
children dcd7a10760c6
files scripts/s4-basic1.case scripts/s4-sns.case
diffstat 2 files changed, 86 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- /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
+   ;;
--- /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
+    ;;

yatex.org