Mercurial > hgrepos > hgweb.cgi > s4
annotate scripts/s4-sns.case @ 898:411ce55c0dae
AJAX posting and PJAX file-viewer initially introduced.
author | HIROSE Yuuji <yuuji@gentei.org> |
---|---|
date | Sat, 02 Jan 2021 15:15:03 +0900 |
parents | 5843755e3b30 |
children |
rev | line source |
---|---|
525 | 1 case $stage in |
701
fdd9c98f0888
Remove some debug output and include timestamp in err()
HIROSE Yuuji <yuuji@gentei.org>
parents:
525
diff
changeset
|
2 home|"") |
92 | 3 contenttype; echo |
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 ;; | |
764 | 22 invite|groupman|userconf|groupconf|mems|grps|grp|groupupdate|groupclone|grpaction|joingrpadmit|commission|editheading|editart|showattc|send2mem|mvart|migrategrp) |
92 | 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 . ./s4-blog.sh | |
801
d368b937956e
Limit the number of articles to show by default
HIROSE Yuuji <yuuji@gentei.org>
parents:
701
diff
changeset
|
36 blog_reply $rowid "$3" |
92 | 37 ;; |
520
0d8785102531
Resolve confliction of s4.cgi
HIROSE Yuuji <yuuji@gentei.org>
parents:
130
diff
changeset
|
38 aid[1-9]*) |
0d8785102531
Resolve confliction of s4.cgi
HIROSE Yuuji <yuuji@gentei.org>
parents:
130
diff
changeset
|
39 arid=${1#aid} |
0d8785102531
Resolve confliction of s4.cgi
HIROSE Yuuji <yuuji@gentei.org>
parents:
130
diff
changeset
|
40 arid=${arid%%[!0-9]*} |
0d8785102531
Resolve confliction of s4.cgi
HIROSE Yuuji <yuuji@gentei.org>
parents:
130
diff
changeset
|
41 . ./s4-blog.sh |
0d8785102531
Resolve confliction of s4.cgi
HIROSE Yuuji <yuuji@gentei.org>
parents:
130
diff
changeset
|
42 blog_reply_article "$arid" |
0d8785102531
Resolve confliction of s4.cgi
HIROSE Yuuji <yuuji@gentei.org>
parents:
130
diff
changeset
|
43 ;; |
0d8785102531
Resolve confliction of s4.cgi
HIROSE Yuuji <yuuji@gentei.org>
parents:
130
diff
changeset
|
44 reload*) # Dirty workaround for reloading page just after submit |
0d8785102531
Resolve confliction of s4.cgi
HIROSE Yuuji <yuuji@gentei.org>
parents:
130
diff
changeset
|
45 newurl="$urlbase?replyblog+${stage#*/}#bottom" |
0d8785102531
Resolve confliction of s4.cgi
HIROSE Yuuji <yuuji@gentei.org>
parents:
130
diff
changeset
|
46 echo "Refresh: 0; $newurl"; echo |
0d8785102531
Resolve confliction of s4.cgi
HIROSE Yuuji <yuuji@gentei.org>
parents:
130
diff
changeset
|
47 exit 0 |
0d8785102531
Resolve confliction of s4.cgi
HIROSE Yuuji <yuuji@gentei.org>
parents:
130
diff
changeset
|
48 ;; |
898
411ce55c0dae
AJAX posting and PJAX file-viewer initially introduced.
HIROSE Yuuji <yuuji@gentei.org>
parents:
889
diff
changeset
|
49 lshandout|lshandoutall|gethandout|gethandoutcsv|gethandoutcsv2|blogseen|getteamcsv|blog_setfrozen|blog_fetch) |
520
0d8785102531
Resolve confliction of s4.cgi
HIROSE Yuuji <yuuji@gentei.org>
parents:
130
diff
changeset
|
50 case "$stage" in |
0d8785102531
Resolve confliction of s4.cgi
HIROSE Yuuji <yuuji@gentei.org>
parents:
130
diff
changeset
|
51 lshandout*|blogseen*) contenttype; echo ;; |
0d8785102531
Resolve confliction of s4.cgi
HIROSE Yuuji <yuuji@gentei.org>
parents:
130
diff
changeset
|
52 esac |
92 | 53 rowid=${2%%[!A-Z0-9a-z_]*} |
54 if [ -z "$rowid" ]; then | |
55 echo "話題番号が未指定です。" | html p | |
56 return | |
57 fi | |
58 . ./s4-blog.sh | |
866
a2e2bf4ee7eb
Archive report files order by uname.
HIROSE Yuuji <yuuji@gentei.org>
parents:
862
diff
changeset
|
59 shift; shift |
a2e2bf4ee7eb
Archive report files order by uname.
HIROSE Yuuji <yuuji@gentei.org>
parents:
862
diff
changeset
|
60 $stage $rowid "$@" |
92 | 61 ;; |
62 lsmyfile) | |
63 contenttype; echo | |
64 . ./s4-blog.sh | |
65 shift | |
66 $stage "$@" | |
67 ;; | |
68 "searchart") # $2=blogowner | |
69 contenttype; echo | |
70 . ./s4-blog.sh | |
71 searchart $2 | |
72 ;; | |
73 *) | |
74 exec $0 login | |
75 ;; | |
524 | 76 esac |