PrayerTracker/src/PrayerTracker.UI/Home.fs

/// Views associated with the home page, or those that don't fit anywhere else
module PrayerTracker.Views.Home

open System.IO
open Giraffe.ViewEngine
open PrayerTracker.ViewModels

/// The error page
let error code vi =
    let s   = I18N.localizer.Force ()
    let l   = I18N.forView "Home/Error"
    use sw  = new StringWriter ()
    let raw = rawLocText sw
    let is404 = "404" = code
    let pageTitle = if is404 then "Page Not Found" else "Server Error"
    [ yield!
        if is404 then
            [ p [] [
                raw l["The page you requested cannot be found."]
                raw l["Please use your “Back” button to return to {0}.", s["PrayerTracker"]]
              ]
              p [] [
                raw l["If you reached this page from a link within {0}, please copy the link from the browser's address bar, and send it to support, along with the group for which you were currently authenticated (if any).",
                        s["PrayerTracker"]]
              ]
            ]
        else
            [ p [] [
                raw l["An error ({0}) has occurred.", code]
                raw l["Please use your “Back” button to return to {0}.", s["PrayerTracker"]]
              ]
            ]
      br []
      hr []
      div [ _style "font-size:70%;font-family:-apple-system,BlinkMacSystemFont,'Segoe UI',Roboto,Oxygen-Sans,Ubuntu,Cantarell,'Helvetica Neue',sans-serif" ] [
          img [ _src $"""/img/%A{s["footer_en"]}.png"""
                _alt $"""%A{s["PrayerTracker"]} %A{s["from Bit Badger Solutions"]}"""
                _title $"""%A{s["PrayerTracker"]} %A{s["from Bit Badger Solutions"]}"""
                _style "vertical-align:text-bottom;" ]
          str vi.version
      ]
    ]
    |> div []
    |> Layout.bare pageTitle


/// The home page
let index vi =
    let s   = I18N.localizer.Force ()
    let l   = I18N.forView "Home/Index"
    use sw  = new StringWriter ()
    let raw = rawLocText sw

    [ p [] [
          raw l["Welcome to <strong>{0}</strong>!", s["PrayerTracker"]]
          space
          raw l["{0} is an interactive website that provides churches, Sunday School classes, and other organizations an easy way to keep up with their prayer requests.",
                s["PrayerTracker"]]
          space
          raw l["It is provided at no charge, as a ministry and a community service."]
      ]
      h4 [] [ raw l["What Does It Do?"] ]
      p [] [
          raw l["{0} has what you need to make maintaining a prayer request list a breeze.", s["PrayerTracker"]]
          space
          raw l["Some of the things it can do..."]
      ]
      ul [] [
          li [] [
              raw l["It drops old requests off the list automatically."]
              space
              raw l["Requests other than “{0}” requests will expire at 14 days, though this can be changed by the organization.",
                    s["Long-Term Requests"]]
              space
              raw l["This expiration is based on the last update, not the initial request."]
              space
              raw l["(And, once requests do “drop off”, they are not gone - they may be recovered if needed.)"]
          ]
          li [] [
              raw l["Requests can be viewed any time."]
              space
              raw l["Lists can be made public, or they can be secured with a password, if desired."]
          ]
          li [] [
              raw l["Lists can be e-mailed to a pre-defined list of members."]
              space
              raw l["This can be useful for folks who may not be able to write down all the requests during class, but want a list so that they can pray for them the rest of week."]
              space
              raw l["E-mails are sent individually to each person, which keeps the e-mail list private and keeps the messages from being flagged as spam."]
          ]
          li [] [
              raw l["The look and feel of the list can be configured for each group."]
              space
              raw l["All fonts, colors, and sizes can be customized."]
              space
              raw l["This allows for configuration of large-print lists, among other things."]
          ]
      ]
      h4 [] [ raw l["How Can Your Organization Use {0}?", s["PrayerTracker"]] ]
      p [] [
          raw l["Like God’s gift of salvation, {0} is free for the asking for any church, Sunday School class, or other organization who wishes to use it.",
                s["PrayerTracker"]]
          space
          raw l["If your organization would like to get set up, just <a href=\"mailto:daniel@djs-consulting.com?subject=New%20{0}%20Class\">e-mail</a> Daniel and let him know.",
                s["PrayerTracker"]]
      ]
      h4 [] [ raw l["Do I Have to Register to See the Requests?"] ]
      p [] [
          raw l["This depends on the group."]
          space
          raw l["Lists can be configured to be password-protected, but they do not have to be."]
          space
          raw l["If you click on the “{0}” link above, you will see a list of groups - those that do not indicate that they require logging in are publicly viewable.",
                s["View Request List"]]
      ]
      h4 [] [ raw l["How Does It Work?"] ]
      p [] [
          raw l["Check out the “{0}” link above - it details each of the processes and how they work.", s["Help"]]
      ]
    ]
    |> Layout.Content.standard
    |> Layout.standard vi "Welcome!"


/// Privacy Policy page
let privacyPolicy vi =
    let s   = I18N.localizer.Force ()
    let l   = I18N.forView "Home/PrivacyPolicy"
    use sw  = new StringWriter ()
    let raw = rawLocText sw

    [ p [ _class "pt-right-text" ] [ small [] [ em [] [ raw l["(as of July 31, 2018)"] ] ] ]
      p [] [
          raw l["The nature of the service is one where privacy is a must."]
          space
          raw l["The items below will help you understand the data we collect, access, and store on your behalf as you use this service."]
        ]
      h3 [] [ raw l["What We Collect"] ]
      ul [] [
          li [] [
              strong [] [ raw l["Identifying Data"] ]
              rawText " &ndash; "
              raw l["{0} stores the first and last names, e-mail addresses, and hashed passwords of all authorized users.",
                    s["PrayerTracker"]]
              space
              raw l["Users are also associated with one or more small groups."]
          ]
          li [] [
              strong [] [ raw l["User Provided Data"] ]
              rawText " &ndash; "
              raw l["{0} stores the text of prayer requests.", s["PrayerTracker"]]
              space
              raw l["It also stores names and e-mail addreses of small group members, and plain-text passwords for small groups with password-protected lists."]
          ]
      ]
      h3 [] [ raw l["How Your Data Is Accessed / Secured"] ]
      ul [] [
          li [] [
              raw l["While you are signed in, {0} utilizes a session cookie, and transmits that cookie to the server to establish your identity.",
                    s["PrayerTracker"]]
              space
              raw l["If you utilize the “{0}” box on sign in, a second cookie is stored, and transmitted to establish a session; this cookie is removed by clicking the “{1}” link.",
                    s["Remember Me"], s["Log Off"]]
              space
              raw l["Both of these cookies are encrypted, both in your browser and in transit."]
              space
              raw l["Finally, a third cookie is used to maintain your currently selected language, so that this selection is maintained across browser sessions."]
          ]
          li [] [
              raw l["Data for your small group is returned to you, as required, to display and edit."]
              space
              raw l["{0} also sends e-mails on behalf of the configured owner of a small group; these e-mails are sent from prayer@djs-consulting.com, with the “Reply To” header set to the configured owner of the small group.",
                    s["PrayerTracker"]]
              space
              raw l["Distinct e-mails are sent to each user, as to not disclose the other recipients."]
              space
              raw l["On the server, all data is stored in a controlled-access database."]
          ]
          li [] [
              raw l["Your data is backed up, along with other Bit Badger Solutions hosted systems, in a rolling manner; backups are preserved for the prior 7 days, and backups from the 1st and 15th are preserved for 3 months."]
              space
              raw l["These backups are stored in a private cloud data repository."]
          ]
          li [] [
              raw l["Access to servers and backups is strictly controlled and monitored for unauthorized access attempts."]
          ]
      ]
      h3 [] [ raw l["Removing Your Data"] ]
      p [] [
          raw l["At any time, you may choose to discontinue using {0}; just e-mail Daniel, as you did to register, and request deletion of your small group.",
                s["PrayerTracker"]]
        ]
      ]
    |> Layout.Content.standard
    |> Layout.standard vi "Privacy Policy"


/// Terms of Service page
let termsOfService vi =
    let s      = I18N.localizer.Force ()
    let l      = I18N.forView "Home/TermsOfService"
    use sw     = new StringWriter ()
    let raw    = rawLocText sw
    let ppLink =
        a [ _href "/web/legal/privacy-policy" ] [ str (s["Privacy Policy"].Value.ToLower ()) ]
        |> renderHtmlString

    [ p [ _class "pt-right-text" ] [ small [] [ em [] [ raw l["(as of May 24, 2018)"] ] ] ]
      h3 [] [ str "1. "; raw l["Acceptance of Terms"] ]
      p [] [
          raw l["By accessing this web site, you are agreeing to be bound by these Terms and Conditions, and that you are responsible to ensure that your use of this site complies with all applicable laws."]
          space
          raw l["Your continued use of this site implies your acceptance of these terms."]
      ]
      h3 [] [ str "2. "; raw l["Description of Service and Registration"] ]
      p [] [
          raw l["{0} is a service that allows individuals to enter and amend prayer requests on behalf of organizations.",
                s["PrayerTracker"]]
          space
          raw l["Registration is accomplished via e-mail to Daniel Summers (daniel at bitbadger dot solutions, substituting punctuation)."]
          space
          raw l["See our {0} for details on the personal (user) information we maintain.", ppLink]
      ]
      h3 [] [ str "3. "; raw l["Liability"] ]
      p [] [
          raw l["This service is provided “as is”, and no warranty (express or implied) exists."]
          space
          raw l["The service and its developers may not be held liable for any damages that may arise through the use of this service."]
      ]
      h3 [] [ str "4. "; raw l["Updates to Terms"] ]
      p [] [
          raw l["These terms and conditions may be updated at any time."]
          space
          raw l["When these terms are updated, users will be notified by a system-generated announcement."]
          space
          raw l["Additionally, the date at the top of this page will be updated."]
      ]
      hr []
      p [] [ raw l["You may also wish to review our {0} to learn how we handle your data.", ppLink] ]
    ]
    |> Layout.Content.standard
    |> Layout.standard vi "Terms of Service"


/// View for unauthorized page
let unauthorized vi =
    let s   = I18N.localizer.Force ()
    let l   = I18N.forView "Home/Unauthorized"
    use sw  = new StringWriter ()
    let raw = rawLocText sw
    [ p [] [
          raw l["If you feel you have reached this page in error, please <a href=\"mailto:daniel@djs-consulting.com?Subject={0}%20Unauthorized%20Access\">contact Daniel</a> and provide the details as to what you were doing (i.e., what link did you click, where had you been, etc.).",
                s["PrayerTracker"]]
      ]
      p [] [
          raw l["Otherwise, you may select one of the links above to get back into an authorized portion of {0}.",
                s["PrayerTracker"]]
      ]
    ]
    |> Layout.Content.standard
    |> Layout.standard vi "Unauthorized Access"