# HG changeset patch
# User Pascal Bellard <pascal.bellard@slitaz.org>
# Date 1430578375 -7200
# Node ID 22d242cf69af91eadbe384dd766ef9c5beecf23e
# Parent  5b7188f5cd91b4a75b0ee1b40e62530ebed862fe
ppp:add ppp.cgi

diff -r 5b7188f5cd91 -r 22d242cf69af ppp/receipt
--- a/ppp/receipt	Sat May 02 15:04:14 2015 +0200
+++ b/ppp/receipt	Sat May 02 16:52:55 2015 +0200
@@ -12,6 +12,8 @@
 CONFIG_FILES="/etc/ppp"
 HOST_ARCH="i486 arm"
 
+SUGGESTED="tazpanel"
+
 # Rules to configure and make the package.
 compile_rules()
 {
@@ -40,11 +42,14 @@
 # Rules to gen a SliTaz package suitable for Tazpkg.
 genpkg_rules()
 {
-	mkdir -p $fs/usr
+	mkdir -p $fs/usr $fs/var/www/tazpanel/menu.d/network
 	cp -a $install/usr/sbin $fs/usr
 	[ -d "$install/usr/lib" ] && cp -a $install/usr/lib $fs/usr
 	cp -a $stuff/pppnc-server $fs/usr/sbin
 	ln $fs/usr/sbin/pppnc-server $fs/usr/sbin/pppnc-client
+	cp -a $stuff/ppp.cgi $fs/var/www/tazpanel
+	ln -s ../../ppp.cgi $fs/var/www/tazpanel/menu.d/network/ppp
+	
 	# Config files.
 	mkdir -p $fs/etc/ppp/scripts $fs/etc/ppp/ip-up.d $fs/etc/ppp/ip-down.d
 	cp $stuff/README.scripts $fs/etc/ppp
diff -r 5b7188f5cd91 -r 22d242cf69af ppp/stuff/ppp.cgi
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/ppp/stuff/ppp.cgi	Sat May 02 16:52:55 2015 +0200
@@ -0,0 +1,338 @@
+#!/bin/sh
+#
+# Network/PPP configuration CGI interface
+#
+# Copyright (C) 2015 SliTaz GNU/Linux - BSD License
+#
+
+# Common functions from libtazpanel
+. lib/libtazpanel
+get_config
+
+
+case "$1" in
+	menu)
+		TEXTDOMAIN_original=$TEXTDOMAIN
+		export TEXTDOMAIN='ppp'
+
+		cat <<EOT
+<li><a data-icon="removable" href="ppp.cgi" data-root>$(_ 'PPP Modem')</a></li>
+<li><a data-icon="upgrade" href="ppp.cgi#pppnc" data-root>$(_ 'Route shortcut')</a></li>
+EOT
+		[ "$(which pptp 2>/dev/null)$(which pptpd 2>/dev/null)" ] && cat <<EOT
+<li><a data-icon="eth" href="ppp.cgi#pptp" data-root>$(_ 'VPN PPTP')</a></li>
+EOT
+		[ "$(which pppssh 2>/dev/null)" ] && cat <<EOT
+<li><a data-icon="eth" href="ppp.cgi#pppssh" data-root>$(_ 'VPN PPP/SSH')</a></li>
+EOT
+		export TEXTDOMAIN=$TEXTDOMAIN_original
+		exit
+esac
+
+
+#
+# Commands
+#
+
+case " $(GET) " in
+*\ setppprtc\ *)
+	if [ "$(GET start_rtc)" -a "$(GET user)" ]; then
+		grep -s "$(GET user)" /etc/ppp/pap-secrets ||
+		echo "$(GET user)	*	$(GET pass)" >> /etc/ppp/pap-secrets
+		grep -s "$(GET user)" /etc/ppp/chap-secrets ||
+		echo "$(GET user)	*	$(GET pass)" >> /etc/ppp/chap-secrets
+		sed -i 's/^name /d' /etc/ppp/options
+		echo "name $(GET user)" >> /etc/ppp/options
+		/etc/ppp/scripts/ppp-off
+		/etc/ppp/scripts/ppp-on &
+	fi
+	if [ "$(GET stop_rtc)" ]; then
+		/etc/ppp/scripts/ppp-off
+	fi
+	;;
+*\ setpppoe\ *)
+	if [ "$(GET start_pppoe)" -a "$(GET user)" ]; then
+		grep -s "$(GET user)" /etc/ppp/pap-secrets ||
+		echo "$(GET user)	*	$(GET pass)" >> /etc/ppp/pap-secrets
+		grep -s "$(GET user)" /etc/ppp/chap-secrets ||
+		echo "$(GET user)	*	$(GET pass)" >> /etc/ppp/chap-secrets
+		grep -qs pppoe /etc/ppp/options || cat > /etc/ppp/options <<EOT
+plugin rp-pppoe.so
+noipdefault
+defaultroute
+mtu 1492
+mru 1492
+lock
+EOT
+		sed -i 's/^name /d' /etc/ppp/options
+		echo "name $(GET user)" >> /etc/ppp/options
+		( . /etc/network.conf ; pppd $INTERFACE & )
+	fi
+	if [ "$(GET stop_pppoe)" ]; then
+		killall pppd
+	fi
+	;;
+*\ setpppnc\ *)
+	[ "$(GET stop_pppncs)" ] && killall pppnc-server
+	[ "$(GET start_pppncs)" ] &&
+		pppnc-server $(GET port) "$(GET localip):$(GET remoteip)" &
+	[ "$(GET stop_pppncc)" ] && killall pppnc-client
+	[ "$(GET start_pppncc)" ] &&
+		pppnc-client $(GET serverip) $(GET port) "$(GET routes)" &
+	;;
+*\ setpppssh\ *)
+	cat > /etc/ppp/pppssh <<EOT
+PEER="$(GET peer)"
+SSHARG="$(GET ssharg)"
+LOCALIP="$(GET localip)"
+REMOTEIP="$(GET remoteip)"
+LOCALPPP="$(GET localpppopt)"
+REMOTEPPP="$(GET remotepppopt)"
+ROUTES="$(GET routes)"
+EOT
+	[ "$(GET pass)" ] && export DROPBEAR_PASSWORD="$(GET pass)"
+	if [ "$(GET send_key)" ]; then
+		( dropbearkey -y -f /etc/dropbear/dropbear_rsa_host_key ;
+		  cat /etc/ssh/ssh_host_rsa_key.pub ) 2> /dev/null | \
+		grep ^ssh | dbclient $(echo $(GET send_key) | sed \
+		's/.*\([A-Za-z0-9_\.-]*\).*/\1/') "mkdir .ssh 2> /dev/null ; \
+		while read key; do for i in authorized_keys authorized_keys2; do \
+		grep -qs '\$key' .ssh/\$i || echo '\$key' >> .ssh/\$i ; done ; done ; \
+		chmod 700 .ssh ; chmod 600 .ssh/authorized_keys*"
+	fi
+	if [ "$(GET stop_pppssh)" ]; then
+		ppp="$(sed '/pppd/!d;s/.*="\([^"]*\).*/\1/' /usr/bin/pppssh)"
+		kill $(busybox ps x | grep "$ppp" | awk '/dbclient/{print $1}')
+	fi
+	if [ "$(GET start_pppssh)" ]; then
+		pppssh	"$(GET ssharg) $(GET peer)" \
+			"$(GET localip):$(GET remoteip) $(GET localpppopt)" \
+			"$(GET remotepppopt)" &
+	fi
+	;;
+esac
+
+USERNAME="$(sed '/^name/!d;s/^[^ ]* *//' /etc/ppp/options)"
+PASSWORD="$(awk -v key=$USERNAME "\$1==key{print \$3}" /etc/ppp/pap-secrets)"
+ACCOUNT="$(sed '/^ACCOUNT=/!d;s/^.*=\([^ \t]*\).*/\1/' /etc/ppp/scripts/ppp-on)"
+PASSRTC="$(sed '/^PASSWORD=/!d;s/^.*=\([^ \t]*\).*/\1/' /etc/ppp/scripts/ppp-on)"
+PHONE="$(sed '/^TELEPHONE=/!d;s/^.*=\([^ \t]*\).*/\1/' /etc/ppp/scripts/ppp-on)"
+TITLE="$(_ 'TazPanel - Network') - $(_ 'PPP Connections')"
+header
+xhtml_header | sed 's/id="content"/id="content-sidebar"/'
+cat << EOT
+<div id="sidebar">
+<section>
+	<header>
+		$(_ 'Documentation')
+	</header>
+		<a data-icon="web" href="http://ppp.samba.org/" target="_blank">$(_ 'PPP web page')</a><p>
+		<a data-icon="help" href="index.cgi?exec=pppd%20--help" target="_blank">$(_ 'PPP help')</a><p>
+		<a data-icon="help" href="index.cgi?exec=man%20pppd" target="_blank">$(_ 'PPP Manual')</a><p>
+EOT
+[ "$(which pptp 2>/dev/null)" ] && cat <<EOT
+		<a data-icon="web" href="http://pptpclient.sourceforge.net/" target="_blank">$(_n 'PPTP web page')</a><p>
+		<a data-icon="help" href="index.cgi?exec=pptp" target="_blank">$(_ 'PPTP Help')</a><p>
+EOT
+[ "$(which pptpd 2>/dev/null)" ] && cat <<EOT
+		<a data-icon="web" href="http://poptop.sourceforge.net/" target="_blank">$(_n 'PPTPD web page')</a><p>
+		<a data-icon="help" href="index.cgi?exec=pptpd%20--help" target="_blank">$(_ 'PPTPD Help')</a><p>
+EOT
+[ "$(which pppssh 2>/dev/null)" ] && cat <<EOT
+		<a data-icon="web" href="http://doc.slitaz.org/en:guides:vpn" target="_blank">$(_n 'VPN Wiki')</a><p>
+		<a data-icon="help" href="index.cgi?exec=dbclient" target="_blank">$(_ 'SSH Help')</a><p>
+EOT
+cat << EOT
+	<footer>
+	</footer>
+</section>
+<section>
+	<header>
+		$(_ 'Configuration')
+	</header>
+		<a data-icon="conf" href="index.cgi?file=/etc/ppp/scripts/ppp-on" target="_blank">$(_ 'PPP RTC script')</a><p>
+		<a data-icon="conf" href="index.cgi?file=/etc/ppp/scripts/ppp-on-dialer" target="_blank">$(_ 'PPP dailer chat')</a><p>
+		<a data-icon="conf" href="index.cgi?file=/etc/ppp/options" target="_blank">$(_ 'PPP options')</a><p>
+		<a data-icon="conf" href="index.cgi?file=/etc/ppp/chap-secrets" target="_blank">$(_ 'chap users')</a><p>
+		<a data-icon="conf" href="index.cgi?file=/etc/ppp/pap-secrets" target="_blank">$(_ 'pap users')</a><p>
+EOT
+for i in /etc/ppp/peers/* ; do
+	[ -s "$i" ] && cat << EOT
+		<a data-icon="conf" href="index.cgi?file=$i" target="_blank">$(basename $i)</a><p>
+EOT
+done
+[ "$(which pptpd 2>/dev/null)" ] && cat <<EOT
+		<a data-icon="conf" href="index.cgi?file=/etc/pptpd.conf" target="_blank">$(_ 'pptpd.conf')</a><p>
+EOT
+if [ "$(busybox ps x | grep "pppd" | awk '/modem/{print $1}')" ]; then
+	start_disabled='disabled'
+else
+	stop_disabled='disabled'
+fi
+cat << EOT
+	<footer>
+	</footer>
+</section>
+</div>
+
+<section>
+	<header>
+		<span data-icon="removable">$(_ 'RTC modem') -
+		$(_ 'Manage RTC Internet connections')</span>
+	</header>
+<form action="index.cgi" id="indexform"></form>
+<form method="get" action="?setppprtc">
+	<table>
+	<tr>
+		<td>$(_ 'Username')</td>
+		<td><input type="text" name="user" size="40" value="$ACCOUNT" /></td>
+	</tr>
+	<tr>
+		<td>$(_ 'Password')</td>
+		<td><input type="text" name="pass" size="40" value="$PASSRTC" /></td>
+	</tr>
+	<tr>
+		<td>$(_ 'Phone number')</td>
+		<td><input type="text" name="phone" size="40" value="$PHONE" /></td>
+	</tr>
+	</table>
+</form>
+	<footer><!--
+		--><button form="conf" type="submit" name="start_rtc" data-icon="start" $start_disabled>$(_ 'Start'  )</button><!--
+		--><button form="conf" type="submit" name="stop_rtc"  data-icon="stop"  $stop_disabled >$(_ 'Stop'   )</button><!--
+	--></footer>
+</section>
+EOT
+
+if [ "$(which pppoe 2>/dev/null)" ]; then
+	cat <<EOT
+<a name="pppoe"></a>
+<section>
+	<header>
+		<span data-icon="eth">$(_ 'Cable Modem') -
+		$(_ 'Manage PPPoE Internet connections')</span>
+	</header>
+<form method="get" action="?setpppoe">
+	<table>
+	<tr>
+		<td>$(_ 'Username')</td>
+		<td><input type="text" name="user" size="40" value="$USERNAME" /></td>
+	</tr>
+	<tr>
+		<td>$(_ 'Password')</td>
+		<td><input type="text" name="pass" size="40" value="$PASSWORD" /></td>
+	</tr>
+	</table>
+</form>
+	<footer><!--
+		--><button form="conf" type="submit" name="start_pppoe" data-icon="start" >$(_ 'Start'  )</button><!--
+		--><button form="conf" type="submit" name="stop_pppoe"  data-icon="stop"  >$(_ 'Stop'   )</button><!--
+	--></footer>
+</section>
+EOT
+fi
+
+busybox ps x | grep -v grep | grep -q pppnc_server || stops_disabled='disabled'
+busybox ps x | grep -v grep | grep -q pppnc_client || stopc_disabled='disabled'
+cat <<EOT
+<a name="pppnc"></a>
+<section>
+	<header>
+		<span data-icon="upgrade">$(_ 'Route shortcut') -
+		$(_ 'Reach unreachable networks')</span>
+	</header>
+<form method="get" action="?setppprc">
+	<table>
+	<tr>
+		<td>$(_ 'TCP port')</td>
+		<td><input type="text" name="port" size="50" value="1111" /></td>
+	</tr>
+	<tr> <td colspan=2 align=center>--- $(_ 'Server only') ---</td> </tr>
+	<tr>
+		<td>$(_ 'Local IP address')</td>
+		<td><input type="text" name="localip" size="50" value="${LOCALIP:-192.168.254.1}" /></td>
+	</tr>
+	<tr>
+		<td>$(_ 'Remote IP address')</td>
+		<td><input type="text" name="remoteip" size="50" value="${REMOTEIP:-192.168.254.2}" /></td>
+	<tr> <td colspan=2 align=center>--- $(_ 'Client only') ---</td> </tr>
+	<tr>
+		<td>$(_ 'Server IP address')</td>
+		<td><input type="text" name="serverip" size="50" value="1.2.3.4" /></td>
+	</tr>
+	<tr>
+		<td>$(_ 'Server routes')</td>
+		<td><input type="text" name="routes" size="50" value="${ROUTES:-192.168.10.0/24 192.168.20.0/28}" title="$(_ 'Routes on peer network to import')"/></td>
+	</tr>
+	</table>
+</form>
+	<footer><!--
+		--><button form="conf" type="submit" name="start_pppncs" data-icon="start" >$(_ 'Start server'  )</button><!--
+		--><button form="conf" type="submit" name="stop_pppncs"  data-icon="stop" $stops_disabled>$(_ 'Stop server'   )</button><!--
+		--><button form="conf" type="submit" name="start_pppncc" data-icon="start" >$(_ 'Start client'  )</button><!--
+		--><button form="conf" type="submit" name="stop_pppncc"  data-icon="stop" $stopc_disabled>$(_ 'Stop client'   )</button><!--
+	--></footer>
+</section>
+EOT
+if [ "$(which pppssh 2>/dev/null)" ]; then
+	[ -s /etc/ppp/pppssh ] && . /etc/ppp/pppssh
+	ppp="$(sed '/pppd/!d;s/.*="\([^"]*\).*/\1/' /usr/bin/pppssh)"
+	if [ "$(busybox ps x | grep "$ppp" | awk '/dbclient/{print $1}')" ]; then
+		start_disabled='disabled'
+	else
+		stop_disabled='disabled'
+	fi
+	cat <<EOT
+<a name="pppssh"></a>
+<section>
+	<header>
+		<span data-icon="eth">$(_ 'Virtual Private Network') -
+		$(_ 'Manage private TCP/IP connections')</span>
+	</header>
+<form method="get" action="?setpppssh">
+	<table>
+	<tr>
+		<td>$(_ 'Peer')</td>
+		<td><input type="text" name="peer" size="50" value="${PEER:-user@elsewhere}" /></td>
+	</tr>
+	<tr>
+		<td>$(_ 'SSH options')</td>
+		<td><input type="text" name="ssharg" size="50" value="$SSHARG" /></td>
+	</tr>
+	<tr>
+		<td>$(_ 'Password')</td>
+		<td><input type="password" name="pass" size="50" title="Should be empty to use the SSH key ; useful to send the SSH key only" /></td>
+	</tr>
+	<tr>
+		<td>$(_ 'Local IP address')</td>
+		<td><input type="text" name="localip" size="50" value="${LOCALIP:-192.168.254.1}" /></td>
+	</tr>
+	<tr>
+		<td>$(_ 'Remote IP address')</td>
+		<td><input type="text" name="remoteip" size="50" value="${REMOTEIP:-192.168.254.2}" /></td>
+	</tr>
+	<tr>
+		<td>$(_ 'Local PPP options')</td>
+		<td><input type="text" name="localpppopt" size="50" value="$LOCALPPP" /></td>
+	</tr>
+	<tr>
+		<td>$(_ 'Remote PPP options')</td>
+		<td><input type="text" name="remotepppopt" size="50" value="${REMOTEPPP:-proxyarp}" title="$(_ "You may 'proxyarp' to use the new routes")" /></td>
+	</tr>
+	<tr>
+		<td>$(_ 'Peer routes')</td>
+		<td><input type="text" name="routes" size="50" value="${ROUTES:-192.168.10.0/24 192.168.20.0/28}" title="$(_ 'Routes on peer network to import')"/></td>
+	</tr>
+	</table>
+</form>
+	<footer><!--
+		--><button form="conf" type="submit" name="start_pppssh" data-icon="start" $start_disabled>$(_ 'Start'  )</button><!--
+		--><button form="conf" type="submit" name="stop_pppssh"  data-icon="stop"  $stop_disabled>$(_ 'Stop'   )</button><!--
+		--><button form="conf" type="submit" name="send_key"  data-icon="sync"  >$(_ 'Send SSH key'   )</button><!--
+	--></footer>
+</section>
+EOT
+fi
+
+xhtml_footer
+exit 0