Changeset 5290

Show
Ignore:
Timestamp:
02/20/08 11:07:55 (10 months ago)
Author:
morris
Message:

Additional fixes for figuring out user/group

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • wired/trunk/configure

    r5289 r5290  
    30193019fi 
    30203020 
    3021 perl -e "exit(!defined(getpwnam('$wd_user')))" 
    3022  
    3023 if test $? = 1; then 
     3021if perl -e "exit(defined(getpwnam(\"$wd_user\")))"; then 
    30243022        if test -n "$with_user"; then 
    30253023                { { echo "$as_me:$LINENO: error: no such user \"$with_user\", please set another --with-user" >&5 
    …… 
    30273025   { (exit 1); exit 1; }; } 
    30283026        else 
    3029                 wd_user=`whoami` 
     3027                wd_user=`perl -e "print getlogin()"` 
    30303028        fi 
    30313029fi 
    …… 
    30583056fi 
    30593057 
    3060 perl -e "exit(!defined(getgrnam('$wd_group')))" 
    3061  
    3062 if test $? = 1; then 
     3058if perl -e "exit(defined(getgrnam(\"$wd_group\")))"; then 
    30633059        if test -n "$with_group"; then 
    30643060                { { echo "$as_me:$LINENO: error: no such group \"$with_group\", please set another --with-group" >&5 
    …… 
    30663062   { (exit 1); exit 1; }; } 
    30673063        else 
    3068                 wd_group=`perl -e 'print ((getgrgid(((getpwnam(getlogin()))[3])))[0]);'` 
     3064                wd_group=`perl -e "print ((getgrgid(((getpwnam(getlogin()))[3])))[0])"` 
    30693065        fi 
    30703066fi 

  • wired/trunk/configure.in

    r5289 r5290  
    4444fi 
    4545 
    46 perl -e "exit(!defined(getpwnam('$wd_user')))" 
    47  
    48 if test $? = 1; then 
     46if perl -e "exit(defined(getpwnam(\"$wd_user\")))"; then 
    4947        if test -n "$with_user"; then 
    5048                AC_MSG_ERROR([no such user "$with_user", please set another --with-user]) 
    5149        else 
    52                 wd_user=`whoami` 
     50                wd_user=`perl -e "print getlogin()"` 
    5351        fi 
    5452fi 
    …… 
    6967fi 
    7068 
    71 perl -e "exit(!defined(getgrnam('$wd_group')))" 
    72  
    73 if test $? = 1; then 
     69if perl -e "exit(defined(getgrnam(\"$wd_group\")))"; then 
    7470        if test -n "$with_group"; then 
    7571                AC_MSG_ERROR([no such group "$with_group", please set another --with-group]) 
    7672        else 
    77                 wd_group=`perl -e 'print ((getgrgid(((getpwnam(getlogin()))[[3]])))[[0]]);'` 
     73                wd_group=`perl -e "print ((getgrgid(((getpwnam(getlogin()))[[3]])))[[0]])"` 
    7874        fi 
    7975fi