www/yman.yaws


<erl>

prebox(Str) ->
    {'div',[{class,"man"}],
     {pre,[], yaws_api:htmlize(Str)}}.


out(A) -> 
    H = {ssi, "TAB.inc", [],[]},
    L = case queryvar(A,"page") of
            {ok, Page} ->
                %% only allow regular chars in Page
                case lists:all(fun(C) ->
                                       if
                                           $a =< C, C =< $z ->
                                               true;
                                           $A =< C, C =< $Z ->
                                               true;
                                           C == $_ ->
                                               true;
                                           C == $. ->
                                               true;
                                           true ->
                                               false
                                       end
                               end, Page) of
                    true ->
			%os:cmd("man  " ++ Page ++ "  | col -b -p -x");
			unesc(os:cmd("man " ++ Page));
                    false ->
                        "illegal character detected in query arg"
                end;
            undefined ->
                "no man page found in query arg "
        end,
        
    Man = {ehtml, {'div', [{id, "entry"}], prebox(L)}},
    Trail = {ssi, "END2",[],[]},
    [H, Man, Trail].


unesc([27 | T]) ->
    unesc(uptom(T));
unesc([H|T]) ->
    [H|unesc(T)];
unesc([]) ->	     
    [].
	     
uptom([$m|T]) ->
    T;
uptom([H|T]) ->
    uptom(T);
uptom([]) ->
    [].


</erl>