|
version 1.2, 2001/11/15 18:13:32
|
version 1.3, 2001/11/15 18:15:06
|
|
Line 12
|
Line 12
|
| |
|
| use strict; |
use strict; |
| |
|
| my $VERSION = 1.1; |
|
| |
|
| # ------------------------------------------------------------------ Untainting |
# ------------------------------------------------------------------ Untainting |
| $ENV{'PATH'}='/bin:/usr/bin'; # Nullify path information. |
$ENV{'PATH'}='/bin:/usr/bin'; # Nullify path information. |
| delete @ENV{qw(IFS CDPATH ENV BASH_ENV)}; # nullify potential taints |
delete @ENV{qw(IFS CDPATH ENV BASH_ENV)}; # nullify potential taints |
![[BACK]](/icons/back.gif){kind=icon}
Return to pwchange CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom