← Back to branch summary

~statik/ubuntu/maverick/erlang/erlang-merge-testing

« back to all changes in this revision

Viewing changes to lib/inets/doc/archive/pieces_of_code.txt

  • Committer: Bazaar Package Importer
  • Author(s): Sergei Golovan
  • Date: 2009-05-01 10:14:38 UTC
  • mfrom: (3.1.4 sid)
  • Revision ID: james.westby@ubuntu.com-20090501101438-6qlr6rsdxgyzrg2z
Tags: 1:13.b-dfsg-2
* Cleaned up patches: removed unneeded patch which helped to support
  different SCTP library versions, made sure that changes for m68k
  architecture applied only when building on this architecture.
* Removed duplicated information from binary packages descriptions.
* Don't require libsctp-dev build-dependency on solaris-i386 architecture
  which allows to build Erlang on Nexenta (thanks to Tim Spriggs for
  the suggestion).

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/inets/doc/archive/pieces_of_code.txt
 
1
 
 
2
%script_name([],_) ->
 
3
%  not_an_executable;
 
4
%script_name([""|Rest],SoFar) ->
 
5
%  script_name(Rest,SoFar);
 
6
%script_name([First|Rest],SoFar) ->
 
7
%  NewSoFar=SoFar++"/"++First,
 
8
%  case file:read_file_info(NewSoFar) of
 
9
%    %% Do the script exists and is it executable? To be done!
 
10
%    {ok,FileInfo} when FileInfo#file_info.type == regular ->
 
11
%      {yes,NewSoFar,[$/|Rest]};
 
12
%    {ok,FileInfo} ->
 
13
%      script_name(Rest,NewSoFar);
 
14
%    {error,Reason} ->
 
15
%      script_name(Rest,NewSoFar)
 
16
%  end.
 
17
          
 
18
          
 
19
 
 
20
            case httpd_util:key1search(Info#mod.data,real_name) of
 
21
              undefined ->
 
22
                DocumentRoot=
 
23
                  httpd_util:lookup(Info#mod.config_db,document_root,""),
 
24
                DocumentRoot++"/"++httpd_util:decode_hex(Info#mod.request_uri);
 
25
              RealName ->
 
26
                RealName
 
27
            end,          
 
28
 
 
29
 
 
30
test() ->
 
31
  disk_log:open({name,"/var/tmp/server_root/logs/access_disk_log"},
 
32
                {file,"/var/tmp/server_root/logs/access_disk_log"},
 
33
                {linkto,Pid},
 
34
                {format,external},
 
35
                {type,Type}
 
36
                {size,{MaxBytes,MaxFiles}},
 
37
                {head,{M,F,A}},
 
38
                
 
39
%% order
 
40
parse_directory(Stream,ConfigDB,Directory,[$o,$r,$d,$e,$r|Order]) ->
 
41
  case regexp:split(Order,",") of
 
42
    {ok,[First,Second]} ->
 
43
      CleanSecond=clean(Second),
 
44
      case clean(First) of
 
45
        "allow" when CleanSecond == "deny" ->
 
46
          ets:insert(ConfigDB,{{directory,Directory},{"order",allow_deny}}),
 
47
          parse_directory(Stream,ConfigDB,Directory);
 
48
        "deny" when CleanSecond == "allow" ->
 
49
          ets:insert(ConfigDB,{{directory,Directory},{"order",deny_allow}}),
 
50
          parse_directory(Stream,ConfigDB,Directory);
 
51
        _ ->
 
52
          {error,atom_to_list(?MODULE)++": "++clean(Order)++
 
53
           " is an invalid order!"}
 
54
      end;
 
55
    {ok,_} ->
 
56
      {error,atom_to_list(?MODULE)++": "++clean(Order)++
 
57
       " is an invalid order!"}
 
58
  end;
 
59
 
 
60
%% Redirect
 
61
parse(Stream,ConfigDB,[$R,$e,$d,$i,$r,$e,$c,$t|Redirect]) ->
 
62
  case regexp:split(Redirect," ") of
 
63
    {ok,[FakeName,URL]} ->
 
64
      ets:insert(ConfigDB,{"Redirect",{FakeName,URL}}),
 
65
      parse(Stream,ConfigDB);
 
66
    {ok,_} ->
 
67
      {error,atom_to_list(?MODULE)++": "++clean(Redirect)++
 
68
       " is an invalid Redirect!"}
 
69
  end;
 
70
 
 
71
%% deny
 
72
parse_directory(Stream,ConfigDB,Directory,[$d,$e,$n,$y|Deny]) ->
 
73
  case regexp:split(Deny," ") of
 
74
    {ok,["from","all"]} ->
 
75
      ets:insert(ConfigDB,{{directory,Directory},{"deny",all}}),
 
76
      parse_directory(Stream,ConfigDB,Directory);
 
77
    {ok,["from"|Hosts]} ->
 
78
      ets:insert(ConfigDB,{{directory,Directory},{"deny",Hosts}}),
 
79
      parse_directory(Stream,ConfigDB,Directory);
 
80
    {ok,_} ->
 
81
      {error,atom_to_list(?MODULE)++": "++clean(Deny)++
 
82
       " is an invalid deny!"}
 
83
  end;