107 lines
3.8 KiB
Text
107 lines
3.8 KiB
Text
Structure GROUP
|
|
gr_name.s ; group name
|
|
gr_passwd.s ; group password
|
|
gr_gid.i ; group id
|
|
gr_mem.i ; group members
|
|
EndStructure
|
|
|
|
Global gID.i = getgid_()
|
|
Global group.group
|
|
Global gName.s
|
|
Global eingabe.s
|
|
|
|
*groupmem = AllocateMemory(SizeOf(group))
|
|
*groupmem = getgrgid_(gID)
|
|
CopyMemory(*groupmem, @group, SizeOf(group))
|
|
gName = PeekS(@group\gr_name, -1, #PB_Ascii)
|
|
|
|
OpenConsole("lhttpd Init")
|
|
If gName <> "root"
|
|
PrintN("You need to run this app as root capable user")
|
|
End
|
|
EndIf
|
|
|
|
PrintN("Create lhttpd config: /etc/lhttpd/lhttpd.cfg")
|
|
PrintN("Create service file: /usr/lib/systemd/system/lhttpd.service")
|
|
PrintN("Logfiles /var/log/lhttpd/* (access.log & error.log)")
|
|
PrintN("User = lhttpd")
|
|
PrintN("Grounp = lhttpd")
|
|
PrintN("Everything Ok (y/n)")
|
|
eingabe = Input()
|
|
If eingabe <> "y"
|
|
PrintN("Bad: "+eingabe+" exit...")
|
|
End
|
|
EndIf
|
|
PrintN("Create dir...")
|
|
CreateDirectory("/etc/lhttpd")
|
|
CreateDirectory("/etc/lhttpd/ssl")
|
|
CreateDirectory("/var/lib/lhttpd")
|
|
CreateDirectory("/var/log/lhttpd")
|
|
CreateDirectory("/opt/lhttpd")
|
|
|
|
PrintN("Create group lhttpd")
|
|
RunProgram("groupadd", "-f lhttpd", "", #PB_Program_Wait)
|
|
Delay(1000)
|
|
PrintN("Create User lhttpd")
|
|
RunProgram("useradd", "-s /bin/false -b /var/lib -g lhttpd lhttpd","", #PB_Program_Wait)
|
|
PrintN("Create config")
|
|
CreatePreferences("/etc/lhttpd/lhttpd.cfg", #PB_Preference_NoSpace | #PB_Preference_GroupSeparator)
|
|
PreferenceGroup("lhttpd")
|
|
WritePreferenceString("HTTP_Port","8080")
|
|
WritePreferenceString("HTTP_Binding","0.0.0.0")
|
|
WritePreferenceString("HTTPS_CA","/etc/lhttpd/ssl/sample/fullchain.pem")
|
|
WritePreferenceString("HTTPS_Cert","/etc/lhttpd/ssl/sample/cert.pem")
|
|
WritePreferenceString("HTTPS_Key","/etc/lhttpd/ssl/sample/privkey.pem")
|
|
WritePreferenceString("HTTPS_Key_Pass","test-server-pass")
|
|
WritePreferenceString("HTTPS_Port","8443")
|
|
WritePreferenceString("HTTPS_Binding","0.0.0.0")
|
|
WritePreferenceString("HTTPS_enable","1")
|
|
WritePreferenceString("Defaultfile","/index.html")
|
|
WritePreferenceString("Basedirectory","/srv/www/htdocs")
|
|
WritePreferenceString("Error400_Handling","integrated")
|
|
WritePreferenceString("Max_HTTP_Clients","10")
|
|
WritePreferenceString("Max_HTTPS_Clients","100")
|
|
WritePreferenceString("Filememorycache","0")
|
|
WritePreferenceString("Checkrun","/tmp/lhttpd.run")
|
|
WritePreferenceString("Debug_logfile","/var/log/lhttpd/debug.log")
|
|
WritePreferenceString("Debug_disable","true")
|
|
WritePreferenceString("Access_logfile","/var/log/lhttpd/access.log")
|
|
WritePreferenceString("Error_logfile","/var/log/lhttpd/error.log")
|
|
ClosePreferences()
|
|
PrintN("chown and chmod for ssl...")
|
|
|
|
RunProgram("chown", "-R lhttpd:lhttpd /etc/lhttpd","", #PB_Program_Wait)
|
|
RunProgram("chown", "-R lhttpd:lhttpd /var/lib/lhttpd","", #PB_Program_Wait)
|
|
RunProgram("chown", "-R lhttpd:lhttpd /var/log/lhttpd","", #PB_Program_Wait)
|
|
RunProgram("chmod", "-r 755 /etc/lhttpd","",#PB_Program_Wait)
|
|
RunProgram("chmod", "-r 700 /etc/lhttpd/ssl","",#PB_Program_Wait)
|
|
PrintN("create service file...")
|
|
If CreateFile(0, "/usr/lib/systemd/system/lhttpd.service")
|
|
WriteStringN(0,"[Unit]")
|
|
WriteStringN(0,"Description=Lweb httpd server")
|
|
WriteStringN(0,"After=network.target")
|
|
WriteStringN(0,"StartLimitIntervalSec=0")
|
|
WriteStringN(0,"")
|
|
WriteStringN(0,"[Service]")
|
|
WriteStringN(0,"Type=simple")
|
|
WriteStringN(0,"Restart=always")
|
|
WriteStringN(0,"RestartSec=1")
|
|
WriteStringN(0,"User=lhttpd")
|
|
WriteStringN(0,"PIDFile=/tmp/lhttpd.run")
|
|
WriteStringN(0,"ExecStart=/opt/lhttpd/lhttpd")
|
|
WriteStringN(0,"ExecStop=/bin/rm /tmp/lhttpd.run")
|
|
WriteStringN(0,"")
|
|
WriteStringN(0,"[Install]")
|
|
WriteStringN(0,"WantedBy=multi-user.target")
|
|
CloseFile(0)
|
|
PrintN("daemon reload...")
|
|
RunProgram("systemctl", "daemon-reload", "", #PB_Program_Wait)
|
|
PrintN("tests...")
|
|
RunProgram("systemctl", "status lhttpd", "", #PB_Program_Wait)
|
|
PrintN("finished")
|
|
Else
|
|
PrintN("Servicefile failed")
|
|
EndIf
|
|
|
|
|
|
End
|