1 files changed, 59 insertions, 0 deletions
diff --git a/pptpd-1.3.3/tools/vpnuser b/pptpd-1.3.3/tools/vpnuser
new file mode 100755
index 00000000..814027c6
--- /dev/null
+++ b/pptpd-1.3.3/tools/vpnuser
@@ -0,0 +1,59 @@
+#! /bin/sh
+#
+# vpnuser	Add/Del user to chap-secrets for VPN
+# Version 1.0 beta by Richard de Vroede - Linvision BV
+# Ideas or worshipping to: richard@linvision.com
+#
+
+config="/etc/ppp/chap-secrets"
+ERROR="Usage:\n$0 add <username> <passwd> or\n$0 del <username> or\n$0 show [<username>] or\n$0 domain <username> <domain>"
+
+# See how we were called.
+case "$1" in
+  add)
+        if [ "$(echo $2)" != "" ] & [ "$(echo $3)" != "" ]; then
+	    echo -e "$2\t*\t$3\t*" >> $config
+            chmod 600 $config
+	else
+	    echo -e $ERROR
+	    exit 1
+	fi
+	;;
+  del)
+        if [ "$(echo $2)" != "" ]; then
+	    grep -vw "$2" $config > /tmp/vpnblaat
+            mv /tmp/vpnblaat $config
+            chmod 600 $config
+	else
+	    echo -e $ERROR
+	    exit 1
+	fi
+	;;
+  show)
+	    echo -e "User\tServer\tPasswd\tIPnumber"
+	    echo "---------------------------------"
+        if [ "$(echo $2)" != "" ]; then
+	    grep -w $2 $config
+	else
+	    cat $config
+	fi
+	;;
+  domain)
+        if [ "$(echo $2)" != "" ] & [ "$(echo $3)" != "" ]; then
+	    grep -vw "$2" $config > /tmp/vpnblaat
+	    DATA=`grep -w "$2" $config`
+	    mv /tmp/vpnblaat $config
+	    DOM=`echo $3 | tr a-z A-Z`
+	    dom=`echo $3 | tr A-Z a-z`
+            echo "$DOM\\\\$DATA" >> $config
+            echo "$dom\\\\$DATA" >> $config
+	    chmod 600 $config
+	else
+	    echo -e $ERROR
+	    exit 1
+	fi
+	;;
+  *)
+	echo -e $ERROR
+	exit 1
+esac