Mercurial > hgrepos > hgweb.cgi > s4
view s4.cgi @ 197:d0a5ffc2cabf
div.dumptable within div.fold should have scroll bar
author | HIROSE Yuuji <yuuji@gentei.org> |
---|---|
date | Sun, 24 Apr 2016 17:06:34 +0859 |
parents | 5d83ff0bbd40 |
children | ca7e27d9224e |
line wrap: on
line source
#!/bin/sh # 愛 mydir=`dirname $0` . $mydir/s4-funcs.sh cgiinit if [ -z "$guestonlymode" ]; then if [ x"$1" = x"reg" ]; then contenttype; echo regist $2 putfooter exit fi dologin fi case ${SERVER_SOFTWARE} in bozohttp*) # Ugly workaround for bozohttpd, which can't send # two or more arguments. set -- `echo "$@"|(IFS=+ read a b c d e f g; echo $a $b $c $d $e $f $g)` ;; esac # err 1=$1 2=$2 3=$3 4=$4 stage=`getpar stage` stage=${stage:-$1} case ${stage} in 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|groupupdate|grpaction|joingrpadmit|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_reply2 $rowid blog_reply $rowid ;; lshandout|gethandout) if [ x"$stage" = x"lshandout" ]; then contenttype; echo fi 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 ;; esac putfooter