module Main where

-- MITSFS iPhone schedule pretty-printer
-- Copyright (C) 2008 Brian Sniffen

-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.

-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-- GNU General Public License for more details.

-- You should have received a copy of the GNU General Public License along
-- with this program; if not, write to the Free Software Foundation, Inc.,
-- 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

import Data.Maybe (fromJust)
import Network.HTTP
import Network.URI
import Network.CGI

import Model
import Printer
import Parser
import GetURL

cgiMain :: CGI CGIResult
cgiMain = do
  args <- getInput "uri"
  r <- liftIO $ readFrom $ case args of
                             Nothing -> defaultURL
                             Just url -> url
  output $ htmlify $ schedule r

main :: IO ()
main = runCGI (handleErrors cgiMain)