Update of /cvsroot/fink/fink/perlmod/Fink
In directory sc8-pr-cvs1:/tmp/cvs-serv31827
Modified Files:
Tag: uidgid
User.pm
Log Message:
Oops this is what I meant :)
Index: User.pm
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/Attic/User.pm,v
retrieving revision 1.1.2.19
retrieving revision 1.1.2.20
diff -u -d -r1.1.2.19 -r1.1.2.20
--- User.pm 12 Aug 2003 22:08:03 -0000 1.1.2.19
+++ User.pm 12 Aug 2003 22:13:17 -0000 1.1.2.20
@@ -120,35 +120,13 @@
my pass = "*";
my $script = "";
- ### FIXME need to figure a way ehre to get and set uids and gids, and
+ ### FIXME need to figure a way here to get and set uids and gids, and
### ask if the fink.conf specifies this. maybe use a grep on fink.conf
if ($type eq "user") {
$script = <<"EOF";
getgid() {
gid=`$nidump group . | $grep -e \"^$name:\" | $cut -d\":\" -f3`
- if [ ! \$gid ]; then
- continue="no"
- number_used="dontknow"
- fnumber=$lowGID
- until [ $continue = "yes" ]; do
- if [ `$nidump group . | $cut -d":" -f3 | $grep -c "^$fnumber$"` -gt 0 ]; then
- number_used=true
- else
- if [ $fnumber -gt $highGID ]; then
- break
- fi
- number_used=false
- fi
-
- if [ $number_used = "true" ]; then
- fnumber=`$expr $fnumber + 1`
- else
- gid="$fnumber"
- continue="yes"
- fi
- done;
- fi
}
getuid() {
@@ -184,15 +162,11 @@
exit 1
fi
-if [ $gid -gt $highGID ]; then
+if [ ! $gid ]; then
exit 1
fi
if [ $uid -lt $lowUID ]; then
- exit 1
-fi
-
-if [ $gid -lt $lowGID ]; then
exit 1
fi
-------------------------------------------------------
This SF.Net email sponsored by: Free pre-built ASP.NET sites including
Data Reports, E-commerce, Portals, and Forums are available now.
Download today and enter to win an XBOX or Visual Studio .NET.
http://aspnet.click-url.com/go/psa00100003ave/direct;at.aspnet_072303_01/01
_______________________________________________
Fink-commits mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/fink-commits
