Date: Sun, 14 Jan 1996 10:40:45 +0100 (MET) From: Ollivier Robert <roberto@keltia.freenix.fr> To: sa2c@and.or.jp (NIIMI Satoshi) Cc: current@freebsd.org Subject: Re: perl on -current does not setuid Message-ID: <199601140940.KAA01223@keltia.freenix.fr> In-Reply-To: <199601140832.RAA23716@us.and.or.jp> from "NIIMI Satoshi" at Jan 14, 96 05:32:04 pm
next in thread | previous in thread | raw e-mail | index | archive | help
It seems that NIIMI Satoshi said:
> Perl on -current does not setuid if executed as setuid script. Perl5
> in ports does.
gnu/usr.bin/perl/perl doesn't.
gnu/usr.bin/perl/sperl does.
In the latter's Makefile you'll find this:
CFLAGS+= -I${.CURDIR}/../perl -DIAMSUID -DTAINT
suidperl works.
-rwsr-xr-x 1 root staff 296 May 6 1995 setu*
216 [10:39] roberto@keltia:~/tmp> more setu
#!/usr/bin/suidperl
print "$0 $^X\n";
print "real uid = $<\n effective uid = $>\n";
print "real gid = $(\n effective gid = $)\n";
#
$> = $<;
$) = $(;
print "real uid = $<\n effective uid = $>\n";
print "real gid = $(\n effective gid = $)\n";
$> = 0;
print "real uid = $<\n effective uid = $>\n";
217 [10:39] roberto@keltia:~/tmp> ./setu
./setu /usr/bin/suidperl
real uid = 101
effective uid = 0
real gid = 10 2001 2000 117 100 21 20 15 8 6 5 2 0 10 10
effective gid = 10 2001 2000 117 100 21 20 15 8 6 5 2 0 10 10
real uid = 101
effective uid = 101
real gid = 10 2001 2000 117 100 21 20 15 8 6 5 2 0 10 10
effective gid = 10 2001 2000 117 100 21 20 15 8 6 5 2 0 10 10
real uid = 101
effective uid = 0
--
Ollivier ROBERT -=- The daemon is FREE! -=- roberto@keltia.frmug.fr.net
FreeBSD keltia.freenix.fr 2.2-CURRENT #13: Sat Jan 6 20:08:04 MET 1996
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?199601140940.KAA01223>