From 15e7f611afb7dae52f5fb3d807cca1a567c01ac5 Mon Sep 17 00:00:00 2001
From: Mislav Novakovic <mislav.novakovic@sartura.hr>
Date: Mon, 13 Jul 2015 16:01:21 +0200
Subject: [PATCH] pptpd: convert init script to procd

Signed-off-by: Mislav Novakovic <mislav.novakovic@sartura.hr>
---
 net/pptpd/files/pptpd.init | 63 ++++++++++++++++++++------------------
 1 file changed, 34 insertions(+), 29 deletions(-)

diff --git a/net/pptpd/files/pptpd.init b/net/pptpd/files/pptpd.init
index 0d0639fee..d1c50fd6f 100644
--- a/net/pptpd/files/pptpd.init
+++ b/net/pptpd/files/pptpd.init
@@ -1,58 +1,63 @@
 #!/bin/sh /etc/rc.common
-# Copyright (C) 2006 OpenWrt.org
+# Copyright (C) 2015 OpenWrt.org
 
 START=60
+USE_PROCD=1
+
 BIN=/usr/sbin/pptpd
-DEFAULT=/etc/default/$BIN
-RUN_D=/var/run
-PID_F=$RUN_D/$BIN.pid
 CONFIG=/var/etc/pptpd.conf
 CHAP_SECRETS=/var/etc/chap-secrets
 
+validate_login_section() {
+	uci_validate_section pptpd login "${1}" \
+		'username:string' \
+		'password:string'
+}
+
+validate_pptpd_section() {
+	uci_validate_section pptpd service "${1}" \
+		'enabled:uinteger' \
+		'localip:string' \
+		'remoteip:string'
+}
+
 setup_login() {
-	local section="$1"
+	validate_login_section "${1}" || {
+		echo "validation failed"
+		return 1
+	}
 
-	config_get username "$section" username
-	config_get password "$section" password
-	[ -n "$username" ] || return 0
-	[ -n "$password" ] || return 0
+	[ -n "${username}" ] || return 0
+	[ -n "${password}" ] || return 0
 
-	echo "$username pptp-server $password *" >> $CHAP_SECRETS
+	echo "${username} pptp-server ${password} *" >> $CHAP_SECRETS
 }
 
 setup_config() {
-	local section="$1"
+	validate_pptpd_section "${1}" || {
+		echo "validation failed"
+		return 1
+	}
 
-	config_get enabled "$section" enabled
 	[ "$enabled" -eq 0 ] && return 1
 
 	mkdir -p /var/etc
 	cp /etc/pptpd.conf $CONFIG
 
-	config_get localip "$section" localip
-	config_get remoteip "$section" remoteip
 	[ -n "$localip" ] && echo "localip  $localip" >> $CONFIG
 	[ -n "$remoteip" ] && echo "remoteip  $remoteip" >> $CONFIG
-	return 0
-}
 
-start_pptpd() {
-	[ -f $DEFAULT ] && . $DEFAULT
-	mkdir -p $RUN_D
-	for m in arc4 sha1_generic slhc crc-ccitt ppp_generic ppp_async ppp_mppe; do
-		insmod $m >/dev/null 2>&1
-	done
-	ln -sfn $CHAP_SECRETS /etc/ppp/chap-secrets
-	service_start $BIN $OPTIONS -c $CONFIG
+	return 0
 }
 
-start() {
+start_service() {
 	config_load pptpd
 	setup_config pptpd || return
 	config_foreach setup_login login
-	start_pptpd
-}
 
-stop() {
-	service_stop $BIN
+	ln -sfn $CHAP_SECRETS /etc/ppp/chap-secrets
+
+	procd_open_instance
+	procd_set_param command $BIN -c $CONFIG
+	procd_close_instance
 }