Article 11272 of comp.lang.perl:
Path: feenix.metronet.com!news.utdallas.edu!wupost!crcnis1.unl.edu!ns.ccsn.edu!ns.ccsn.edu!not-for-mail
From:
[email protected] (Russell Mosemann)
Newsgroups: comp.lang.perl
Subject: Re: Trying to use SUID curseperl script as login shell
Date: 7 Mar 1994 19:24:35 -0600
Organization: Concordia College, Seward, NE
Lines: 37
Message-ID: <
[email protected]>
References: <
[email protected]> <
[email protected]> <
[email protected]>
NNTP-Posting-Host: ccsn.edu
[email protected] (William R. Ward) writes:
>I tried "make superl.o" in the perl source directory, and it didn't know
>how to make it. Are you sure that's the right method?
Heh, heh. It's the right method if you put the right changes in your
makefile. :-) I left that part out. Change the following line:
all: $(public) $(private) $(util) uperl.o tuperl.o superl.o $(scripts)
And add a couple more lines after uperl.o to be:
uperl.o: $& perly.o $(obj) hash.o
-ld $(LARGE) $(LDFLAGS) -r $(obj) hash.o perly.o -o uperl.o
tuperl.o: $& tperly.o $(tobj) tperl.o
-ld $(LARGE) $(LDFLAGS) -r $(tobj) tperl.o tperly.o -o tuperl.o
superl.o: $& tperly.o $(tobj) sperl.o
-ld $(LARGE) $(LDFLAGS) -r $(tobj) sperl.o tperly.o -o superl.o
Then add a line to the Makefile in usub to read something like:
scurseperl: $(SRC)/superl.o usersub.o curses.o
$(CC) $(SRC)/superl.o usersub.o curses.o $(LIBS) -o scurseperl
>(I was trying to use your idea to generate a suid version of oraperl... I'm
>having an analagous problem to Russell's, it can't find the oraperl
>functions)
Hey, the problem is not mine. The suggestion is.
--
Russell Mosemann Concordia College Voice: (402) 643-7445
Computing Center Seward, NE 68434 Fax: (402) 643-4073
"One missionary survived the cannibals. When asked how, he said,
'Those particular cannibals boil their victims. I'm a friar.'"
