Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!zaphod.mps.ohio-state.edu!cis.ohio-state.edu!ucbvax!hplabs!pyramid!chetal From: chetal@pyrps5.pyramid.com (Pradeep Chetal) Newsgroups: comp.lang.perl Subject: Re: I get "Insecure PATH" when I run commands from emacs... Message-ID: Date: 17 Jun 91 00:00:12 GMT References: <1991Jun16.212315.4751@convex.com> Sender: news@pyramid.pyramid.com Distribution: comp.lang.perl Organization: Pyramid Technology Corp., Mtn View, Calif. Lines: 60 In-reply-to: tchrist@convex.COM's message of 16 Jun 91 21:23:15 GMT In article <1991Jun16.212315.4751@convex.com> tchrist@convex.COM (Tom Christiansen) writes: From the keyboard of chetal@pyrps5.pyramid.com (Pradeep Chetal): :I have a perl script which runs fine if I run it at shell level. :However when I pipe stuff to it as a "shell command" in emacs I get :the :message: : :Insecure PATH at ppr line 18. :Insecure PATH at ppr line 81. : :These two correspond to : chop($hostname = `hostname`); : AND : system($comamnd); :respectively. The perl I had built fine with slight modifications to :Configure script to get the libraries, etc BUT there were no other :changes. This is : :This is perl, version 4.0 : :$Header: perl.c,v 4.0 91/03/20 01:37:44 lwall Locked $ :Patch level: 0 Sounds like an evil emacs running set[ug]id. What does id say? Here's the one from the camel book in case you don't have one. #!/usr/bin/perl # Usage: id sub u { local($name) = getpwuid($_[0]); $name && "($name)";} sub g { local($name) = getgrgid($_[0]); $name && "($name)";} sub bynum { $a <=> $b; } print "uid=$<", &u($<); print " gid=", $(+0, &g($(); print " euid=$>", &u($>) if $> != $<; print " egid=", $)+0, &g($)) if $) != $(; @groups=split(' ', $(); shift(@groups); @groups && print " groups=", join(',', sort bynum grep(($_ .= &g($_)) || 1, @groups)); print "\n"; It is a setgid emacs running on the system. It also shows the egid when I run the "id" script via "emacs" as a Shell command. Since I do NOT have any control over the emacs, can I change the programming style so that I do NOT get the "Insecure PATH" problem. OR I should avoid such programming practice. Thanks, /Pradeep -- ------------------------------------------------------------------------------ Pradeep Chetal UUCP: ...!{decwrl,sun,uunet}!pyramid!chetal M/S 24 Internet: chetal@pyramid.com Pyramid Technology Phone: (415) 335-8227 (O) 1295 Charleston Road (415) 961-9789 (H) Mountain View, CA 94043 (415) 335-8845 (FAX)