first commit

Makefile

@@ -0,0 +1,16 @@
+
+
+include $(TOPDIR)/rules.mk
+
+
+LUCI_TITLE:=LuCI support for TorGuard SSTP VPN
+LUCI_PKGARCH:=all
+LUCI_DEPENDS:=+sstp-client +luci-proto-sstp
+
+define Package/tgsstp/conffiles
+/etc/config/tgsstp_cfg
+endef
+
+include $(TOPDIR)/feeds/luci/luci.mk
+
+# call BuildPackage - OpenWrt buildroot signature

luasrc/controller/admin/tgsstp.lua

@@ -0,0 +1,4 @@
+module("luci.controller.admin.tgsstp", package.seeall)
+function index()
+	entry({"admin", "vpn", "tgsstp"}, cbi("torguard/tgsstp"), _("TorGuard SSTP"), 102)
+end

luasrc/model/cbi/torguard/tgsstp.lua

@@ -0,0 +1,75 @@
+-- Import the necessary LuCI modules
+local uci = require("luci.model.uci").cursor()
+local sys = require("luci.sys")
+local util = require("luci.util")
+
+-- Define the model
+m = Map("tgsstp_cfg", "TorGuard SSTP VPN Setup")
+
+-- Define the section for the SSTP settings
+s = m:section(TypedSection, "sstpconfig", "SSTP VPN Settings")
+s.anonymous = true
+s.addremove = false
+
+-- Define the input fields for the SSTP settings
+user = s:option(Value, "username", translate("VPN Username"))
+pass = s:option(Value, "password", translate("VPN Password"))
+pass.password = true
+
+svr = s:option(ListValue, "server", translate("VPN Server"))
+-- Add all servers here
+svr:value("ar.torguard.org", "Argentina")
+svr:value("au.torguard.org", "Australia Sydney")
+svr:value("br.torguard.org", "Brazil Sau Paulo")
+svr:value("br2.torguard.org", "Brazil Sau Paulo 2")
+svr:value("us-la.torguard.org", "USA LA")
+svr:value("us-fl.torguard.org", "USA Miami")
+svr:value("us-ny.torguard.org", "USA NY")
+svr:value("us-lv.torguard.org", "USA Las Vegas")
+svr:value("us-sa.torguard.org", "USA Seattle")
+svr:value("us-slc.torguard.org", "USA Salt Lake City")
+svr:value("dn.torguard.org", "Denmark Copenhagen")
+svr:value("fn.torguard.org", "Finland Helsinki")
+svr:value("dn.torguard.org", "Denmark Copenhagen")
+svr:value("fr.torguard.org", "France Paris")
+svr:value("ger.torguard.org", "Germany Frankfurt")
+svr:value("ice.torguard.org", "Iceland Reykjavik")
+svr:value("ire.torguard.org", "Ireland Dublin")
+svr:value("it.torguard.org", "Italy Milan")
+svr:value("nl.torguard.org", "Netherlands Amsterdam")
+svr:value("ru.torguard.org", "Russia Moscow")
+svr:value("swe.torguard.org", "Sweden Stockholm")
+svr:value("tk.torguard.org", "Turkey Istanbul")
+svr:value("uk.man.torguard.org", "United Kingdom Manchester")
+svr:value("hk.torguard.org", "Hong Kong")
+svr:value("id.torguard.org", "Indonesia Jakarta")
+svr:value("sk.torguard.org", "South Korea Seoul")
+svr:value("nz.torguard.org", "New Zealand Auckland")
+svr:value("sg.torguard.org", "Singapore")
+svr:value("tw.torguard.org", "Taiwan Taipei")
+svr:value("th.torguard.org", "Thailand Bangkok")
+svr:value("bh.torguard.org", "Bahrain Manama")
+svr:value("in.torguard.org", "India Mumbai")
+svr:value("isr-loc1.torguard.org", "Israel Tel Aviv")
+svr:value("isr-loc2.torguard.org", "Israel Petah Tikva")
+svr:value("sa.torguard.org", "South Africa Johannesburg")
+
+
+
+-- VPN Control: Start/Stop SSTP VPN
+ctrl = m:section(TypedSection, "sstpconfig", "VPN Control: Start/Stop SSTP")
+ctrl.anonymous = true
+ctrl.addremove = false
+
+btnStop = ctrl:option(Button, "_btn_start", translate("Click to Stop SSTP"))
+function btnStop.write()
+    io.popen("/etc/init.d/tgsstp stop")
+end
+
+btnStart = ctrl:option(Button, "_btn_stop", translate("Click to Start SSTP"))
+function btnStart.write()
+    io.popen("/etc/init.d/tgsstp start")
+end
+
+-- Return the configuration page
+return m

root/etc/config/tgsstp_cfg

@@ -0,0 +1,4 @@
+config sstpconfig 'settings'
+        option server 'fr.torguard.org'
+        option username ''
+        option password ''

root/etc/init.d/tgsstp

@@ -0,0 +1,76 @@
+#!/bin/bash /etc/rc.common
+# TorGuard SSTP init script
+
+START=10
+STOP=15
+
+USE_PROCD=0
+
+NAME=tgsstp
+LOGFILE=/var/log/${NAME}.log
+
+log() {
+    local timestamp=$(date +"%Y-%m-%d %H:%M:%S")
+    echo "${timestamp} ${NAME}: $@" >> ${LOGFILE}
+}
+
+stop_service() {
+    log "Stopping service"
+    procd_kill sstpc
+    ifdown sstp
+    uci commit network
+    /etc/init.d/network reload
+    ifdown wan
+    ifup wan
+    ifdown wwan
+    ifup wwan
+    log "sstp service stopped"
+}
+
+start_service() {
+    log "Starting sstp service"
+    config_load tgsstp_cfg
+
+    local server
+    local username
+    local password
+
+    config_get server settings server
+    config_get username settings username
+    config_get password settings password
+
+    #add sstp script with custom port
+    rm /lib/netifd/proto/sstp.sh
+    cp /etc/sstp/sstp.sh /lib/netifd/proto/sstp.sh
+
+    #copy missing plugin path
+    cp /usr/lib/sstp-pppd-plugin.so /usr/lib/pppd/2.4.9/sstp-pppd-plugin.so
+
+ 
+    # check if the sstp entry already exists in the firewall
+    local sstp_exists=$(uci show firewall | grep -wc " 'sstp'")
+    if [ "$sstp_exists" -eq 0 ]; then
+        uci add_list firewall.wan.network="sstp"
+        uci commit firewall
+        reload_config
+    fi
+
+    uci -q delete network.sstp
+    uci set network.sstp="interface"
+    uci set network.sstp.proto="sstp"
+    uci set network.sstp.server="${server}"
+    uci set network.sstp.username="${username}"
+    uci set network.sstp.password="${password}"
+    uci commit network
+
+    procd_open_instance
+    procd_set_param command /usr/sbin/sstpc "$server:9443" --user "$username" --pass "$password" 
+    procd_set_param stdout 1 # forward stdout of the command to logd
+    procd_set_param stderr 1 # same for stderr
+    procd_set_param respawn # automatically restart the service if it dies
+    procd_close_instance
+    /etc/init.d/network reload
+    ifdown sstp
+    ifup sstp
+    log "sstp service started"
+}

root/etc/sstp/sstp.sh

@@ -0,0 +1,130 @@
+#!/bin/sh
+
+[ -x /usr/bin/sstpc ] || exit 0
+
+[ -n "$INCLUDE_ONLY" ] || {
+	. /lib/functions.sh
+	. ../netifd-proto.sh
+	init_proto "$@"
+}
+
+proto_sstp_init_config() {
+	proto_config_add_string "server"
+	proto_config_add_string "username"
+	proto_config_add_string "password"
+	proto_config_add_string "pppd_options"
+	proto_config_add_string "sstp_options"
+	proto_config_add_int "log_level"
+	proto_config_add_int "mtu"
+	proto_config_add_boolean "ipv6"
+	proto_config_add_boolean "defaultroute"
+	proto_config_add_boolean "peerdns"
+	available=1
+	no_device=1
+}
+
+proto_sstp_setup() {
+	local config="$1"; shift
+	local iface="$2"
+	local ifname="sstp-$config"
+
+	local ip serv_addr server ipv6 defaultroute peerdns
+	json_get_var server server && {
+		for ip in $(resolveip -t 5 "$server"); do
+			( proto_add_host_dependency "$config" "$ip" )
+			serv_addr=1
+		done
+	}
+	[ -n "$serv_addr" ] || {
+		echo "Could not resolve server address"
+		sleep 5
+		proto_setup_failed "$config"
+		exit 1
+	}
+
+	json_get_vars username password pppd_options sstp_options log_level ipv6 defaultroute peerdns
+	if [ "$ipv6" = 1 ]; then
+		ipv6=1
+	else
+		ipv6=""
+	fi
+	if [ "$defaultroute" = 0 ]; then
+		defaultroute=""
+	else
+		defaultroute=1
+	fi
+
+	if [ "$peerdns" = 0 ]; then
+		peerdns=""
+	else
+		peerdns=1
+	fi
+
+	[ -n "$mtu" ] || json_get_var mtu mtu
+	[ -n "$log_level" ] || log_level=0
+
+	local load
+	for module in slhc ppp_generic ppp_async ppp_mppe ip_gre gre pptp; do
+		grep -q "^$module " /proc/modules && continue
+		/sbin/insmod $module 2>&- >&-
+		load=1
+	done
+	[ "$load" = "1" ] && sleep 1
+
+	proto_init_update "$ifname" 1
+	proto_send_update "$config"
+
+	proto_run_command "$config" sstpc \
+		--cert-warn \
+		--password $password \
+		--user $username \
+		--log-level $log_level \
+		--save-server-route \
+		--ipparam $config \
+		$sstp_options \
+		$server:9443 \
+		ifname $ifname \
+		require-mschap-v2 \
+		${ipv6:++ipv6} \
+		refuse-pap \
+		noauth \
+		${defaultroute:+replacedefaultroute defaultroute} \
+		${peerdns:+usepeerdns} \
+		ip-up-script /lib/netifd/ppp-up \
+		ipv6-up-script /lib/netifd/ppp-up \
+		ip-down-script /lib/netifd/ppp-down \
+		ipv6-down-script /lib/netifd/ppp-down \
+		${mtu:+mtu $mtu mru $mtu} \
+		$pppd_options
+		
+	# WORKAROUND: Workaround to properly register the sstp interface (As seeen in: https://forum.archive.openwrt.org/viewtopic.php?id=58007)
+	# WORKAROUND: Start
+	sleep 10
+	proto_init_update "$ifname" 1
+	proto_send_update "$config"
+	# WORKAROUND: End
+	
+	# if use pppoe and sstp at same time , firewall need reload .
+	# but don't konw why
+	/etc/init.d/firewall reload 2>&- >&-
+}
+
+proto_sstp_teardown() {
+	local interface="$1"
+
+	case "$ERROR" in
+		11|19)
+			proto_notify_error "$interface" AUTH_FAILED
+			proto_block_restart "$interface"
+		;;
+		2)
+			proto_notify_error "$interface" INVALID_OPTIONS
+			proto_block_restart "$interface"
+		;;
+	esac
+	proto_kill_command "$interface"
+}
+
+[ -n "$INCLUDE_ONLY" ] || {
+	add_protocol sstp
+}

root/etc/uci-defaults/tgsstp_def

@@ -0,0 +1,12 @@
+#!/bin/sh
+
+uci -q batch <<-EOF >/dev/null
+	delete ucitrack.@tgsstp_def[-1]
+	add ucitrack tgsstp
+	set ucitrack.@tgsstp[-1].init=tgsstp
+	commit ucitrack
+EOF
+
+rm -f /tmp/luci-indexcache
+exit 0
+

root/usr/lib/lua/luci/controller/admin/tgsstp.lua

@@ -0,0 +1,4 @@
+module("luci.controller.admin.tgsstp", package.seeall)
+function index()
+	entry({"admin", "vpn", "tgsstp"}, cbi("torguard/tgsstp"), _("TorGuard SSTP"), 102)
+end

root/usr/lib/lua/luci/model/cbi/torguard/tgsstp.lua

@@ -0,0 +1,75 @@
+-- Import the necessary LuCI modules
+local uci = require("luci.model.uci").cursor()
+local sys = require("luci.sys")
+local util = require("luci.util")
+
+-- Define the model
+m = Map("tgsstp_cfg", "TorGuard SSTP VPN Setup")
+
+-- Define the section for the SSTP settings
+s = m:section(TypedSection, "sstpconfig", "SSTP VPN Settings")
+s.anonymous = true
+s.addremove = false
+
+-- Define the input fields for the SSTP settings
+user = s:option(Value, "username", translate("VPN Username"))
+pass = s:option(Value, "password", translate("VPN Password"))
+pass.password = true
+
+svr = s:option(ListValue, "server", translate("VPN Server"))
+-- Add all servers here
+svr:value("ar.torguard.org", "Argentina")
+svr:value("au.torguard.org", "Australia Sydney")
+svr:value("br.torguard.org", "Brazil Sau Paulo")
+svr:value("br2.torguard.org", "Brazil Sau Paulo 2")
+svr:value("us-la.torguard.org", "USA LA")
+svr:value("us-fl.torguard.org", "USA Miami")
+svr:value("us-ny.torguard.org", "USA NY")
+svr:value("us-lv.torguard.org", "USA Las Vegas")
+svr:value("us-sa.torguard.org", "USA Seattle")
+svr:value("us-slc.torguard.org", "USA Salt Lake City")
+svr:value("dn.torguard.org", "Denmark Copenhagen")
+svr:value("fn.torguard.org", "Finland Helsinki")
+svr:value("dn.torguard.org", "Denmark Copenhagen")
+svr:value("fr.torguard.org", "France Paris")
+svr:value("ger.torguard.org", "Germany Frankfurt")
+svr:value("ice.torguard.org", "Iceland Reykjavik")
+svr:value("ire.torguard.org", "Ireland Dublin")
+svr:value("it.torguard.org", "Italy Milan")
+svr:value("nl.torguard.org", "Netherlands Amsterdam")
+svr:value("ru.torguard.org", "Russia Moscow")
+svr:value("swe.torguard.org", "Sweden Stockholm")
+svr:value("tk.torguard.org", "Turkey Istanbul")
+svr:value("uk.man.torguard.org", "United Kingdom Manchester")
+svr:value("hk.torguard.org", "Hong Kong")
+svr:value("id.torguard.org", "Indonesia Jakarta")
+svr:value("sk.torguard.org", "South Korea Seoul")
+svr:value("nz.torguard.org", "New Zealand Auckland")
+svr:value("sg.torguard.org", "Singapore")
+svr:value("tw.torguard.org", "Taiwan Taipei")
+svr:value("th.torguard.org", "Thailand Bangkok")
+svr:value("bh.torguard.org", "Bahrain Manama")
+svr:value("in.torguard.org", "India Mumbai")
+svr:value("isr-loc1.torguard.org", "Israel Tel Aviv")
+svr:value("isr-loc2.torguard.org", "Israel Petah Tikva")
+svr:value("sa.torguard.org", "South Africa Johannesburg")
+
+
+
+-- VPN Control: Start/Stop SSTP VPN
+ctrl = m:section(TypedSection, "sstpconfig", "VPN Control: Start/Stop SSTP")
+ctrl.anonymous = true
+ctrl.addremove = false
+
+btnStop = ctrl:option(Button, "_btn_start", translate("Click to Stop SSTP"))
+function btnStop.write()
+    io.popen("/etc/init.d/tgsstp stop")
+end
+
+btnStart = ctrl:option(Button, "_btn_stop", translate("Click to Start SSTP"))
+function btnStart.write()
+    io.popen("/etc/init.d/tgsstp start")
+end
+
+-- Return the configuration page
+return m