minor patch to net::server
From: Erik Aronesty (zoneedit_at_gmail.com)
Date: 06/30/04
- Next message: Ed Waldspurger: "XML::Simple encoding problem"
- Previous message: Thomas Kratz: "Re: Please help a rookie on shared lib problems"
- Messages sorted by: [ date ] [ thread ] [ subject ] [ author ]
Date: 30 Jun 2004 09:59:34 -0700
1. Since i'm running with -T (please let me know the better way to do
this, code was ripped/merged from other NG posts regarding tainting)
sub hup_server {
my $self = shift;
$ENV{PATH} = '';
$ENV{BASH_ENV} = '';
$self->log(0,$self->log_time()." HUP'ing server");
my $i;
my @safe_command;
for $i ( @{ $self->{server}->{commandline} } ) {
if ($i =~ /^([-\@\w.\/:]+)$/) {
push(@safe_command, $1); # $data now untainted
} else {
die "Bad data in `$i'"; # log this somewhere
}
}
exec @safe_command;
}
- Next message: Ed Waldspurger: "XML::Simple encoding problem"
- Previous message: Thomas Kratz: "Re: Please help a rookie on shared lib problems"
- Messages sorted by: [ date ] [ thread ] [ subject ] [ author ]
Relevant Pages
|
