summaryrefslogblamecommitdiff
path: root/lib/web/controllers/irc_controller.ex
blob: d2ba04a517e0582a8b6bd0377175cc8d68cd869a (plain) (tree)
1
2
3
4
5
6
7
8
9

                                  
 
                          


                                        
                                                                          
                                                                                        
                        
                                                                       

                                   
       

                                           
                     
                                                                                                                                      
             
                                                        

                                                                                                       

     
                                     












                                             

       

                                         
 
                           
                                
                 


                                                                                                            

                            
                                                                                                       



                           
                      
                                                                                                 

                  





                                                      


                                                           
                                                             


                        
                          



                
                                                               



                                      
                                            
















                                
defmodule NolaWeb.IrcController do
  use NolaWeb, :controller

  plug NolaWeb.ContextPlug

  def index(conn, params) do
    network = Map.get(params, "network")
    channel = if c = Map.get(params, "chan"), do: NolaWeb.reformat_chan(c)
    commands = for mod <- Enum.uniq([Nola.Plugins.Account] ++ Nola.Plugins.enabled()) do
      if is_atom(mod) do
        identifier = Module.split(mod) |> List.last |> Macro.underscore
        {identifier, mod.irc_doc()}
      end
    end
    |> Enum.filter(& &1)
    |> Enum.filter(fn({_, doc}) -> doc end)
    members = cond do
      network && channel -> Enum.map(Nola.UserTrack.channel(network, channel), fn(tuple) -> Nola.UserTrack.User.from_tuple(tuple) end)
      true ->
        Nola.Membership.of_account(conn.assigns.account)
    end
    render conn, "index.html", network: network, commands: commands, channel: channel, members: members
  end

  def txt(conn, %{"name" => name}) do
    if String.contains?(name, ".txt") do
      name = String.replace(name, ".txt", "")
      data = data()
      if Map.has_key?(data, name) do
        lines = Enum.join(data[name], "\n")
        text(conn, lines)
      else
        conn
        |> put_status(404)
        |> text("Not found")
      end
    else
      do_txt(conn, name)
    end
  end
  def txt(conn, _), do: do_txt(conn, nil)


  defp do_txt(conn, nil) do
    doc = Nola.IRC.Txt.irc_doc()
    data = data()
    main = Enum.filter(data, fn({trigger, _}) -> !String.contains?(trigger, ".") end) |> Enum.into(Map.new)
    system = Enum.filter(data, fn({trigger, _}) -> String.contains?(trigger, ".") end) |> Enum.into(Map.new)
    lines = Enum.reduce(main, 0, fn({_, lines}, acc) -> acc + Enum.count(lines) end)
    conn
    |> assign(:title, "txt")
    |> render("txts.html", data: main, doc: doc, files: Enum.count(main), lines: lines, system: system)
  end

  defp do_txt(conn, txt) do
    data = data()
    base_url = cond do
      conn.assigns[:chan] -> "/#{conn.assigns.network}/#{NolaWeb.format_chan(conn.assigns.chan)}"
      true -> "/-"
    end
    if lines = Map.get(data, txt) do
      lines = Enum.map(lines, fn(line) ->
        line
        |> String.split("\\\\")
        |> Enum.intersperse(Phoenix.HTML.Tag.tag(:br))
      end)
      conn
      |> assign(:breadcrumbs, [{"txt", "#{base_url}/txt"}])
      |> assign(:title, "#{txt}.txt")
      |> render("txt.html", name: txt, data: lines, doc: nil)
    else
      conn
      |> put_status(404)
      |> text("Not found")
    end
  end

  defp data() do
    dir = Application.get_env(:nola, :data_path) <> "/irc.txt/"
    Path.wildcard(dir <> "/*.txt")
    |> Enum.reduce(%{}, fn(path, m) ->
      path = String.split(path, "/")
      file = List.last(path)
      key = String.replace(file, ".txt", "")
      data = dir <> file
      |> File.read!
      |> String.split("\n")
      |> Enum.reject(fn(line) ->
        cond do
          line == "" -> true
          !line -> true
          true -> false
        end
      end)
      Map.put(m, key, data)
    end)
    |> Enum.sort
    |> Enum.into(Map.new)
  end

end