freedombone-app-turtl 39KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944
  1. #!/bin/bash
  2. #
  3. # .---. . .
  4. # | | |
  5. # |--- .--. .-. .-. .-.| .-. .--.--. |.-. .-. .--. .-.
  6. # | | (.-' (.-' ( | ( )| | | | )( )| | (.-'
  7. # ' ' --' --' -' - -' ' ' -' -' -' ' - --'
  8. #
  9. # Freedom in the Cloud
  10. #
  11. # turtl app
  12. #
  13. # http://portallinux.es/instalacion-servidor-turtl-debian-8
  14. # http://framacloud.org/cultiver-son-jardin/installation-de-turtl/
  15. #
  16. # License
  17. # =======
  18. #
  19. # Copyright (C) 2016 Bob Mottram <bob@freedombone.net>
  20. #
  21. # This program is free software: you can redistribute it and/or modify
  22. # it under the terms of the GNU Affero General Public License as published by
  23. # the Free Software Foundation, either version 3 of the License, or
  24. # (at your option) any later version.
  25. #
  26. # This program is distributed in the hope that it will be useful,
  27. # but WITHOUT ANY WARRANTY; without even the implied warranty of
  28. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  29. # GNU Affero General Public License for more details.
  30. #
  31. # You should have received a copy of the GNU Affero General Public License
  32. # along with this program. If not, see <http://www.gnu.org/licenses/>.
  33. VARIANTS="full full-vim writer"
  34. IN_DEFAULT_INSTALL=0
  35. SHOW_ON_ABOUT=1
  36. TURTL_DOMAIN_NAME=
  37. TURTL_CODE=
  38. TURTL_ONION_PORT=8107
  39. TURTL_API_ONION_PORT=8108
  40. TURTL_PORT=8181
  41. TURTL_API_REPO="https://github.com/turtl/api.git"
  42. TURTL_API_COMMIT='53e00a5583f52de8f86ef380fe11c176b5738dcf'
  43. TURTL_REPO="https://github.com/turtl/js.git"
  44. TURTL_COMMIT='61923ffb47d95d172f80d14c76aa032a4d5f5d6d'
  45. TURTL_ADMIN_PASSWORD=
  46. TURTL_STORAGE_LIMIT_MB=100
  47. LIBUV_VERSION='1.9.1'
  48. LIBUV_HASH='e83953782c916d7822ef0b94e8115ce5756fab5300cca173f0de5f5b0e0ae928'
  49. turtl_variables=(ONION_ONLY
  50. DEFAULT_DOMAIN_NAME
  51. TURTL_DOMAIN_NAME
  52. TURTL_CODE
  53. TURTL_STORAGE_LIMIT_MB
  54. DDNS_PROVIDER
  55. MY_EMAIL_ADDRESS
  56. MY_USERNAME)
  57. function change_password_turtl {
  58. change_username="$1"
  59. new_user_password="$2"
  60. }
  61. function remove_user_turtl {
  62. remove_username="$1"
  63. }
  64. function add_user_turtl {
  65. new_username="$1"
  66. new_user_password="$2"
  67. echo '0'
  68. }
  69. function install_interactive_turtl {
  70. if [ ! $ONION_ONLY ]; then
  71. ONION_ONLY='no'
  72. fi
  73. if [[ $ONION_ONLY != "no" ]]; then
  74. TURTL_DOMAIN_NAME='notes.local'
  75. write_config_param "TURTL_DOMAIN_NAME" "$TURTL_DOMAIN_NAME"
  76. else
  77. function_check interactive_site_details
  78. interactive_site_details "turtl" "TURTL_DOMAIN_NAME" "TURTL_CODE"
  79. fi
  80. APP_INSTALLED=1
  81. }
  82. function configure_interactive_turtl {
  83. data=$(tempfile 2>/dev/null)
  84. trap "rm -f $data" 0 1 2 5 15
  85. dialog --title $"Change storage limit" \
  86. --backtitle $"Freedombone Control Panel" \
  87. --inputbox $"Enter a storage limit in megabytes." 8 75 "$TURTL_STORAGE_LIMIT_MB" 2>$data
  88. sel=$?
  89. case $sel in
  90. 0)
  91. STORAGE=$(<$data)
  92. if [ ${#STORAGE} -gt 0 ]; then
  93. TURTL_STORAGE_LIMIT_MB=$STORAGE
  94. sed -i "s|defparameter *default-storage-limit*.*|defparameter *default-storage-limit* $TURTL_STORAGE_LIMIT_MB|g" /var/www/$TURTL_DOMAIN_NAME/htdocs/api/config/config.lisp
  95. systemctl restart turtl
  96. dialog --title $"Change storage limit" \
  97. --msgbox $"Storage limit changed to ${TURTL_STORAGE_LIMIT_MB}M" 6 50
  98. fi
  99. ;;
  100. esac
  101. }
  102. function reconfigure_turtl {
  103. if [ -d /var/www/${TURTL_DOMAIN_NAME}/htdocs/data ]; then
  104. rm -rf /var/www/${TURTL_DOMAIN_NAME}/htdocs/data/*
  105. fi
  106. }
  107. function upgrade_turtl {
  108. read_config_param "TURTL_DOMAIN_NAME"
  109. install_libuv
  110. function_check set_repo_commit
  111. set_repo_commit /var/www/$TURTL_DOMAIN_NAME/htdocs "turtl commit" "$TURTL_COMMIT" $TURTL_REPO
  112. set_repo_commit /var/www/$TURTL_DOMAIN_NAME/htdocs "turtl api commit" "$TURTL_API_COMMIT" $TURTL_API_REPO
  113. nginx_dissite $TURTL_DOMAIN_NAME
  114. cd /var/www/$TURTL_DOMAIN_NAME/htdocs
  115. npm install
  116. make minify
  117. nginx_ensite $TURTL_DOMAIN_NAME
  118. }
  119. function backup_local_turtl {
  120. read_config_param "TURTL_DOMAIN_NAME"
  121. source_directory=/var/www/${TURTL_DOMAIN_NAME}/htdocs
  122. if [ -d $source_directory ]; then
  123. dest_directory=turtl
  124. function_check suspend_site
  125. suspend_site ${TURTL_DOMAIN_NAME}
  126. function_check backup_directory_to_usb
  127. backup_directory_to_usb $source_directory $dest_directory
  128. function_check restart_site
  129. restart_site
  130. fi
  131. }
  132. function restore_local_turtl {
  133. read_config_param "TURTL_DOMAIN_NAME"
  134. if [ $TURTL_DOMAIN_NAME ]; then
  135. temp_restore_dir=/root/tempturtl
  136. restore_directory_from_usb $temp_restore_dir turtl
  137. if [ -d /var/www/${TURTL_DOMAIN_NAME}/htdocs ]; then
  138. if [ -d /var/www/${TURTL_DOMAIN_NAME}/previous ]; then
  139. rm -rf /var/www/${TURTL_DOMAIN_NAME}/previous
  140. fi
  141. mv /var/www/${TURTL_DOMAIN_NAME}/htdocs /var/www/${TURTL_DOMAIN_NAME}/previous
  142. fi
  143. temp_source_dir=$(find ${temp_restore_dir} -name htdocs)
  144. cp -r ${temp_source_dir} /var/www/${TURTL_DOMAIN_NAME}/
  145. if [ ! "$?" = "0" ]; then
  146. if [ -d /var/www/${TURTL_DOMAIN_NAME}/previous ]; then
  147. mv /var/www/${TURTL_DOMAIN_NAME}/previous /var/www/${TURTL_DOMAIN_NAME}/htdocs
  148. fi
  149. set_user_permissions
  150. backup_unmount_drive
  151. exit 36723
  152. fi
  153. rm -rf ${temp_restore_dir}
  154. chown -R turtl:turtl /var/www/${TURTL_DOMAIN_NAME}/htdocs
  155. fi
  156. }
  157. function backup_remote_turtl {
  158. read_config_param "TURTL_DOMAIN_NAME"
  159. if [ $TURTL_DOMAIN_NAME ]; then
  160. temp_backup_dir=/var/www/${TURTL_DOMAIN_NAME}/htdocs
  161. if [ -d $temp_backup_dir ]; then
  162. echo $"Backing up turtl"
  163. backup_directory_to_friend $temp_backup_dir turtl
  164. echo $"Backup of turtl complete"
  165. else
  166. echo $"turtl domain specified but not found in $temp_backup_dir"
  167. exit 68725
  168. fi
  169. fi
  170. }
  171. function restore_remote_turtl {
  172. read_config_param "TURTL_DOMAIN_NAME"
  173. if [ $TURTL_DOMAIN_NAME ]; then
  174. temp_restore_dir=/root/tempturtl
  175. mkdir $temp_restore_dir
  176. function_check restore_directory_from_friend
  177. restore_directory_from_friend $temp_restore_dir turtl
  178. if [ -d /var/www/${TURTL_DOMAIN_NAME}/htdocs ]; then
  179. if [ -d /var/www/${TURTL_DOMAIN_NAME}/previous ]; then
  180. rm -rf /var/www/${TURTL_DOMAIN_NAME}/previous
  181. fi
  182. mv /var/www/${TURTL_DOMAIN_NAME}/htdocs /var/www/${TURTL_DOMAIN_NAME}/previous
  183. fi
  184. temp_source_dir=$(find ${temp_restore_dir} -name htdocs)
  185. cp -r ${temp_source_dir} /var/www/${TURTL_DOMAIN_NAME}/
  186. if [ ! "$?" = "0" ]; then
  187. if [ -d /var/www/${TURTL_DOMAIN_NAME}/previous ]; then
  188. mv /var/www/${TURTL_DOMAIN_NAME}/previous /var/www/${TURTL_DOMAIN_NAME}/htdocs
  189. fi
  190. exit 37823
  191. fi
  192. rm -rf ${temp_restore_dir}
  193. fi
  194. }
  195. function remove_turtl_old {
  196. if [ ${#TURTL_DOMAIN_NAME} -eq 0 ]; then
  197. return
  198. fi
  199. read_config_param "TURTL_DOMAIN_NAME"
  200. read_config_param "MY_USERNAME"
  201. echo "Removing $TURTL_DOMAIN_NAME"
  202. if [ -f /etc/systemd/system/turtl.service ]; then
  203. systemctl stop turtl
  204. systemctl disable turtl
  205. rm /etc/systemd/system/turtl.service
  206. fi
  207. nginx_dissite $TURTL_DOMAIN_NAME
  208. remove_certs $TURTL_DOMAIN_NAME
  209. if [ -d /var/www/$TURTL_DOMAIN_NAME ]; then
  210. rm -rf /var/www/$TURTL_DOMAIN_NAME
  211. fi
  212. if [ -f /etc/nginx/sites-available/$TURTL_DOMAIN_NAME ]; then
  213. rm /etc/nginx/sites-available/$TURTL_DOMAIN_NAME
  214. fi
  215. function_check remove_onion_service
  216. remove_onion_service turtl ${TURTL_ONION_PORT}
  217. remove_onion_service turtlapi ${TURTL_API_ONION_PORT}
  218. remove_app turtl
  219. remove_completion_param install_turtl
  220. sed -i '/turtl/d' $COMPLETION_FILE
  221. deluser --remove-all-files turtl
  222. remove_nodejs turtl
  223. remove_rethinkdb
  224. remove_common_lisp
  225. function_check remove_ddns_domain
  226. remove_ddns_domain $TURTL_DOMAIN_NAME
  227. }
  228. function remove_turtl {
  229. if [ ! -d /opt/api ]; then
  230. return
  231. fi
  232. systemctl stop turtl
  233. systemctl disable turtl
  234. rm /etc/systemd/system/turtl.service
  235. apt-get -y remove rethinkdb
  236. remove_app turtl
  237. remove_completion_param install_turtl
  238. sed -i '/turtl/d' $COMPLETION_FILE
  239. rm $INSTALL_DIR/quicklisp.lisp
  240. rm $INSTALL_DIR/asdf.lisp
  241. rm -rf /etc/rethinkdb
  242. rm -rf /var/lib/rethinkdb
  243. rm -rf /root/quicklisp
  244. rm -rf /opt/ccl
  245. rm -rf /opt/api
  246. }
  247. function install_libuv {
  248. if [ ! -d /usr/local/src ]; then
  249. mkdir -p /usr/local/src
  250. fi
  251. cd /usr/local/src
  252. if [ ! -f libuv-v${LIBUV_VERSION}.tar.gz ]; then
  253. wget http://dist.libuv.org/dist/v${LIBUV_VERSION}/libuv-v${LIBUV_VERSION}.tar.gz
  254. fi
  255. if [ ! -f libuv-v${LIBUV_VERSION}.tar.gz ]; then
  256. echo $"Couldn't download libuv ${LIBUV_VERSION}"
  257. exit 728235
  258. fi
  259. hashstr=$(sha256sum libuv-v${LIBUV_VERSION}.tar.gz | awk -F ' ' '{print $1}')
  260. if [[ "$hashstr" != "$LIBUV_HASH" ]]; then
  261. rm libuv-v${LIBUV_VERSION}.tar.gz
  262. echo $"libuv hash does not match. Expected $LIBUV_HASH but found $hashstr"
  263. exit 27685
  264. fi
  265. if [ ! -d /usr/local/src/libuv-v${LIBUV_VERSION} ]; then
  266. tar -xf libuv-v${LIBUV_VERSION}.tar.gz
  267. fi
  268. if [ ! -d /usr/local/src/libuv-v${LIBUV_VERSION} ]; then
  269. rm libuv-v${LIBUV_VERSION}.tar.gz
  270. echo $'libuv could not be extracted'
  271. exit 72754
  272. fi
  273. cd /usr/local/src/libuv-v${LIBUV_VERSION}
  274. sh autogen.sh
  275. ./configure
  276. make
  277. make install
  278. }
  279. function install_turtl_old {
  280. if [ ! $TURTL_DOMAIN_NAME ]; then
  281. echo $'No domain name was given for turtl'
  282. exit 47823
  283. fi
  284. if [ -f $IMAGE_PASSWORD_FILE ]; then
  285. TURTL_ADMIN_PASSWORD="$(printf `cat $IMAGE_PASSWORD_FILE`)"
  286. else
  287. if [ ! $TURTL_ADMIN_PASSWORD ]; then
  288. TURTL_ADMIN_PASSWORD="$(create_password ${MINIMUM_PASSWORD_LENGTH})"
  289. fi
  290. fi
  291. apt-get -yq install git wget curl libtool subversion gcc make automake
  292. if [ ! -d /usr/local/src ]; then
  293. mkdir -p /usr/local/src
  294. fi
  295. if [ -d /var/www/$TURTL_DOMAIN_NAME ]; then
  296. rm -rf /var/www/$TURTL_DOMAIN_NAME
  297. fi
  298. mkdir /var/www/$TURTL_DOMAIN_NAME
  299. # get the app
  300. if [ ! -d /var/www/$TURTL_DOMAIN_NAME/htdocs ]; then
  301. function_check git_clone
  302. git_clone $TURTL_REPO /var/www/$TURTL_DOMAIN_NAME/htdocs
  303. if [ ! -d /var/www/$TURTL_DOMAIN_NAME/htdocs ]; then
  304. echo $'Unable to clone turtl repo'
  305. exit 367292
  306. fi
  307. fi
  308. # get the api
  309. if [ ! -d /var/www/$TURTL_DOMAIN_NAME/htdocs/api ]; then
  310. git_clone $TURTL_API_REPO /var/www/$TURTL_DOMAIN_NAME/htdocs/api
  311. if [ ! -d /var/www/$TURTL_DOMAIN_NAME/htdocs/api ]; then
  312. echo $'Unable to clone turtl api repo'
  313. exit 473843
  314. fi
  315. fi
  316. # check that default config files exist
  317. if [ ! -f /var/www/$TURTL_DOMAIN_NAME/htdocs/api/config/config.default.lisp ]; then
  318. echo $'No default turtl api config found'
  319. exit 825328
  320. fi
  321. if [ ! -f /var/www/$TURTL_DOMAIN_NAME/htdocs/config/config.js.default ]; then
  322. echo $'No default turtl config found'
  323. exit 783524
  324. fi
  325. # directory where uploads are stored
  326. if [ ! -d /var/www/$TURTL_DOMAIN_NAME/htdocs/data ]; then
  327. mkdir -p /var/www/$TURTL_DOMAIN_NAME/htdocs/data
  328. fi
  329. # create config files
  330. cp /var/www/$TURTL_DOMAIN_NAME/htdocs/api/config/config.default.lisp /var/www/$TURTL_DOMAIN_NAME/htdocs/api/config/config.lisp
  331. cp /var/www/$TURTL_DOMAIN_NAME/htdocs/config/config.js.default /var/www/$TURTL_DOMAIN_NAME/htdocs/config/config.js
  332. # app config file settings
  333. sed -i "s|api_url.*|api_url: 'https://api.${TURTL_DOMAIN_NAME}'|g" /var/www/$TURTL_DOMAIN_NAME/htdocs/config/config.js
  334. sed -i "s|site_url.*|api_url: 'https://${TURTL_DOMAIN_NAME}'|g" /var/www/$TURTL_DOMAIN_NAME/htdocs/config/config.js
  335. # api config file settings
  336. sed -i "s|defvar *admin-email* \".*|defvar *admin-email* \"$MY_EMAIL_ADDRESS\"|g" /var/www/$TURTL_DOMAIN_NAME/htdocs/api/config/config.lisp
  337. sed -i "s|defvar *email-from* \".*|defvar *email-from* \"noreply@$DEFAULT_DOMAIN_NAME\"|g" /var/www/$TURTL_DOMAIN_NAME/htdocs/api/config/config.lisp
  338. sed -i "s|defvar *site-url* \".*|defvar *site-url* \"https://$TURTL_DOMAIN_NAME\"|g" /var/www/$TURTL_DOMAIN_NAME/htdocs/api/config/config.lisp
  339. sed -i "s|defvar *analytics* '(:enabled.*|defvar *analytics* '(:enabled f|g" /var/www/$TURTL_DOMAIN_NAME/htdocs/api/config/config.lisp
  340. sed -i 's|http://turtl.dev:8181|https://$TURTL_DOMAIN_NAME|g' /var/www/$TURTL_DOMAIN_NAME/htdocs/api/config/config.lisp
  341. sed -i "s|defvar *local-upload*.*|defvar *local-upload* \"/var/www/$TURTL_DOMAIN_NAME/htdocs/data\"|g" /var/www/$TURTL_DOMAIN_NAME/htdocs/api/config/config.lisp
  342. sed -i "s|defvar *local-upload-url*.*|defvar *local-upload-url* \"https://api.${TURTL_DOMAIN_NAME}\"|g" /var/www/$TURTL_DOMAIN_NAME/htdocs/api/config/config.lisp
  343. sed -i 's|defparameter *storage-invite-credit*.*|defparameter *storage-invite-credit* 0|g' /var/www/$TURTL_DOMAIN_NAME/htdocs/api/config/config.lisp
  344. sed -i "s|defparameter *default-storage-limit*.*|defparameter *default-storage-limit* $TURTL_STORAGE_LIMIT_MB|g" /var/www/$TURTL_DOMAIN_NAME/htdocs/api/config/config.lisp
  345. cd /var/www/$TURTL_DOMAIN_NAME/htdocs
  346. git checkout $TURTL_COMMIT -b $TURTL_COMMIT
  347. set_completion_param "turtl commit" "$TURTL_COMMIT"
  348. cd /var/www/$TURTL_DOMAIN_NAME/htdocs/api
  349. git checkout $TURTL_API_COMMIT -b $TURTL_API_COMMIT
  350. set_completion_param "turtl api commit" "$TURTL_API_COMMIT"
  351. function_check install_libuv
  352. install_libuv
  353. function_check install_rethinkdb
  354. install_rethinkdb
  355. function_check install_common_lisp
  356. install_common_lisp
  357. function_check install_quicklisp
  358. install_quicklisp
  359. function_check install_nodejs
  360. install_nodejs turtl
  361. function_check add_ddns_domain
  362. add_ddns_domain $TURTL_DOMAIN_NAME
  363. sed -i 's|CCL_DEFAULT_DIRECTORY=.*|CCL_DEFAULT_DIRECTORY=/usr/local/src/ccl|g' /usr/bin/ccl
  364. sed -i 's|CCL_DEFAULT_DIRECTORY=.*|CCL_DEFAULT_DIRECTORY=/usr/local/src/ccl|g' /usr/bin/ccl64
  365. adduser --disabled-login --home=/var/www/$TURTL_DOMAIN_NAME/htdocs --gecos 'turtl' turtl
  366. cp /usr/local/src/asdf.lisp /var/www/$TURTL_DOMAIN_NAME/htdocs
  367. cp /usr/local/src/quicklisp.lisp /var/www/$TURTL_DOMAIN_NAME/htdocs
  368. echo '(load (compile-file "asdf.lisp"))' > /var/www/$TURTL_DOMAIN_NAME/htdocs/install.lisp
  369. echo '(load (compile-file "quicklisp.lisp"))' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/install.lisp
  370. echo '(quicklisp-quickstart:install)' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/install.lisp
  371. echo '(ql:system-apropos "vecto")' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/install.lisp
  372. echo '(ql:quickload "alexandria")' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/install.lisp
  373. echo '(ql:quickload "babel")' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/install.lisp
  374. echo '(ql:quickload "blackbird")' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/install.lisp
  375. echo '(ql:quickload "bordeaux-threads")' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/install.lisp
  376. echo '(ql:quickload "cffi")' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/install.lisp
  377. echo '(ql:quickload "chipz")' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/install.lisp
  378. echo '(ql:quickload "chunga")' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/install.lisp
  379. echo '(ql:quickload "cl-annot")' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/install.lisp
  380. echo '(ql:quickload "cl-async")' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/install.lisp
  381. echo '(ql:quickload "cl-async-future")' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/install.lisp
  382. echo '(ql:quickload "cl-base64")' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/install.lisp
  383. echo '(ql:quickload "cl-fad")' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/install.lisp
  384. echo '(ql:quickload "cl-libuv")' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/install.lisp
  385. echo '(ql:quickload "cl-mongo-id")' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/install.lisp
  386. echo '(ql:quickload "cl-ppcre")' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/install.lisp
  387. echo '(ql:quickload "cl-rethinkdb")' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/install.lisp
  388. echo '(ql:quickload "cl-smtp")' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/install.lisp
  389. echo '(ql:quickload "cl+ssl")' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/install.lisp
  390. echo '(ql:quickload "cl-syntax")' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/install.lisp
  391. echo '(ql:quickload "cl-utilities")' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/install.lisp
  392. echo '(ql:quickload "cl-vectors")' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/install.lisp
  393. echo '(ql:quickload "do-urlencode")' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/install.lisp
  394. echo '(ql:quickload "drakma")' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/install.lisp
  395. echo '(ql:quickload "drakma-async")' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/install.lisp
  396. echo '(ql:quickload "event-glue")' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/install.lisp
  397. echo '(ql:quickload "fast-http")' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/install.lisp
  398. echo '(ql:quickload "fast-io")' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/install.lisp
  399. echo '(ql:quickload "flexi-streams")' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/install.lisp
  400. echo '(ql:quickload "ironclad")' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/install.lisp
  401. echo '(ql:quickload "jonathan")' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/install.lisp
  402. echo '(ql:quickload "local-time")' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/install.lisp
  403. echo '(ql:quickload "md5")' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/install.lisp
  404. echo '(ql:quickload "named-readtables")' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/install.lisp
  405. echo '(ql:quickload "nibbles")' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/install.lisp
  406. echo '(ql:quickload "proc-parse")' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/install.lisp
  407. echo '(ql:quickload "puri")' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/install.lisp
  408. echo '(ql:quickload "quri")' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/install.lisp
  409. echo '(ql:quickload "salza2")' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/install.lisp
  410. echo '(ql:quickload "secure-random")' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/install.lisp
  411. echo '(ql:quickload "smart-buffer")' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/install.lisp
  412. echo '(ql:quickload "split-sequence")' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/install.lisp
  413. echo '(ql:quickload "static-vectors")' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/install.lisp
  414. echo '(ql:quickload "trivial-backtrace")' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/install.lisp
  415. echo '(ql:quickload "trivial-features")' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/install.lisp
  416. echo '(ql:quickload "trivial-garbage")' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/install.lisp
  417. echo '(ql:quickload "trivial-gray-streams")' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/install.lisp
  418. echo '(ql:quickload "trivial-types")' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/install.lisp
  419. echo '(ql:quickload "usocket")' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/install.lisp
  420. echo '(ql:quickload "vecto")' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/install.lisp
  421. echo '(ql:quickload "vom")' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/install.lisp
  422. echo '(ql:quickload "wookie")' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/install.lisp
  423. echo '(ql:quickload "xmls")' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/install.lisp
  424. echo '(ql:quickload "xsubseq")' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/install.lisp
  425. echo '(ql:quickload "yason")' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/install.lisp
  426. echo '(ql:quickload "zpb-ttf")' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/install.lisp
  427. echo '(ql:quickload "zpng")' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/install.lisp
  428. echo '(ql:add-to-init-file)' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/install.lisp
  429. chown -R turtl:turtl /var/www/$TURTL_DOMAIN_NAME/htdocs
  430. check_architecture=$(uname -a)
  431. if [[ "$check_architecture" == *"64"* && "$check_architecture" != *"arm"* ]]; then
  432. su -c '/usr/bin/ccl64 --load install.lisp --eval "(quit)"' - turtl
  433. else
  434. su -c '/usr/bin/ccl --load install.lisp --eval "(quit)"' - turtl
  435. fi
  436. echo "(pushnew \"./\" asdf:*central-registry* :test #'equal)" > /var/www/$TURTL_DOMAIN_NAME/htdocs/api/launch.lisp
  437. echo '(load "start")' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/api/launch.lisp
  438. cd /var/www/$TURTL_DOMAIN_NAME/htdocs/quicklisp/local-projects
  439. git clone git://github.com/orthecreedence/cl-hash-util
  440. git clone git://github.com/orthecreedence/vom
  441. git clone git://github.com/orthecreedence/cl-async
  442. git clone git://github.com/orthecreedence/cffi
  443. git clone git://github.com/orthecreedence/wookie
  444. git clone git://github.com/orthecreedence/cl-rethinkdb
  445. git clone git://github.com/orthecreedence/cl-libuv
  446. git clone git://github.com/orthecreedence/drakma-async
  447. git clone https://github.com/Inaimathi/cl-cwd.git
  448. echo '#-quicklisp' > /var/www/$TURTL_DOMAIN_NAME/htdocs/.ccl-init.lisp
  449. echo '(let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp" (user-homedir-pathname))))' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/.ccl-init.lisp
  450. echo ' (when (probe-file quicklisp-init)' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/.ccl-init.lisp
  451. echo ' (load quicklisp-init)))' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/.ccl-init.lisp
  452. echo '(cwd "~/api")' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/.ccl-init.lisp
  453. echo '(load "~/api/launch")' >> /var/www/$TURTL_DOMAIN_NAME/htdocs/.ccl-init.lisp
  454. chmod a+w /var/www/$TURTL_DOMAIN_NAME/htdocs
  455. chown -R turtl:turtl /var/www/$TURTL_DOMAIN_NAME/htdocs
  456. # install the app
  457. cd /var/www/$TURTL_DOMAIN_NAME/htdocs
  458. npm install
  459. make minify
  460. if [ ! -f /var/www/$TURTL_DOMAIN_NAME/htdocs/index.html ]; then
  461. echo $'Failed to install turtl app'
  462. exit 823652
  463. fi
  464. chown -R turtl:turtl /var/www/$TURTL_DOMAIN_NAME/htdocs
  465. echo '[Unit]' > /etc/systemd/system/turtl.service
  466. echo 'Description=Note taking service' >> /etc/systemd/system/turtl.service
  467. echo 'Documentation=http://turtl.it' >> /etc/systemd/system/turtl.service
  468. echo 'Requires=network.target' >> /etc/systemd/system/turtl.service
  469. echo 'Requires=rethinkdb.service' >> /etc/systemd/system/turtl.service
  470. echo 'After=network.target' >> /etc/systemd/system/turtl.service
  471. echo 'After=rethinkdb.service' >> /etc/systemd/system/turtl.service
  472. echo '' >> /etc/systemd/system/turtl.service
  473. echo '[Service]' >> /etc/systemd/system/turtl.service
  474. echo 'Type=simple' >> /etc/systemd/system/turtl.service
  475. echo 'User=turtl' >> /etc/systemd/system/turtl.service
  476. echo 'Group=turtl' >> /etc/systemd/system/turtl.service
  477. echo "WorkingDirectory=/var/www/$TURTL_DOMAIN_NAME/htdocs/api/" >> /etc/systemd/system/turtl.service
  478. check_architecture=$(uname -a)
  479. if [[ "$check_architecture" == *"64"* && "$check_architecture" != *"arm"* ]]; then
  480. echo "ExecStart=/usr/bin/ccl64 -Q -b --load start.lisp" >> /etc/systemd/system/turtl.service
  481. else
  482. echo "ExecStart=/usr/bin/ccl -Q -b --load start.lisp" >> /etc/systemd/system/turtl.service
  483. fi
  484. echo '' >> /etc/systemd/system/turtl.service
  485. echo '[Install]' >> /etc/systemd/system/turtl.service
  486. echo 'WantedBy=multi-user.target' >> /etc/systemd/system/turtl.service
  487. chmod +x /etc/systemd/system/turtl.service
  488. TURTL_ONION_HOSTNAME=$(add_onion_service turtl 80 ${TURTL_ONION_PORT})
  489. TURTL_API_ONION_HOSTNAME=$(add_onion_service turtlapi 80 ${TURTL_API_ONION_PORT})
  490. turtl_nginx_site=/etc/nginx/sites-available/$TURTL_DOMAIN_NAME
  491. if [[ $ONION_ONLY == "no" ]]; then
  492. function_check nginx_http_redirect
  493. nginx_http_redirect $TURTL_DOMAIN_NAME
  494. echo 'server {' >> $turtl_nginx_site
  495. echo ' listen 443 ssl;' >> $turtl_nginx_site
  496. echo ' listen [::]:443 ssl;' >> $turtl_nginx_site
  497. echo " server_name api.${TURTL_DOMAIN_NAME};" >> $turtl_nginx_site
  498. echo '' >> $turtl_nginx_site
  499. echo ' # Security' >> $turtl_nginx_site
  500. function_check nginx_ssl
  501. nginx_ssl $TURTL_DOMAIN_NAME
  502. function_check nginx_disable_sniffing
  503. nginx_disable_sniffing $TURTL_DOMAIN_NAME
  504. echo ' add_header Strict-Transport-Security max-age=15768000;' >> $turtl_nginx_site
  505. echo '' >> $turtl_nginx_site
  506. echo ' # Logs' >> $turtl_nginx_site
  507. echo ' access_log /dev/null;' >> $turtl_nginx_site
  508. echo ' error_log /dev/null;' >> $turtl_nginx_site
  509. echo '' >> $turtl_nginx_site
  510. echo ' # Root' >> $turtl_nginx_site
  511. echo " root /var/www/$TURTL_DOMAIN_NAME/htdocs/api;" >> $turtl_nginx_site
  512. echo '' >> $turtl_nginx_site
  513. echo ' location / {' >> $turtl_nginx_site
  514. function_check nginx_limits
  515. nginx_limits $TURTL_DOMAIN_NAME '15m'
  516. echo " proxy_pass http://localhost:${TURTL_PORT}/;" >> $turtl_nginx_site
  517. echo ' proxy_set_header Host $host;' >> $turtl_nginx_site
  518. echo ' proxy_buffering off;' >> $turtl_nginx_site
  519. echo ' }' >> $turtl_nginx_site
  520. echo '' >> $turtl_nginx_site
  521. echo '}' >> $turtl_nginx_site
  522. echo '' >> $turtl_nginx_site
  523. echo 'server {' >> $turtl_nginx_site
  524. echo ' listen 443 ssl;' >> $turtl_nginx_site
  525. echo ' listen [::]:443 ssl;' >> $turtl_nginx_site
  526. echo " server_name ${TURTL_DOMAIN_NAME};" >> $turtl_nginx_site
  527. echo '' >> $turtl_nginx_site
  528. echo ' index index.html;' >> $turtl_nginx_site
  529. echo '' >> $turtl_nginx_site
  530. echo ' # Security' >> $turtl_nginx_site
  531. function_check nginx_ssl
  532. nginx_ssl $TURTL_DOMAIN_NAME
  533. function_check nginx_disable_sniffing
  534. nginx_disable_sniffing $TURTL_DOMAIN_NAME
  535. echo ' add_header Strict-Transport-Security max-age=15768000;' >> $turtl_nginx_site
  536. echo '' >> $turtl_nginx_site
  537. echo ' # Logs' >> $turtl_nginx_site
  538. echo ' access_log /dev/null;' >> $turtl_nginx_site
  539. echo ' error_log /dev/null;' >> $turtl_nginx_site
  540. echo '' >> $turtl_nginx_site
  541. echo ' # Root' >> $turtl_nginx_site
  542. echo " root /var/www/$TURTL_DOMAIN_NAME/htdocs;" >> $turtl_nginx_site
  543. echo '' >> $turtl_nginx_site
  544. echo ' location / {' >> $turtl_nginx_site
  545. function_check nginx_limits
  546. nginx_limits $TURTL_DOMAIN_NAME '15m'
  547. echo ' }' >> $turtl_nginx_site
  548. echo '' >> $turtl_nginx_site
  549. echo '}' >> $turtl_nginx_site
  550. else
  551. echo -n '' > $turtl_nginx_site
  552. fi
  553. echo 'server {' >> $turtl_nginx_site
  554. echo " listen 127.0.0.1:${TURTL_API_ONION_PORT};" >> $turtl_nginx_site
  555. echo " server_name ${TURTL_API_ONION_HOSTNAME};" >> $turtl_nginx_site
  556. echo '' >> $turtl_nginx_site
  557. function_check nginx_disable_sniffing
  558. nginx_disable_sniffing $TURTL_DOMAIN_NAME
  559. echo '' >> $turtl_nginx_site
  560. echo ' # Logs' >> $turtl_nginx_site
  561. echo ' access_log /dev/null;' >> $turtl_nginx_site
  562. echo ' error_log /dev/null;' >> $turtl_nginx_site
  563. echo '' >> $turtl_nginx_site
  564. echo ' # Root' >> $turtl_nginx_site
  565. echo " root /var/www/$TURTL_DOMAIN_NAME/htdocs/api;" >> $turtl_nginx_site
  566. echo '' >> $turtl_nginx_site
  567. echo ' location / {' >> $turtl_nginx_site
  568. function_check nginx_limits
  569. nginx_limits $TURTL_DOMAIN_NAME '15m'
  570. echo " proxy_pass http://localhost:${TURTL_PORT}/;" >> $turtl_nginx_site
  571. echo ' proxy_set_header Host $host;' >> $turtl_nginx_site
  572. echo ' proxy_buffering off;' >> $turtl_nginx_site
  573. echo ' }' >> $turtl_nginx_site
  574. echo '' >> $turtl_nginx_site
  575. echo '}' >> $turtl_nginx_site
  576. echo '' >> $turtl_nginx_site
  577. echo 'server {' >> $turtl_nginx_site
  578. echo " listen 127.0.0.1:$TURTL_ONION_PORT default_server;" >> $turtl_nginx_site
  579. echo " server_name $TURTL_ONION_HOSTNAME;" >> $turtl_nginx_site
  580. echo '' >> $turtl_nginx_site
  581. echo ' index index.html;' >> $turtl_nginx_site
  582. echo '' >> $turtl_nginx_site
  583. function_check nginx_disable_sniffing
  584. nginx_disable_sniffing $TURTL_DOMAIN_NAME
  585. echo '' >> $turtl_nginx_site
  586. echo ' # Logs' >> $turtl_nginx_site
  587. echo ' access_log /dev/null;' >> $turtl_nginx_site
  588. echo ' error_log /dev/null;' >> $turtl_nginx_site
  589. echo '' >> $turtl_nginx_site
  590. echo ' # Root' >> $turtl_nginx_site
  591. echo " root /var/www/$TURTL_DOMAIN_NAME/htdocs;" >> $turtl_nginx_site
  592. echo '' >> $turtl_nginx_site
  593. echo ' location / {' >> $turtl_nginx_site
  594. function_check nginx_limits
  595. nginx_limits $TURTL_DOMAIN_NAME '15m'
  596. echo ' }' >> $turtl_nginx_site
  597. echo '' >> $turtl_nginx_site
  598. echo '}' >> $turtl_nginx_site
  599. function_check create_site_certificate
  600. create_site_certificate $TURTL_DOMAIN_NAME 'yes'
  601. if [ -f /etc/ssl/certs/${TURTL_DOMAIN_NAME}.crt ]; then
  602. mv /etc/ssl/certs/${TURTL_DOMAIN_NAME}.crt /etc/ssl/certs/${TURTL_DOMAIN_NAME}.pem
  603. fi
  604. function_check nginx_ensite
  605. nginx_ensite $TURTL_DOMAIN_NAME
  606. if [[ $ONION_ONLY != 'no' ]]; then
  607. sed -i "s|https://${TURTL_DOMAIN_NAME}|http://${TURTL_ONION_HOSTNAME}|g" /var/www/$TURTL_DOMAIN_NAME/htdocs/api/config/config.lisp
  608. sed -i "s|https://api.${TURTL_DOMAIN_NAME}|http://${TURTL_API_ONION_HOSTNAME}|g" /var/www/$TURTL_DOMAIN_NAME/htdocs/api/config/config.lisp
  609. sed -i "s|https://${TURTL_DOMAIN_NAME}|http://${TURTL_ONION_HOSTNAME}|g" /var/www/$TURTL_DOMAIN_NAME/htdocs/config/config.js
  610. sed -i "s|https://api.${TURTL_DOMAIN_NAME}|http://${TURTL_API_ONION_HOSTNAME}|g" /var/www/$TURTL_DOMAIN_NAME/htdocs/config/config.js
  611. fi
  612. ${PROJECT_NAME}-pass -u $MY_USERNAME -a turtl -p "$TURTL_ADMIN_PASSWORD"
  613. function_check add_ddns_domain
  614. add_ddns_domain $TURTL_DOMAIN_NAME
  615. set_completion_param "turtl domain" "$TURTL_DOMAIN_NAME"
  616. systemctl enable turtl
  617. systemctl daemon-reload
  618. systemctl start turtl
  619. systemctl restart nginx
  620. APP_INSTALLED=1
  621. }
  622. function turtl_setup {
  623. PIDFILE=${PIDFILE:-nil}
  624. BINDADDR=${BINDADDR:-0.0.0.0}
  625. BINDPORT=${BINDPORT:-8181}
  626. PROD_ERR_HANDLING=${PROD_ERR_HANDLING:-t}
  627. FQDN=${FQDN:-turtl.local}
  628. SITE_URL=${SITE_URL:-http://turtl.local}
  629. ADMIN_EMAIL=${ADMIN_EMAIL:-$MY_USERNAME@$DEFAULT_DOMAIN_NAME}
  630. EMAIL_FROM=${EMAIL_FROM:-noreply@$DEFAULT_DOMAIN_NAME}
  631. SMTP_USER=${SMTP_USER:-}
  632. SMTP_PASS=${SMTP_PASS:-}
  633. DISPLAY_ERRORS=${DISPLAY_ERRORS:-t}
  634. DEFAULT_STORAGE_LIMIT=${DEFAULT_STORAGE_LIMIT:-100}
  635. STORAGE_INVITE_CREDIT=${STORAGE_INVITE_CREDIT:-25}
  636. LOCAL_UPLOAD_URL=${LOCAL_UPLOAD_URL:-http://turtl.local}
  637. LOCAL_UPLOAD_PATH=${LOCAL_UPLOAD_PATH:-"/opt/api/uploads"}
  638. AWS_S3_TOKEN=${AWS_S3_TOKEN:-(:token ''
  639. :secret ''
  640. :bucket ''
  641. :endpoint 'https://s3.amazonaws.com')}
  642. # generates the config-file
  643. cat << __ENDCONFIG__ > /opt/api/config/config.lisp
  644. (in-package :turtl)
  645. (defparameter *root* (asdf:system-relative-pathname :turtl #P""))
  646. (defparameter *pid-file* "${PIDFILE}")
  647. (defvar *server-bind* "${BINDADDR}")
  648. (defvar *server-port* ${BINDPORT})
  649. (defvar *db-name* "turtl")
  650. (defvar *db-host* "127.0.0.1")
  651. (defvar *db-port* 28015)
  652. (defvar *production-error-handling* ${PROD_ERR_HANDLING})
  653. (defvar *enable-hsts-header* nil)
  654. (defvar *site-url* "${SITE_URL}")
  655. (defvar *api-path* "")
  656. (defvar *admin-email* "${ADMIN_EMAIL}")
  657. (defvar *email-from* "${EMAIL_FROM}")
  658. (defvar *email-user* "${SMTP_USER}")
  659. (defvar *email-pass* "${SMTP_PASS}")
  660. (defvar *display-errors* ${DISPLAY_ERRORS})
  661. (defparameter *default-storage-limit* ${DEFAULT_STORAGE_LIMIT})
  662. (defparameter *storage-invite-credit* ${STORAGE_INVITE_CREDIT})
  663. (vom:config :turtl :info)
  664. (defvar *local-upload* "${LOCAL_UPLOAD_PATH}")
  665. (defvar *local-upload-url* "${LOCAL_UPLOAD_URL}")
  666. (defvar *amazon-s3* "${AWS_S3_TOKEN}")
  667. __ENDCONFIG__
  668. cat /opt/api/config/config.footer >> /opt/api/config/config.lisp
  669. # start the turtl server
  670. systemctl restart rethinkdb
  671. echo '[Unit]' > /etc/systemd/system/turtl.service
  672. echo 'Description=Note taking service' >> /etc/systemd/system/turtl.service
  673. echo 'Documentation=http://turtl.it' >> /etc/systemd/system/turtl.service
  674. echo 'Requires=network.target' >> /etc/systemd/system/turtl.service
  675. echo 'Requires=rethinkdb.service' >> /etc/systemd/system/turtl.service
  676. echo 'After=network.target' >> /etc/systemd/system/turtl.service
  677. echo 'After=rethinkdb.service' >> /etc/systemd/system/turtl.service
  678. echo '' >> /etc/systemd/system/turtl.service
  679. echo '[Service]' >> /etc/systemd/system/turtl.service
  680. echo 'Type=simple' >> /etc/systemd/system/turtl.service
  681. echo 'User=root' >> /etc/systemd/system/turtl.service
  682. echo 'WorkingDirectory=/opt/api/' >> /etc/systemd/system/turtl.service
  683. if [[ "$check_architecture" == *"64"* && "$check_architecture" != *"arm"* ]]; then
  684. echo "ExecStart=/opt/ccl/lx86cl64 -l /root/quicklisp/setup.lisp -l launch.lisp" >> /etc/systemd/system/turtl.service
  685. else
  686. if [[ "$check_architecture" != *"arm"* ]]; then
  687. echo "ExecStart=/opt/ccl/lx86cl -l /root/quicklisp/setup.lisp -l launch.lisp" >> /etc/systemd/system/turtl.service
  688. else
  689. echo "ExecStart=/opt/ccl/larmcl -l /root/quicklisp/setup.lisp -l launch.lisp" >> /etc/systemd/system/turtl.service
  690. fi
  691. fi
  692. echo '' >> /etc/systemd/system/turtl.service
  693. echo '[Install]' >> /etc/systemd/system/turtl.service
  694. echo 'WantedBy=multi-user.target' >> /etc/systemd/system/turtl.service
  695. chmod +x /etc/systemd/system/turtl.service
  696. systemctl enable turtl
  697. systemctl daemon-reload
  698. systemctl start turtl
  699. }
  700. function install_turtl_api {
  701. # https://github.com/ArthurGarnier/turtl-docker
  702. apt-get -yq install wget libterm-readline-perl-perl gcc libuv1-dev
  703. if [ ! -d $INSTALL_DIR ]; then
  704. mkdir -p $INSTALL_DIR
  705. fi
  706. cd $INSTALL_DIR
  707. check_architecture=$(uname -a)
  708. # Install ccl
  709. if [[ "$check_architecture" != *"arm"* ]]; then
  710. wget -P /opt/ ftp://ftp.clozure.com/pub/release/1.11/ccl-1.11-linuxx86.tar.gz
  711. mkdir -p /opt/ccl
  712. tar xvzf /opt/ccl-1.11-linuxx86.tar.gz -C /opt/ccl --strip-components=1
  713. else
  714. wget -P /opt/ ftp://ftp.clozure.com/pub/release/1.11/ccl-1.11-linuxarm.tar.gz
  715. mkdir -p /opt/ccl
  716. tar xvzf /opt/ccl-1.11-linuxarm.tar.gz -C /opt/ccl --strip-components=1
  717. fi
  718. # install quicklisp
  719. cat << __ENDCONFIG__ > $INSTALL_DIR/quicklisp_install
  720. (load (compile-file "asdf.lisp"))
  721. (load (compile-file "quicklisp.lisp"))
  722. (quicklisp-quickstart:install)
  723. (ql:system-apropos "vecto")
  724. (ql:quickload "alexandria")
  725. (ql:quickload "babel")
  726. (ql:quickload "blackbird")
  727. (ql:quickload "bordeaux-threads")
  728. (ql:quickload "cffi")
  729. (ql:quickload "chipz")
  730. (ql:quickload "chunga")
  731. (ql:quickload "cl-annot")
  732. (ql:quickload "cl-async")
  733. (ql:quickload "cl-async-future")
  734. (ql:quickload "cl-base64")
  735. (ql:quickload "cl-fad")
  736. (ql:quickload "cl-libuv")
  737. (ql:quickload "cl-mongo-id")
  738. (ql:quickload "cl-ppcre")
  739. (ql:quickload "cl-rethinkdb")
  740. (ql:quickload "cl-smtp")
  741. (ql:quickload "cl+ssl")
  742. (ql:quickload "cl-syntax")
  743. (ql:quickload "cl-utilities")
  744. (ql:quickload "cl-vectors")
  745. (ql:quickload "do-urlencode")
  746. (ql:quickload "drakma")
  747. (ql:quickload "drakma-async")
  748. (ql:quickload "event-glue")
  749. (ql:quickload "fast-http")
  750. (ql:quickload "fast-io")
  751. (ql:quickload "flexi-streams")
  752. (ql:quickload "ironclad")
  753. (ql:quickload "jonathan")
  754. (ql:quickload "local-time")
  755. (ql:quickload "md5")
  756. (ql:quickload "named-readtables")
  757. (ql:quickload "nibbles")
  758. (ql:quickload "proc-parse")
  759. (ql:quickload "puri")
  760. (ql:quickload "quri")
  761. (ql:quickload "salza2")
  762. (ql:quickload "secure-random")
  763. (ql:quickload "smart-buffer")
  764. (ql:quickload "split-sequence")
  765. (ql:quickload "static-vectors")
  766. (ql:quickload "trivial-backtrace")
  767. (ql:quickload "trivial-features")
  768. (ql:quickload "trivial-garbage")
  769. (ql:quickload "trivial-gray-streams")
  770. (ql:quickload "trivial-types")
  771. (ql:quickload "usocket")
  772. (ql:quickload "vecto")
  773. (ql:quickload "vom")
  774. (ql:quickload "wookie")
  775. (ql:quickload "xmls")
  776. (ql:quickload "xsubseq")
  777. (ql:quickload "yason")
  778. (ql:quickload "zpb-ttf")
  779. (ql:quickload "zpng")
  780. (ql:add-to-init-file)
  781. (quit)
  782. __ENDCONFIG__
  783. if [ ! -f asdf.lisp ]; then
  784. wget https://common-lisp.net/project/asdf/asdf.lisp
  785. fi
  786. if [ ! -f quicklisp.lisp ]; then
  787. wget https://beta.quicklisp.org/quicklisp.lisp
  788. fi
  789. if [[ "$check_architecture" != *"arm"* ]]; then
  790. if [[ "$check_architecture" == *"64"* ]]; then
  791. cat $INSTALL_DIR/quicklisp_install | /opt/ccl/lx86cl64
  792. else
  793. cat $INSTALL_DIR/quicklisp_install | /opt/ccl/lx86cl
  794. fi
  795. else
  796. cat $INSTALL_DIR/quicklisp_install | /opt/ccl/larmcl
  797. fi
  798. rm $INSTALL_DIR/quicklisp_install
  799. install_rethinkdb
  800. # install turtl API
  801. cd /opt/
  802. git clone $TURTL_API_REPO /opt/api
  803. cd /opt/api
  804. git checkout $TURTL_API_COMMIT -b $TURTL_API_COMMIT
  805. cd /root/quicklisp/local-projects
  806. git clone git://github.com/orthecreedence/cl-hash-util
  807. if [[ "$check_architecture" != *"arm"* ]]; then
  808. if [[ "$check_architecture" == *"64"* ]]; then
  809. /opt/ccl/lx86cl64 -l /root/quicklisp/setup.lisp
  810. else
  811. /opt/ccl/lx86cl -l /root/quicklisp/setup.lisp
  812. fi
  813. else
  814. /opt/ccl/larmcl -l /root/quicklisp/setup.lisp
  815. fi
  816. # config
  817. echo '(defvar *enabled-cors-resources* "resource://turtl-at-lyonbros-dot-com"' > /opt/api/config/config.footer
  818. echo ' "When set, will enable CORS for resource:// origins if they match the given' >> /opt/api/config/config.footer
  819. echo ' string. Entries should be comma separated (this string is passed verbatim in' >> /opt/api/config/config.footer
  820. echo ' the Access-Control-Allow-Origin header).")' >> /opt/api/config/config.footer
  821. echo '(defparameter *public-actions*' >> /opt/api/config/config.footer
  822. echo " \`((:post . ,(concatenate 'string *api-path* \"/users\"))" >> /opt/api/config/config.footer
  823. echo " (:post . ,(concatenate 'string *api-path* \"/log/error\"))" >> /opt/api/config/config.footer
  824. echo ' (:post . "/cla/sign")' >> /opt/api/config/config.footer
  825. echo ' (:get . "/ping")' >> /opt/api/config/config.footer
  826. echo ' (:get . "/admin")' >> /opt/api/config/config.footer
  827. echo " (:get . ,(cl-ppcre:create-scanner (concatenate 'string *api-path* \"/invites/codes/([0-9a-f-]+)\"))))" >> /opt/api/config/config.footer
  828. echo " \"A list of public resources/actions that do not require authentication.\")" >> /opt/api/config/config.footer
  829. echo "(defvar *analytics* '(:enabled t" >> /opt/api/config/config.footer
  830. echo ' :db "analytics"))' >> /opt/api/config/config.footer
  831. cp $INSTALL_DIR/asdf.lisp /opt/api
  832. echo '(load (compile-file "asdf.lisp"))' > /opt/api/launch.lisp
  833. echo "(pushnew \"./\" asdf:*central-registry* :test #'equal)" >> /opt/api/launch.lisp
  834. echo '(load "start")' >> /opt/api/launch.lisp
  835. turtl_setup
  836. }
  837. function install_turtl_app {
  838. echo -n ''
  839. }
  840. function install_turtl {
  841. install_turtl_api
  842. install_turtl_app
  843. #systemctl restart nginx
  844. APP_INSTALLED=1
  845. }