#/usr/local/bin/perl
#From: chetal@pyrps5.pyramid.com (Pradeep Chetal)
#Subject: Re: I get "Insecure PATH" when I run commands from emacs...
#Date: 17 Jun 91 00:00:12 GMT
#Distribution: comp.lang.perl
#Organization: Pyramid Technology Corp., Mtn View, Calif.
#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.
#
       # 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)
#
#