Erlang/OTP Forums

action="module:function"

out( A ) ->
    PageMenu = get_page_by_id( hd( string:tokens( A#arg.appmoddata, "/" ))),
    _H = A#arg.headers,
     show_page( PageMenu, A, [] ).

show_page( PageMenu, A, Extra ) when is_record( PageMenu, menuitem ) ->
    Content  = get_page_content( PageMenu, A, Extra ),
    [
     header_render( A, [{title,"Hello World"}]),
     sitenav_render(),
     banner_render( PageMenu, A ),
     topnav_render( PageMenu ),
     page_render( "", Content, ""),
     footer_render( PageMenu, A )
    ].


%% ---->

get_page_content( PageMenu, A, Bindings ) ->
    PageBase = "../pages/"++ atom_to_list( PageMenu#menuitem.page ) ++ ".",
    case lists:filter(
       fun( E ) -> filelib:is_file( nu:f("~s~s",[PageBase,E])) end,
       ['erl','yaws','html']) of
    %% No file, show a small error message!
    [] ->
        nu:f("NO MATCHING FILE!~n",[]),
        yaws_api:f("<span style='#c00'>No page! => ~s</span>", [PageBase]);
    %% ..else decide how to render it based on type
    [Extension] ->
        nu:f("PAGE EXT! ~s", [Extension]),
        case Extension of
        'erl' ->  (PageMenu#menuitem.page):render( PageMenu, A, Bindings );
        'yaws' ->
            YawsPage = lists:flatten( nu:f("~s~s", [PageBase, Extension])),
            io:fwrite("YAWS PAGE: ~s~n", [YawsPage]),
            {yssi, YawsPage};
        'html' -> {ssi, nu:f("HTML PAGE: TBD",[]), "::", Bindings}
        end
    end.

<erl>
out(A)->
    Page = controller:get_page_by_name( contact ),
    Data = yaws_api:parse_post(A),
    Errors = lists:flatten(
           [
        case nu:form_ensure( A, subject, undefined ) of
            undefined ->
            {subject, "Please enter the subject text."};
            _Else -> []
        end,
        case nu:form_ensure( A, email, undefined ) of
            undefined ->
            {email, "Please enter a valid email address."};
            _Else -> []
        end,
        case nu:form_ensure( A, message, undefined ) of
            undefined ->
            {message, "Please enter some message text."};
            _Else -> []
        end
           ]),
    if
    length(Errors) == 0 ->
        io:fwrite("DECENT DATA!, MAIL IT & SHOW STATUS PAGE~n",[]),
        {ehtml,
         {p, [], "TO BE DONE"}}
        ;
    true ->
        %%
        %% Re-display the contact page but pass it the
        %% error message information as well as ensuring
        %% it re-populates any data that was entered.
        %%
        contact:render( Page, A,
                [
                 {errors, Errors},
                 {fields,
                  [
                   {subject, nu:form_ensure(A, subject, undefined)},
                   {email,   nu:form_ensure(A, email, undefined)},
                   {message, nu:form_ensure(A, message, undefined)}
                  ]
                 }
                ]
               )
    end.

</erl>

=ERROR REPORT==== 12-Aug-2007::08:12:46 ===
Yaws process died: {function_clause,
[{yaws_server,binary_size,[0,{h1,[],"CONTACT"}]},
{yaws_server,binary_size,2},
{yaws_server,deliver_accumulated,5},
{yaws_server,finish_up_dyn_file,2},
{yaws_server,aloop,3},
{yaws_server,acceptor0,2},                       {proc_lib,init_p,5}]}

<form action="/f/module:function"...