vpn/svpnsh: Fix concurrent login recognition

git-svn-id: file:///svnroot/gsc/trunk@338 d2de0444-eb31-0410-8365-af798a554d48

2 files changed, 9 insertions, 5 deletions

diff --git a/ChangeLog b/ChangeLog
index 2446d88..6894c0e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1 +1,5 @@
+2009-08-03  Sergey Poznyakoff  <gray@gnu.org.ua>
+
+        * vpn/svpnsh: Fix concurrent login recognition.
+
 2009-03-19  Sergey Poznyakoff  <gray@gnu.org.ua>
diff --git a/vpn/svpnsh b/vpn/svpnsh
index 0185fc2..35f4eb1 100755
--- a/vpn/svpnsh
+++ b/vpn/svpnsh
@@ -2,3 +2,3 @@
 # svpnsh -- a simple vpn-only shell
-# Copyright (C) 2007 Sergey Poznyakoff
+# Copyright (C) 2007, 2009 Sergey Poznyakoff
 #
@@ -22,3 +22,3 @@ logmsg() {
   shift
-  /usr/bin/logger -t vpnsh -p auth.$prio $*
+  /usr/bin/logger -t svpnsh -p auth.$prio $*
 }
@@ -32,5 +32,5 @@ fi
 
-NLOGINS=`who -q | sed '2,$d' | tr ' ' '\n' | sort | sed '1d' | uniq -c |
-          awk "\\$2==\"$USER\" { print \\$1 }"` 
-if [ ${NLOGINS:-0} -gt 1 ]
+sdup=`who -q | sed '/^#/d' | tr -s ' ' '\n' | sort | uniq -d | grep "$USER"` 
+
+if [ -n "$sdup" ]
 then