annotate s4-migrate.sh @ 1044:41921e6ada54 draft default tip

Modify procedure of resetPjaxViewers()
author HIROSE Yuuji <yuuji@gentei.org>
date Fri, 24 May 2024 06:40:03 +0900
parents f389a311a8d4
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
779
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1 #!/bin/sh
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2 # s4 - migration module
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3 # (C)2020 by HIROSE, Yuuji
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
5 srcdb=`unset DB; [ -f $1 ] && . ./$1 && echo ${DB:-db/cgi.sq3}`
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
6 dst=`unset DB; [ -f $2 ] && . ./$2 && echo "${DB:-db/cgi.sq3}|$URL"`
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
7 dstdb=${dst%\|*}
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
8 dsturl=${dst##*\|}
869
b2bb87a9b8a1 Supply main-db path on invocation from commandline
HIROSE Yuuji <yuuji@gentei.org>
parents: 868
diff changeset
9 type htmlescape >/dev/null 2>&1 || DB=$srcdb . `dirname $1`/s4-funcs.sh
780
b23f26406690 Migration logging and messages fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 779
diff changeset
10 case "$2" in
b23f26406690 Migration logging and messages fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 779
diff changeset
11 s4-config.sh) world=Base ;;
b23f26406690 Migration logging and messages fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 779
diff changeset
12 *) world=${2##*-config-}; world=${world%.*} ;;
b23f26406690 Migration logging and messages fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 779
diff changeset
13 esac
779
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
14 htmlworld=`echo "$world"|htmlescape`
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
15
786
809caeb20758 Migration caller set arguments beforehand
HIROSE Yuuji <yuuji@gentei.org>
parents: 784
diff changeset
16 err "--- Migration Started with \$1=$1 \$2=$2 at `date` ---"
780
b23f26406690 Migration logging and messages fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 779
diff changeset
17 err srcdb=$srcdb dstdb=$dstdb
b23f26406690 Migration logging and messages fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 779
diff changeset
18 err URL=$URL
b23f26406690 Migration logging and messages fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 779
diff changeset
19 err dstURL=$dsturl
779
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
20
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
21 shift 2
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
22
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
23 query "ATTACH DATABASE \"$dstdb\" AS dst;" || abort "Cannot attach db #{dstdb}"
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
24
865
8c69e0c2e6af Stand-alone invocation support
HIROSE Yuuji <yuuji@gentei.org>
parents: 824
diff changeset
25 if [ -z "$tmpd" ]; then
8c69e0c2e6af Stand-alone invocation support
HIROSE Yuuji <yuuji@gentei.org>
parents: 824
diff changeset
26 tmpd=`tmpd=$tmpdir mktempd` # If called from command line
8c69e0c2e6af Stand-alone invocation support
HIROSE Yuuji <yuuji@gentei.org>
parents: 824
diff changeset
27 if [ -z "$tmpd" -o ! -w "$tmpd" ]; then
8c69e0c2e6af Stand-alone invocation support
HIROSE Yuuji <yuuji@gentei.org>
parents: 824
diff changeset
28 err "-- Cannot detect temporary directory [$tmpd] --"
8c69e0c2e6af Stand-alone invocation support
HIROSE Yuuji <yuuji@gentei.org>
parents: 824
diff changeset
29 exit 2
8c69e0c2e6af Stand-alone invocation support
HIROSE Yuuji <yuuji@gentei.org>
parents: 824
diff changeset
30 fi
8c69e0c2e6af Stand-alone invocation support
HIROSE Yuuji <yuuji@gentei.org>
parents: 824
diff changeset
31 trap "rm -r $tmpd" EXIT INT HUP
8c69e0c2e6af Stand-alone invocation support
HIROSE Yuuji <yuuji@gentei.org>
parents: 824
diff changeset
32 fi
779
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
33 failure=0
868
2eaa037f35d0 Error handling of migration fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 865
diff changeset
34 faillist=""
779
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
35 for grid; do
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
36 grid=$((0 + $grid))
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
37 gnamesql="(SELECT gname FROM main.grp WHERE rowid=$grid)"
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
38 grp=`query "SELECT gname FROM main.grp WHERE rowid=$grid;"`
868
2eaa037f35d0 Error handling of migration fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 865
diff changeset
39 if [ -z "$grp" ]; then
2eaa037f35d0 Error handling of migration fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 865
diff changeset
40 echo "ID=$grid not found, skipped" | html p
2eaa037f35d0 Error handling of migration fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 865
diff changeset
41 continue
2eaa037f35d0 Error handling of migration fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 865
diff changeset
42 fi
779
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
43 htmlgrp=`echo "$grp"|htmlescape`
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
44 qgrp=`sqlquote "$grp"`
794
8448724f69e3 Account sync-ing and migration fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 792
diff changeset
45 if [ -n "`query \"SELECT gname FROM dst.grp WHERE gname=$qgrp;\"`" ]; then
779
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
46 echo "[$htmlgrp]グループがWorld[$htmlworld]にあるので中止します。"|html p
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
47 failure=$((failure+1))
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
48 continue
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
49 fi
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
50 echo "Copying $grid..."
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
51 query "BEGIN;"
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
52 query "REPLACE INTO dst.grp SELECT * FROM main.grp WHERE rowid=$grid;"
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
53 destrowid=`query "SELECT last_insert_rowid();"`
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
54 for tbl in grp_s grp_m grp_mem grp_mem_s grp_mem_m \
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
55 grp_adm grp_adm_s grp_adm_m; do
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
56 query "REPLACE INTO dst.$tbl SELECT * FROM main.$tbl
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
57 WHERE gname=$gnamesql;"
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
58 done
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
59 blogs=`query "SELECT group_concat(\"'\"||id||\"'\", ',')
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
60 FROM main.blog_s WHERE key='owner' AND val=$gnamesql;"`
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
61 echo blogs=$blogs
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
62 for tbl in blog blog_s blog_m; do
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
63 query <<-EOF
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
64 REPLACE INTO dst.$tbl
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
65 SELECT * FROM main.$tbl
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
66 WHERE id IN ($blogs);
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
67 EOF
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
68 done
784
f9702e2c6591 Ensure to roder by rowid
HIROSE Yuuji <yuuji@gentei.org>
parents: 780
diff changeset
69 for tbl in article article_s article_m; do
f9702e2c6591 Ensure to roder by rowid
HIROSE Yuuji <yuuji@gentei.org>
parents: 780
diff changeset
70 query <<-EOF
779
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
71 REPLACE INTO dst.$tbl
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
72 SELECT * FROM main.$tbl
784
f9702e2c6591 Ensure to roder by rowid
HIROSE Yuuji <yuuji@gentei.org>
parents: 780
diff changeset
73 WHERE id IN (SELECT id FROM main.article WHERE blogid IN ($blogs))
f9702e2c6591 Ensure to roder by rowid
HIROSE Yuuji <yuuji@gentei.org>
parents: 780
diff changeset
74 ORDER BY rowid;
779
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
75 EOF
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
76 done
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
77 ## Check the equality of two DBs
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
78 echo "grid=$grid grp=$grp qgrp=$qgrp" | htmlescape
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
79 # grp
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
80 d1=$(query <<-EOF
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
81 SELECT * FROM main.grp
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
82 NATURAL LEFT JOIN main.grp_s
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
83 NATURAL LEFT JOIN main.grp_m
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
84 WHERE gname=$qgrp
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
85 EXCEPT
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
86 SELECT * FROM dst.grp
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
87 NATURAL LEFT JOIN dst.grp_s
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
88 NATURAL LEFT JOIN dst.grp_m
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
89 WHERE gname=$qgrp;
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
90 EOF
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
91 )
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
92 err DONE
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
93 err d1="$d1"
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
94 # blog
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
95 d2=$(query <<-EOF
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
96 SELECT * FROM main.blog
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
97 NATURAL LEFT JOIN main.blog_s
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
98 NATURAL LEFT JOIN main.blog_m
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
99 WHERE id IN (SELECT id FROM main.blog_s
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
100 WHERE key='owner' AND val=$qgrp)
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
101 EXCEPT
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
102 SELECT * FROM dst.blog
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
103 NATURAL LEFT JOIN dst.blog_s
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
104 NATURAL LEFT JOIN dst.blog_m
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
105 WHERE id IN (SELECT id FROM dst.blog_s
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
106 WHERE key='owner' AND val=$qgrp);
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
107 EOF
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
108 )
786
809caeb20758 Migration caller set arguments beforehand
HIROSE Yuuji <yuuji@gentei.org>
parents: 784
diff changeset
109 err d2="$d2"
779
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
110 # article
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
111 d3=$(query <<-EOF
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
112 SELECT * FROM main.article
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
113 NATURAL LEFT JOIN main.article_s
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
114 NATURAL LEFT JOIN main.article_m
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
115 WHERE blogid IN ($blogs)
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
116 EXCEPT
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
117 SELECT * FROM dst.article
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
118 NATURAL LEFT JOIN dst.article_s
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
119 NATURAL LEFT JOIN dst.article_m
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
120 WHERE blogid IN ($blogs);
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
121 EOF
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
122 )
786
809caeb20758 Migration caller set arguments beforehand
HIROSE Yuuji <yuuji@gentei.org>
parents: 784
diff changeset
123 err d3="$d3"
779
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
124 if [ -z "$d1$d2$d3" ]; then
821
2465fff63ad9 Old group deletion at migration done in a transaction
HIROSE Yuuji <yuuji@gentei.org>
parents: 813
diff changeset
125 echo "Copy and verification done, rewriting URL in articles..."
780
b23f26406690 Migration logging and messages fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 779
diff changeset
126 echo "Old URL: $URL"
779
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
127 echo "New URL: $dsturl"
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
128 query <<-EOF
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
129 UPDATE dst.article_s
790
7ac852e8c216 Update URL only itself
HIROSE Yuuji <yuuji@gentei.org>
parents: 786
diff changeset
130 SET val=replace(val,
7ac852e8c216 Update URL only itself
HIROSE Yuuji <yuuji@gentei.org>
parents: 786
diff changeset
131 '${URL}?grp+$grid',
7ac852e8c216 Update URL only itself
HIROSE Yuuji <yuuji@gentei.org>
parents: 786
diff changeset
132 '${dsturl}?grp+$destrowid')
7ac852e8c216 Update URL only itself
HIROSE Yuuji <yuuji@gentei.org>
parents: 786
diff changeset
133 WHERE key='text' AND val LIKE '%${URL}%';
792
e086e07dfc9c Too much deletion fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 791
diff changeset
134 EOF
779
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
135 # Create blog-rowid conversion table
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
136 sedfile=$tmpd/arttrans.sed
786
809caeb20758 Migration caller set arguments beforehand
HIROSE Yuuji <yuuji@gentei.org>
parents: 784
diff changeset
137 # sedfile=tmp/arttrans.sed
779
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
138 query <<-EOF > $sedfile
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
139 WITH arttrans AS (
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
140 SELECT s.rowid srcrid, d.rowid dstrid
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
141 FROM main.article s JOIN dst.article d ON s.id=d.id
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
142 WHERE s.id in (SELECT id
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
143 FROM article WHERE blogid IN ($blogs))
795
6164d88fbc0e Update replyblog URL with ERE
HIROSE Yuuji <yuuji@gentei.org>
parents: 794
diff changeset
144 ) SELECT printf("/^>/s/\#%s($|[^0-9])/\#%s\1/g", srcrid, dstrid)
779
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
145 FROM arttrans;
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
146 EOF
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
147 query <<-EOF > $tmpd/repl.art.rowid
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
148 SELECT rowid FROM dst.article_s
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
149 WHERE key='text' AND val GLOB '>*#[1-9]*'
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
150 AND id IN (SELECT id FROM article WHERE blogid IN ($blogs));
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
151 EOF
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
152 sql=$tmpd/update.sql
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
153 for arid in `cat $tmpd/repl.art.rowid`; do
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
154 newval=`query "SELECT hex(val) FROM dst.article_s WHERE rowid=$arid;" \
786
809caeb20758 Migration caller set arguments beforehand
HIROSE Yuuji <yuuji@gentei.org>
parents: 784
diff changeset
155 | unhexize | sed -Ef "$sedfile" | hexize`
813
04034092338d Removing group of previous world, confirmation added
HIROSE Yuuji <yuuji@gentei.org>
parents: 795
diff changeset
156 echo "UPDATE dst.article_s SET val=X'$newval' WHERE rowid=$arid;"
04034092338d Removing group of previous world, confirmation added
HIROSE Yuuji <yuuji@gentei.org>
parents: 795
diff changeset
157 done >$sql
779
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
158 # Rewrite blog-links in the group
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
159 # Create sed script
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
160 sedfile2=${sedfile}2
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
161 query <<-EOF > $sedfile2
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
162 WITH blogtrans AS (
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
163 SELECT s.rowid srcrid, d.rowid dstrid
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
164 FROM main.blog s JOIN dst.blog d ON s.id=d.id
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
165 WHERE s.id IN ($blogs)
795
6164d88fbc0e Update replyblog URL with ERE
HIROSE Yuuji <yuuji@gentei.org>
parents: 794
diff changeset
166 ) SELECT printf('s/(\?replyblog)\+%s($|[^0-9])/\1+%s\2/g',
779
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
167 srcrid, dstrid)
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
168 FROM blogtrans;
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
169 EOF
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
170 bloglinks=$tmpd/bloglinks.rowid
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
171 query <<-EOF > $bloglinks
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
172 SELECT rowid FROM dst.article_s
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
173 WHERE key='text' AND val LIKE '%?replyblog+%'
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
174 AND id IN (SELECT id FROM article WHERE blogid IN ($blogs));
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
175 EOF
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
176 for arid in `cat $bloglinks`; do
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
177 newval=`query "SELECT hex(replace(val, '$URL', '$dsturl'))
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
178 FROM dst.article_s WHERE rowid=$arid;" \
795
6164d88fbc0e Update replyblog URL with ERE
HIROSE Yuuji <yuuji@gentei.org>
parents: 794
diff changeset
179 | unhexize | sed -Ef "$sedfile2" | hexize`
779
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
180 echo "UPDATE dst.article_s SET val=X'$newval' WHERE rowid=$arid;" >>$sql
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
181 done
824
fcf485cbabc6 At migration, translate direct-link to attachment files
HIROSE Yuuji <yuuji@gentei.org>
parents: 822
diff changeset
182 # Rewrite showattc Direct-Links
fcf485cbabc6 At migration, translate direct-link to attachment files
HIROSE Yuuji <yuuji@gentei.org>
parents: 822
diff changeset
183 attclinks=$(
fcf485cbabc6 At migration, translate direct-link to attachment files
HIROSE Yuuji <yuuji@gentei.org>
parents: 822
diff changeset
184 query <<-EOF
fcf485cbabc6 At migration, translate direct-link to attachment files
HIROSE Yuuji <yuuji@gentei.org>
parents: 822
diff changeset
185 SELECT group_concat(rowid, ',') FROM dst.article_s
fcf485cbabc6 At migration, translate direct-link to attachment files
HIROSE Yuuji <yuuji@gentei.org>
parents: 822
diff changeset
186 WHERE key='text' AND val LIKE '%?showattc+article_m+%'
fcf485cbabc6 At migration, translate direct-link to attachment files
HIROSE Yuuji <yuuji@gentei.org>
parents: 822
diff changeset
187 AND id IN (SELECT id FROM article WHERE blogid IN ($blogs));
fcf485cbabc6 At migration, translate direct-link to attachment files
HIROSE Yuuji <yuuji@gentei.org>
parents: 822
diff changeset
188 EOF
fcf485cbabc6 At migration, translate direct-link to attachment files
HIROSE Yuuji <yuuji@gentei.org>
parents: 822
diff changeset
189 )
fcf485cbabc6 At migration, translate direct-link to attachment files
HIROSE Yuuji <yuuji@gentei.org>
parents: 822
diff changeset
190 if [ -n "$attclinks" ]; then
fcf485cbabc6 At migration, translate direct-link to attachment files
HIROSE Yuuji <yuuji@gentei.org>
parents: 822
diff changeset
191 err attclinks=$attclinks
fcf485cbabc6 At migration, translate direct-link to attachment files
HIROSE Yuuji <yuuji@gentei.org>
parents: 822
diff changeset
192 sedfile3=${sedfile}3
fcf485cbabc6 At migration, translate direct-link to attachment files
HIROSE Yuuji <yuuji@gentei.org>
parents: 822
diff changeset
193 query <<-EOF > $sedfile3
fcf485cbabc6 At migration, translate direct-link to attachment files
HIROSE Yuuji <yuuji@gentei.org>
parents: 822
diff changeset
194 WITH attctrans AS (
fcf485cbabc6 At migration, translate direct-link to attachment files
HIROSE Yuuji <yuuji@gentei.org>
parents: 822
diff changeset
195 SELECT s.rowid srcarid, d.rowid dstarid
fcf485cbabc6 At migration, translate direct-link to attachment files
HIROSE Yuuji <yuuji@gentei.org>
parents: 822
diff changeset
196 FROM main.article_m s NATURAL JOIN dst.article_m d
fcf485cbabc6 At migration, translate direct-link to attachment files
HIROSE Yuuji <yuuji@gentei.org>
parents: 822
diff changeset
197 WHERE d.id IN (SELECT id FROM dst.article
fcf485cbabc6 At migration, translate direct-link to attachment files
HIROSE Yuuji <yuuji@gentei.org>
parents: 822
diff changeset
198 WHERE blogid IN ($blogs))
fcf485cbabc6 At migration, translate direct-link to attachment files
HIROSE Yuuji <yuuji@gentei.org>
parents: 822
diff changeset
199 ) SELECT printf('s/(\?showattc\+article_m)\+%s($|[^0-9])/\1+%s\2/g',
fcf485cbabc6 At migration, translate direct-link to attachment files
HIROSE Yuuji <yuuji@gentei.org>
parents: 822
diff changeset
200 srcarid, dstarid)
fcf485cbabc6 At migration, translate direct-link to attachment files
HIROSE Yuuji <yuuji@gentei.org>
parents: 822
diff changeset
201 FROM attctrans;
fcf485cbabc6 At migration, translate direct-link to attachment files
HIROSE Yuuji <yuuji@gentei.org>
parents: 822
diff changeset
202 EOF
fcf485cbabc6 At migration, translate direct-link to attachment files
HIROSE Yuuji <yuuji@gentei.org>
parents: 822
diff changeset
203 echo $attclinks | tr , '\n' | while read arid; do
fcf485cbabc6 At migration, translate direct-link to attachment files
HIROSE Yuuji <yuuji@gentei.org>
parents: 822
diff changeset
204 newval=`query "SELECT hex(val) FROM dst.article_s WHERE rowid=$arid;" \
fcf485cbabc6 At migration, translate direct-link to attachment files
HIROSE Yuuji <yuuji@gentei.org>
parents: 822
diff changeset
205 | unhexize | sed -Ef "$sedfile3" | hexize`
fcf485cbabc6 At migration, translate direct-link to attachment files
HIROSE Yuuji <yuuji@gentei.org>
parents: 822
diff changeset
206 echo "UPDATE dst.article_s SET val=X'$newval' WHERE rowid=$arid;"
fcf485cbabc6 At migration, translate direct-link to attachment files
HIROSE Yuuji <yuuji@gentei.org>
parents: 822
diff changeset
207 done >> $sql
fcf485cbabc6 At migration, translate direct-link to attachment files
HIROSE Yuuji <yuuji@gentei.org>
parents: 822
diff changeset
208 fi
813
04034092338d Removing group of previous world, confirmation added
HIROSE Yuuji <yuuji@gentei.org>
parents: 795
diff changeset
209 if [ -z "`query \".read $sql\"`" ]; then
824
fcf485cbabc6 At migration, translate direct-link to attachment files
HIROSE Yuuji <yuuji@gentei.org>
parents: 822
diff changeset
210 echo "URL rewriting done."
fcf485cbabc6 At migration, translate direct-link to attachment files
HIROSE Yuuji <yuuji@gentei.org>
parents: 822
diff changeset
211 echo -n "Removing the group in the old world..."
779
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
212 query <<-EOF
821
2465fff63ad9 Old group deletion at migration done in a transaction
HIROSE Yuuji <yuuji@gentei.org>
parents: 813
diff changeset
213 SAVEPOINT rmgroup;
779
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
214 DELETE FROM main.article WHERE blogid IN ($blogs);
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
215 DELETE FROM main.blog WHERE id IN ($blogs);
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
216 DELETE FROM main.grp WHERE rowid=$grid;
821
2465fff63ad9 Old group deletion at migration done in a transaction
HIROSE Yuuji <yuuji@gentei.org>
parents: 813
diff changeset
217 RELEASE SAVEPOINT rmgroup;
779
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
218 EOF
813
04034092338d Removing group of previous world, confirmation added
HIROSE Yuuji <yuuji@gentei.org>
parents: 795
diff changeset
219 s=`query "SELECT * FROM main.grp WHERE rowid=$grid;"`
04034092338d Removing group of previous world, confirmation added
HIROSE Yuuji <yuuji@gentei.org>
parents: 795
diff changeset
220 if [ -z "$s" ]; then
821
2465fff63ad9 Old group deletion at migration done in a transaction
HIROSE Yuuji <yuuji@gentei.org>
parents: 813
diff changeset
221 echo "Done."
813
04034092338d Removing group of previous world, confirmation added
HIROSE Yuuji <yuuji@gentei.org>
parents: 795
diff changeset
222 echo "Success!!"
04034092338d Removing group of previous world, confirmation added
HIROSE Yuuji <yuuji@gentei.org>
parents: 795
diff changeset
223 query "END;"
1027
f389a311a8d4 Rename function name
HIROSE Yuuji <yuuji@gentei.org>
parents: 869
diff changeset
224 clean_orphaned
813
04034092338d Removing group of previous world, confirmation added
HIROSE Yuuji <yuuji@gentei.org>
parents: 795
diff changeset
225 echo "Done."
04034092338d Removing group of previous world, confirmation added
HIROSE Yuuji <yuuji@gentei.org>
parents: 795
diff changeset
226 else
04034092338d Removing group of previous world, confirmation added
HIROSE Yuuji <yuuji@gentei.org>
parents: 795
diff changeset
227 echo Removal failed
04034092338d Removing group of previous world, confirmation added
HIROSE Yuuji <yuuji@gentei.org>
parents: 795
diff changeset
228 echo "現行グループ消去ができませんでした。"
04034092338d Removing group of previous world, confirmation added
HIROSE Yuuji <yuuji@gentei.org>
parents: 795
diff changeset
229 echo "書き込みの多いグループの場合は空いている時間帯に試して下さい。"
04034092338d Removing group of previous world, confirmation added
HIROSE Yuuji <yuuji@gentei.org>
parents: 795
diff changeset
230 query "ROLLBACK;"
868
2eaa037f35d0 Error handling of migration fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 865
diff changeset
231 failure=$((failure+1))
2eaa037f35d0 Error handling of migration fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 865
diff changeset
232 faillist="$faillist${faillist:+ }$grid"
813
04034092338d Removing group of previous world, confirmation added
HIROSE Yuuji <yuuji@gentei.org>
parents: 795
diff changeset
233 fi
779
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
234 else
868
2eaa037f35d0 Error handling of migration fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 865
diff changeset
235 failure==$((failure+1))
779
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
236 echo "Replacing failed."
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
237 query "ROLLBACK;"
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
238 fi
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
239 else
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
240 failure=$((failure + 1))
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
241 echo "Fail!"
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
242 query "ROLLBACK;"
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
243 fi
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
244 done
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
245
780
b23f26406690 Migration logging and messages fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 779
diff changeset
246 err "Migration ended at `date` with failure=$failure"
868
2eaa037f35d0 Error handling of migration fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 865
diff changeset
247 tty >/dev/null 2>&1 && test -n "$faillist" && echo "Skipped: $faillist"
779
23be002abbaa Add s4-migrate.sh
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
248 return $failure

yatex.org