Index: yaws_server.erl
===================================================================
RCS file: /cvsroot/erlyaws/yaws/src/yaws_server.erl,v
retrieving revision 1.311
diff -u -r1.311 yaws_server.erl
--- yaws_server.erl	18 Oct 2006 14:18:46 -0000	1.311
+++ yaws_server.erl	5 Nov 2006 18:00:47 -0000
@@ -3179,13 +3179,18 @@
 		{ok, FI} when FI#file_info.type == regular ->
 		    do_url_type(get(sc), GetPath ++ "index.html", DR);
 		_ ->
-		    case prim_file:read_file_info([DR, GetPath,"index.php"]) of
+		    case prim_file:read_file_info([DR, GetPath,"index.cgi"]) of
 			{ok, FI} when FI#file_info.type == regular ->
-			    do_url_type(get(sc), GetPath ++ "index.php", DR);
+			    do_url_type(get(sc), GetPath ++ "index.cgi", DR);
 			_ ->
-			    noindex
+			    case prim_file:read_file_info([DR, GetPath,"index.php"]) of
+				{ok, FI} when FI#file_info.type == regular ->
+				    do_url_type(get(sc), GetPath ++ "index.php", DR);
+				_ ->
+				    noindex
+			    end
 		    end
-	    end
+	    end     
      end.