diff options
author | Jo-Philipp Wich <jow@openwrt.org> | 2014-12-03 15:17:05 +0100 |
---|---|---|
committer | Jo-Philipp Wich <jow@openwrt.org> | 2015-01-08 16:26:20 +0100 |
commit | 1bb4822dca6113f73e3bc89e2acf15935e6f8e92 (patch) | |
tree | 35e16f100466e4e00657199b38bb3d87d52bf73f /applications/luci-app-openvpn/luasrc | |
parent | 9edd0e46c3f880727738ce8ca6ff1c8b85f99ef4 (diff) |
Rework LuCI build system
* Rename subdirectories to their repective OpenWrt package names
* Make each LuCI module its own standalone package
* Deploy a shared luci.mk which is used by each module Makefile
Signed-off-by: Jo-Philipp Wich <jow@openwrt.org>
Diffstat (limited to 'applications/luci-app-openvpn/luasrc')
6 files changed, 583 insertions, 0 deletions
diff --git a/applications/luci-app-openvpn/luasrc/controller/openvpn.lua b/applications/luci-app-openvpn/luasrc/controller/openvpn.lua new file mode 100644 index 000000000..8695dae84 --- /dev/null +++ b/applications/luci-app-openvpn/luasrc/controller/openvpn.lua @@ -0,0 +1,22 @@ +--[[ +LuCI - Lua Configuration Interface + +Copyright 2008 Steven Barth <steven@midlink.org> +Copyright 2008 Jo-Philipp Wich <xm@leipzig.freifunk.net> + +Licensed under the Apache License, Version 2.0 (the "License"); +you may not use this file except in compliance with the License. +You may obtain a copy of the License at + + http://www.apache.org/licenses/LICENSE-2.0 + +$Id$ +]]-- + +module("luci.controller.openvpn", package.seeall) + +function index() + entry( {"admin", "services", "openvpn"}, cbi("openvpn"), _("OpenVPN") ) + entry( {"admin", "services", "openvpn", "basic"}, cbi("openvpn-basic"), nil ).leaf = true + entry( {"admin", "services", "openvpn", "advanced"}, cbi("openvpn-advanced"), nil ).leaf = true +end diff --git a/applications/luci-app-openvpn/luasrc/model/cbi/openvpn-advanced.lua b/applications/luci-app-openvpn/luasrc/model/cbi/openvpn-advanced.lua new file mode 100644 index 000000000..f47af6d2f --- /dev/null +++ b/applications/luci-app-openvpn/luasrc/model/cbi/openvpn-advanced.lua @@ -0,0 +1,273 @@ +--[[ +LuCI - Lua Configuration Interface + +Copyright 2008 Steven Barth <steven@midlink.org> + +Licensed under the Apache License, Version 2.0 (the "License"); +you may not use this file except in compliance with the License. +You may obtain a copy of the License at + + http://www.apache.org/licenses/LICENSE-2.0 + +$Id$ +]]-- + +require("luci.ip") +require("luci.model.uci") + + +local knownParams = { + -- + -- Widget Name Default(s) Description Option(s) + -- + + { "Service", { + -- initialisation and daemon options + { ListValue, "verb", { 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11 }, translate("Set output verbosity") }, + { Flag, "mlock", 0, translate("Disable Paging") }, + { Flag, "disable_occ", 0, translate("Disable options consistency check") }, + -- { Value, "user", "root", translate("Set UID to user") }, + -- { Value, "group", "root", translate("Set GID to group") }, + { Value, "cd", "/etc/openvpn", translate("Change to directory before initialization") }, + { Value, "chroot", "/var/run", translate("Chroot to directory after initialization") }, + -- { Value, "daemon", "Instance-Name", translate("Daemonize after initialization") }, + -- { Value, "syslog", "Instance-Name", translate("Output to syslog and do not daemonize") }, + { Flag, "passtos", 0, translate("TOS passthrough (applies to IPv4 only)") }, + -- { Value, "inetd", "nowait Instance-Name", translate("Run as an inetd or xinetd server") }, + { Value, "log", "/var/log/openvpn.log", translate("Write log to file") }, + { Value, "log_append", "/var/log/openvpn.log", translate("Append log to file") }, + { Flag, "suppress_timestamps", 0, translate("Don't log timestamps") }, + -- { Value, "writepid", "/var/run/openvpn.pid", translate("Write process ID to file") }, + { Value, "nice", 0, translate("Change process priority") }, + { Flag, "fast_io", 0, translate("Optimize TUN/TAP/UDP writes") }, + { Value, "echo", "some params echoed to log", translate("Echo parameters to log") }, + { ListValue, "remap_usr1", { "SIGHUP", "SIGTERM" }, translate("Remap SIGUSR1 signals") }, + { Value, "status", "/var/run/openvpn.status 5", translate("Write status to file every n seconds") }, + { Value, "status_version", { 1, 2 }, translate("Status file format version") }, -- status + { Value, "mute", 5, translate("Limit repeated log messages") }, + + { Value, "up", "/usr/bin/ovpn-up", translate("Shell cmd to execute after tun device open") }, + { Value, "up_delay", 5, translate("Delay tun/tap open and up script execution") }, + { Value, "down", "/usr/bin/ovpn-down", translate("Shell cmd to run after tun device close") }, + { Flag, "down_pre", 0, translate("Call down cmd/script before TUN/TAP close") }, + { Flag, "up_restart", 0, translate("Run up/down scripts for all restarts") }, + { Value, "route_up", "/usr/bin/ovpn-routeup", translate("Execute shell cmd after routes are added") }, + { Value, "ipchange", "/usr/bin/ovpn-ipchange", translate("Execute shell command on remote ip change"), { mode="p2p" } }, + { DynamicList, "setenv", { "VAR1 value1", "VAR2 value2" }, translate("Pass environment variables to script") }, + { Value, "tls_verify", "/usr/bin/ovpn-tlsverify", translate("Shell command to verify X509 name") }, + { Value, "client_connect", "/usr/bin/ovpn-clientconnect", translate("Run script cmd on client connection") }, + { Flag, "client_disconnect", 0, translate("Run script cmd on client disconnection") }, + { Value, "learn_address", "/usr/bin/ovpn-learnaddress", translate("Executed in server mode whenever an IPv4 address/route or MAC address is added to OpenVPN's internal routing table") }, + { Value, "auth_user_pass_verify", "/usr/bin/ovpn-userpass via-env", translate("Executed in server mode on new client connections, when the client is still untrusted") }, + { ListValue, "script_security", { 0, 1, 2, 3 }, translate("Policy level over usage of external programs and scripts"), {mode="server" } }, + } }, + + { "Networking", { + -- socket config + { ListValue, "mode", { "p2p", "server" }, translate("Major mode") }, + { Value, "local", "0.0.0.0", translate("Local host name or ip address") }, + { Value, "port", 1194, translate("TCP/UDP port # for both local and remote") }, + { Value, "lport", 1194, translate("TCP/UDP port # for local (default=1194)") }, + { Value, "rport", 1194, translate("TCP/UDP port # for remote (default=1194)") }, + { Flag, "float", 0, translate("Allow remote to change its IP or port") }, + { Flag, "nobind", 0, translate("Do not bind to local address and port") }, + + { Value, "dev", "tun0", translate("tun/tap device") }, + { ListValue, "dev_type", { "tun", "tap" }, translate("Type of used device") }, + { Value, "dev_node", "/dev/net/tun", translate("Use tun/tap device node") }, + { Flag, "tun_ipv6", 0, translate("Make tun device IPv6 capable") }, + + { Value, "ifconfig", "10.200.200.3 10.200.200.1", translate("Set tun/tap adapter parameters") }, + { Flag, "ifconfig_noexec", 0, translate("Don't actually execute ifconfig") }, + { Flag, "ifconfig_nowarn", 0, translate("Don't warn on ifconfig inconsistencies") }, + + { DynamicList, "route", "10.123.0.0 255.255.0.0", translate("Add route after establishing connection") }, + { Value, "route_gateway", "10.234.1.1", translate("Specify a default gateway for routes") }, + { Value, "route_delay", 0, translate("Delay n seconds after connection") }, + { Flag, "route_noexec", 0, translate("Don't add routes automatically") }, + + { ListValue, "mtu_disc", { "yes", "maybe", "no" }, translate("Enable Path MTU discovery") }, + { Flag, "mtu_test", 0, translate("Empirically measure MTU") }, + { ListValue, "comp_lzo", { "yes", "no", "adaptive" }, translate("Use fast LZO compression") }, + { Flag, "comp_noadapt", 0, translate("Don't use adaptive lzo compression"), { comp_lzo=1 } }, + { Value, "link_mtu", 1500, translate("Set TCP/UDP MTU") }, + { Value, "tun_mtu", 1500, translate("Set tun/tap device MTU") }, + { Value, "tun_mtu_extra", 1500, translate("Set tun/tap device overhead") }, + { Value, "fragment", 1500, translate("Enable internal datagram fragmentation"), { proto="udp" } }, + { Value, "mssfix", 1500, translate("Set upper bound on TCP MSS"), { proto="udp" } }, + { Value, "sndbuf", 65536, translate("Set the TCP/UDP send buffer size") }, + { Value, "rcvbuf", 65536, translate("Set the TCP/UDP receive buffer size") }, + { Value, "txqueuelen", 100, translate("Set tun/tap TX queue length") }, + { Value, "shaper", 10240, translate("Shaping for peer bandwidth") }, + + { Value, "inactive", 240, translate("tun/tap inactivity timeout") }, + { Value, "keepalive", "10 60", translate("Helper directive to simplify the expression of --ping and --ping-restart in server mode configurations") }, + { Value, "ping", 30, translate("Ping remote every n seconds over TCP/UDP port") }, + { Value, "ping_exit", 120, translate("Remote ping timeout") }, + { Value, "ping_restart", 60, translate("Restart after remote ping timeout") }, + { Flag, "ping_timer_rem", 0, translate("Only process ping timeouts if routes exist") }, + + { Flag, "persist_tun", 0, translate("Keep tun/tap device open on restart") }, + { Flag, "persist_key", 0, translate("Don't re-read key on restart") }, + { Flag, "persist_local_ip", 0, translate("Keep local IP address on restart") }, + { Flag, "persist_remote_ip", 0, translate("Keep remote IP address on restart") }, + + -- management channel + { Value, "management", "127.0.0.1 31194 /etc/openvpn/mngmt-pwds", translate("Enable management interface on <em>IP</em> <em>port</em>") }, + { Flag, "management_query_passwords", 0, translate("Query management channel for private key") }, -- management + { Flag, "management_hold", 0, translate("Start OpenVPN in a hibernating state") }, -- management + { Value, "management_log_cache", 100, translate("Number of lines for log file history") }, -- management + { ListValue, "topology", { "net30", "p2p", "subnet" }, translate("'net30', 'p2p', or 'subnet'"), {dev_type="tun" } }, + } }, + + { "VPN", { + { Value, "server", "10.200.200.0 255.255.255.0", translate("Configure server mode"), { server_mode="1" } }, + { Value, "server_bridge", "10.200.200.1 255.255.255.0 10.200.200.200 10.200.200.250", translate("Configure server bridge"), { server_mode="1" } }, + { DynamicList, "push", { "redirect-gateway", "comp-lzo" }, translate("Push options to peer"), { server_mode="1" } }, + { Flag, "push_reset", 0, translate("Don't inherit global push options"), { server_mode="1" } }, + { Flag, "disable", 0, translate("Client is disabled"), { server_mode="1" } }, + { Value, "ifconfig_pool", "10.200.200.100 10.200.200.150 255.255.255.0", translate("Set aside a pool of subnets"), { server_mode="1" } }, + { Value, "ifconfig_pool_persist", "/etc/openvpn/ipp.txt 600", translate("Persist/unpersist ifconfig-pool"), { server_mode="1" } }, +-- { Flag, "ifconfig_pool_linear", 0, translate("Use individual addresses rather than /30 subnets"), { server_mode="1" } }, -- deprecated and replaced by --topology p2p + { Value, "ifconfig_push", "10.200.200.1 255.255.255.255", translate("Push an ifconfig option to remote"), { server_mode="1" } }, + { Value, "iroute", "10.200.200.0 255.255.255.0", translate("Route subnet to client"), { server_mode="1" } }, + { Flag, "client_to_client", 0, translate("Allow client-to-client traffic"), { server_mode="1" } }, + { Flag, "duplicate_cn", 0, translate("Allow multiple clients with same certificate"), { server_mode="1" } }, + { Value, "client_config_dir", "/etc/openvpn/ccd", translate("Directory for custom client config files"), { server_mode="1" } }, + { Flag, "ccd_exclusive", 0, translate("Refuse connection if no custom client config"), { server_mode="1" } }, + { Value, "tmp_dir", "/var/run/openvpn", translate("Temporary directory for client-connect return file"), { server_mode="1" } }, + { Value, "hash_size", "256 256", translate("Set size of real and virtual address hash tables"), { server_mode="1" } }, + { Value, "bcast_buffers", 256, translate("Number of allocated broadcast buffers"), { server_mode="1" } }, + { Value, "tcp_queue_limit", 64, translate("Maximum number of queued TCP output packets"), { server_mode="1" } }, + { Value, "max_clients", 10, translate("Allowed maximum of connected clients"), { server_mode="1" } }, + { Value, "max_routes_per_client", 256, translate("Allowed maximum of internal"), { server_mode="1" } }, + { Value, "connect_freq", "3 10", translate("Allowed maximum of new connections"), { server_mode="1" } }, + { Flag, "client_cert_not_required", 0, translate("Don't require client certificate"), { server_mode="1" } }, + { Flag, "username_as_common_name", 0, translate("Use username as common name"), { server_mode="1" } }, + { Flag, "client", 0, translate("Configure client mode"), { server_mode="0" }, { server_mode="" } }, + { Flag, "pull", 0, translate("Accept options pushed from server"), { client="1" } }, + { Value, "auth_user_pass", "/etc/openvpn/userpass.txt", translate("Authenticate using username/password"), { client="1" } }, + { ListValue, "auth_retry", { "none", "nointeract", "interact" }, translate("Handling of authentication failures"), { client="1" } }, + { Value, "explicit_exit_notify", 1, translate("Send notification to peer on disconnect"), { client="1" } }, + { DynamicList, "remote", "1.2.3.4", translate("Remote host name or ip address"), { client="1" } }, + { Flag, "remote_random", 1, translate("Randomly choose remote server"), { client="1" } }, + { ListValue, "proto", { "udp", "tcp-client", "tcp-server" }, translate("Use protocol"), { client="1" } }, + { Value, "connect_retry", 5, translate("Connection retry interval"), { proto="tcp-client" }, { client="1" } }, + { Value, "http_proxy", "192.168.1.100 8080", translate("Connect to remote host through an HTTP proxy"), { client="1" } }, + { Flag, "http_proxy_retry", 0, translate("Retry indefinitely on HTTP proxy errors"), { client="1" } }, + { Value, "http_proxy_timeout", 5, translate("Proxy timeout in seconds"), { client="1" } }, + { DynamicList, "http_proxy_option", { "VERSION 1.0", "AGENT OpenVPN/2.0.9" }, translate("Set extended HTTP proxy options"), { client="1" } }, + { Value, "socks_proxy", "192.168.1.200 1080", translate("Connect through Socks5 proxy"), { client="1" } }, + { Value, "socks_proxy_retry", 5, translate("Retry indefinitely on Socks proxy errors"), { client="1" } }, -- client && socks_proxy + { Value, "resolv_retry", "infinite", translate("If hostname resolve fails, retry"), { client="1" } }, + { ListValue, "redirect_gateway", { "", "local", "def1", "local def1" }, translate("Automatically redirect default route"), { client="1" } }, + } }, + + { "Cryptography", { + { Value, "secret", "/etc/openvpn/secret.key 1", translate("Enable Static Key encryption mode (non-TLS)") }, + { Value, "auth", "SHA1", translate("HMAC authentication for packets") }, -- parse + { Value, "cipher", "BF-CBC", translate("Encryption cipher for packets") }, -- parse + { Value, "keysize", 1024, translate("Size of cipher key") }, -- parse + { Value, "engine", "dynamic", translate("Enable OpenSSL hardware crypto engines") }, -- parse + { Flag, "no_replay", 0, translate("Disable replay protection") }, + { Value, "replay_window", "64 15", translate("Replay protection sliding window size") }, + { Flag, "mute_replay_warnings", 0, translate("Silence the output of replay warnings") }, + { Value, "replay_persist", "/var/run/openvpn-replay-state", translate("Persist replay-protection state") }, + { Flag, "no_iv", 0, translate("Disable cipher initialisation vector") }, + { Flag, "tls_server", 0, translate("Enable TLS and assume server role"), { tls_client="" }, { tls_client="0" } }, + { Flag, "tls_client", 0, translate("Enable TLS and assume client role"), { tls_server="" }, { tls_server="0" } }, + { FileUpload, "ca", "/etc/easy-rsa/keys/ca.crt", translate("Certificate authority") }, + { FileUpload, "dh", "/etc/easy-rsa/keys/dh1024.pem", translate("Diffie Hellman parameters") }, + { FileUpload, "cert", "/etc/easy-rsa/keys/some-client.crt", translate("Local certificate") }, + { FileUpload, "key", "/etc/easy-rsa/keys/some-client.key", translate("Local private key") }, + { FileUpload, "pkcs12", "/etc/easy-rsa/keys/some-client.pk12", translate("PKCS#12 file containing keys") }, + { ListValue, "key_method", { 1, 2 }, translate("Enable TLS and assume client role") }, + { Value, "tls_cipher", "DHE-RSA-AES256-SHA:DHE-DSS-AES256-SHA:AES256-SHA:EDH-RSA-DES-CBC3-SHA:EDH-DSS-DES-CBC3-SHA:DES-CBC3-SHA:DHE-RSA-AES128-SHA:DHE-DSS-AES128-SHA:AES128-SHA:RC4-SHA:RC4-MD5:EDH-RSA-DES-CBC-SHA:EDH-DSS-DES-CBC-SHA:DES-CBC-SHA:EXP-EDH-RSA-DES-CBC-SHA:EXP-EDH-DSS-DES-CBC-SHA:EXP-DES-CBC-SHA:EXP-RC2-CBC-MD5:EXP-RC4-MD5", + translate("TLS cipher") }, + { Value, "tls_timeout", 2, translate("Retransmit timeout on TLS control channel") }, + { Value, "reneg_bytes", 1024, translate("Renegotiate data chan. key after bytes") }, + { Value, "reneg_pkts", 100, translate("Renegotiate data chan. key after packets") }, + { Value, "reneg_sec", 3600, translate("Renegotiate data chan. key after seconds") }, + { Value, "hand_window", 60, translate("Timeframe for key exchange") }, + { Value, "tran_window", 3600, translate("Key transition window") }, + { Flag, "single_session", 0, translate("Allow only one session") }, + { Flag, "tls_exit", 0, translate("Exit on TLS negotiation failure") }, + { Value, "tls_auth", "/etc/openvpn/tlsauth.key 1", translate("Additional authentication over TLS") }, + --{ Value, "askpass", "[file]", translate("Get PEM password from controlling tty before we daemonize") }, + { Flag, "auth_nocache", 0, translate("Don't cache --askpass or --auth-user-pass passwords") }, + { Value, "tls_remote", "remote_x509_name", translate("Only accept connections from given X509 name") }, + { ListValue, "ns_cert_type", { "client", "server" }, translate("Require explicit designation on certificate") }, + { ListValue, "remote_cert_tls", { "client", "server" }, translate("Require explicit key usage on certificate") }, + { Value, "crl_verify", "/etc/easy-rsa/keys/crl.pem", translate("Check peer certificate against a CRL") }, + } } +} + + +local cts = { } +local params = { } + +local m = Map("openvpn") +local p = m:section( SimpleSection ) + +p.template = "openvpn/pageswitch" +p.mode = "advanced" +p.instance = arg[1] +p.category = arg[2] or "Service" + +for _, c in ipairs(knownParams) do + cts[#cts+1] = c[1] + if c[1] == p.category then params = c[2] end +end + +p.categories = cts + + +local s = m:section( + NamedSection, arg[1], "openvpn", + translate("%s" % arg[2]) +) + +s.title = translate("%s" % arg[2]) +s.addremove = false +s.anonymous = true + + +for _, option in ipairs(params) do + local o = s:option( + option[1], option[2], + option[2], option[4] + ) + + if option[1] == DummyValue then + o.value = option[3] + else + if option[1] == DynamicList then + o.cast = nil + function o.cfgvalue(...) + local val = AbstractValue.cfgvalue(...) + return ( val and type(val) ~= "table" ) and { val } or val + end + end + + o.optional = true + + if type(option[3]) == "table" then + if o.optional then o:value("", "-- remove --") end + for _, v in ipairs(option[3]) do + v = tostring(v) + o:value(v) + end + o.default = tostring(option[3][1]) + else + o.default = tostring(option[3]) + end + end + + for i=5,#option do + if type(option[i]) == "table" then + o:depends(option[i]) + end + end +end + +return m diff --git a/applications/luci-app-openvpn/luasrc/model/cbi/openvpn-basic.lua b/applications/luci-app-openvpn/luasrc/model/cbi/openvpn-basic.lua new file mode 100644 index 000000000..92f7cb569 --- /dev/null +++ b/applications/luci-app-openvpn/luasrc/model/cbi/openvpn-basic.lua @@ -0,0 +1,102 @@ +--[[ +LuCI - Lua Configuration Interface + +Copyright 2008 Steven Barth <steven@midlink.org> + +Licensed under the Apache License, Version 2.0 (the "License"); +you may not use this file except in compliance with the License. +You may obtain a copy of the License at + +http://www.apache.org/licenses/LICENSE-2.0 + +$Id$ +]]-- + +require("luci.ip") +require("luci.model.uci") + + +local basicParams = { + -- + -- Widget, Name, Default(s), Description + -- + + { ListValue, "verb", { 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11 }, translate("Set output verbosity") }, + { Value, "nice",0, translate("Change process priority") }, + { Value,"port",1194, translate("TCP/UDP port # for both local and remote") }, + { ListValue,"dev_type",{ "tun", "tap" }, translate("Type of used device") }, + { Flag,"tun_ipv6",0, translate("Make tun device IPv6 capable") }, + + { Value,"ifconfig","10.200.200.3 10.200.200.1", translate("Set tun/tap adapter parameters") }, + { Value,"server","10.200.200.0 255.255.255.0", translate("Configure server mode") }, + { Value,"server_bridge","192.168.1.1 255.255.255.0 192.168.1.128 192.168.1.254", translate("Configure server bridge") }, + { Flag,"nobind",0, translate("Do not bind to local address and port") }, + + { ListValue,"comp_lzo",{"yes","no","adaptive"}, translate("Use fast LZO compression") }, + { Value,"keepalive","10 60", translate("Helper directive to simplify the expression of --ping and --ping-restart in server mode configurations") }, + + { ListValue,"proto",{ "udp", "tcp" }, translate("Use protocol") }, + + { Flag,"client",0, translate("Configure client mode") }, + { Flag,"client_to_client",0, translate("Allow client-to-client traffic") }, + { DynamicList,"remote","vpnserver.example.org", translate("Remote host name or ip address") }, + + { FileUpload,"secret","/etc/openvpn/secret.key 1", translate("Enable Static Key encryption mode (non-TLS)") }, + { FileUpload,"pkcs12","/etc/easy-rsa/keys/some-client.pk12", translate("PKCS#12 file containing keys") }, + { FileUpload,"ca","/etc/easy-rsa/keys/ca.crt", translate("Certificate authority") }, + { FileUpload,"dh","/etc/easy-rsa/keys/dh1024.pem", translate("Diffie Hellman parameters") }, + { FileUpload,"cert","/etc/easy-rsa/keys/some-client.crt", translate("Local certificate") }, + { FileUpload,"key","/etc/easy-rsa/keys/some-client.key", translate("Local private key") }, +} + + +local m = Map("openvpn") +local p = m:section( SimpleSection ) + +p.template = "openvpn/pageswitch" +p.mode = "basic" +p.instance = arg[1] + + +local s = m:section( NamedSection, arg[1], "openvpn" ) + +for _, option in ipairs(basicParams) do + local o = s:option( + option[1], option[2], + option[2], option[4] + ) + + o.optional = true + + if option[1] == DummyValue then + o.value = option[3] + else + if option[1] == DynamicList then + o.cast = nil + function o.cfgvalue(...) + local val = AbstractValue.cfgvalue(...) + return ( val and type(val) ~= "table" ) and { val } or val + end + end + + if type(option[3]) == "table" then + if o.optional then o:value("", "-- remove --") end + for _, v in ipairs(option[3]) do + v = tostring(v) + o:value(v) + end + o.default = tostring(option[3][1]) + else + o.default = tostring(option[3]) + end + end + + for i=5,#option do + if type(option[i]) == "table" then + o:depends(option[i]) + end + end +end + +return m + diff --git a/applications/luci-app-openvpn/luasrc/model/cbi/openvpn.lua b/applications/luci-app-openvpn/luasrc/model/cbi/openvpn.lua new file mode 100644 index 000000000..2f865e002 --- /dev/null +++ b/applications/luci-app-openvpn/luasrc/model/cbi/openvpn.lua @@ -0,0 +1,130 @@ +--[[ +LuCI - Lua Configuration Interface + +Copyright 2008 Steven Barth <steven@midlink.org> + +Licensed under the Apache License, Version 2.0 (the "License"); +you may not use this file except in compliance with the License. +You may obtain a copy of the License at + + http://www.apache.org/licenses/LICENSE-2.0 + +$Id$ +]]-- + +local fs = require "nixio.fs" +local sys = require "luci.sys" +local uci = require "luci.model.uci".cursor() +local testfullps = luci.sys.exec("ps --help 2>&1 | grep BusyBox") --check which ps do we have +local psstring = (string.len(testfullps)>0) and "ps w" or "ps axfw" --set command we use to get pid + +local m = Map("openvpn", translate("OpenVPN")) +local s = m:section( TypedSection, "openvpn", translate("OpenVPN instances"), translate("Below is a list of configured OpenVPN instances and their current state") ) +s.template = "cbi/tblsection" +s.template_addremove = "openvpn/cbi-select-input-add" +s.addremove = true +s.add_select_options = { } +s.extedit = luci.dispatcher.build_url( + "admin", "services", "openvpn", "basic", "%s" +) + +uci:load("openvpn_recipes") +uci:foreach( "openvpn_recipes", "openvpn_recipe", + function(section) + s.add_select_options[section['.name']] = + section['_description'] or section['.name'] + end +) + +function s.parse(self, section) + local recipe = luci.http.formvalue( + luci.cbi.CREATE_PREFIX .. self.config .. "." .. + self.sectiontype .. ".select" + ) + + if recipe and not s.add_select_options[recipe] then + self.invalid_cts = true + else + TypedSection.parse( self, section ) + end +end + +function s.create(self, name) + local recipe = luci.http.formvalue( + luci.cbi.CREATE_PREFIX .. self.config .. "." .. + self.sectiontype .. ".select" + ) + name = luci.http.formvalue( + luci.cbi.CREATE_PREFIX .. self.config .. "." .. + self.sectiontype .. ".text" + ) + if string.len(name)>3 and not name:match("[^a-zA-Z0-9_]") then + uci:section( + "openvpn", "openvpn", name, + uci:get_all( "openvpn_recipes", recipe ) + ) + + uci:delete("openvpn", name, "_role") + uci:delete("openvpn", name, "_description") + uci:save("openvpn") + + luci.http.redirect( self.extedit:format(name) ) + else + self.invalid_cts = true + end +end + + +s:option( Flag, "enabled", translate("Enabled") ) + +local active = s:option( DummyValue, "_active", translate("Started") ) +function active.cfgvalue(self, section) + local pid = sys.exec("%s | grep %s | grep openvpn | grep -v grep | awk '{print $1}'" % { psstring,section} ) + if pid and #pid > 0 and tonumber(pid) ~= nil then + return (sys.process.signal(pid, 0)) + and translatef("yes (%i)", pid) + or translate("no") + end + return translate("no") +end + +local updown = s:option( Button, "_updown", translate("Start/Stop") ) +updown._state = false +updown.redirect = luci.dispatcher.build_url( + "admin", "services", "openvpn" +) +function updown.cbid(self, section) + local pid = sys.exec("%s | grep %s | grep openvpn | grep -v grep | awk '{print $1}'" % { psstring,section} ) + self._state = pid and #pid > 0 and sys.process.signal(pid, 0) + self.option = self._state and "stop" or "start" + return AbstractValue.cbid(self, section) +end +function updown.cfgvalue(self, section) + self.title = self._state and "stop" or "start" + self.inputstyle = self._state and "reset" or "reload" +end +function updown.write(self, section, value) + if self.option == "stop" then + local pid = sys.exec("%s | grep %s | grep openvpn | grep -v grep | awk '{print $1}'" % { psstring,section} ) + sys.process.signal(pid,15) + else + luci.sys.call("/etc/init.d/openvpn start %s" % section) + end + luci.http.redirect( self.redirect ) +end + + +local port = s:option( DummyValue, "port", translate("Port") ) +function port.cfgvalue(self, section) + local val = AbstractValue.cfgvalue(self, section) + return val or "1194" +end + +local proto = s:option( DummyValue, "proto", translate("Protocol") ) +function proto.cfgvalue(self, section) + local val = AbstractValue.cfgvalue(self, section) + return val or "udp" +end + + +return m diff --git a/applications/luci-app-openvpn/luasrc/view/openvpn/cbi-select-input-add.htm b/applications/luci-app-openvpn/luasrc/view/openvpn/cbi-select-input-add.htm new file mode 100644 index 000000000..0166de778 --- /dev/null +++ b/applications/luci-app-openvpn/luasrc/view/openvpn/cbi-select-input-add.htm @@ -0,0 +1,11 @@ +<div class="cbi-section-create"> + <% if self.invalid_cts then -%><div class="cbi-section-error"><% end %> + <input type="text" class="cbi-section-create-name" name="cbi.cts.<%=self.config%>.<%=self.sectiontype%>.text" /> + <select class="cbi-section-create-name" name="cbi.cts.<%=self.config%>.<%=self.sectiontype%>.select"> + <%- for k, v in luci.util.kspairs(self.add_select_options) do %> + <option value="<%=k%>"><%=luci.util.pcdata(v)%></option> + <% end -%> + </select> + <input class="cbi-button cbi-button-add" type="submit" value="<%:Add%>" title="<%:Add%>" /> + <% if self.invalid_cts then %><br /><%:Invalid%></div><% end %> +</div> diff --git a/applications/luci-app-openvpn/luasrc/view/openvpn/pageswitch.htm b/applications/luci-app-openvpn/luasrc/view/openvpn/pageswitch.htm new file mode 100644 index 000000000..4f4e869e5 --- /dev/null +++ b/applications/luci-app-openvpn/luasrc/view/openvpn/pageswitch.htm @@ -0,0 +1,45 @@ +<%# +LuCI - Lua Configuration Interface +Copyright 2008 Steven Barth <steven@midlink.org> +Copyright 2008 Jo-Philipp Wich <xm@leipzig.freifunk.net> + +Licensed under the Apache License, Version 2.0 (the "License"); +you may not use this file except in compliance with the License. +You may obtain a copy of the License at + + http://www.apache.org/licenses/LICENSE-2.0 + +$Id$ + +These strings need to be here to be included in the translation template +translate("Service") +translate("Networking") +translate("VPN") +translate("Cryptography") + +-%> + +<fieldset class="cbi-section"> + <legend> + <a href="<%=luci.dispatcher.build_url("admin", "services", "openvpn")%>"><%:Overview%></a> » + <%=luci.i18n.translatef("Instance \"%s\"", self.instance)%> + </legend> + + <% if self.mode == "basic" then %> + <a href="<%=luci.dispatcher.build_url("admin", "services", "openvpn", "advanced", self.instance, "Service")%>"><%:Switch to advanced configuration »%></a> + <% else %> + <a href="<%=luci.dispatcher.build_url("admin", "services", "openvpn", "basic", self.instance)%>"><%:« Switch to basic configuration%></a> + <hr style="margin:0.5em 0" /> + <%:Configuration category%>: + <% for i, c in ipairs(self.categories) do %> + <% if c == self.category then %> + <strong><%=translate(c)%></strong> + <% else %> + <a href="<%=luci.dispatcher.build_url( + "admin", "services", "openvpn", "advanced", self.instance, c + )%>"><%=translate(c)%></a> + <% end %> + <% if next(self.categories, i) then %>|<% end %> + <% end %> + <% end %> +</fieldset> |