From 84adefa331c4159d432d22840663c38f155cd4c1 Mon Sep 17 00:00:00 2001
From: Erlang/OTP <otp@erlang.org>
Date: Fri, 20 Nov 2009 14:54:40 +0000
Subject: The R13B03 release.

---
 lib/inets/doc/archive/pieces_of_code.txt | 83 ++++++++++++++++++++++++++++++++
 1 file changed, 83 insertions(+)
 create mode 100644 lib/inets/doc/archive/pieces_of_code.txt

(limited to 'lib/inets/doc/archive/pieces_of_code.txt')

diff --git a/lib/inets/doc/archive/pieces_of_code.txt b/lib/inets/doc/archive/pieces_of_code.txt
new file mode 100644
index 0000000000..f18fd2a20c
--- /dev/null
+++ b/lib/inets/doc/archive/pieces_of_code.txt
@@ -0,0 +1,83 @@
+
+%script_name([],_) ->
+%  not_an_executable;
+%script_name([""|Rest],SoFar) ->
+%  script_name(Rest,SoFar);
+%script_name([First|Rest],SoFar) ->
+%  NewSoFar=SoFar++"/"++First,
+%  case file:read_file_info(NewSoFar) of
+%    %% Do the script exists and is it executable? To be done!
+%    {ok,FileInfo} when FileInfo#file_info.type == regular ->
+%      {yes,NewSoFar,[$/|Rest]};
+%    {ok,FileInfo} ->
+%      script_name(Rest,NewSoFar);
+%    {error,Reason} ->
+%      script_name(Rest,NewSoFar)
+%  end.
+	  
+	  
+
+	    case httpd_util:key1search(Info#mod.data,real_name) of
+	      undefined ->
+		DocumentRoot=
+		  httpd_util:lookup(Info#mod.config_db,document_root,""),
+		DocumentRoot++"/"++httpd_util:decode_hex(Info#mod.request_uri);
+	      RealName ->
+		RealName
+	    end,	  
+
+
+test() ->
+  disk_log:open({name,"/var/tmp/server_root/logs/access_disk_log"},
+		{file,"/var/tmp/server_root/logs/access_disk_log"},
+		{linkto,Pid},
+		{format,external},
+		{type,Type}
+		{size,{MaxBytes,MaxFiles}},
+		{head,{M,F,A}},
+		
+%% order
+parse_directory(Stream,ConfigDB,Directory,[$o,$r,$d,$e,$r|Order]) ->
+  case regexp:split(Order,",") of
+    {ok,[First,Second]} ->
+      CleanSecond=clean(Second),
+      case clean(First) of
+	"allow" when CleanSecond == "deny" ->
+	  ets:insert(ConfigDB,{{directory,Directory},{"order",allow_deny}}),
+	  parse_directory(Stream,ConfigDB,Directory);
+	"deny" when CleanSecond == "allow" ->
+	  ets:insert(ConfigDB,{{directory,Directory},{"order",deny_allow}}),
+	  parse_directory(Stream,ConfigDB,Directory);
+	_ ->
+	  {error,atom_to_list(?MODULE)++": "++clean(Order)++
+	   " is an invalid order!"}
+      end;
+    {ok,_} ->
+      {error,atom_to_list(?MODULE)++": "++clean(Order)++
+       " is an invalid order!"}
+  end;
+
+%% Redirect
+parse(Stream,ConfigDB,[$R,$e,$d,$i,$r,$e,$c,$t|Redirect]) ->
+  case regexp:split(Redirect," ") of
+    {ok,[FakeName,URL]} ->
+      ets:insert(ConfigDB,{"Redirect",{FakeName,URL}}),
+      parse(Stream,ConfigDB);
+    {ok,_} ->
+      {error,atom_to_list(?MODULE)++": "++clean(Redirect)++
+       " is an invalid Redirect!"}
+  end;
+
+%% deny
+parse_directory(Stream,ConfigDB,Directory,[$d,$e,$n,$y|Deny]) ->
+  case regexp:split(Deny," ") of
+    {ok,["from","all"]} ->
+      ets:insert(ConfigDB,{{directory,Directory},{"deny",all}}),
+      parse_directory(Stream,ConfigDB,Directory);
+    {ok,["from"|Hosts]} ->
+      ets:insert(ConfigDB,{{directory,Directory},{"deny",Hosts}}),
+      parse_directory(Stream,ConfigDB,Directory);
+    {ok,_} ->
+      {error,atom_to_list(?MODULE)++": "++clean(Deny)++
+       " is an invalid deny!"}
+  end;
-- 
cgit v1.2.3