more CAN-2004-976 fixes
This commit is contained in:
parent
0735f73de0
commit
a94cfdde98
@ -160,3 +160,25 @@
|
|||||||
|
|
||||||
=item DIR
|
=item DIR
|
||||||
|
|
||||||
|
--- perl-5.8.7/lib/CGI/Cookie.pm.CAN-2004-0976 2005-05-16 04:41:03.000000000 -0400
|
||||||
|
+++ perl-5.8.7/lib/CGI/Cookie.pm 2005-11-08 14:56:15.141710000 -0500
|
||||||
|
@@ -407,7 +407,7 @@
|
||||||
|
You may also retrieve cookies that were stored in some external
|
||||||
|
form using the parse() class method:
|
||||||
|
|
||||||
|
- $COOKIES = `cat /usr/tmp/Cookie_stash`;
|
||||||
|
+ $COOKIES = `cat /var/run/www/Cookie_stash`;
|
||||||
|
%cookies = parse CGI::Cookie($COOKIES);
|
||||||
|
|
||||||
|
If you are in a mod_perl environment, you can save some overhead by
|
||||||
|
--- perl-5.8.7/lib/Shell.pm.CAN-2004-0976 2004-06-01 05:42:17.000000000 -0400
|
||||||
|
+++ perl-5.8.7/lib/Shell.pm 2005-11-08 15:01:36.434664000 -0500
|
||||||
|
@@ -127,7 +127,7 @@
|
||||||
|
use Shell qw(cat ps cp);
|
||||||
|
$passwd = cat('</etc/passwd');
|
||||||
|
@pslines = ps('-ww'),
|
||||||
|
- cp("/etc/passwd", "/tmp/passwd");
|
||||||
|
+ cp("/etc/passwd", "/etc/passwd.orig");
|
||||||
|
|
||||||
|
# object oriented
|
||||||
|
my $sh = Shell->new;
|
||||||
|
Loading…
Reference in New Issue
Block a user