wok-current rev 18017
ppp:add ppp.cgi
| author | Pascal Bellard <pascal.bellard@slitaz.org> |
|---|---|
| date | Sat May 02 16:52:55 2015 +0200 (2015-05-02) |
| parents | 5b7188f5cd91 |
| children | 86becc422032 |
| files | ppp/receipt ppp/stuff/ppp.cgi |
line diff
1.1 --- a/ppp/receipt Sat May 02 15:04:14 2015 +0200 1.2 +++ b/ppp/receipt Sat May 02 16:52:55 2015 +0200 1.3 @@ -12,6 +12,8 @@ 1.4 CONFIG_FILES="/etc/ppp" 1.5 HOST_ARCH="i486 arm" 1.6 1.7 +SUGGESTED="tazpanel" 1.8 + 1.9 # Rules to configure and make the package. 1.10 compile_rules() 1.11 { 1.12 @@ -40,11 +42,14 @@ 1.13 # Rules to gen a SliTaz package suitable for Tazpkg. 1.14 genpkg_rules() 1.15 { 1.16 - mkdir -p $fs/usr 1.17 + mkdir -p $fs/usr $fs/var/www/tazpanel/menu.d/network 1.18 cp -a $install/usr/sbin $fs/usr 1.19 [ -d "$install/usr/lib" ] && cp -a $install/usr/lib $fs/usr 1.20 cp -a $stuff/pppnc-server $fs/usr/sbin 1.21 ln $fs/usr/sbin/pppnc-server $fs/usr/sbin/pppnc-client 1.22 + cp -a $stuff/ppp.cgi $fs/var/www/tazpanel 1.23 + ln -s ../../ppp.cgi $fs/var/www/tazpanel/menu.d/network/ppp 1.24 + 1.25 # Config files. 1.26 mkdir -p $fs/etc/ppp/scripts $fs/etc/ppp/ip-up.d $fs/etc/ppp/ip-down.d 1.27 cp $stuff/README.scripts $fs/etc/ppp
2.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000 2.2 +++ b/ppp/stuff/ppp.cgi Sat May 02 16:52:55 2015 +0200 2.3 @@ -0,0 +1,338 @@ 2.4 +#!/bin/sh 2.5 +# 2.6 +# Network/PPP configuration CGI interface 2.7 +# 2.8 +# Copyright (C) 2015 SliTaz GNU/Linux - BSD License 2.9 +# 2.10 + 2.11 +# Common functions from libtazpanel 2.12 +. lib/libtazpanel 2.13 +get_config 2.14 + 2.15 + 2.16 +case "$1" in 2.17 + menu) 2.18 + TEXTDOMAIN_original=$TEXTDOMAIN 2.19 + export TEXTDOMAIN='ppp' 2.20 + 2.21 + cat <<EOT 2.22 +<li><a data-icon="removable" href="ppp.cgi" data-root>$(_ 'PPP Modem')</a></li> 2.23 +<li><a data-icon="upgrade" href="ppp.cgi#pppnc" data-root>$(_ 'Route shortcut')</a></li> 2.24 +EOT 2.25 + [ "$(which pptp 2>/dev/null)$(which pptpd 2>/dev/null)" ] && cat <<EOT 2.26 +<li><a data-icon="eth" href="ppp.cgi#pptp" data-root>$(_ 'VPN PPTP')</a></li> 2.27 +EOT 2.28 + [ "$(which pppssh 2>/dev/null)" ] && cat <<EOT 2.29 +<li><a data-icon="eth" href="ppp.cgi#pppssh" data-root>$(_ 'VPN PPP/SSH')</a></li> 2.30 +EOT 2.31 + export TEXTDOMAIN=$TEXTDOMAIN_original 2.32 + exit 2.33 +esac 2.34 + 2.35 + 2.36 +# 2.37 +# Commands 2.38 +# 2.39 + 2.40 +case " $(GET) " in 2.41 +*\ setppprtc\ *) 2.42 + if [ "$(GET start_rtc)" -a "$(GET user)" ]; then 2.43 + grep -s "$(GET user)" /etc/ppp/pap-secrets || 2.44 + echo "$(GET user) * $(GET pass)" >> /etc/ppp/pap-secrets 2.45 + grep -s "$(GET user)" /etc/ppp/chap-secrets || 2.46 + echo "$(GET user) * $(GET pass)" >> /etc/ppp/chap-secrets 2.47 + sed -i 's/^name /d' /etc/ppp/options 2.48 + echo "name $(GET user)" >> /etc/ppp/options 2.49 + /etc/ppp/scripts/ppp-off 2.50 + /etc/ppp/scripts/ppp-on & 2.51 + fi 2.52 + if [ "$(GET stop_rtc)" ]; then 2.53 + /etc/ppp/scripts/ppp-off 2.54 + fi 2.55 + ;; 2.56 +*\ setpppoe\ *) 2.57 + if [ "$(GET start_pppoe)" -a "$(GET user)" ]; then 2.58 + grep -s "$(GET user)" /etc/ppp/pap-secrets || 2.59 + echo "$(GET user) * $(GET pass)" >> /etc/ppp/pap-secrets 2.60 + grep -s "$(GET user)" /etc/ppp/chap-secrets || 2.61 + echo "$(GET user) * $(GET pass)" >> /etc/ppp/chap-secrets 2.62 + grep -qs pppoe /etc/ppp/options || cat > /etc/ppp/options <<EOT 2.63 +plugin rp-pppoe.so 2.64 +noipdefault 2.65 +defaultroute 2.66 +mtu 1492 2.67 +mru 1492 2.68 +lock 2.69 +EOT 2.70 + sed -i 's/^name /d' /etc/ppp/options 2.71 + echo "name $(GET user)" >> /etc/ppp/options 2.72 + ( . /etc/network.conf ; pppd $INTERFACE & ) 2.73 + fi 2.74 + if [ "$(GET stop_pppoe)" ]; then 2.75 + killall pppd 2.76 + fi 2.77 + ;; 2.78 +*\ setpppnc\ *) 2.79 + [ "$(GET stop_pppncs)" ] && killall pppnc-server 2.80 + [ "$(GET start_pppncs)" ] && 2.81 + pppnc-server $(GET port) "$(GET localip):$(GET remoteip)" & 2.82 + [ "$(GET stop_pppncc)" ] && killall pppnc-client 2.83 + [ "$(GET start_pppncc)" ] && 2.84 + pppnc-client $(GET serverip) $(GET port) "$(GET routes)" & 2.85 + ;; 2.86 +*\ setpppssh\ *) 2.87 + cat > /etc/ppp/pppssh <<EOT 2.88 +PEER="$(GET peer)" 2.89 +SSHARG="$(GET ssharg)" 2.90 +LOCALIP="$(GET localip)" 2.91 +REMOTEIP="$(GET remoteip)" 2.92 +LOCALPPP="$(GET localpppopt)" 2.93 +REMOTEPPP="$(GET remotepppopt)" 2.94 +ROUTES="$(GET routes)" 2.95 +EOT 2.96 + [ "$(GET pass)" ] && export DROPBEAR_PASSWORD="$(GET pass)" 2.97 + if [ "$(GET send_key)" ]; then 2.98 + ( dropbearkey -y -f /etc/dropbear/dropbear_rsa_host_key ; 2.99 + cat /etc/ssh/ssh_host_rsa_key.pub ) 2> /dev/null | \ 2.100 + grep ^ssh | dbclient $(echo $(GET send_key) | sed \ 2.101 + 's/.*\([A-Za-z0-9_\.-]*\).*/\1/') "mkdir .ssh 2> /dev/null ; \ 2.102 + while read key; do for i in authorized_keys authorized_keys2; do \ 2.103 + grep -qs '\$key' .ssh/\$i || echo '\$key' >> .ssh/\$i ; done ; done ; \ 2.104 + chmod 700 .ssh ; chmod 600 .ssh/authorized_keys*" 2.105 + fi 2.106 + if [ "$(GET stop_pppssh)" ]; then 2.107 + ppp="$(sed '/pppd/!d;s/.*="\([^"]*\).*/\1/' /usr/bin/pppssh)" 2.108 + kill $(busybox ps x | grep "$ppp" | awk '/dbclient/{print $1}') 2.109 + fi 2.110 + if [ "$(GET start_pppssh)" ]; then 2.111 + pppssh "$(GET ssharg) $(GET peer)" \ 2.112 + "$(GET localip):$(GET remoteip) $(GET localpppopt)" \ 2.113 + "$(GET remotepppopt)" & 2.114 + fi 2.115 + ;; 2.116 +esac 2.117 + 2.118 +USERNAME="$(sed '/^name/!d;s/^[^ ]* *//' /etc/ppp/options)" 2.119 +PASSWORD="$(awk -v key=$USERNAME "\$1==key{print \$3}" /etc/ppp/pap-secrets)" 2.120 +ACCOUNT="$(sed '/^ACCOUNT=/!d;s/^.*=\([^ \t]*\).*/\1/' /etc/ppp/scripts/ppp-on)" 2.121 +PASSRTC="$(sed '/^PASSWORD=/!d;s/^.*=\([^ \t]*\).*/\1/' /etc/ppp/scripts/ppp-on)" 2.122 +PHONE="$(sed '/^TELEPHONE=/!d;s/^.*=\([^ \t]*\).*/\1/' /etc/ppp/scripts/ppp-on)" 2.123 +TITLE="$(_ 'TazPanel - Network') - $(_ 'PPP Connections')" 2.124 +header 2.125 +xhtml_header | sed 's/id="content"/id="content-sidebar"/' 2.126 +cat << EOT 2.127 +<div id="sidebar"> 2.128 +<section> 2.129 + <header> 2.130 + $(_ 'Documentation') 2.131 + </header> 2.132 + <a data-icon="web" href="http://ppp.samba.org/" target="_blank">$(_ 'PPP web page')</a><p> 2.133 + <a data-icon="help" href="index.cgi?exec=pppd%20--help" target="_blank">$(_ 'PPP help')</a><p> 2.134 + <a data-icon="help" href="index.cgi?exec=man%20pppd" target="_blank">$(_ 'PPP Manual')</a><p> 2.135 +EOT 2.136 +[ "$(which pptp 2>/dev/null)" ] && cat <<EOT 2.137 + <a data-icon="web" href="http://pptpclient.sourceforge.net/" target="_blank">$(_n 'PPTP web page')</a><p> 2.138 + <a data-icon="help" href="index.cgi?exec=pptp" target="_blank">$(_ 'PPTP Help')</a><p> 2.139 +EOT 2.140 +[ "$(which pptpd 2>/dev/null)" ] && cat <<EOT 2.141 + <a data-icon="web" href="http://poptop.sourceforge.net/" target="_blank">$(_n 'PPTPD web page')</a><p> 2.142 + <a data-icon="help" href="index.cgi?exec=pptpd%20--help" target="_blank">$(_ 'PPTPD Help')</a><p> 2.143 +EOT 2.144 +[ "$(which pppssh 2>/dev/null)" ] && cat <<EOT 2.145 + <a data-icon="web" href="http://doc.slitaz.org/en:guides:vpn" target="_blank">$(_n 'VPN Wiki')</a><p> 2.146 + <a data-icon="help" href="index.cgi?exec=dbclient" target="_blank">$(_ 'SSH Help')</a><p> 2.147 +EOT 2.148 +cat << EOT 2.149 + <footer> 2.150 + </footer> 2.151 +</section> 2.152 +<section> 2.153 + <header> 2.154 + $(_ 'Configuration') 2.155 + </header> 2.156 + <a data-icon="conf" href="index.cgi?file=/etc/ppp/scripts/ppp-on" target="_blank">$(_ 'PPP RTC script')</a><p> 2.157 + <a data-icon="conf" href="index.cgi?file=/etc/ppp/scripts/ppp-on-dialer" target="_blank">$(_ 'PPP dailer chat')</a><p> 2.158 + <a data-icon="conf" href="index.cgi?file=/etc/ppp/options" target="_blank">$(_ 'PPP options')</a><p> 2.159 + <a data-icon="conf" href="index.cgi?file=/etc/ppp/chap-secrets" target="_blank">$(_ 'chap users')</a><p> 2.160 + <a data-icon="conf" href="index.cgi?file=/etc/ppp/pap-secrets" target="_blank">$(_ 'pap users')</a><p> 2.161 +EOT 2.162 +for i in /etc/ppp/peers/* ; do 2.163 + [ -s "$i" ] && cat << EOT 2.164 + <a data-icon="conf" href="index.cgi?file=$i" target="_blank">$(basename $i)</a><p> 2.165 +EOT 2.166 +done 2.167 +[ "$(which pptpd 2>/dev/null)" ] && cat <<EOT 2.168 + <a data-icon="conf" href="index.cgi?file=/etc/pptpd.conf" target="_blank">$(_ 'pptpd.conf')</a><p> 2.169 +EOT 2.170 +if [ "$(busybox ps x | grep "pppd" | awk '/modem/{print $1}')" ]; then 2.171 + start_disabled='disabled' 2.172 +else 2.173 + stop_disabled='disabled' 2.174 +fi 2.175 +cat << EOT 2.176 + <footer> 2.177 + </footer> 2.178 +</section> 2.179 +</div> 2.180 + 2.181 +<section> 2.182 + <header> 2.183 + <span data-icon="removable">$(_ 'RTC modem') - 2.184 + $(_ 'Manage RTC Internet connections')</span> 2.185 + </header> 2.186 +<form action="index.cgi" id="indexform"></form> 2.187 +<form method="get" action="?setppprtc"> 2.188 + <table> 2.189 + <tr> 2.190 + <td>$(_ 'Username')</td> 2.191 + <td><input type="text" name="user" size="40" value="$ACCOUNT" /></td> 2.192 + </tr> 2.193 + <tr> 2.194 + <td>$(_ 'Password')</td> 2.195 + <td><input type="text" name="pass" size="40" value="$PASSRTC" /></td> 2.196 + </tr> 2.197 + <tr> 2.198 + <td>$(_ 'Phone number')</td> 2.199 + <td><input type="text" name="phone" size="40" value="$PHONE" /></td> 2.200 + </tr> 2.201 + </table> 2.202 +</form> 2.203 + <footer><!-- 2.204 + --><button form="conf" type="submit" name="start_rtc" data-icon="start" $start_disabled>$(_ 'Start' )</button><!-- 2.205 + --><button form="conf" type="submit" name="stop_rtc" data-icon="stop" $stop_disabled >$(_ 'Stop' )</button><!-- 2.206 + --></footer> 2.207 +</section> 2.208 +EOT 2.209 + 2.210 +if [ "$(which pppoe 2>/dev/null)" ]; then 2.211 + cat <<EOT 2.212 +<a name="pppoe"></a> 2.213 +<section> 2.214 + <header> 2.215 + <span data-icon="eth">$(_ 'Cable Modem') - 2.216 + $(_ 'Manage PPPoE Internet connections')</span> 2.217 + </header> 2.218 +<form method="get" action="?setpppoe"> 2.219 + <table> 2.220 + <tr> 2.221 + <td>$(_ 'Username')</td> 2.222 + <td><input type="text" name="user" size="40" value="$USERNAME" /></td> 2.223 + </tr> 2.224 + <tr> 2.225 + <td>$(_ 'Password')</td> 2.226 + <td><input type="text" name="pass" size="40" value="$PASSWORD" /></td> 2.227 + </tr> 2.228 + </table> 2.229 +</form> 2.230 + <footer><!-- 2.231 + --><button form="conf" type="submit" name="start_pppoe" data-icon="start" >$(_ 'Start' )</button><!-- 2.232 + --><button form="conf" type="submit" name="stop_pppoe" data-icon="stop" >$(_ 'Stop' )</button><!-- 2.233 + --></footer> 2.234 +</section> 2.235 +EOT 2.236 +fi 2.237 + 2.238 +busybox ps x | grep -v grep | grep -q pppnc_server || stops_disabled='disabled' 2.239 +busybox ps x | grep -v grep | grep -q pppnc_client || stopc_disabled='disabled' 2.240 +cat <<EOT 2.241 +<a name="pppnc"></a> 2.242 +<section> 2.243 + <header> 2.244 + <span data-icon="upgrade">$(_ 'Route shortcut') - 2.245 + $(_ 'Reach unreachable networks')</span> 2.246 + </header> 2.247 +<form method="get" action="?setppprc"> 2.248 + <table> 2.249 + <tr> 2.250 + <td>$(_ 'TCP port')</td> 2.251 + <td><input type="text" name="port" size="50" value="1111" /></td> 2.252 + </tr> 2.253 + <tr> <td colspan=2 align=center>--- $(_ 'Server only') ---</td> </tr> 2.254 + <tr> 2.255 + <td>$(_ 'Local IP address')</td> 2.256 + <td><input type="text" name="localip" size="50" value="${LOCALIP:-192.168.254.1}" /></td> 2.257 + </tr> 2.258 + <tr> 2.259 + <td>$(_ 'Remote IP address')</td> 2.260 + <td><input type="text" name="remoteip" size="50" value="${REMOTEIP:-192.168.254.2}" /></td> 2.261 + <tr> <td colspan=2 align=center>--- $(_ 'Client only') ---</td> </tr> 2.262 + <tr> 2.263 + <td>$(_ 'Server IP address')</td> 2.264 + <td><input type="text" name="serverip" size="50" value="1.2.3.4" /></td> 2.265 + </tr> 2.266 + <tr> 2.267 + <td>$(_ 'Server routes')</td> 2.268 + <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> 2.269 + </tr> 2.270 + </table> 2.271 +</form> 2.272 + <footer><!-- 2.273 + --><button form="conf" type="submit" name="start_pppncs" data-icon="start" >$(_ 'Start server' )</button><!-- 2.274 + --><button form="conf" type="submit" name="stop_pppncs" data-icon="stop" $stops_disabled>$(_ 'Stop server' )</button><!-- 2.275 + --><button form="conf" type="submit" name="start_pppncc" data-icon="start" >$(_ 'Start client' )</button><!-- 2.276 + --><button form="conf" type="submit" name="stop_pppncc" data-icon="stop" $stopc_disabled>$(_ 'Stop client' )</button><!-- 2.277 + --></footer> 2.278 +</section> 2.279 +EOT 2.280 +if [ "$(which pppssh 2>/dev/null)" ]; then 2.281 + [ -s /etc/ppp/pppssh ] && . /etc/ppp/pppssh 2.282 + ppp="$(sed '/pppd/!d;s/.*="\([^"]*\).*/\1/' /usr/bin/pppssh)" 2.283 + if [ "$(busybox ps x | grep "$ppp" | awk '/dbclient/{print $1}')" ]; then 2.284 + start_disabled='disabled' 2.285 + else 2.286 + stop_disabled='disabled' 2.287 + fi 2.288 + cat <<EOT 2.289 +<a name="pppssh"></a> 2.290 +<section> 2.291 + <header> 2.292 + <span data-icon="eth">$(_ 'Virtual Private Network') - 2.293 + $(_ 'Manage private TCP/IP connections')</span> 2.294 + </header> 2.295 +<form method="get" action="?setpppssh"> 2.296 + <table> 2.297 + <tr> 2.298 + <td>$(_ 'Peer')</td> 2.299 + <td><input type="text" name="peer" size="50" value="${PEER:-user@elsewhere}" /></td> 2.300 + </tr> 2.301 + <tr> 2.302 + <td>$(_ 'SSH options')</td> 2.303 + <td><input type="text" name="ssharg" size="50" value="$SSHARG" /></td> 2.304 + </tr> 2.305 + <tr> 2.306 + <td>$(_ 'Password')</td> 2.307 + <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> 2.308 + </tr> 2.309 + <tr> 2.310 + <td>$(_ 'Local IP address')</td> 2.311 + <td><input type="text" name="localip" size="50" value="${LOCALIP:-192.168.254.1}" /></td> 2.312 + </tr> 2.313 + <tr> 2.314 + <td>$(_ 'Remote IP address')</td> 2.315 + <td><input type="text" name="remoteip" size="50" value="${REMOTEIP:-192.168.254.2}" /></td> 2.316 + </tr> 2.317 + <tr> 2.318 + <td>$(_ 'Local PPP options')</td> 2.319 + <td><input type="text" name="localpppopt" size="50" value="$LOCALPPP" /></td> 2.320 + </tr> 2.321 + <tr> 2.322 + <td>$(_ 'Remote PPP options')</td> 2.323 + <td><input type="text" name="remotepppopt" size="50" value="${REMOTEPPP:-proxyarp}" title="$(_ "You may 'proxyarp' to use the new routes")" /></td> 2.324 + </tr> 2.325 + <tr> 2.326 + <td>$(_ 'Peer routes')</td> 2.327 + <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> 2.328 + </tr> 2.329 + </table> 2.330 +</form> 2.331 + <footer><!-- 2.332 + --><button form="conf" type="submit" name="start_pppssh" data-icon="start" $start_disabled>$(_ 'Start' )</button><!-- 2.333 + --><button form="conf" type="submit" name="stop_pppssh" data-icon="stop" $stop_disabled>$(_ 'Stop' )</button><!-- 2.334 + --><button form="conf" type="submit" name="send_key" data-icon="sync" >$(_ 'Send SSH key' )</button><!-- 2.335 + --></footer> 2.336 +</section> 2.337 +EOT 2.338 +fi 2.339 + 2.340 +xhtml_footer 2.341 +exit 0