inets: Remove SSI (Server Side Includes)

SSI is an old technique implemented by mod_include, that was badly
tested and not recommended to use, as having the server parse HTML
pages is a double edged sword!  It can be costly for a heavily loaded
server to perform parsing of HTML pages while sending
them. Furthermore, it can be considered a security risk to have
average users executing commands in the name of the Erlang node user.

6 files changed, 5 insertions, 806 deletions

diff --git a/lib/inets/doc/src/http_server.xml b/lib/inets/doc/src/http_server.xml
index e3b763b4f3..65e89db391 100644
--- a/lib/inets/doc/src/http_server.xml
+++ b/lib/inets/doc/src/http_server.xml
@@ -46,8 +46,7 @@
       Layer), ESI (Erlang Scripting Interface), CGI (Common Gateway
       Interface), User Authentication(using Mnesia, dets or plain text
       database), Common Logfile Format (with or without disk_log(3)
-      support), URL Aliasing, Action Mappings, Directory Listings and SSI
-      (Server-Side Includes).</p>
+      support), URL Aliasing, Action Mappings, and Directory Listings</p>
 
     <p>The configuration of the server is provided as an erlang
       property list, and for backwards compatibility also a configuration
@@ -478,170 +477,9 @@ http://your.server.org/eval?httpd_example:print(atom_to_list(apply(erlang,halt,[
         </p>
       <p><em>[date]</em> access to <em>path</em> failed for
         <em>remotehost</em>, reason: <em>reason</em></p>
-
-    <marker id="ssi"></marker>
   </section>
-
+  
   <section>
-      <title>Server Side Includes</title>
-    <p>Server Side Includes enables the server to run code embedded
-        in HTML pages to generate the response to the client.</p>
-      <note>
-        <p>Having the server parse HTML pages is a double edged sword!
-          It can be costly for a heavily loaded server to perform
-          parsing of HTML pages while sending them. Furthermore, it can
-          be considered a security risk to have average users executing 
-          commands in the name of the  Erlang node user. Carefully
-          consider these items before activating server-side includes.</p>
-      </note>
-
-      <section>
-        <marker id="ssi_setup"></marker>
-        <title>SERVER-SIDE INCLUDES (SSI) SETUP</title>
-        <p>The server must be told which filename extensions to be used
-          for the parsed files. These files, while very similar to HTML,
-          are not HTML and are thus not treated the same. Internally, the
-          server uses the magic MIME type <c>text/x-server-parsed-html</c>
-          to identify parsed documents. It will then perform a format
-          conversion to change these files into HTML for the
-          client. Update the <c>mime.types</c> file, as described in the
-          Mime Type Settings, to tell the server which extension to use
-          for parsed files, for example:
-          </p>
-        <pre>
-	text/x-server-parsed-html shtml shtm
-        </pre>
-        <p>This makes files ending with <c>.shtml</c> and <c>.shtm</c>
-          into parsed files. Alternatively, if the performance hit is not a
-          problem, <em>all</em> HTML pages can be marked as parsed:
-          </p>
-        <pre>
-	text/x-server-parsed-html html htm
-        </pre>
-      </section>
-
-      <section>
-        <marker id="ssi_format"></marker>
-        <title>Server-Side Includes (SSI) Format</title>
-        <p>All server-side include directives to the server are formatted
-          as SGML comments within the HTML page. This is in case the
-          document should ever  find itself in the client's hands
-          unparsed. Each directive has the following format:
-          </p>
-        <pre>
-	&lt;!--#command tag1="value1" tag2="value2" --&gt;
-        </pre>
-        <p>Each command takes different arguments, most only accept one
-          tag at a time. Here is a breakdown of the commands and their
-          associated tags:
-          </p>
-        <p>The config directive controls various aspects of the
-          file parsing. There are two valid tags:
-          </p>
-        <taglist>
-          <tag><c>errmsg</c></tag>
-          <item>
-            <p>controls the message sent back to the client if an
-              error occurred while parsing the document. All errors are
-              logged in the server's error log.</p>
-          </item>
-          <tag><c>sizefmt</c></tag>
-          <item>
-            <p>determines the format used to  display the size of
-              a file. Valid choices are <c>bytes</c> or
-              <c>abbrev</c>. <c>bytes</c> for a formatted byte count
-              or <c>abbrev</c> for an abbreviated version displaying
-              the number of kilobytes.</p>
-          </item>
-        </taglist>
-        <p>The include directory 
-          will insert the text of a document into the parsed
-          document. This command accepts two tags:</p>
-        <taglist>
-          <tag><c>virtual</c></tag>
-          <item>
-            <p>gives a virtual path to a document on the
-              server. Only normal files and other parsed documents can
-              be accessed in this way.</p>
-          </item>
-          <tag><c>file</c></tag>
-          <item>
-            <p>gives a pathname relative to the current
-              directory. <c>../</c> cannot be used in this pathname, nor
-              can absolute paths. As above, you can send other parsed
-              documents, but you cannot send CGI scripts.</p>
-          </item>
-        </taglist>
-        <p>The echo directive prints the value of one of the include
-          variables (defined below). The only valid tag to this
-          command is <c>var</c>, whose value is the name of the
-          variable you wish to echo.</p>
-        <p>The fsize directive prints the size of the specified
-          file. Valid tags are the same as with the <c>include</c>
-          command. The resulting format of this command is subject
-          to the <c>sizefmt</c> parameter to the <c>config</c>
-          command.</p>
-        <p>The lastmod directive prints the last modification date of
-          the specified file. Valid tags are the same as with the
-          <c>include</c> command.</p>
-        <p>The exec directive executes a given shell command or CGI
-          script. Valid tags are:</p>
-        <taglist>
-          <tag><c>cmd</c></tag>
-          <item>
-            <p>executes the given string using <c>/bin/sh</c>. All
-              of the variables defined below are defined, and can be
-              used in the command.</p>
-          </item>
-          <tag><c>cgi</c></tag>
-          <item>
-            <p>executes the given virtual path to a CGI script and
-              includes its output. The server does not perform error
-              checking on the script output.</p>
-          </item>
-        </taglist>
-      </section>
-
-      <section>
-        <marker id="ssi_environment_variables"></marker>
-        <title>Server-Side Includes (SSI) Environment Variables</title>
-        <p>A number of variables are made available to parsed
-          documents. In addition to the CGI variable set, the following
-          variables are made available: 
-          </p>
-        <taglist>
-          <tag><c>DOCUMENT_NAME</c></tag>
-          <item>
-            <p>The current filename.</p>
-          </item>
-          <tag><c>DOCUMENT_URI</c></tag>
-          <item>
-            <p>The virtual path to this document (such as
-              <c>/docs/tutorials/foo.shtml</c>).</p>
-          </item>
-          <tag><c>QUERY_STRING_UNESCAPED</c></tag>
-          <item>
-            <p>The unescaped version of any search query the client
-              sent, with all shell-special characters escaped with
-              <c>\</c>.</p>
-          </item>
-          <tag><c>DATE_LOCAL</c></tag>
-          <item>
-            <p>The current date, local time zone.</p>
-          </item>
-          <tag><c>DATE_GMT</c></tag>
-          <item>
-            <p>Same as DATE_LOCAL but in Greenwich mean time.</p>
-          </item>
-          <tag><c>LAST_MODIFIED</c></tag>
-          <item>
-            <p>The last modification date of the current document.</p>
-          </item>
-        </taglist>
-      </section>
-    </section>
-
-    <section>
       <title>The Erlang Web Server API</title>
       <p>The process of handling a HTTP request involves several steps
         such as:</p>
@@ -907,28 +745,6 @@ start() ->
         </taglist>
     </section>
     
-      <section>
-      <title>mod_include - SSI</title>
-      <p>This module makes it possible to expand "macros" embedded in
-	HTML pages before they are delivered to the client, that is
-	Server-Side Includes (SSI).
-          </p>
-      <p>Uses the following Erlang Webserver API interaction data:
-      </p>
-        <list type="bulleted">
-	<item>real_name - from mod_alias</item>
-	<item>remote_user - from mod_auth</item>
-      </list>
-        <p>Exports the following Erlang Webserver API interaction data:
-      </p>
-      <taglist>
-	<tag><c>{mime_type, MimeType}</c></tag>
-	<item>The file suffix of the incoming URL mapped into a
-          <c>MimeType</c> as defined in the Mime Type Settings
-	  section.</item>
-      </taglist>
-    </section>
-
     <section>
       <title>mod_log - Logging Using Text Files.</title>
       <p>Standard logging using the "Common Logfile Format" and text
diff --git a/lib/inets/src/http_server/Makefile b/lib/inets/src/http_server/Makefile
index 2660d04d16..51e3dd9212 100644
--- a/lib/inets/src/http_server/Makefile
+++ b/lib/inets/src/http_server/Makefile
@@ -75,7 +75,6 @@ MODULES = \
 	mod_get \
 	mod_head \
 	mod_htaccess \
-	mod_include \
 	mod_log \
 	mod_range \
 	mod_responsecontrol \
diff --git a/lib/inets/src/http_server/mod_include.erl b/lib/inets/src/http_server/mod_include.erl
deleted file mode 100644
index 35f45bdd33..0000000000
--- a/lib/inets/src/http_server/mod_include.erl
+++ /dev/null
@@ -1,598 +0,0 @@
-%%
-%% %CopyrightBegin%
-%% 
-%% Copyright Ericsson AB 1997-2010. All Rights Reserved.
-%% 
-%% The contents of this file are subject to the Erlang Public License,
-%% Version 1.1, (the "License"); you may not use this file except in
-%% compliance with the License. You should have received a copy of the
-%% Erlang Public License along with this software. If not, it can be
-%% retrieved online at http://www.erlang.org/.
-%% 
-%% Software distributed under the License is distributed on an "AS IS"
-%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
-%% the License for the specific language governing rights and limitations
-%% under the License.
-%% 
-%% %CopyrightEnd%
-%%
-%%
--module(mod_include).
--export([do/1,parse/2,config/6,include/6,echo/6,fsize/6,flastmod/6,exec/6]).
-
--include("httpd.hrl").
--include("httpd_internal.hrl").
-
--define(VMODULE,"INCLUDE").
-
-%% do
-
-do(Info) ->
-    case Info#mod.method of
-	"GET" ->
-	    case proplists:get_value(status, Info#mod.data) of
-		%% A status code has been generated!
-		{_StatusCode, _PhraseArgs, _Reason} ->
-		    {proceed,Info#mod.data};
-		%% No status code has been generated!
-		undefined ->
-		    case proplists:get_value(response, Info#mod.data) of
-			%% No response has been generated!
-			undefined ->
-			    do_include(Info);
-			%% A response has been generated or sent!
-			_Response ->
-			    {proceed,Info#mod.data}
-		    end
-	    end;
-	%% Not a GET method!
-	_ ->
-	    {proceed,Info#mod.data}
-    end.
-
-do_include(Info) ->
-    Path = mod_alias:path(Info#mod.data,Info#mod.config_db,
-			  Info#mod.request_uri),
-    Suffix = httpd_util:suffix(Path),
-    case httpd_util:lookup_mime_default(Info#mod.config_db,Suffix) of
-	"text/x-server-parsed-html" ->
-	    HeaderStart = [{content_type, "text/html"}], 
-	    case send_in(Info, Path, HeaderStart, file:read_file_info(Path)) of
-		{ok, ErrorLog, Size} ->
-		    {proceed, [{response, {already_sent, 200, Size}},
-			       {mime_type, "text/html"} |
-			       lists:append(ErrorLog, Info#mod.data)]};
-		{error, Reason} ->
-		    {proceed,
-		     [{status,send_error(Reason,Info,Path)}|Info#mod.data]}
-	    end;
-	_ -> %% Unknown mime type, ignore
-	    {proceed,Info#mod.data}
-    end.
-
-
-%%
-%% config directive
-%%
-
-config(_Info, Context, ErrorLog, TagList, ValueList, R) ->
-    case verify_tags("config",[errmsg,timefmt,sizefmt],
-		     TagList,ValueList) of
-	ok ->
-	    {ok,update_context(TagList,ValueList,Context),ErrorLog,"",R};
-	{error,Reason} ->
-	    {ok,Context,[{internal_info,Reason}|ErrorLog],
-	     proplists:get_value(errmsg,Context,""),R}
-    end.
-
-update_context([],[],Context) ->
-    Context;
-update_context([Tag|R1],[Value|R2],Context) ->
-    update_context(R1,R2,[{Tag,Value}|Context]).
-
-verify_tags(Command,ValidTags,TagList,ValueList) 
-  when length(TagList) =:= length(ValueList) ->
-    verify_tags(Command, ValidTags, TagList);
-verify_tags(Command, _ValidTags, _TagList, _ValueList) ->
-    {error, ?NICE(Command ++ " directive has spurious tags")}.
-
-verify_tags(_Command, _ValidTags, []) ->
-    ok;
-verify_tags(Command, ValidTags, [Tag|Rest]) ->
-    case lists:member(Tag, ValidTags) of
-	true ->
-	    verify_tags(Command, ValidTags, Rest);
-	false ->
-	    {error, ?NICE(Command++" directive has a spurious tag ("++
-			 atom_to_list(Tag)++")")}
-    end.
-
-%%
-%% include directive
-%%
-
-include(Info,Context,ErrorLog,[virtual],[VirtualPath],R) ->
-    Aliases = httpd_util:multi_lookup(Info#mod.config_db,alias),
-    {_, Path, _AfterPath} =
-	mod_alias:real_name(Info#mod.config_db, VirtualPath, Aliases),
-    include(Info,Context,ErrorLog,R,Path);
-include(Info, Context, ErrorLog, [file], [FileName], R) ->
-    Path = file(Info#mod.config_db, Info#mod.request_uri, FileName),
-    include(Info, Context, ErrorLog, R, Path);
-include(_Info, Context, ErrorLog, _TagList, _ValueList, R) ->
-    {ok, Context,
-     [{internal_info,?NICE("include directive has a spurious tag")}|
-      ErrorLog], proplists:get_value(errmsg, Context, ""), R}.
-
-include(Info, Context, ErrorLog, R, Path) ->
-    case file:read_file(Path) of
-	{ok, Body} ->
-	    {ok, NewContext, NewErrorLog, Result} =
-		parse(Info, binary_to_list(Body), Context, ErrorLog, []),
-	    {ok, NewContext, NewErrorLog, Result, R};
-	{error, _Reason} ->
-	    {ok, Context, 
-	     [{internal_info, ?NICE("Can't open "++Path)}|ErrorLog],
-	     proplists:get_value(errmsg, Context, ""), R}
-    end.
-
-file(ConfigDB, RequestURI, FileName) ->
-    Aliases = httpd_util:multi_lookup(ConfigDB, alias),
-    {_, Path, _AfterPath}
-	= mod_alias:real_name(ConfigDB, RequestURI, Aliases),
-    Pwd = filename:dirname(Path),
-    filename:join(Pwd, FileName).
-
-%%
-%% echo directive
-%%
-
-echo(Info,Context,ErrorLog,[var],["DOCUMENT_NAME"],R) ->
-    {ok,Context,ErrorLog,document_name(Info#mod.data,Info#mod.config_db,
-				       Info#mod.request_uri),R};
-echo(Info,Context,ErrorLog,[var],["DOCUMENT_URI"],R) ->
-    {ok,Context,ErrorLog,document_uri(Info#mod.config_db,
-				      Info#mod.request_uri),R};
-echo(Info,Context,ErrorLog,[var],["QUERY_STRING_UNESCAPED"],R) ->
-    {ok,Context,ErrorLog,query_string_unescaped(Info#mod.request_uri),R};
-echo(_Info,Context,ErrorLog,[var],["DATE_LOCAL"],R) ->
-    {ok,Context,ErrorLog,date_local(),R};
-echo(_Info,Context,ErrorLog,[var],["DATE_GMT"],R) ->
-    {ok,Context,ErrorLog,date_gmt(),R};
-echo(Info,Context,ErrorLog,[var],["LAST_MODIFIED"],R) ->
-    {ok,Context,ErrorLog,last_modified(Info#mod.data,Info#mod.config_db,
-				       Info#mod.request_uri),R};
-echo(_Info, Context, ErrorLog, _TagList, _ValueList, R) ->
-    {ok,Context,
-     [{internal_info,?NICE("echo directive has a spurious tag")}|
-      ErrorLog],"(none)",R}.
-
-document_name(Data,ConfigDB,RequestURI) ->
-    Path = mod_alias:path(Data,ConfigDB,RequestURI),
-    case inets_regexp:match(Path,"[^/]*\$") of
-	{match,Start,Length} ->
-	    string:substr(Path,Start,Length);
-	nomatch ->
-	    "(none)"
-    end.
-
-document_uri(ConfigDB, RequestURI) ->
-    Aliases = httpd_util:multi_lookup(ConfigDB, alias),
-    
-    {_, Path, AfterPath}  = mod_alias:real_name(ConfigDB, RequestURI, Aliases),
-    
-    VirtualPath = string:substr(RequestURI, 1, 
-				length(RequestURI)-length(AfterPath)),
-    {match, Start, Length} = inets_regexp:match(Path,"[^/]*\$"),
-    FileName = string:substr(Path,Start,Length),
-    case inets_regexp:match(VirtualPath, FileName++"\$") of
-	{match, _, _} ->
-	    http_uri:decode(VirtualPath)++AfterPath;
-	nomatch ->
-	    string:strip(http_uri:decode(VirtualPath),right,$/)++
-		"/"++FileName++AfterPath
-    end.
-
-query_string_unescaped(RequestURI) ->
-  case inets_regexp:match(RequestURI,"[\?].*\$") of
-    {match,Start,Length} ->
-      %% Escape all shell-special variables with \
-      escape(string:substr(RequestURI,Start+1,Length-1));      
-    nomatch ->
-      "(none)"
-  end.
-
-escape([]) -> [];
-escape([$;|R]) -> [$\\,$;|escape(R)];
-escape([$&|R]) -> [$\\,$&|escape(R)];
-escape([$(|R]) -> [$\\,$(|escape(R)];
-escape([$)|R]) -> [$\\,$)|escape(R)];
-escape([$||R]) -> [$\\,$||escape(R)];
-escape([$^|R]) -> [$\\,$^|escape(R)];
-escape([$<|R]) -> [$\\,$<|escape(R)];
-escape([$>|R]) -> [$\\,$>|escape(R)];
-escape([$\n|R]) -> [$\\,$\n|escape(R)];
-escape([$ |R]) -> [$\\,$ |escape(R)];
-escape([$\t|R]) -> [$\\,$\t|escape(R)];
-escape([C|R]) -> [C|escape(R)].
-
-date_local() ->
-  {{Year,Month,Day},{Hour,Minute,Second}}=calendar:local_time(),
-  %% Time format hard-wired to: "%a %b %e %T %Y" according to strftime(3)
-  io_lib:format("~s ~s ~2w ~2.2.0w:~2.2.0w:~2.2.0w ~w",
-		[httpd_util:day(calendar:day_of_the_week(Year,Month,Day)),
-		 httpd_util:month(Month),Day,Hour,Minute,Second,Year]).
-
-date_gmt() ->
-  {{Year,Month,Day},{Hour,Minute,Second}}=calendar:universal_time(),
-  %% Time format hard-wired to: "%a %b %e %T %Z %Y" according to strftime(3)
-  io_lib:format("~s ~s ~2w ~2.2.0w:~2.2.0w:~2.2.0w GMT ~w",
-		[httpd_util:day(calendar:day_of_the_week(Year,Month,Day)),
-		 httpd_util:month(Month),Day,Hour,Minute,Second,Year]).
-
-last_modified(Data,ConfigDB,RequestURI) ->
-  {ok,FileInfo}=file:read_file_info(mod_alias:path(Data,ConfigDB,RequestURI)),
-  {{Year,Month,Day},{Hour,Minute,Second}}=FileInfo#file_info.mtime,
-  io_lib:format("~s ~s ~2w ~2.2.0w:~2.2.0w:~2.2.0w ~w",
-		[httpd_util:day(calendar:day_of_the_week(Year,Month,Day)),
-		 httpd_util:month(Month),Day,Hour,Minute,Second,Year]).
-
-%%
-%% fsize directive
-%%
-
-fsize(Info,Context,ErrorLog,[virtual],[VirtualPath],R) ->
-  Aliases = httpd_util:multi_lookup(Info#mod.config_db,alias),
-  {_,Path, _AfterPath}=
-    mod_alias:real_name(Info#mod.config_db,VirtualPath,Aliases),
-  fsize(Info, Context, ErrorLog, R, Path);
-fsize(Info,Context,ErrorLog,[file],[FileName],R) ->
-  Path = file(Info#mod.config_db,Info#mod.request_uri,FileName),
-  fsize(Info,Context,ErrorLog,R,Path);
-fsize(_Info, Context, ErrorLog, _TagList, _ValueList, R) ->
-  {ok,Context,[{internal_info,?NICE("fsize directive has a spurious tag")}|
-	       ErrorLog],proplists:get_value(errmsg,Context,""),R}.
-
-fsize(_Info, Context, ErrorLog, R, Path) ->
-    case file:read_file_info(Path) of
-	{ok,FileInfo} ->
-	    case proplists:get_value(sizefmt,Context) of
-		"bytes" ->
-		    {ok,Context,ErrorLog,
-		     integer_to_list(FileInfo#file_info.size),R};
-		"abbrev" ->
-		    Size = integer_to_list(trunc(FileInfo#file_info.size/1024+1))++"k",
-		    {ok,Context,ErrorLog,Size,R};
-		Value->
-		    {ok,Context,
-		     [{internal_info,
-		       ?NICE("fsize directive has a spurious tag value ("++
-			     Value++")")}|
-		      ErrorLog],
-		     proplists:get_value(errmsg, Context, ""), R}
-	    end;
-	{error, _Reason} ->
-	    {ok,Context,[{internal_info,?NICE("Can't open "++Path)}|ErrorLog],
-	     proplists:get_value(errmsg,Context,""),R}
-    end.
-
-%%
-%% flastmod directive
-%%
-
-flastmod(#mod{config_db = Db} = Info, 
-	 Context, ErrorLog, [virtual], [VirtualPath],R) ->
-    Aliases = httpd_util:multi_lookup(Db,alias),
-    {_,Path, _AfterPath} = mod_alias:real_name(Db, VirtualPath, Aliases),
-    flastmod(Info,Context,ErrorLog,R,Path);
-flastmod(#mod{config_db = Db, request_uri = RequestUri} = Info, 
-	 Context, ErrorLog, [file], [FileName], R) ->
-    Path = file(Db, RequestUri, FileName),
-    flastmod(Info, Context, ErrorLog, R, Path);
-flastmod(_Info, Context, ErrorLog, _TagList, _ValueList, R) ->
-    {ok,Context,
-     [{internal_info,?NICE("flastmod directive has a spurious tag")}|
-      ErrorLog],proplists:get_value(errmsg,Context,""),R}.
-
-flastmod(_Info, Context, ErrorLog, R, File) ->
-    case file:read_file_info(File) of
-	{ok, FileInfo} ->
-	    {{Yr,Mon,Day},{Hour,Minute,Second}}=FileInfo#file_info.mtime,
-	    Result =
-		io_lib:format("~s ~s ~2w ~w:~w:~w ~w",
-			      [httpd_util:day(
-				 calendar:day_of_the_week(Yr,Mon, Day)),
-			       httpd_util:month(Mon),Day,Hour,Minute,Second, Yr]),
-	    {ok, Context, ErrorLog, Result, R};
-	{error, _Reason} ->
-	    {ok,Context,[{internal_info,?NICE("Can't open "++File)}|ErrorLog],
-	     proplists:get_value(errmsg,Context,""),R}
-    end.
-
-%%
-%% exec directive
-%%
-
-exec(Info,Context,ErrorLog,[cmd],[Command],R) ->
-    cmd(Info,Context,ErrorLog,R,Command);
-exec(Info,Context,ErrorLog,[cgi],[RequestURI],R) ->
-    cgi(Info,Context,ErrorLog,R,RequestURI);
-exec(_Info, Context, ErrorLog, _TagList, _ValueList, R) ->
-    {ok, Context,
-     [{internal_info,?NICE("exec directive has a spurious tag")}|
-      ErrorLog], proplists:get_value(errmsg,Context,""),R}.
-
-%% cmd
-
-cmd(Info, Context, ErrorLog, R, Command) ->
-    process_flag(trap_exit,true),    
-    Env  = env(Info),
-    Dir  = filename:dirname(Command),
-    Port = (catch open_port({spawn,Command},[stream,{cd,Dir},{env,Env}])),
-    case Port of
-	P when is_port(P) ->
-	    {NewErrorLog, Result} = proxy(Port, ErrorLog),
-	    {ok, Context, NewErrorLog, Result, R};
-	{'EXIT', Reason} ->
-	    exit({open_port_failed,Reason,
-		  [{uri,Info#mod.request_uri},{script,Command},
-		   {env,Env},{dir,Dir}]});
-	O ->
-	    exit({open_port_failed,O,
-		  [{uri,Info#mod.request_uri},{script,Command},
-		   {env,Env},{dir,Dir}]})
-    end.
-
-env(Info) ->
-    [{"DOCUMENT_NAME",document_name(Info#mod.data,Info#mod.config_db,
-				    Info#mod.request_uri)},
-     {"DOCUMENT_URI", document_uri(Info#mod.config_db, Info#mod.request_uri)},
-     {"QUERY_STRING_UNESCAPED", query_string_unescaped(Info#mod.request_uri)},
-     {"DATE_LOCAL", date_local()},
-     {"DATE_GMT", date_gmt()},
-     {"LAST_MODIFIED", last_modified(Info#mod.data, Info#mod.config_db,
-				     Info#mod.request_uri)}
-    ].
-
-%% cgi
-
-cgi(Info, Context, ErrorLog, R, RequestURI) ->
-    ScriptAliases = httpd_util:multi_lookup(Info#mod.config_db, script_alias),
-    case mod_alias:real_script_name(Info#mod.config_db, RequestURI,
-				    ScriptAliases) of
-	{Script, AfterScript} ->
-	    exec_script(Info,Script,AfterScript,ErrorLog,Context,R);
-	not_a_script ->
-	    {ok, Context,
-	     [{internal_info, ?NICE(RequestURI++" is not a script")}|
-	      ErrorLog], proplists:get_value(errmsg, Context, ""),R}
-    end.
-
-remove_header([]) ->
-    [];
-remove_header([$\n,$\n|Rest]) ->
-    Rest;
-remove_header([_C|Rest]) ->
-    remove_header(Rest).
-
-
-exec_script(#mod{config_db = Db, request_uri = RequestUri} = Info, 
-	    Script, _AfterScript, ErrorLog, Context, R) ->
-    process_flag(trap_exit,true),    
-    Aliases = httpd_util:multi_lookup(Db, alias),
-    {_, Path, AfterPath} = mod_alias:real_name(Db, RequestUri, Aliases),
-    Env  = env(Info) ++ mod_cgi:env(Info, Path, AfterPath),
-    Dir  = filename:dirname(Path),
-    Port = (catch open_port({spawn,Script},[stream,{env, Env},{cd, Dir}])),
-    case Port of
-	P when is_port(P) ->
-	    %% Send entity body to port.
-	    Res = case Info#mod.entity_body of
-		      [] ->
-			  true;
-		      EntityBody ->
-			  (catch port_command(Port, EntityBody))
-		  end,
-	    case Res of
-		{'EXIT', Reason} ->
-		    exit({open_cmd_failed,Reason,
-			  [{mod,?MODULE},{port,Port},
-			   {uri,RequestUri},
-			   {script,Script},{env,Env},{dir,Dir},
-			   {ebody_size,sz(Info#mod.entity_body)}]});
-		true ->
-		    {NewErrorLog, Result} = proxy(Port, ErrorLog),
-		    {ok, Context, NewErrorLog, remove_header(Result), R}
-	    end;
-	{'EXIT', Reason} ->
-	    exit({open_port_failed,Reason,
-		  [{mod,?MODULE},{uri,RequestUri},{script,Script},
-		   {env,Env},{dir,Dir}]});
-	O ->
-	    exit({open_port_failed,O,
-		  [{mod,?MODULE},{uri,RequestUri},{script,Script},
-		   {env,Env},{dir,Dir}]})
-    end.
-    
-
-%%
-%% Port communication
-%%
-
-proxy(Port, ErrorLog) ->
-    process_flag(trap_exit, true),
-    proxy(Port, ErrorLog, []).
-
-proxy(Port, ErrorLog, Result) ->
-    receive
-	{Port, {data, Response}} ->
-	    proxy(Port, ErrorLog, lists:append(Result,Response));
-	{'EXIT', Port, normal} when is_port(Port) ->
-	    process_flag(trap_exit, false),
-	    {ErrorLog, Result};
-	{'EXIT', Port, _Reason} when is_port(Port) ->
-	    process_flag(trap_exit, false),
-	    {[{internal_info,
-	       ?NICE("Scrambled output from CGI-script")}|ErrorLog],
-	     Result};
-	{'EXIT', Pid, Reason} when is_pid(Pid) ->
-	    process_flag(trap_exit, false),
-	    {'EXIT', Pid, Reason};
-	%% This should not happen!
-	_WhatEver ->
-	    process_flag(trap_exit, false),
-	    {ErrorLog, Result}
-    end.
-
-
-%% ------
-%% Temporary until I figure out a way to fix send_in_chunks
-%% (comments and directives that start in one chunk but end
-%% in another is not handled).
-%%
-
-send_in(Info, Path, Head, {ok,FileInfo}) ->
-    case file:read_file(Path) of
-	{ok, Bin} ->
-	    send_in1(Info, binary_to_list(Bin), Head, FileInfo);
-	{error, Reason} ->
-	    {error, {read,Reason}}
-    end;
-send_in(_Info , _Path, _Head,{error,Reason}) ->
-    {error, {open,Reason}}.
-
-send_in1(Info, Data, Head, FileInfo) ->
-    {ok, _Context, Err, ParsedBody} = parse(Info,Data,?DEFAULT_CONTEXT,[],[]),
-    Size = length(ParsedBody),
-    LastModified = case catch httpd_util:rfc1123_date(FileInfo#file_info.mtime) of
-		       Date when is_list(Date) -> [{last_modified,Date}];
-		       _ -> []
-		   end,
-    Head1 = case Info#mod.http_version of 
-		"HTTP/1.1"->
-		    Head ++ [{content_length, integer_to_list(Size)},  
-			     {etag, httpd_util:create_etag(FileInfo,Size)}|
-			     LastModified];
-		_->
-		    %% i.e http/1.0 and http/0.9
-		    Head ++  [{content_length, integer_to_list(Size)}|  
-			      LastModified]
-	    end,
-    httpd_response:send_header(Info, 200, Head1),
-    httpd_socket:deliver(Info#mod.socket_type,Info#mod.socket, ParsedBody),
-    {ok, Err, Size}.
-
-
-parse(Info,Body) ->
-  parse(Info, Body, ?DEFAULT_CONTEXT, [], []).
-
-parse(_Info, [], Context, ErrorLog, Result) ->
-    {ok, Context, lists:reverse(ErrorLog), lists:reverse(Result)};
-parse(Info,[$<,$!,$-,$-,$#|R1],Context,ErrorLog,Result) ->
-  case catch parse0(R1,Context) of
-    {parse_error,Reason} ->
-      parse(Info,R1,Context,[{internal_info,?NICE(Reason)}|ErrorLog],
-	    [$#,$-,$-,$!,$<|Result]);
-    {ok,Context,Command,TagList,ValueList,R2} ->
-	  {ok,NewContext,NewErrorLog,MoreResult,R3}=
-	      handle(Info,Context,ErrorLog,Command,TagList,ValueList,R2),
-	  parse(Info,R3,NewContext,NewErrorLog,
-		lists:reverse(MoreResult)++Result)
-  end;
-parse(Info,[$<,$!,$-,$-|R1],Context,ErrorLog,Result) ->
-  case catch parse5(R1,[],0) of
-    {parse_error,Reason} ->
-	  parse(Info,R1,Context,
-		[{internal_info,?NICE(Reason)}|ErrorLog],Result);
-      {Comment,R2} ->
-      parse(Info,R2,Context,ErrorLog,Comment++Result)
-  end;
-parse(Info,[C|R],Context,ErrorLog,Result) ->
-  parse(Info,R,Context,ErrorLog,[C|Result]).
-
-handle(Info,Context,ErrorLog,Command,TagList,ValueList,R) ->
-  case catch apply(?MODULE,Command,[Info,Context,ErrorLog,TagList,ValueList,
-				    R]) of
-    {'EXIT',{undef,_}} ->
-      throw({parse_error,"Unknown command "++atom_to_list(Command)++
-	     " in parsed doc"});
-    Result ->
-      Result
-  end.
-
-parse0([], _Context) ->
-  throw({parse_error,"Premature EOF in parsed file"});
-parse0([$-,$-,$>|_R], _Context) ->
-  throw({parse_error,"Premature EOF in parsed file"});
-parse0([$ |R], Context) ->
-  parse0(R,Context);
-parse0(String, Context) ->
-  parse1(String, Context,"").
-
-parse1([], _Context, _Command) ->
-  throw({parse_error,"Premature EOF in parsed file"});
-parse1([$-,$-,$>|_R], _Context, _Command) ->
-  throw({parse_error,"Premature EOF in parsed file"});
-parse1([$ |R], Context, Command) ->
-  parse2(R,Context,list_to_atom(lists:reverse(Command)),[],[],"");
-parse1([C|R], Context, Command) ->
-  parse1(R,Context,[C|Command]).
-
-parse2([], _Context, _Command, _TagList, _ValueList, _Tag) ->
-  throw({parse_error,"Premature EOF in parsed file"});
-parse2([$-,$-,$>|R], Context, Command, TagList, ValueList, _Tag) ->
-  {ok,Context,Command,TagList,ValueList,R};
-parse2([$ |R],Context,Command,TagList,ValueList,Tag) ->
-  parse2(R,Context,Command,TagList,ValueList,Tag);
-parse2([$=|R],Context,Command,TagList,ValueList,Tag) ->
-  parse3(R,Context,Command,[list_to_atom(lists:reverse(Tag))|TagList],
-	 ValueList);
-parse2([C|R],Context,Command,TagList,ValueList,Tag) ->
-  parse2(R,Context,Command,TagList,ValueList,[C|Tag]).
-
-parse3([], _Context, _Command, _TagList, _ValueList) ->
-  throw({parse_error,"Premature EOF in parsed file"});
-parse3([$-,$-,$>|_R], _Context, _Command, _TagList, _ValueList) ->
-  throw({parse_error,"Premature EOF in parsed file"});
-parse3([$ |R], Context, Command, TagList, ValueList) ->
-  parse3(R, Context, Command, TagList, ValueList);
-parse3([$"|R], Context, Command, TagList, ValueList) ->
-  parse4(R,Context,Command,TagList,ValueList,"");
-parse3(_String, _Context, _Command, _TagList, _ValueList) ->
-  throw({parse_error,"Premature EOF in parsed file"}).
-
-parse4([], _Context, _Command, _TagList, _ValueList, _Value) ->
-  throw({parse_error,"Premature EOF in parsed file"});
-parse4([$-,$-,$>|_R], _Context, _Command, _TagList, _ValueList, _Value) ->
-  throw({parse_error,"Premature EOF in parsed file"});
-parse4([$"|R],Context,Command,TagList,ValueList,Value) ->
-  parse2(R,Context,Command,TagList,[lists:reverse(Value)|ValueList],"");
-parse4([C|R],Context,Command,TagList,ValueList,Value) ->
-  parse4(R,Context,Command,TagList,ValueList,[C|Value]).
-
-parse5([], _Comment, _Depth) ->
-  throw({parse_error,"Premature EOF in parsed file"});
-parse5([$<,$!,$-,$-|R],Comment,Depth) ->
-  parse5(R,[$-,$-,$!,$<|Comment],Depth+1);
-parse5([$-,$-,$>|R],Comment,0) ->
-  {">--"++Comment++"--!<",R};
-parse5([$-,$-,$>|R],Comment,Depth) ->
-  parse5(R,[$>,$-,$-|Comment],Depth-1);
-parse5([C|R],Comment,Depth) ->
-  parse5(R,[C|Comment],Depth).
-
-
-sz(B) when is_binary(B) -> {binary,size(B)};
-sz(L) when is_list(L)   -> {list,length(L)};
-sz(_)                   -> undefined.
-
-%% send_error - Handle failure to send the file
-%%
-send_error({open,Reason},Info,Path) -> 
-    httpd_file:handle_error(Reason, "open", Info, Path);
-send_error({read,Reason},Info,Path) -> 
-    httpd_file:handle_error(Reason, "read", Info, Path).
-
-
-
-
diff --git a/lib/inets/src/inets_app/inets.app.src b/lib/inets/src/inets_app/inets.app.src
index 7207672b7f..b7c3e341e8 100644
--- a/lib/inets/src/inets_app/inets.app.src
+++ b/lib/inets/src/inets_app/inets.app.src
@@ -92,7 +92,6 @@
             mod_get,
             mod_head,
             mod_htaccess,
-            mod_include,
             mod_log,
             mod_range,
             mod_responsecontrol,
diff --git a/lib/inets/test/httpd_SUITE.erl b/lib/inets/test/httpd_SUITE.erl
index 342004f19b..11f2c6f298 100644
--- a/lib/inets/test/httpd_SUITE.erl
+++ b/lib/inets/test/httpd_SUITE.erl
@@ -127,7 +127,6 @@ http_get() ->
      get, 
      %%actions, Add configuration so that this test mod_action
      esi, 
-     ssi, 
      content_length, 
      bad_hex, 
      missing_CR,
@@ -552,22 +551,6 @@ ipv6(Config) when is_list(Config) ->
      end.
 
 %%-------------------------------------------------------------------------
-ssi() ->
-    [{doc, "HTTP GET server side include test"}].
-ssi(Config) when is_list(Config) -> 
-    Version = ?config(http_version, Config),
-    Host = ?config(host, Config),
-    Type = ?config(type, Config),
-    ok = httpd_test_lib:verify_request(?config(type, Config), Host, ?config(port, Config),  
-				       transport_opts(Type, Config),
-				       ?config(node, Config),
-				       http_request("GET /fsize.shtml ", Version, Host),
-				       [{statuscode, 200},
-					{header, "Content-Type", "text/html"},
-					{header, "Date"},
-					{header, "Server"},
-				       	{version, Version}]).
-%%-------------------------------------------------------------------------
 htaccess_1_1(Config) when is_list(Config) -> 
     htaccess([{http_version, "HTTP/1.1"} | Config]).
 
diff --git a/lib/inets/test/old_httpd_SUITE.erl b/lib/inets/test/old_httpd_SUITE.erl
index 74c11f71ba..39b0b08645 100644
--- a/lib/inets/test/old_httpd_SUITE.erl
+++ b/lib/inets/test/old_httpd_SUITE.erl
@@ -2072,13 +2072,13 @@ create_config(Config, Access, FileName) ->
 		"Modules mod_alias mod_htaccess mod_auth "
 		    "mod_security "
 		    "mod_responsecontrol mod_trace mod_esi "
-		    "mod_actions mod_cgi mod_include mod_dir "
+		    "mod_actions mod_cgi mod_dir "
 		    "mod_range mod_get "
 		    "mod_head mod_log mod_disk_log";
 	    _ ->
 		"Modules mod_alias mod_auth mod_security "
 		    "mod_responsecontrol mod_trace mod_esi "
-		    "mod_actions mod_cgi mod_include mod_dir "
+		    "mod_actions mod_cgi mod_dir "
 			   "mod_range mod_get "
 		    "mod_head mod_log mod_disk_log"
 	end,
@@ -2436,7 +2436,7 @@ create_ipv6_config(Config, FileName, Ipv6Address) ->
     MaxHdrAct    = io_lib:format("~p", [close]),
   
     Mod_order = "Modules mod_alias mod_auth mod_esi mod_actions mod_cgi" 
-	" mod_include mod_dir mod_get mod_head" 
+	" mod_dir mod_get mod_head" 
 	" mod_log mod_disk_log mod_trace",
 	    
     SSL =