File awstats-CVE-2006-2237_read_open.patch of Package awstats

Overview Repositories Revisions Requests Users Attributes Meta

File awstats-CVE-2006-2237_read_open.patch of Package awstats (Revision 434257990d2ca401659c60ac674321d2)

Currently displaying revision 434257990d2ca401659c60ac674321d2 , Show latest

Index: awstats-6.9/wwwroot/cgi-bin/awstats.pl
===================================================================
--- awstats-6.9.orig/wwwroot/cgi-bin/awstats.pl
+++ awstats-6.9/wwwroot/cgi-bin/awstats.pl
@@ -1295,7 +1295,7 @@ sub debug {
 	if ( $level <= $DEBUGFORCED ) {
 		my $debugstring = $_[0];
 		if ( !$DebugResetDone ) {
-			open( DEBUGFORCEDFILE, "debug.log" );
+			open( DEBUGFORCEDFILE, "<debug.log" );
 			close DEBUGFORCEDFILE;
 			chmod 0666, "debug.log";
 			$DebugResetDone = 1;
@@ -1653,12 +1653,12 @@ sub Read_Config {
 	foreach (@PossibleConfigDir) {
 		my $searchdir = $_;
 		if ( $searchdir && $searchdir !~ /[\\\/]$/ ) { $searchdir .= "/"; }
-		if ( open( CONFIG, "$searchdir$PROG.$SiteConfig.conf" ) ) {
+		if ( open( CONFIG, "<$searchdir$PROG.$SiteConfig.conf" ) ) {
 			$FileConfig = "$searchdir$PROG.$SiteConfig.conf";
 			$FileSuffix = ".$SiteConfig";
 			last;
 		}
-		if ( open( CONFIG, "$searchdir$PROG.conf" ) ) {
+		if ( open( CONFIG, "<$searchdir$PROG.conf" ) ) {
 			$FileConfig = "$searchdir$PROG.conf";
 			$FileSuffix = '';
 			last;
@@ -1759,7 +1759,7 @@ sub Parse_Config {
 				);
 				next;
 			}
-			if ( open( CONFIG_INCLUDE, $includeFile ) ) {
+			if ( open( CONFIG_INCLUDE, "<$includeFile" ) ) {
 				&Parse_Config( *CONFIG_INCLUDE, $level + 1, $includeFile );
 				close(CONFIG_INCLUDE);
 			}

Places

File awstats-CVE-2006-2237_read_open.patch of Package awstats (Revision 434257990d2ca401659c60ac674321d2)

Places