module "/pliant/language/debug/compile_log.pli" compile_message "Checking configuration. Please wait ..."
module "/pliant/language/context.pli" module "/pliant/language/compiler.pli" module "/pliant/language/stream.pli" module "/pliant/admin/file.pli" module "/pliant/fullpliant/this_computer.pli" module "/pliant/fullpliant/user.pli" module "/pliant/admin/md5.pli" module "/pliant/language/ui/ansi_terminal.pli" module "/pliant/util/crypto/random.pli" module "/pliant/util/encoding/base64.pli"
function checkup (var Stream s) open "security:/test.tmp" out+safe+mkdir if s=failure console "ERROR: This process cannot write to "+(file_os_name "security:/") eol return s close file_delete "security:/test.tmp" (var Stream s) open "data:/test.tmp" out+safe+mkdir if s=failure console "ERROR: This process cannot write to "+(file_os_name "data:/") eol return s close file_delete "data:/test.tmp" var Str temp := file_temporary (var Stream s) open temp out+safe+mkdir if s=failure console "ERROR: This process cannot write to "+file_os_name:temp eol return s close file_delete temp
function set_account if os_api="win32" var Str user := "pliant" user_database:data:user create user var Data:User u :> user_database:data:user user u:right create "1" var Data:UserRight r :> u:right "1" r auth := "1" r ip := "127.0.0.1" r right := "administrator" user_database store var Str password := base64_alt_encode random_string:6 user_secret_database:data password := password user_secret_database:data:user create user user_secret_database:data:user:user password_md5 := string_md5_hexa_signature password user_secret_database store else console "You need an account to be able to connect to your Pliant HTTP" eol console "server through your favorite browser." eol part input var Str user := keyboard_input "User ID: " if user="" console "You must provide a user ID because there is no existing account." eol restart input part input2 var Str password := keyboard_input_password "Password: " if password="" console "You must provide a password." eol restart input2 user_database:data:user create user var Data:User u :> user_database:data:user user u:right create "1" var Data:UserRight r :> u:right "1" r auth := "1" r ip := "127.0.0.1" r right := "administrator" user_database store user_secret_database:data:user create user user_secret_database:data:user:user password_md5 := string_md5_hexa_signature password user_secret_database store console eol
function set_port part scan for (var Int lap) -1 9 var Int port := shunt lap=(-1) 80 8080+lap (var Stream s) open "tcp://127.0.0.1/client/"+string:port in+out+safe if s=failure (var Stream s) open "tcp:/server/"+string:port "noautoconnect close" in+out+safe if s=success s close (var Stream s) open "tcp://127.0.0.1/client/"+string:port in+out+safe leave scan console "ERROR: Could not find a valid TCP port for the Pliant HTTP server." eol return this_computer "pliant" "http" "port" := string port this_computer_database store
compile_message "" checkup console "[lf]" console "---------------------------------------------------------------------------[lf]"
|
console "Free people is even more important than free softwares.[lf]" console "I'd really like to make the world just a little bit better for my children,[lf]" console "I mean more friendly, and I believe that helping the Tibet get free is[lf]" console "an obvious way to start with.[lf]" console "You can get more informations at http://www.tibet.com/[lf]"
|
console "Free people is even more important than free software.[lf]" console "[lf]" console "I would really like to make the world just a little bit better for my[lf]" console "children, I mean, more friendly, and I believe that a good start[lf]" console "would be to help the Tibet get free.[lf]" console "[lf]" console "For more information on Tibet, visit http://www.tibet.com/[lf]"
|
console "---------------------------------------------------------------------------[lf]" console "[lf]WELCOME TO FULLPLIANT[lf][lf]" if user_database:data:user:size=0 set_account if this_computer:env:"pliant":"http":"port"="" set_port
|