| Line | |
|---|
| 1 | (setf sb-impl::*default-external-format* :utf-8) |
|---|
| 2 | (asdf:operate 'asdf:load-op 'isidorus) |
|---|
| 3 | ;;(xtm-importer:import-from-xtm "/home/isidorus/.sbcl/site/isidorus/src/unit_tests/textgrid_07.15.2011.xtm" "data_base" :tm-id "http::/isidor.us/tm-1") |
|---|
| 4 | (setf rest-interface:*users* (list (list :uname "isidorus" :passwd "Ar8g7Pw"))) |
|---|
| 5 | (setf rest-interface:*use-http-authentication* 2) ;only the host page isidorus.html and the commit handlers are protected |
|---|
| 6 | (setf rest-interface:*local-backup-remote-address* "12.34.56.78") ;the allowed other remove peer ip |
|---|
| 7 | (setf rest-interface:*remote-backup-remote-address* "12.34.56.78") ;the allowed other remove peer ip |
|---|
| 8 | (setf rest-interface:*shutdown-remote-address* "127.0.0.1") ;the allowed other remove peer ip |
|---|
| 9 | (rest-interface:start-json-engine "/home/isidorus/data_base" :host-name "12.34.56,78" :port 12345) |
|---|
| 10 | (rest-interface:start-admin-server) |
|---|
| 11 | (format t "will enter die-when-finished") |
|---|
| 12 | (rest-interface:die-when-finished) |
|---|
| 13 | |
|---|
Note: See
TracBrowser
for help on using the repository browser.
