VPF::Вебсервер erlang - Форум программистов

Bulat

Дата 9.5.2013, 07:41 (ссылка)

(нет голосов)

Загрузка ...

татарский Нео

Профиль
Группа: Завсегдатай
Сообщений: 1701
Регистрация: 22.3.2006
Где: Альметьевск

Репутация: нет
Всего: 57

Начал раскуривать тему веб-сервера на эрланге, кое что уже имеется, но пока еще не пригодно для мало-мальски серьезной работы. Щас выложу уже то, что имею, мож кто подсобит и поможет допачтить??

Каталог:

C:\EWebServer

файлы:

Код


server.erl
xmerl.hrl
hello.xml

xmerl.hrl(так же этот файл можно из библиотек самого эрланга):

Код


%% 
%% %CopyrightBegin%
%% 
%% Copyright Ericsson AB 2004-2011. 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%
%%
%% Contributor(s):
%%    <[email protected]>: suggested #xmlDocument{}
%%
%%----------------------------------------------------------------------
%% #0.    BASIC INFORMATION
%%----------------------------------------------------------------------
%% File:       xmerl.hrl
%% Author       : Ulf Wiger <[email protected]>
%% Date         : 00-09-22
%% Description  : Record and macro definitions for xmerl
%%----------------------------------------------------------------------



%% records generated by the scanner
%% --------------------------------

%% XML declaration
-record(xmlDecl,{
      vsn,        % string() XML version
      encoding,   % string() Character encoding 
      standalone, % (yes | no)
      attributes  % [#xmlAttribute()] Other attributes than above
     }).

%% Attribute
-record(xmlAttribute,{
      name,           % atom()
      expanded_name=[],% atom() | {string(),atom()}
      nsinfo = [],       % {Prefix, Local} | []
      namespace = [],  % inherits the element's namespace
      parents = [],       % [{atom(),integer()}]
      pos,           % integer()
      language = [],   % inherits the element's language
      value,       % IOlist() | atom() | integer()
      normalized       % atom() one of (true | false)
     }).

%% namespace record
-record(xmlNamespace,{
      default = [],
      nodes = []
     }).

%% namespace node - i.e. a {Prefix, URI} pair
-record(xmlNsNode,{
      parents = [],    % [{atom(),integer()}]
      pos,        % integer()
      prefix,    % string()
      uri = []    % [] | atom()
     }).

%% XML Element
%% content = [#xmlElement()|#xmlText()|#xmlPI()|#xmlComment()|#xmlDecl()]
-record(xmlElement,{
      name,            % atom()
      expanded_name = [],    % string() | {URI,Local} | {"xmlns",Local}
      nsinfo = [],            % {Prefix, Local} | []
      namespace=#xmlNamespace{},
      parents = [],        % [{atom(),integer()}]
      pos,            % integer()
      attributes = [],    % [#xmlAttribute()]
      content = [],
      language = "",    % string()
      xmlbase="",           % string() XML Base path, for relative URI:s
      elementdef=undeclared % atom(), one of [undeclared | prolog | external | element]
     }).

%% plain text
%% IOlist = [char() | binary () | IOlist]
-record(xmlText,{
      parents = [],    % [{atom(),integer()}]
      pos,        % integer()
      language = [],% inherits the element's language
      value,    % IOlist()
      type = text   % atom() one of (text|cdata)
     }).

%% plain text
-record(xmlComment,{
      parents = [],  % [{atom(),integer()}]
      pos,             % integer()
      language = [], % inherits the element's language
      value             % IOlist()
     }).

%% processing instruction
-record(xmlPI,{
      name,        % atom()
      parents = [],    % [{atom(),integer()}]
      pos,        % integer()
      value        % IOlist()
     }).

-record(xmlDocument,{
      content
     }).


%% XPATH (xmerl_xpath, xmerl_pred_funcs) records

-record(xmlContext, {
             axis_type = forward,
             context_node,
             context_position = 1,
             nodeset = [],
             bindings = [],
             functions = [],
             namespace = [],
             whole_document
            }).

-record(xmlNode, {
          type = element,
          node,
          parents = [],
          pos = 1
         }).

-record(xmlObj, {
         type,
         value
         }).

-record(xmerl_fun_states, {event,
               hook,
               rules,
               fetch,
               cont}).


%% scanner state record
-record(xmerl_scanner,{
      encoding=undefined, % undefined | string() Character set used, default is UTF-8
      standalone = no,
%      prolog =continue,
      environment = prolog,    % atom(), (prolog | element)
      declarations = [],       % [{Name, Attrs}]
      doctype_name,
      doctype_DTD = internal, % internal | DTDId
      comments = true,
      document = false,
      default_attrs = false,
      rules,
      keep_rules = false,    % delete (ets) tab if false
      namespace_conformant = false, % true | false
      xmlbase,          % string() Current Base path, for relative URI:s
      xmlbase_cache,    % string() Cached Base path
      fetch_path=[], % [string()] List with additional, user
                         % defined, paths
      filename=file_name_unknown,
      validation = off, %% off (default) | dtd | schema (true, false are obsolete)
      schemaLocation = [],
      space = preserve,
      event_fun,
      hook_fun,
      acc_fun,
      fetch_fun,
      close_fun,
      continuation_fun,
      rules_read_fun,
      rules_write_fun,
      rules_delete_fun,
      user_state,
      fun_states = #xmerl_fun_states{},
      entity_references=[],
      text_decl=false,
      quiet=false,   % bool() Set to true will print no error messages
      col = 1,
      line = 1,
          common_data = []
     }).




%% scanner events

%% event : start | end
-record(xmerl_event, {
              event,
              line,
              col,
              pos,
              data
             }).



%% useful scanner macros
%% ---------------------

-define(space, 32).
-define(cr,    13).
-define(lf,    10).
-define(tab,   9).
%% whitespace consists of 'space', 'carriage return', 'line feed' or 'tab'
-define(whitespace(H), H==?space ; H==?cr ; H==?lf ; H==?tab).

%% non-caharacters according to Unicode: 16#ffff and 16#fffe
-define(non_character(H1,H2), H1==16#ff,H2==16#fe;H1==16#ff,H2==16#ff).

-define(non_ascii(H), list(H),hd(H)>=128;integer(H),H>=128).

-define(strip1,  {_, T1,  S1}  = strip(T,  S)).
-define(strip2,  {_, T2,  S2}  = strip(T1, S1)).
-define(strip3,  {_, T3,  S3}  = strip(T2, S2)).
-define(strip4,  {_, T4,  S4}  = strip(T3, S3)).
-define(strip5,  {_, T5,  S5}  = strip(T4, S4)).
-define(strip6,  {_, T6,  S6}  = strip(T5, S5)).
-define(strip7,  {_, T7,  S7}  = strip(T6, S6)).
-define(strip8,  {_, T8,  S8}  = strip(T7, S7)).
-define(strip9,  {_, T9,  S9}  = strip(T8, S8)).
-define(strip10, {_, T10, S10} = strip(T9, S9)).

-define(condstrip1,  {_, T1,  S1}  = condstrip(T, S, false)).
-define(condstrip2,  {_, T2,  S2}  = condstrip(T1,S1,false)).
-define(condstrip3,  {_, T3,  S3}  = condstrip(T2,S2,false)).
-define(condstrip4,  {_, T4,  S4}  = condstrip(T3,S3,false)).

-define(bump_col(N), 
    ?dbg("bump_col(~p), US = ~p~n", [N, S0#xmerl_scanner.user_state]),
    S = S0#xmerl_scanner{col = S0#xmerl_scanner.col + N}).

server.erl:

Код


-module(server).

-export([start/0, stop/0, hello/3]).

-include("xmerl.hrl").

-import(xmerl_xs,
    [ xslapply/2, value_of/1, select/2, built_in_rules/2 ]).

doctype() ->
    "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Transitional//EN\"\
        \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd \">".

start() ->
    run().

run() ->
    inets:start(),
    inets:start(httpd,
        [
            {modules, [
                mod_alias,
                mod_auth,
                mod_esi,
                mod_actions,
                mod_cgi,
                mod_dir,
                mod_get,
                mod_head,
                mod_log,
                mod_disk_log
            ]},
            {port, 8010},
            {server_name, "ewebserver"},
            {server_root, "C:/EWebServer"},
            {document_root, "C:/EWebServer"},
            {bind_address, any},
            {socket_type, ip_comm},
            {ipfamily, inet},
            {minimum_bytes_per_second, 1048586},
            {erl_script_alias, {"/erl", [server]}},
            {error_log, "error.log"},
            {security_log, "security.log"},
            {transfer_log, "transfer.log"},
            {mime_types, [
                {"html", "text/html"},
                {"css", "text/css"},
                {"js", "application/x-javascript"}
            ]}
        ]
    ).

stop() ->
    inets:stop().

hello(SessionID, _Env, _Input) ->
    XMLDoc = "hello.xml",
    { XMLContent, _ } = xmerl_scan:file(XMLDoc),
    TransformedXML = process_xml(XMLContent),
    mod_esi:deliver(SessionID, [TransformedXML] ).

process_xml(Doc) ->
    template(Doc).

template( E = #xmlElement{ name='root' } ) ->
    [
        "<\?xml version=\"1.0\" encoding=\"UTF-8\"\?>",
        doctype(),
        "<html xmlns=\"http://www.w3.org/1999/xhtml\" >"
        "<head>"
        "<title>Hello</title>"
        "</head>"
        "<body>",
        xslapply( fun template/1, E),
        "</body>"
        "</html>"
    ];

template(E)->
    built_in_rules( fun template/1, E).

hello.xml:

Код


<?xml version="1.0" encoding="utf-8" ?>
<root>
    <hello1>Hello newbie!!</hello1>
    <hello2>Hello, hello!!</hello2>
    <hello3>How are you?</hello3>
    <hello4>What are you doing now?</hello4>
</root>

В браузере соответственно http://localhost:8010/erl/server:hello

1. вроде бы все хорошо. Но если в браузере набрать http://localhost:8010/ - он выдаст список всего каталога, хотелось бы как-нить кошерно запретить это

2. {erl_script_alias, {"/erl", [server]}}, - в server.erl. Хочется более кошерно это сделать, но тож пока не до конца вкурил

Ну вот пока все что вспомнил. Мож кто поможет допатчить

--------------------

менеджер по кодеврайтингу smile

k0rvin

Дата 9.5.2013, 13:10 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 442
Регистрация: 24.1.2010

Репутация: нет
Всего: 5

Есть же Cowboy, зачем свой велосипед? Просто попрактиковаться?

--------------------

“Object-oriented design is the roman numerals of computing.” — Rob Pike
All software sucks

Bulat

Дата 9.5.2013, 18:56 (ссылка)

(нет голосов)

Загрузка ...

татарский Нео

Профиль
Группа: Завсегдатай
Сообщений: 1701
Регистрация: 22.3.2006
Где: Альметьевск

Репутация: нет
Всего: 57

k0rvin, ну во-первых, если ты хоть мало-мальски прочитал бы мой пост, то увидел бы, что я прикурчиваю к веб-серверу шаблонизатор xslt(правда малость модифицированный в вариации разработчиков самого ерланга), а ковбой использует ErlyDTL.

Во-вторых, новаторство и инновации еще никто никогда не отменял, ну по-крайней мере в адекватных фирмах и компаниях, и велосипед тут вообще не причем.

Фраза про велосипед - самая любимая фраза лентяев, без обид. Иногда просто самому приятно напрячь мозг и прикрутить какую-нить новую фичу, создать что-то новое, главное добиться чтобы это новое было действительно качественным. =)

--------------------

менеджер по кодеврайтингу smile

k0rvin

Дата 10.5.2013, 09:22 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 442
Регистрация: 24.1.2010

Репутация: нет
Всего: 5

Цитата(Bulat @ 9.5.2013, 18:56

)

k0rvin, ну во-первых, если ты хоть мало-мальски прочитал бы мой пост, то увидел бы, что я прикурчиваю к веб-серверу шаблонизатор xslt

Если бы ты потрудился это написать словами в посте, вопросов бы не было.

Цитата(Bulat @ 9.5.2013, 18:56

)

а ковбой использует ErlyDTL.

ErlyDTL к нему гвоздями прибит? Прикрутить к ковбою xslt так сложно, что проще написать свой веб-сервер?

Цитата(Bulat @ 9.5.2013, 18:56

)

Во-вторых, новаторство и инновации еще никто никогда не отменял, ну по-крайней мере в адекватных фирмах и компаниях, и велосипед тут вообще не причем.

А еще в адекватных фирмах и компаниях знают слова «code reuse».

Цитата(Bulat @ 9.5.2013, 18:56

)

Фраза про велосипед - самая любимая фраза лентяев

Ну так «лень — двигатель прогресса».

--------------------

“Object-oriented design is the roman numerals of computing.” — Rob Pike
All software sucks

Bulat

Дата 10.5.2013, 09:35 (ссылка)

(нет голосов)

Загрузка ...

татарский Нео

Профиль
Группа: Завсегдатай
Сообщений: 1701
Регистрация: 22.3.2006
Где: Альметьевск

Репутация: нет
Всего: 57

k0rvin, ты щас хочешь устроить холивар???

Пока все что я вижу - ты хочешь повыпендриваться, якобы показать свой ум. Ну так покажи его в строчках кода, а не в той фигне, что ты пишешь. Ок? А вместо зазубривания "умных терминов", вот как раз лучше бы научился делать что-то сам, самостоятельно своими руками....

P.S. И не нужно обижаться как девочка. Я создал свою тему, и жду ответов на свои вопросы, а свой "блестящий" демонстрируй пожалуйста в другом месте. =)

--------------------

менеджер по кодеврайтингу smile

k0rvin

Дата 12.5.2013, 09:50 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 442
Регистрация: 24.1.2010

Репутация: нет
Всего: 5