You could also change the group of perl to a perl group and chmod to 754. Then only root and thoes in the perl can execute it.

Bryan Sant wrote:

Wo.  I mean:

#!/bin/bash

if [ -z "`lsof -p $$ | awk '{print $9}' | grep ^/tmp`" ] \
    && [ -z "`echo $PWD | grep ^/tmp`"];
  exec /usr/bin/perl-real $@;
fi

-Bryan


/*
PLUG: http://plug.org, #utah on irc.freenode.net
Unsubscribe: http://plug.org/mailman/options/plug
Don't fear the penguin.
*/

Reply via email to