-
+
@@ -33,6 +34,33 @@
ResXFileCodeGenerator
+
+ ResXFileCodeGenerator
+
+
+ ResXFileCodeGenerator
+
+
+ ResXFileCodeGenerator
+
+
+ ResXFileCodeGenerator
+
+
+ ResXFileCodeGenerator
+
+
+ ResXFileCodeGenerator
+
+
+ ResXFileCodeGenerator
+
+
+ ResXFileCodeGenerator
+
+
+ ResXFileCodeGenerator
+
ResXFileCodeGenerator
diff --git a/src/PrayerTracker.UI/Resources/Common.es.resx b/src/PrayerTracker.UI/Resources/Common.es.resx
index 05602d1..b8620ad 100644
--- a/src/PrayerTracker.UI/Resources/Common.es.resx
+++ b/src/PrayerTracker.UI/Resources/Common.es.resx
@@ -882,4 +882,40 @@
Este Usuario Es un Administrador de {0}
+
+ Ayuda de SeguidorOración
+
+
+ Haga Clic para Cerrar Esta Ventana
+
+
+ Cerrar Esta Ventana
+
+
+ Índice de Ayuda
+
+
+ Volver al Índice de Ayuda
+
+
+ Agregar o Editar una Petición
+
+
+ Peticiones de Búsqueda
+
+
+ Expirar un Petición
+
+
+ Restaurar un Petición Inactiva
+
+
+ Correo Electrónico “De” Nombre y Dirección
+
+
+ Fuentes de la Lista
+
+
+ Realización de una Lista de “Letra Grande”
+
\ No newline at end of file
diff --git a/src/PrayerTracker.UI/Resources/Views/Help/Index.es.resx b/src/PrayerTracker.UI/Resources/Views/Help/Index.es.resx
new file mode 100644
index 0000000..7525a15
--- /dev/null
+++ b/src/PrayerTracker.UI/Resources/Views/Help/Index.es.resx
@@ -0,0 +1,70 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ text/microsoft-resx
+
+
+ 2.0
+
+
+ System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ En todo el sistema, verá un icono (un signo de interrogación en un círculo) junto al título de cada página.
+
+
+ Al hacer clic en esta opción, se abrirá una nueva y pequeña ventana con instrucciones sobre cómo usar esa página.
+
+
+ Si está buscando una descripción rápida de SeguidorOración, comience con las entradas “Agregar o Editar una Petición” y “Cambiar las Preferencias”.
+
+
\ No newline at end of file
diff --git a/src/PrayerTracker.UI/Resources/Views/Help/Requests/Edit.es.resx b/src/PrayerTracker.UI/Resources/Views/Help/Requests/Edit.es.resx
new file mode 100644
index 0000000..113f9fb
--- /dev/null
+++ b/src/PrayerTracker.UI/Resources/Views/Help/Requests/Edit.es.resx
@@ -0,0 +1,133 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ text/microsoft-resx
+
+
+ 2.0
+
+
+ System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ Esta página le permite introducir o actualizar una petición de oración nueva.
+
+
+ Hay 5 tipos de peticiones en SeguidorOración.
+
+
+ “Peticiones Actuales” son sus peticiones habituales que la gente pueda tener acerca de las cosas que suceden durante la próxima semana o así.
+
+
+ “Peticiones a Largo Plazo” son peticiones que pueden ocurrir varias veces, o continuar indefinidamente.
+
+
+ “Informes de Alabanza” son como “Peticiones Actuales”, pero son respuestas a la oración para compartir con su grupo.
+
+
+ “Embarazada” es para aquellos que están embarazadas.
+
+
+ “Anuncios” son como “Peticiones Actuales”, pero en lugar de una petición, simplemente se pasa la información a lo largo de algo por venir.
+
+
+ El orden anterior es el orden en que los tipos de peticiones aparecen en la lista.
+
+
+ “Peticiones a Largo Plazo” y “Embarazada” no están sujetos a la caducidad automática (establecida en el “Cambiar las Preferencias” de la página) que las peticiones son otros.
+
+
+ Para nuevas peticiones, se trata de una caja con un selector de fechas del calendario.
+
+
+ Haga clic en la pestaña o en la caja para mostrar el calendario, que será preseleccionada para la fecha de hoy.
+
+
+ Para peticiones existentes, habrá una casilla de verificación “Seleccionar para no actualizar la fecha”.
+
+
+ Esto puede ser usado si corrige la ortografía ni la puntuacion, y no tienen una actualización real de hacer la petición.
+
+
+ Para las peticiones o alabanzas, este campo es el nombre de la persona que hizo la petición o que ofrece el informe de alabanza.
+
+
+ Para los anuncios, este debe contener el objeto del anuncio.
+
+
+ Para todos los tipos, es opcional, yo solía tener un anuncio con ningún tema que iba todas las semanas, diciendo a dónde enviar peticiones y actualizaciones.
+
+
+ “Expirará Normalmente” significa que la petición está sujeta a los días de vencimiento de las preferencias del grupo.
+
+
+ “Petición no Expira Nunca” se puede utilizar para hacer una petición que no caduque nunca (nótese que esto es redundante para los tipos “Peticiones a Largo Plazo” y “Embarazada”).
+
+
+ Si está editando una petición existente, aparece una tercera opción.
+
+
+ “Expirará Inmediatamente” hará que la petición expirará cuando se guarda.
+
+
+ Aparte de los iconos de la página de mantenimiento de las peticiones, ésta es la única otra forma de expirar peticiones del tipos “Peticiones a Largo Plazo” y “Embarazada”, pero puede ser utilizada para cualquier tipo de petición.
+
+
+ Este es el texto de la petición.
+
+
+ El editor ofrece muchas capacidades de formato, como "El Corrector Ortográfico al Escribir" (habilitado predeterminado), "Pegar desde Word" y "Pegar sin formato", así como "Código Fuente" punto de vista, si quieres editar el código HTML usted mismo.
+
+
+ También es compatible con deshacer y rehacer, y el editor soporta modo de pantalla completa. Pase el ratón sobre cada icono para ver qué hace cada botón.
+
+
\ No newline at end of file
diff --git a/src/PrayerTracker.UI/Resources/Views/Help/Requests/Maintain.es.resx b/src/PrayerTracker.UI/Resources/Views/Help/Requests/Maintain.es.resx
new file mode 100644
index 0000000..8b6483b
--- /dev/null
+++ b/src/PrayerTracker.UI/Resources/Views/Help/Requests/Maintain.es.resx
@@ -0,0 +1,112 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ text/microsoft-resx
+
+
+ 2.0
+
+
+ System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ Desde esta página, usted puede agregar, editar y borrar sus peticiones actuales.
+
+
+ También puede restaurar peticiones que han caducado, sino que debe ser activa, una vez más.
+
+
+ Para agregar una petición, haga clic en el icono o el texto en el centro de la página, debajo del título y por encima de la lista de peticiones para su grupo.
+
+
+ Si está buscando una solicitud en particular, ingrese un texto en el cuadro de búsqueda y haga clic en “Buscar”.
+
+
+ SeguidorOración buscará los campos de Solicitante / Asunto y Texto de solicitud (sin distinción de mayúsculas y minúsculas) de solicitudes activas e inactivas.
+
+
+ Los resultados se mostrarán en el mismo formato que la página de solicitudes de mantenimiento original, por lo que los botones que se describen a continuación funcionarán igual para esas solicitudes.
+
+
+ También se mostrarán en las páginas, si hay muchos resultados; el número por página es configurable por grupos pequeños.
+
+
+ Para editar una petición, haga clic en el icono de lápiz, el primer icono bajo el título de columna “Acciones”.
+
+
+ Para las peticiones activas, el segundo icono es un ojo con una barra a través de él; Si hace clic en este icono, la petición se cancelará inmediatamente.
+
+
+ Esto equivale a editar la petición, seleccionar "Expirará Inmediatamente" y guardarla.
+
+
+ Cuando la página se muestra por primera vez, que no muestra peticiones inactivos.
+
+
+ Sin embargo, al hacer clic en el vínculo en la parte inferior de la página se actualizará la página con las peticiones se muestran inactivos.
+
+
+ El icono del centro se verá como un ojo; Haciendo clic en él, restaurará la petición como una petición activa.
+
+
+ La última fecha actualizada será actual, y la petición se establece para caducar normalmente.
+
+
+ Eliminación de una petición es contraria a la intención de SeguidorOración, como se puede recuperar peticiones que han expirado.
+
+
+ Sin embargo, si hay una solicitud que debe ser eliminado, haga clic en el icono de la papelera en la columna “Acciones” le permitirá hacerlo.
+
+
+ Utilice esta opción con cuidado, ya que estas supresiones no se puede deshacer, una vez a la petición se ha borrado, ha desaparecido para siempre.
+
+
\ No newline at end of file
diff --git a/src/PrayerTracker.UI/Resources/Views/Help/Requests/View.es.resx b/src/PrayerTracker.UI/Resources/Views/Help/Requests/View.es.resx
new file mode 100644
index 0000000..80bbb4e
--- /dev/null
+++ b/src/PrayerTracker.UI/Resources/Views/Help/Requests/View.es.resx
@@ -0,0 +1,94 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ text/microsoft-resx
+
+
+ 2.0
+
+
+ System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ Desde esta página, puede ver la lista de peticiones (para hoy o para el próximo Domingo), ver una versión imprimible de la lista, y por correo electrónico la lista de los miembros de su grupo.
+
+
+ (NOTA: Si usted está registrado como miembro de la clase, la única opción que se ve es para ver una lista para imprimir.)
+
+
+ Esto modificará la fecha de la lista, por lo que se verá como es en la actualidad el próximo Domingo.
+
+
+ Esto puede ser usado, por ejemplo, para ver lo que peticiones de caducidad, ni le permite imprimir una lista con la fecha del Domingo en la noche del Sábado.
+
+
+ Tenga en cuenta que este enlace no aparece si es Domingo.
+
+
+ Hacer clic en este vínculo, se muestra la lista en un formato que sea adecuado para imprimir, sino que no tiene el encabezado normal de SeguidorOración en la parte superior.
+
+
+ Una vez que haya hecho clic en el enlace, se puede imprimir con el navegador estándar de “Imprimir” funcionalidad.
+
+
+ Al hacer clic en este enlace le enviará la lista que está viendo en ese momento a los miembros del grupo.
+
+
+ La página te recordará que estás a punto de hacerlo, y pedir su confirmación.
+
+
+ Si continúa, usted verá una página que muestra a la que la lista fue enviado, y lo que la lista parecía.
+
+
+ Usted puede utilizar con seguridad de su navegador botón “Atrás” para navegar fuera de la página.
+
+
\ No newline at end of file
diff --git a/src/PrayerTracker.UI/Resources/Views/Help/SmallGroup/Announcement.es.resx b/src/PrayerTracker.UI/Resources/Views/Help/SmallGroup/Announcement.es.resx
new file mode 100644
index 0000000..5097654
--- /dev/null
+++ b/src/PrayerTracker.UI/Resources/Views/Help/SmallGroup/Announcement.es.resx
@@ -0,0 +1,73 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ text/microsoft-resx
+
+
+ 2.0
+
+
+ System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ Este es el texto del anuncio que desea enviar.
+
+
+ Funciona de la misma forma que el cuadro de texto en <a href="../requests/edit#request">la página “Editar la Petición”</a>.
+
+
+ Sin esta caja marcada, el texto del anuncio sólo será por correo electrónico a los miembros del su grupo.
+
+
+ Si marca esta caja, sin embargo, el texto del anuncio será añadido a su lista de oración en la sección que ha seleccionado.
+
+
\ No newline at end of file
diff --git a/src/PrayerTracker.UI/Resources/Views/Help/SmallGroup/Members.es.resx b/src/PrayerTracker.UI/Resources/Views/Help/SmallGroup/Members.es.resx
new file mode 100644
index 0000000..4d879b8
--- /dev/null
+++ b/src/PrayerTracker.UI/Resources/Views/Help/SmallGroup/Members.es.resx
@@ -0,0 +1,82 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ text/microsoft-resx
+
+
+ 2.0
+
+
+ System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ Desde esta página, usted puede agregar, editar y eliminar las direcciones de correo electrónico para su grupo.
+
+
+ Para agregar una dirección de correo electrónico, haga clic en el icono o el texto en el centro de la página, debajo del título y por encima de la lista de direcciones para su grupo.
+
+
+ Para editar una dirección de correo electrónico, haga clic en el icono de lápiz, es el primer icono bajo el título de columna “Acciones”.
+
+
+ Esto le permitirá actualizar el nombre y / o la dirección de correo electrónico para ese miembro.
+
+
+ Para eliminar una dirección de correo electrónico, haga clic en el icono de la papelera en la columna “Acciones”.
+
+
+ Tenga en cuenta que una vez que la dirección de correo electrónico se ha eliminado, se ha ido.
+
+
+ (Por supuesto, si usted lo elimine por error, se puede entrar de nuevo utilizando la opción “Agregar” instrucciones de arriba.)
+
+
\ No newline at end of file
diff --git a/src/PrayerTracker.UI/Resources/Views/Help/SmallGroup/Preferences.es.resx b/src/PrayerTracker.UI/Resources/Views/Help/SmallGroup/Preferences.es.resx
new file mode 100644
index 0000000..da99900
--- /dev/null
+++ b/src/PrayerTracker.UI/Resources/Views/Help/SmallGroup/Preferences.es.resx
@@ -0,0 +1,205 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ text/microsoft-resx
+
+
+ 2.0
+
+
+ System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ Esta página le permite cambiar la forma en que su lista de peticiones de la oración se ve y se comporta.
+
+
+ Cada sección se aborda más adelante.
+
+
+ Cuando una petición regular va esta cantidad de días sin actualizar, caduca y ya no aparece en la lista de peticiones.
+
+
+ Tenga en cuenta que las categorías “Peticiones a Largo Plazo” y “Embarazada” no expirará automáticamente.
+
+
+ Peticiones que han sido actualizadas dentro de esta cantidad de días se identifican por un círculo hueco para su bala, en oposición a un círculo relleno para otras peticiones.
+
+
+ Todas las categorías respetar esta opción.
+
+
+ Si usted hace una corrección de errata en una petición, si no marque la caja para actualizar la fecha, este valor va a cambiar la bala.
+
+
+ (NOTA: En el texto sin formato de correo electrónico, las nuevas solicitudes se identifican con un símbolo “+”, y pide a los viejos se identifican con un símbolo “-”.)
+
+
+ Peticiones que no han sido actualizados en esta semana muchos se identifican con un tipo de letra cursiva en la página “Mantener las Peticiones”, para recordarle que debe buscar novedades en estas peticiones para que vuestras oraciones pueden permanecer relevante y actual.
+
+
+ De forma predeterminada, las solicitudes se ordenan dentro de cada grupo por la última fecha de actualización, con el más reciente en la parte superior.
+
+
+ Si prefiere tener la lista ordenada por el solicitante o el sujeto en vez de por fecha, seleccione “Ordenar por Nombre del Solicitante” en su lugar.
+
+
+ SeguidorOración debe poner el nombre y la dirección de correo electrónico en el “de” posición de cada correo electrónico que envía.
+
+
+ El nombre predeterminado es “PrayerTracker”, y el valor predeterminado dirección de correo electrónico es “prayer@bitbadger.solutions”.
+
+
+ Esto funciona, pero los mensajes devueltos, y las respuestas de fuera de la oficina serán enviados a esa dirección (que no es ni siquiera una dirección real).
+
+
+ Cambiar por lo menos la dirección de correo electrónico a su dirección se asegurará de que usted recibe estos correos electrónicos, y se puede podar su lista de correo electrónico en consecuencia.
+
+
+ Este es el valor predeterminado formato de correo electrónico para su grupo.
+
+
+ El valor predeterminado de SeguidorOración es HTML, el cual envía la lista al igual que usted lo ve en el sitio.
+
+
+ Sin embargo, algunos clientes de correo electrónico no puede mostrar esto correctamente, para que pueda elegir el correo electrónico a un formato de texto plano predeterminadas, que no tiene colores, cursiva, u otro formato.
+
+
+ La configuración en esta página es el valor predeterminado del grupo, se puede seleccionar un formato para cada destinatario de la página “Mantener los Miembros del Grupo”.
+
+
+ Usted puede personalizar los colores que se utilizan para las partidas y líneas en su lista de peticiones.
+
+
+ Puede seleccionar uno de los 16 colores con nombre en las listas desplegables, o puede “mezclar su propia” en colores rojo, verde y azul (RGB) valores entre 0 y 255.
+
+
+ Hay un enlace en la parte inferior de la página para una lista de colores con más nombres y sus valores RGB, si realmente estás sintiendo artística.
+
+
+ El color de fondo no puede ser cambiado.
+
+
+ Hay dos opciones para las fuentes que se utilizarán en la lista de peticiones de oración.
+
+
+ “Fuentes Nativas” utiliza una lista de fuentes que representarán las peticiones de oración en la mejor fuente disponible para su dispositivo, ya sea una computadora de escritorio o portátil, un dispositivo móvil o una tableta.
+
+
+ (Este es el valor predeterminado para los nuevos grupos pequeños).
+
+
+ “Fuentes con Nombre” utiliza una lista de fuentes separadas por comas que usted especifica.
+
+
+ Una advertencia de que es bueno aquí, sólo porque usted tiene una fuente oscura y gusta la forma en que se vea no significa que los demás tienen de que la misma fuente.
+
+
+ Generalmente es mejor quedarse con las fuentes que vienen con Windows - Fuentes como “Arial”, “Times New Roman”, “Tahoma”, y “Comic Sans MS”.
+
+
+ También debe poner fin a la lista de fuentes, ya sea con “serif” o el “sans-serif”, que utilizará el fuente serif predeterminado (como “Times New Roman”) o el fuente sans-serif predeterminado (como “Arial”).
+
+
+ Este es el tamaño de punto a utilizar para cada uno.
+
+
+ El valor predeterminado para el título es 16 puntos, y el valor por defecto para el texto es 12 puntos.
+
+
+ Si el grupo está compuesta en su mayoría de la gente que prefiere letras grandes, los siguientes ajustes harán que su lista de parecerse a la típica la publicación “Letra Grande”:
+
+
+ Fuentes con Nombre: "Times New Roman",serif
+
+
+ La lista de peticiones del grupo puede ser pública, privada o protegida por contraseña.
+
+
+ Las listas públicas están disponibles sin iniciar sesión, y listas privadas sólo están disponibles en línea a los administradores (aunque la lista todavía puede ser enviado por correo electrónico por el administrador).
+
+
+ Protegidos con contraseña listas permiten miembros del grupo iniciar sesión y ver la lista de peticiones actual en el sito, utilizando el "Iniciar Sesión como Grupo" enlace y proporcionar la contraseña.
+
+
+ Como se trata de una contraseña compartida, se almacena en texto plano, así que usted puede ver fácilmente lo que es.
+
+
+ Si selecciona "Protegido por Contraseña" pero no introduce una contraseña, la lista sigue siendo privado, que también es el valor predeterminado.
+
+
+ (Cambiar esta contraseña obligará a todos los miembros del grupo que se iniciar sesión en el "Acuérdate de Mí" caja marcada para proporcionar la nueva contraseña.)
+
+
+ Esta es la zona horaria que desea utilizar para su clase.
+
+
+ Si no puede ver la zona horaria en la lista, ponte en <a href="daniel@bitbadger.solutions?subject=Zona+Horaria+por+SeguidorOración">contacto con Daniel</a> y decirle lo que la zona horaria que usted necesita.
+
+
+ A medida que los grupos pequeños utilizan SeguidorOración, acumulan muchas solicitudes caducadas.
+
+
+ Cuando las listas de solicitudes que incluyen solicitudes caducadas, los resultados se dividirán en páginas.
+
+
+ El valor predeterminado es de 100 solicitudes por página, pero se puede establecer tan bajo como 10 o tan alto como 255.
+
+
+ SeguidorOración puede mostrar la última fecha en que se actualizó una solicitud, al final del texto de solicitud.
+
+
+ Por defecto, no lo hace.
+
+
+ Si selecciona una fecha corta, se mostrará “(como de 11/10/2015)” (para el 11 de octubre de 2015); si selecciona una fecha larga, se mostrará “(como de domingo, 11 de octubre de 2015)”.
+
+
\ No newline at end of file
diff --git a/src/PrayerTracker.UI/Resources/Views/Help/User/LogOn.es.resx b/src/PrayerTracker.UI/Resources/Views/Help/User/LogOn.es.resx
new file mode 100644
index 0000000..f6aef36
--- /dev/null
+++ b/src/PrayerTracker.UI/Resources/Views/Help/User/LogOn.es.resx
@@ -0,0 +1,79 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ text/microsoft-resx
+
+
+ 2.0
+
+
+ System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ Esta página le permite acceder a SeguidorOración.
+
+
+ Hay dos diferentes niveles de acceso para SeguidorOración - el usuario y el grupo.
+
+
+ Introduzca su dirección de correo electrónico y contraseña en las cajas apropiadas y seleccione su grupo.
+
+
+ Si desea que SeguidorOración que le recuerde en su ordenador, haga clic en “Acuérdate de Mí” caja antes de pulsar el “Iniciar Sesión” botón.
+
+
+ Si el grupo se ha definido una contraseña para usar que le permite ver su lista de peticiones en línea, seleccionar el grupo en la lista desplegable y introduzca la contraseña del grupo en la caja correspondiente.
+
+
+ Si desea que SeguidorOración recuerde su grupo, haga clic en “Acuérdate de Mí” caja antes de pulsar el “Iniciar Sesión” botón.
+
+
\ No newline at end of file
diff --git a/src/PrayerTracker.UI/Resources/Views/Help/User/Password.es.resx b/src/PrayerTracker.UI/Resources/Views/Help/User/Password.es.resx
new file mode 100644
index 0000000..d3cf163
--- /dev/null
+++ b/src/PrayerTracker.UI/Resources/Views/Help/User/Password.es.resx
@@ -0,0 +1,79 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ text/microsoft-resx
+
+
+ 2.0
+
+
+ System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ Esta página le permitirá cambiar su contraseña.
+
+
+ Ingrese su contraseña actual en la caja superior y introduzca la nueva contraseña en la parte inferior dos cajas.
+
+
+ Al entrar su contraseña actual es una medida de seguridad, con el “Acuérdate de Mí” caja de la página inicio de sesión, esto evitará que otra persona que pueda estar usando su computadora de la posibilidad de simplemente ir a el sitio y cambiar la contraseña.
+
+
+ Si no recuerdas tu contraseña actual, no podemos recuperar, pero podemos ponerlo en algo que se conoce de modo que usted puede cambiarlo a su contraseña.
+
+
+ Ayuda+de+Contraseña+de+SeguidorOración
+
+
+ Haga clic aquí para solicitar ayuda para restablecer su contraseña.
+
+
\ No newline at end of file
diff --git a/src/PrayerTracker.UI/Utils.fs b/src/PrayerTracker.UI/Utils.fs
index 07778af..2c48b2a 100644
--- a/src/PrayerTracker.UI/Utils.fs
+++ b/src/PrayerTracker.UI/Utils.fs
@@ -5,7 +5,7 @@ open System
open Giraffe
/// Parse a short-GUID-based ID from a string
-let idFromShort<'T> (f : Guid -> 'T) strValue =
+let idFromShort<'T> (f: Guid -> 'T) strValue =
(ShortGuid.toGuid >> f) strValue
/// Format a GUID as a short GUID
@@ -19,19 +19,19 @@ let emptyGuid = shortGuid Guid.Empty
module String =
/// string.Trim()
- let trim (str: string) = str.Trim ()
+ let trim (str: string) = str.Trim()
/// string.Replace()
- let replace (find : string) repl (str : string) = str.Replace (find, repl)
+ let replace (find: string) repl (str: string) = str.Replace(find, repl)
/// Replace the first occurrence of a string with a second string within a given string
- let replaceFirst (needle : string) replacement (haystack : string) =
+ let replaceFirst (needle: string) replacement (haystack: string) =
match haystack.IndexOf needle with
| -1 -> haystack
| idx -> String.concat "" [ haystack[0..idx - 1]; replacement; haystack[idx + needle.Length..] ]
/// Convert a string to an option, with null, blank, and whitespace becoming None
- let noneIfBlank (str : string) =
+ let noneIfBlank (str: string) =
match str with
| null -> None
| it when it.Trim () = "" -> None
@@ -46,7 +46,7 @@ let stripTags allowedTags input =
let stripHtmlExp = Regex @"(<\/?[^>]+>)"
let mutable output = input
for tag in stripHtmlExp.Matches input do
- let htmlTag = tag.Value.ToLower ()
+ let htmlTag = tag.Value.ToLower()
let shouldReplace =
allowedTags
|> List.fold (fun acc t ->
@@ -100,7 +100,7 @@ let ckEditorToText (text : string) =
"", ""
"", ""
]
- |> List.fold (fun (txt : string) (x, y) -> String.replace x y txt) text
+ |> List.fold (fun (txt: string) (x, y) -> String.replace x y txt) text
|> String.trim
diff --git a/src/PrayerTracker/App.fs b/src/PrayerTracker/App.fs
index 9254290..3d8011b 100644
--- a/src/PrayerTracker/App.fs
+++ b/src/PrayerTracker/App.fs
@@ -3,9 +3,9 @@ namespace PrayerTracker
open Microsoft.AspNetCore.Http
/// Middleware to add the starting ticks for the request
-type RequestStartMiddleware (next : RequestDelegate) =
+type RequestStartMiddleware (next: RequestDelegate) =
- member this.InvokeAsync (ctx : HttpContext) = task {
+ member this.InvokeAsync (ctx: HttpContext) = task {
ctx.Items[Key.startTime] <- ctx.Now
return! next.Invoke ctx
}
@@ -21,7 +21,7 @@ open Microsoft.Extensions.Configuration
module Configure =
/// Set up the configuration for the app
- let configuration (ctx : WebHostBuilderContext) (cfg : IConfigurationBuilder) =
+ let configuration (ctx: WebHostBuilderContext) (cfg: IConfigurationBuilder) =
cfg.SetBasePath(ctx.HostingEnvironment.ContentRootPath)
.AddJsonFile("appsettings.json", optional = true, reloadOnChange = true)
.AddJsonFile($"appsettings.{ctx.HostingEnvironment.EnvironmentName}.json", optional = true)
@@ -31,7 +31,7 @@ module Configure =
open Microsoft.AspNetCore.Server.Kestrel.Core
/// Configure Kestrel from appsettings.json
- let kestrel (ctx : WebHostBuilderContext) (opts : KestrelServerOptions) =
+ let kestrel (ctx: WebHostBuilderContext) (opts: KestrelServerOptions) =
(ctx.Configuration.GetSection >> opts.Configure >> ignore) "Kestrel"
open System.Globalization
@@ -46,37 +46,36 @@ module Configure =
/// Configure ASP.NET Core's service collection (dependency injection container)
let services (svc : IServiceCollection) =
- let _ = svc.AddOptions ()
- let _ = svc.AddLocalization (fun options -> options.ResourcesPath <- "Resources")
+ let _ = svc.AddOptions()
+ let _ = svc.AddLocalization(fun options -> options.ResourcesPath <- "Resources")
let _ =
- svc.Configure (fun (opts : RequestLocalizationOptions) ->
- let supportedCultures =[|
+ svc.Configure(fun (opts: RequestLocalizationOptions) ->
+ let supportedCultures = [|
CultureInfo "en-US"; CultureInfo "en-GB"; CultureInfo "en-AU"; CultureInfo "en"
- CultureInfo "es-MX"; CultureInfo "es-ES"; CultureInfo "es"
- |]
- opts.DefaultRequestCulture <- RequestCulture ("en-US", "en-US")
+ CultureInfo "es-MX"; CultureInfo "es-ES"; CultureInfo "es" |]
+ opts.DefaultRequestCulture <- RequestCulture("en-US", "en-US")
opts.SupportedCultures <- supportedCultures
opts.SupportedUICultures <- supportedCultures)
let _ =
svc.AddAuthentication(CookieAuthenticationDefaults.AuthenticationScheme)
- .AddCookie (fun opts ->
+ .AddCookie(fun opts ->
opts.ExpireTimeSpan <- TimeSpan.FromMinutes 120.
opts.SlidingExpiration <- true
opts.AccessDeniedPath <- "/error/403")
- let _ = svc.AddAuthorization ()
+ let _ = svc.AddAuthorization()
- let cfg = svc.BuildServiceProvider().GetService ()
- let dsb = NpgsqlDataSourceBuilder (cfg.GetConnectionString "PrayerTracker")
+ let cfg = svc.BuildServiceProvider().GetService()
+ let dsb = NpgsqlDataSourceBuilder(cfg.GetConnectionString "PrayerTracker")
let _ = dsb.UseNodaTime()
- Configuration.useDataSource (dsb.Build ())
+ dsb.Build() |> Configuration.useDataSource
let emailCfg = cfg.GetSection "Email"
if (emailCfg.GetChildren >> Seq.isEmpty >> not) () then ConfigurationBinder.Bind(emailCfg, Email.smtpOptions)
- let _ = svc.AddSingleton ()
- let _ = svc.AddSession ()
- let _ = svc.AddAntiforgery ()
- let _ = svc.AddRouting ()
+ let _ = svc.AddSingleton()
+ let _ = svc.AddSession()
+ let _ = svc.AddAntiforgery()
+ let _ = svc.AddRouting()
let _ = svc.AddSingleton SystemClock.Instance
()
@@ -94,15 +93,26 @@ module Configure =
GET_HEAD [
subRoute "/church" [
route "es" Handlers.Church.maintain
- routef "/%O/edit" Handlers.Church.edit
- ]
+ routef "/%O/edit" Handlers.Church.edit ]
route "/class/logon" (redirectTo true "/small-group/log-on")
routef "/error/%s" Handlers.Home.error
+ subRoute "/help" [
+ route "" Handlers.Help.index
+ subRoute "/requests" [
+ route "/edit" Handlers.Help.Requests.edit
+ route "/maintain" Handlers.Help.Requests.maintain
+ route "/view" Handlers.Help.Requests.view ]
+ subRoute "/small-group" [
+ route "/announcement" Handlers.Help.SmallGroup.announcement
+ route "/members" Handlers.Help.SmallGroup.members
+ route "/preferences" Handlers.Help.SmallGroup.preferences ]
+ subRoute "/user" [
+ route "/log-on" Handlers.Help.User.logOn
+ route "/password" Handlers.Help.User.password ] ]
routef "/language/%s" Handlers.Home.language
subRoute "/legal" [
route "/privacy-policy" Handlers.Home.privacyPolicy
- route "/terms-of-service" Handlers.Home.tos
- ]
+ route "/terms-of-service" Handlers.Home.tos ]
route "/log-off" Handlers.Home.logOff
subRoute "/prayer-request" [
route "s" (Handlers.PrayerRequest.maintain true)
@@ -116,8 +126,7 @@ module Configure =
routef "s/view/%s" (Some >> Handlers.PrayerRequest.view)
routef "/%O/edit" Handlers.PrayerRequest.edit
routef "/%O/expire" Handlers.PrayerRequest.expire
- routef "/%O/restore" Handlers.PrayerRequest.restore
- ]
+ routef "/%O/restore" Handlers.PrayerRequest.restore ]
subRoute "/small-group" [
route "" Handlers.SmallGroup.overview
route "s" Handlers.SmallGroup.maintain
@@ -128,8 +137,7 @@ module Configure =
route "/logon" (redirectTo true "/small-group/log-on")
routef "/member/%O/edit" Handlers.SmallGroup.editMember
route "/members" Handlers.SmallGroup.members
- route "/preferences" Handlers.SmallGroup.preferences
- ]
+ route "/preferences" Handlers.SmallGroup.preferences ]
route "/unauthorized" Handlers.Home.unauthorized
subRoute "/user" [
route "s" Handlers.User.maintain
@@ -137,19 +145,15 @@ module Configure =
routef "/%O/small-groups" Handlers.User.smallGroups
route "/log-on" Handlers.User.logOn
route "/logon" (redirectTo true "/user/log-on")
- route "/password" Handlers.User.password
- ]
- route "/" Handlers.Home.homePage
- ]
+ route "/password" Handlers.User.password ]
+ route "/" Handlers.Home.homePage ]
POST [
subRoute "/church" [
routef "/%O/delete" Handlers.Church.delete
- route "/save" Handlers.Church.save
- ]
+ route "/save" Handlers.Church.save ]
subRoute "/prayer-request" [
routef "/%O/delete" Handlers.PrayerRequest.delete
- route "/save" Handlers.PrayerRequest.save
- ]
+ route "/save" Handlers.PrayerRequest.save ]
subRoute "/small-group" [
route "/announcement/send" Handlers.SmallGroup.sendAnnouncement
routef "/%O/delete" Handlers.SmallGroup.delete
@@ -157,31 +161,27 @@ module Configure =
routef "/member/%O/delete" Handlers.SmallGroup.deleteMember
route "/member/save" Handlers.SmallGroup.saveMember
route "/preferences/save" Handlers.SmallGroup.savePreferences
- route "/save" Handlers.SmallGroup.save
- ]
+ route "/save" Handlers.SmallGroup.save ]
subRoute "/user" [
routef "/%O/delete" Handlers.User.delete
route "/edit/save" Handlers.User.save
route "/log-on" Handlers.User.doLogOn
route "/password/change" Handlers.User.changePassword
- route "/small-groups/save" Handlers.User.saveGroups
- ]
- ]
- ]
+ route "/small-groups/save" Handlers.User.saveGroups ] ] ]
open Microsoft.Extensions.Logging
/// Giraffe error handler
- let errorHandler (ex : exn) (logger : ILogger) =
- logger.LogError (EventId(), ex, "An unhandled exception has occurred while executing the request.")
+ let errorHandler (ex: exn) (logger: ILogger) =
+ logger.LogError(EventId(), ex, "An unhandled exception has occurred while executing the request.")
clearResponse >=> setStatusCode 500 >=> text ex.Message
open Microsoft.Extensions.Hosting
/// Configure logging
- let logging (log : ILoggingBuilder) =
- let env = log.Services.BuildServiceProvider().GetService ()
- if env.IsDevelopment () then log else log.AddFilter (fun l -> l > LogLevel.Information)
+ let logging (log: ILoggingBuilder) =
+ let env = log.Services.BuildServiceProvider().GetService()
+ if env.IsDevelopment() then log else log.AddFilter(fun l -> l > LogLevel.Information)
|> function l -> l.AddConsole().AddDebug()
|> ignore
@@ -191,27 +191,27 @@ module Configure =
/// Configure the application
let app (app : IApplicationBuilder) =
- let env = app.ApplicationServices.GetRequiredService ()
- if env.IsDevelopment () then
- app.UseDeveloperExceptionPage ()
+ let env = app.ApplicationServices.GetRequiredService()
+ if env.IsDevelopment() then
+ app.UseDeveloperExceptionPage()
else
app.UseGiraffeErrorHandler errorHandler
|> ignore
- let _ = app.UseForwardedHeaders ()
- let _ = app.UseCanonicalDomains ()
+ let _ = app.UseForwardedHeaders()
+ let _ = app.UseCanonicalDomains()
let _ = app.UseStatusCodePagesWithReExecute "/error/{0}"
- let _ = app.UseStaticFiles ()
- let _ = app.UseCookiePolicy (CookiePolicyOptions (MinimumSameSitePolicy = SameSiteMode.Strict))
- let _ = app.UseMiddleware ()
- let _ = app.UseRouting ()
- let _ = app.UseSession ()
- let _ = app.UseRequestLocalization
- (app.ApplicationServices.GetService>().Value)
- let _ = app.UseAuthentication ()
- let _ = app.UseAuthorization ()
- let _ = app.UseEndpoints (fun e -> e.MapGiraffeEndpoints routes)
- Views.I18N.setUpFactories <| app.ApplicationServices.GetRequiredService ()
+ let _ = app.UseStaticFiles()
+ let _ = app.UseCookiePolicy(CookiePolicyOptions(MinimumSameSitePolicy = SameSiteMode.Strict))
+ let _ = app.UseMiddleware()
+ let _ = app.UseRouting()
+ let _ = app.UseSession()
+ let _ = app.UseRequestLocalization(
+ app.ApplicationServices.GetService>().Value)
+ let _ = app.UseAuthentication()
+ let _ = app.UseAuthorization()
+ let _ = app.UseEndpoints(fun e -> e.MapGiraffeEndpoints routes)
+ app.ApplicationServices.GetRequiredService() |> Views.I18N.setUpFactories
/// The web application
@@ -221,16 +221,16 @@ module App =
[]
let main args =
- let contentRoot = Directory.GetCurrentDirectory ()
+ let contentRoot = Directory.GetCurrentDirectory()
let app =
WebHostBuilder()
.UseContentRoot(contentRoot)
.ConfigureAppConfiguration(Configure.configuration)
.UseKestrel(Configure.kestrel)
- .UseWebRoot(Path.Combine (contentRoot, "wwwroot"))
+ .UseWebRoot(Path.Combine(contentRoot, "wwwroot"))
.ConfigureServices(Configure.services)
.ConfigureLogging(Configure.logging)
.Configure(System.Action Configure.app)
.Build()
- if args.Length > 0 then printfn $"Unrecognized option {args[0]}" else app.Run ()
+ if args.Length > 0 then printfn $"Unrecognized option {args[0]}" else app.Run()
0
diff --git a/src/PrayerTracker/Church.fs b/src/PrayerTracker/Church.fs
index 7f13810..e3c6978 100644
--- a/src/PrayerTracker/Church.fs
+++ b/src/PrayerTracker/Church.fs
@@ -63,12 +63,12 @@ let save : HttpHandler = requireAccess [ Admin ] >=> validateCsrf >=> fun next c
match! ctx.TryBindFormAsync () with
| Ok model ->
let! church =
- if model.IsNew then Task.FromResult (Some { Church.empty with Id = (Guid.NewGuid >> ChurchId) () })
+ if model.IsNew then Task.FromResult(Some { Church.empty with Id = (Guid.NewGuid >> ChurchId) () })
else Churches.tryById (idFromShort ChurchId model.ChurchId)
match church with
| Some ch ->
do! Churches.save (model.PopulateChurch ch)
- let act = ctx.Strings[if model.IsNew then "Added" else "Updated"].Value.ToLower ()
+ let act = ctx.Strings[if model.IsNew then "Added" else "Updated"].Value.ToLower()
addInfo ctx ctx.Strings["Successfully {0} church “{1}”", act, model.Name]
return! redirectTo false "/churches" next ctx
| None -> return! fourOhFour ctx
diff --git a/src/PrayerTracker/CommonFunctions.fs b/src/PrayerTracker/CommonFunctions.fs
index 173c803..c0ad350 100644
--- a/src/PrayerTracker/CommonFunctions.fs
+++ b/src/PrayerTracker/CommonFunctions.fs
@@ -5,22 +5,21 @@ module PrayerTracker.Handlers.CommonFunctions
open Microsoft.AspNetCore.Mvc.Rendering
/// Create a select list from an enumeration
-let toSelectList<'T> valFunc textFunc withDefault emptyText (items : 'T seq) =
+let toSelectList<'T> valFunc textFunc withDefault emptyText (items: 'T seq) =
if isNull items then nullArg (nameof items)
- [ match withDefault with
- | true ->
- let s = PrayerTracker.Views.I18N.localizer.Force ()
- SelectListItem ($"""— %A{s[emptyText]} —""", "")
- | _ -> ()
- yield! items |> Seq.map (fun x -> SelectListItem (textFunc x, valFunc x))
- ]
+ [ match withDefault with
+ | true ->
+ let s = PrayerTracker.Views.I18N.localizer.Force()
+ SelectListItem($"""— %A{s[emptyText]} —""", "")
+ | _ -> ()
+ yield! items |> Seq.map (fun x -> SelectListItem(textFunc x, valFunc x)) ]
/// Create a select list from an enumeration
-let toSelectListWithEmpty<'T> valFunc textFunc emptyText (items : 'T seq) =
+let toSelectListWithEmpty<'T> valFunc textFunc emptyText (items: 'T seq) =
toSelectList valFunc textFunc true emptyText items
/// Create a select list from an enumeration
-let toSelectListWithDefault<'T> valFunc textFunc (items : 'T seq) =
+let toSelectListWithDefault<'T> valFunc textFunc (items: 'T seq) =
toSelectList valFunc textFunc true "Select" items
/// The version of PrayerTracker
@@ -49,7 +48,7 @@ open PrayerTracker
open PrayerTracker.ViewModels
/// Create the common view information heading
-let viewInfo (ctx : HttpContext) =
+let viewInfo (ctx: HttpContext) =
let msg =
match ctx.Session.Messages with
| [] -> []
@@ -67,8 +66,7 @@ let viewInfo (ctx : HttpContext) =
RequestStart = ctx.Items[Key.startTime] :?> Instant
User = ctx.Session.CurrentUser
Group = ctx.Session.CurrentGroup
- Layout = layout
- }
+ Layout = layout }
/// The view is the last parameter, so it can be composed
let renderHtml next ctx view =
@@ -77,24 +75,24 @@ let renderHtml next ctx view =
open Microsoft.Extensions.Logging
/// Display an error regarding form submission
-let bindError (msg : string) =
+let bindError (msg: string) =
handleContext (fun ctx ->
ctx.GetService().CreateLogger("PrayerTracker.Handlers").LogError msg
(setStatusCode 400 >=> text msg) earlyReturn ctx)
/// Handler that will return a status code 404 and the text "Not Found"
-let fourOhFour (ctx : HttpContext) =
+let fourOhFour (ctx: HttpContext) =
(setStatusCode 404 >=> text "Not Found") earlyReturn ctx
/// Handler to validate CSRF prevention token
let validateCsrf : HttpHandler = fun next ctx -> task {
- match! (ctx.GetService ()).IsRequestValidAsync ctx with
+ match! ctx.GetService().IsRequestValidAsync ctx with
| true -> return! next ctx
| false -> return! (clearResponse >=> setStatusCode 400 >=> text "Quit hacking...") earlyReturn ctx
}
/// Add a message to the session
-let addUserMessage (ctx : HttpContext) msg =
+let addUserMessage (ctx: HttpContext) msg =
ctx.Session.Messages <- msg :: ctx.Session.Messages
@@ -102,10 +100,10 @@ open Microsoft.AspNetCore.Html
open Microsoft.Extensions.Localization
/// Convert a localized string to an HTML string
-let htmlLocString (x : LocalizedString) =
+let htmlLocString (x: LocalizedString) =
(System.Net.WebUtility.HtmlEncode >> HtmlString) x.Value
-let htmlString (x : LocalizedString) =
+let htmlString (x: LocalizedString) =
HtmlString x.Value
/// Add an error message to the session
@@ -143,8 +141,8 @@ open PrayerTracker.Entities
/// Require one of the given access roles
let requireAccess levels : HttpHandler = fun next ctx -> task {
// These calls fill the user and group in the session, making .Value safe to use for the rest of the request
- let! user = ctx.CurrentUser ()
- let! group = ctx.CurrentGroup ()
+ let! user = ctx.CurrentUser()
+ let! group = ctx.CurrentGroup()
match user, group with
| _, _ when List.contains Public levels -> return! next ctx
| Some _, _ when List.contains User levels -> return! next ctx
@@ -155,7 +153,7 @@ let requireAccess levels : HttpHandler = fun next ctx -> task {
return! redirectTo false "/unauthorized" next ctx
| _, _ when List.contains User levels ->
// Redirect to the user log on page
- ctx.Session.SetString (Key.Session.redirectUrl, ctx.Request.GetEncodedPathAndQuery ())
+ ctx.Session.SetString(Key.Session.redirectUrl, ctx.Request.GetEncodedPathAndQuery())
return! redirectTo false "/user/log-on" next ctx
| _, _ when List.contains Group levels ->
// Redirect to the small group log on page
diff --git a/src/PrayerTracker/Email.fs b/src/PrayerTracker/Email.fs
index 28d190a..27a68b6 100644
--- a/src/PrayerTracker/Email.fs
+++ b/src/PrayerTracker/Email.fs
@@ -8,63 +8,62 @@ open PrayerTracker.Entities
/// Parameters required to send an e-mail
type EmailOptions =
- { /// The SMTP client
- Client : SmtpClient
-
- /// The people who should receive the e-mail
- Recipients : Member list
-
- /// The small group for which this e-mail is being sent
- Group : SmallGroup
-
- /// The subject of the e-mail
- Subject : string
-
- /// The body of the e-mail in HTML
- HtmlBody : string
-
- /// The body of the e-mail in plain text
- PlainTextBody : string
-
- /// Use the current user's preferred language
- Strings : IStringLocalizer
- }
+ { /// The SMTP client
+ Client: SmtpClient
+
+ /// The people who should receive the e-mail
+ Recipients: Member list
+
+ /// The small group for which this e-mail is being sent
+ Group: SmallGroup
+
+ /// The subject of the e-mail
+ Subject: string
+
+ /// The body of the e-mail in HTML
+ HtmlBody: string
+
+ /// The body of the e-mail in plain text
+ PlainTextBody: string
+
+ /// Use the current user's preferred language
+ Strings: IStringLocalizer }
/// Options to use when sending e-mail
type SmtpServerOptions() =
/// The hostname of the SMTP server
- member val SmtpHost : string = "localhost" with get, set
+ member val SmtpHost: string = "localhost" with get, set
/// The port over which SMTP communication should occur
- member val Port : int = 25 with get, set
+ member val Port: int = 25 with get, set
/// Whether to use SSL when communicating with the SMTP server
- member val UseSsl : bool = false with get, set
+ member val UseSsl: bool = false with get, set
/// The authentication to use with the SMTP server
- member val Authentication : string = "" with get, set
+ member val Authentication: string = "" with get, set
/// The e-mail address from which messages should be sent
- member val FromAddress : string = "prayer@bitbadger.solutions" with get, set
+ member val FromAddress: string = "prayer@bitbadger.solutions" with get, set
/// The options for the SMTP server
-let smtpOptions = SmtpServerOptions ()
+let smtpOptions = SmtpServerOptions()
/// Get an SMTP client connection
let getConnection () = task {
- let client = new SmtpClient ()
- do! client.ConnectAsync (smtpOptions.SmtpHost, smtpOptions.Port, smtpOptions.UseSsl)
- do! client.AuthenticateAsync (smtpOptions.FromAddress, smtpOptions.Authentication)
+ let client = new SmtpClient()
+ do! client.ConnectAsync(smtpOptions.SmtpHost, smtpOptions.Port, smtpOptions.UseSsl)
+ do! client.AuthenticateAsync(smtpOptions.FromAddress, smtpOptions.Authentication)
return client
}
/// Create a mail message object, filled with everything but the body content
let createMessage opts =
- let msg = new MimeMessage ()
- msg.From.Add (MailboxAddress (opts.Group.Preferences.EmailFromName, smtpOptions.FromAddress))
+ let msg = new MimeMessage()
+ msg.From.Add(MailboxAddress(opts.Group.Preferences.EmailFromName, smtpOptions.FromAddress))
msg.Subject <- opts.Subject
- msg.ReplyTo.Add (MailboxAddress (opts.Group.Preferences.EmailFromName, opts.Group.Preferences.EmailFromAddress))
+ msg.ReplyTo.Add(MailboxAddress(opts.Group.Preferences.EmailFromName, opts.Group.Preferences.EmailFromAddress))
msg
open MimeKit.Text
@@ -72,31 +71,29 @@ open MimeKit.Text
/// Create an HTML-format e-mail message
let createHtmlMessage opts =
let bodyText =
- [ """"""
- opts.HtmlBody
- """
"""
- opts.Strings["Generated by P R A Y E R T R A C K E R"].Value
- "
"
- opts.Strings["from Bit Badger Solutions"].Value
- "
"
- ]
+ [ """"""
+ opts.HtmlBody
+ """
"""
+ opts.Strings["Generated by P R A Y E R T R A C K E R"].Value
+ "
"
+ opts.Strings["from Bit Badger Solutions"].Value
+ "
" ]
|> String.concat ""
let msg = createMessage opts
- msg.Body <- new TextPart (TextFormat.Html, Text = bodyText)
+ msg.Body <- new TextPart(TextFormat.Html, Text = bodyText)
msg
/// Create a plain-text-format e-mail message
let createTextMessage opts =
let bodyText =
- [ opts.PlainTextBody
- "\n\n--\n"
- opts.Strings["Generated by P R A Y E R T R A C K E R"].Value
- "\n"
- opts.Strings["from Bit Badger Solutions"].Value
- ]
+ [ opts.PlainTextBody
+ "\n\n--\n"
+ opts.Strings["Generated by P R A Y E R T R A C K E R"].Value
+ "\n"
+ opts.Strings["from Bit Badger Solutions"].Value ]
|> String.concat ""
let msg = createMessage opts
- msg.Body <- new TextPart (TextFormat.Plain, Text = bodyText)
+ msg.Body <- new TextPart(TextFormat.Plain, Text = bodyText)
msg
/// Send e-mails to a class
@@ -105,14 +102,14 @@ let sendEmails opts = task {
use plainTextMsg = createTextMessage opts
for mbr in opts.Recipients do
- let emailTo = MailboxAddress (mbr.Name, mbr.Email)
+ let emailTo = MailboxAddress(mbr.Name, mbr.Email)
match defaultArg mbr.Format opts.Group.Preferences.DefaultEmailType with
| HtmlFormat ->
htmlMsg.To.Add emailTo
let! _ = opts.Client.SendAsync htmlMsg
- htmlMsg.To.Clear ()
+ htmlMsg.To.Clear()
| PlainTextFormat ->
plainTextMsg.To.Add emailTo
let! _ = opts.Client.SendAsync plainTextMsg
- plainTextMsg.To.Clear ()
+ plainTextMsg.To.Clear()
}
diff --git a/src/PrayerTracker/Extensions.fs b/src/PrayerTracker/Extensions.fs
index 7cb69ac..8c50073 100644
--- a/src/PrayerTracker/Extensions.fs
+++ b/src/PrayerTracker/Extensions.fs
@@ -16,19 +16,19 @@ let private jsonSettings = JsonSerializerSettings().ConfigureForNodaTime DateTim
type ISession with
/// Set an object in the session
- member this.SetObject<'T> key (value : 'T) =
- this.SetString (key, JsonConvert.SerializeObject (value, jsonSettings))
+ member this.SetObject<'T> key (value: 'T) =
+ this.SetString(key, JsonConvert.SerializeObject(value, jsonSettings))
/// Get an object from the session
member this.TryGetObject<'T> key =
match this.GetString key with
| null -> None
- | v -> Some (JsonConvert.DeserializeObject<'T> (v, jsonSettings))
+ | v -> Some (JsonConvert.DeserializeObject<'T>(v, jsonSettings))
/// The currently logged on small group
member this.CurrentGroup
with get () = this.TryGetObject Key.Session.currentGroup
- and set (v : SmallGroup option) =
+ and set (v: SmallGroup option) =
match v with
| Some group -> this.SetObject Key.Session.currentGroup group
| None -> this.Remove Key.Session.currentGroup
@@ -36,7 +36,7 @@ type ISession with
/// The currently logged on user
member this.CurrentUser
with get () = this.TryGetObject Key.Session.currentUser
- and set (v : User option) =
+ and set (v: User option) =
match v with
| Some user -> this.SetObject Key.Session.currentUser { user with PasswordHash = "" }
| None -> this.Remove Key.Session.currentUser
@@ -46,7 +46,7 @@ type ISession with
with get () =
this.TryGetObject Key.Session.userMessages
|> Option.defaultValue List.empty
- and set (v : UserMessage list) = this.SetObject Key.Session.userMessages v
+ and set (v: UserMessage list) = this.SetObject Key.Session.userMessages v
open System.Security.Claims
@@ -74,13 +74,13 @@ open Npgsql
type HttpContext with
/// The system clock (via DI)
- member this.Clock = this.GetService ()
+ member this.Clock = this.GetService()
/// The current instant
- member this.Now = this.Clock.GetCurrentInstant ()
+ member this.Now = this.Clock.GetCurrentInstant()
/// The common string localizer
- member _.Strings = Views.I18N.localizer.Force ()
+ member _.Strings = Views.I18N.localizer.Force()
/// The currently logged on small group (sets the value in the session if it is missing)
member this.CurrentGroup () = task {
diff --git a/src/PrayerTracker/Help.fs b/src/PrayerTracker/Help.fs
new file mode 100644
index 0000000..abee381
--- /dev/null
+++ b/src/PrayerTracker/Help.fs
@@ -0,0 +1,86 @@
+/// Handlers for /help routes
+module PrayerTracker.Handlers.Help
+
+open Giraffe
+open PrayerTracker
+
+// GET: /help
+let index : HttpHandler = fun next ctx -> task {
+ return!
+ Views.Help.index ()
+ |> Views.Layout.help ctx.Strings["Help Index"].Value true
+ |> renderHtml next ctx
+}
+
+/// Handlers for /help/requests routes
+module Requests =
+
+ // GET: /help/requests/edit
+ let edit : HttpHandler = fun next ctx -> task {
+ return!
+ Views.Help.Requests.edit ()
+ |> Views.Layout.help ctx.Strings["Add / Edit a Request"].Value false
+ |> renderHtml next ctx
+ }
+
+ // GET: /help/requests/maintain
+ let maintain : HttpHandler = fun next ctx -> task {
+ return!
+ Views.Help.Requests.maintain ()
+ |> Views.Layout.help ctx.Strings["Maintain Requests"].Value false
+ |> renderHtml next ctx
+ }
+
+ // GET: /help/requests/view
+ let view : HttpHandler = fun next ctx -> task {
+ return!
+ Views.Help.Requests.view ()
+ |> Views.Layout.help ctx.Strings["View Request List"].Value false
+ |> renderHtml next ctx
+ }
+
+/// Handlers for /help/small-group routes
+module SmallGroup =
+
+ // GET: /help/small-group/announcement
+ let announcement : HttpHandler = fun next ctx -> task {
+ return!
+ Views.Help.SmallGroup.announcement ()
+ |> Views.Layout.help ctx.Strings["Send Announcement"].Value false
+ |> renderHtml next ctx
+ }
+
+ // GET: /help/small-group/members
+ let members : HttpHandler = fun next ctx -> task {
+ return!
+ Views.Help.SmallGroup.members ()
+ |> Views.Layout.help ctx.Strings["Maintain Group Members"].Value false
+ |> renderHtml next ctx
+ }
+
+ // GET: /help/small-group/members
+ let preferences : HttpHandler = fun next ctx -> task {
+ return!
+ Views.Help.SmallGroup.preferences ()
+ |> Views.Layout.help ctx.Strings["Change Preferences"].Value false
+ |> renderHtml next ctx
+ }
+
+/// Handlers for /help/user routes
+module User =
+
+ // GET: /help/user/log-on
+ let logOn : HttpHandler = fun next ctx -> task {
+ return!
+ Views.Help.User.logOn ()
+ |> Views.Layout.help ctx.Strings["Log On"].Value false
+ |> renderHtml next ctx
+ }
+
+ // GET: /help/user/password
+ let password : HttpHandler = fun next ctx -> task {
+ return!
+ Views.Help.User.password ()
+ |> Views.Layout.help ctx.Strings["Change Your Password"].Value false
+ |> renderHtml next ctx
+ }
diff --git a/src/PrayerTracker/Home.fs b/src/PrayerTracker/Home.fs
index 261c48c..cc77185 100644
--- a/src/PrayerTracker/Home.fs
+++ b/src/PrayerTracker/Home.fs
@@ -27,17 +27,17 @@ let language culture : HttpHandler = requireAccess [ AccessLevel.Public ] >=> fu
| ""
| "en" -> "en-US"
| "es" -> "es-MX"
- | _ -> $"{culture}-{culture.ToUpper ()}"
+ | _ -> $"{culture}-{culture.ToUpper()}"
|> (CultureInfo >> Option.ofObj)
with
| :? CultureNotFoundException
| :? ArgumentException -> None
|> function
| Some c ->
- ctx.Response.Cookies.Append (
+ ctx.Response.Cookies.Append(
CookieRequestCultureProvider.DefaultCookieName,
- CookieRequestCultureProvider.MakeCookieValue (RequestCulture c),
- CookieOptions (Expires = Nullable (DateTimeOffset (DateTime.Now.AddYears 1))))
+ CookieRequestCultureProvider.MakeCookieValue(RequestCulture c),
+ CookieOptions(Expires = Nullable(DateTimeOffset(DateTime.Now.AddYears 1))))
| _ -> ()
let url = match string ctx.Request.Headers["Referer"] with null | "" -> "/" | r -> r
redirectTo false url next ctx
@@ -59,7 +59,7 @@ open Microsoft.AspNetCore.Authentication.Cookies
// GET /log-off
let logOff : HttpHandler = requireAccess [ AccessLevel.Public ] >=> fun next ctx -> task {
- ctx.Session.Clear ()
+ ctx.Session.Clear()
do! ctx.SignOutAsync CookieAuthenticationDefaults.AuthenticationScheme
addHtmlInfo ctx ctx.Strings["Log Off Successful • Have a nice day!"]
return! redirectTo false "/" next ctx
diff --git a/src/PrayerTracker/PrayerRequest.fs b/src/PrayerTracker/PrayerRequest.fs
index 732a228..762a348 100644
--- a/src/PrayerTracker/PrayerRequest.fs
+++ b/src/PrayerTracker/PrayerRequest.fs
@@ -8,7 +8,7 @@ open PrayerTracker.Entities
open PrayerTracker.ViewModels
/// Retrieve a prayer request, and ensure that it belongs to the current class
-let private findRequest (ctx : HttpContext) reqId = task {
+let private findRequest (ctx: HttpContext) reqId = task {
match! PrayerRequests.tryById reqId with
| Some req when req.SmallGroupId = ctx.Session.CurrentGroup.Value.Id -> return Ok req
| Some _ ->
@@ -18,31 +18,29 @@ let private findRequest (ctx : HttpContext) reqId = task {
}
/// Generate a list of requests for the given date
-let private generateRequestList (ctx : HttpContext) date = task {
+let private generateRequestList (ctx: HttpContext) date = task {
let group = ctx.Session.CurrentGroup.Value
let listDate = match date with Some d -> d | None -> SmallGroup.localDateNow ctx.Clock group
let! reqs =
PrayerRequests.forGroup
- { SmallGroup = group
- Clock = ctx.Clock
- ListDate = Some listDate
- ActiveOnly = true
- PageNumber = 0
- }
+ { SmallGroup = group
+ Clock = ctx.Clock
+ ListDate = Some listDate
+ ActiveOnly = true
+ PageNumber = 0 }
return
- { Requests = reqs
- Date = listDate
- SmallGroup = group
- ShowHeader = true
- CanEmail = Option.isSome ctx.User.UserId
- Recipients = []
- }
+ { Requests = reqs
+ Date = listDate
+ SmallGroup = group
+ ShowHeader = true
+ CanEmail = Option.isSome ctx.User.UserId
+ Recipients = [] }
}
open NodaTime.Text
/// Parse a string into a date (optionally, of course)
-let private parseListDate (date : string option) =
+let private parseListDate (date: string option) =
match date with
| Some dt -> match LocalDatePattern.Iso.Parse dt with it when it.Success -> Some it.Value | _ -> None
| None -> None
@@ -57,7 +55,7 @@ let edit reqId : HttpHandler = requireAccess [ User ] >=> fun next ctx -> task {
if requestId.Value = Guid.Empty then
return!
{ viewInfo ctx with HelpLink = Some Help.editRequest }
- |> Views.PrayerRequest.edit EditRequest.empty (now.ToString ("R", null)) ctx
+ |> Views.PrayerRequest.edit EditRequest.empty (now.ToString("R", null)) ctx
|> renderHtml next ctx
else
match! findRequest ctx requestId with
@@ -90,14 +88,13 @@ let email date : HttpHandler = requireAccess [ User ] >=> fun next ctx -> task {
let! recipients = Members.forGroup group.Id
use! client = Email.getConnection ()
do! Email.sendEmails
- { Client = client
- Recipients = recipients
- Group = group
- Subject = s["Prayer Requests for {0} - {1:MMMM d, yyyy}", group.Name, list.Date].Value
- HtmlBody = list.AsHtml s
- PlainTextBody = list.AsText s
- Strings = s
- }
+ { Client = client
+ Recipients = recipients
+ Group = group
+ Subject = s["Prayer Requests for {0} - {1:MMMM d, yyyy}", group.Name, list.Date].Value
+ HtmlBody = list.AsHtml s
+ PlainTextBody = list.AsText s
+ Strings = s }
do! client.DisconnectAsync true
return!
viewInfo ctx
@@ -122,7 +119,7 @@ let expire reqId : HttpHandler = requireAccess [ User ] >=> fun next ctx -> task
match! findRequest ctx requestId with
| Ok req ->
do! PrayerRequests.updateExpiration { req with Expiration = Forced } false
- addInfo ctx ctx.Strings["Successfully {0} prayer request", ctx.Strings["Expired"].Value.ToLower ()]
+ addInfo ctx ctx.Strings["Successfully {0} prayer request", ctx.Strings["Expired"].Value.ToLower()]
return! redirectTo false "/prayer-requests" next ctx
| Result.Error e -> return! e
}
@@ -133,22 +130,20 @@ let list groupId : HttpHandler = requireAccess [ AccessLevel.Public ] >=> fun ne
| Some group when group.Preferences.IsPublic ->
let! reqs =
PrayerRequests.forGroup
- { SmallGroup = group
- Clock = ctx.Clock
- ListDate = None
- ActiveOnly = true
- PageNumber = 0
- }
+ { SmallGroup = group
+ Clock = ctx.Clock
+ ListDate = None
+ ActiveOnly = true
+ PageNumber = 0 }
return!
viewInfo ctx
|> Views.PrayerRequest.list
- { Requests = reqs
- Date = SmallGroup.localDateNow ctx.Clock group
- SmallGroup = group
- ShowHeader = true
- CanEmail = Option.isSome ctx.User.UserId
- Recipients = []
- }
+ { Requests = reqs
+ Date = SmallGroup.localDateNow ctx.Clock group
+ SmallGroup = group
+ ShowHeader = true
+ CanEmail = Option.isSome ctx.User.UserId
+ Recipients = [] }
|> renderHtml next ctx
| Some _ ->
addError ctx ctx.Strings["The request list for the group you tried to view is not public."]
@@ -182,23 +177,20 @@ let maintain onlyActive : HttpHandler = requireAccess [ User ] >=> fun next ctx
{ MaintainRequests.empty with
Requests = reqs
SearchTerm = Some search
- PageNbr = Some pageNbr
- }
+ PageNbr = Some pageNbr }
| Result.Error _ ->
let! reqs =
PrayerRequests.forGroup
- { SmallGroup = group
- Clock = ctx.Clock
- ListDate = None
- ActiveOnly = onlyActive
- PageNumber = pageNbr
- }
+ { SmallGroup = group
+ Clock = ctx.Clock
+ ListDate = None
+ ActiveOnly = onlyActive
+ PageNumber = pageNbr }
return
{ MaintainRequests.empty with
Requests = reqs
OnlyActive = Some onlyActive
- PageNbr = if onlyActive then None else Some pageNbr
- }
+ PageNbr = if onlyActive then None else Some pageNbr }
}
return!
{ viewInfo ctx with HelpLink = Some Help.maintainRequests }
@@ -229,7 +221,7 @@ open System.Threading.Tasks
// POST /prayer-request/save
let save : HttpHandler = requireAccess [ User ] >=> validateCsrf >=> fun next ctx -> task {
- match! ctx.TryBindFormAsync () with
+ match! ctx.TryBindFormAsync() with
| Ok model ->
let group = ctx.Session.CurrentGroup.Value
let! req =
@@ -247,7 +239,7 @@ let save : HttpHandler = requireAccess [ User ] >=> validateCsrf >=> fun next ct
let updated =
{ pr with
RequestType = PrayerRequestType.fromCode model.RequestType
- Requestor = match model.Requestor with Some x when x.Trim () = "" -> None | x -> x
+ Requestor = match model.Requestor with Some x when x.Trim() = "" -> None | x -> x
Text = ckEditorToText model.Text
Expiration = Expiration.fromCode model.Expiration
}
@@ -262,7 +254,7 @@ let save : HttpHandler = requireAccess [ User ] >=> validateCsrf >=> fun next ct
| it -> { it with UpdatedDate = ctx.Now }
do! PrayerRequests.save updated
let act = if model.IsNew then "Added" else "Updated"
- addInfo ctx ctx.Strings["Successfully {0} prayer request", ctx.Strings[act].Value.ToLower ()]
+ addInfo ctx ctx.Strings["Successfully {0} prayer request", ctx.Strings[act].Value.ToLower()]
return! redirectTo false "/prayer-requests" next ctx
| Some _
| None -> return! fourOhFour ctx
diff --git a/src/PrayerTracker/PrayerTracker.fsproj b/src/PrayerTracker/PrayerTracker.fsproj
index 424217f..aa7ea5e 100644
--- a/src/PrayerTracker/PrayerTracker.fsproj
+++ b/src/PrayerTracker/PrayerTracker.fsproj
@@ -16,6 +16,7 @@
+
@@ -25,7 +26,7 @@
-
+
diff --git a/src/PrayerTracker/SmallGroup.fs b/src/PrayerTracker/SmallGroup.fs
index 6fe720a..143df7a 100644
--- a/src/PrayerTracker/SmallGroup.fs
+++ b/src/PrayerTracker/SmallGroup.fs
@@ -97,17 +97,17 @@ open Microsoft.AspNetCore.Authentication.Cookies
// POST /small-group/log-on/submit
let logOnSubmit : HttpHandler = requireAccess [ AccessLevel.Public ] >=> validateCsrf >=> fun next ctx -> task {
- match! ctx.TryBindFormAsync () with
+ match! ctx.TryBindFormAsync() with
| Ok model ->
match! SmallGroups.logOn (idFromShort SmallGroupId model.SmallGroupId) model.Password with
| Some group ->
ctx.Session.CurrentGroup <- Some group
- let identity = ClaimsIdentity (
- Seq.singleton (Claim (ClaimTypes.GroupSid, shortGuid group.Id.Value)),
+ let identity = ClaimsIdentity(
+ Seq.singleton (Claim(ClaimTypes.GroupSid, shortGuid group.Id.Value)),
CookieAuthenticationDefaults.AuthenticationScheme)
- do! ctx.SignInAsync (
+ do! ctx.SignInAsync(
identity.AuthenticationType, ClaimsPrincipal identity,
- AuthenticationProperties (
+ AuthenticationProperties(
IssuedUtc = DateTimeOffset.UtcNow,
IsPersistent = defaultArg model.RememberMe false))
addInfo ctx ctx.Strings["Log On Successful • Welcome to {0}", ctx.Strings["PrayerTracker"]]
@@ -142,29 +142,26 @@ let members : HttpHandler = requireAccess [ User ] >=> fun next ctx -> task {
let overview : HttpHandler = requireAccess [ User ] >=> fun next ctx -> task {
let group = ctx.Session.CurrentGroup.Value
let! reqs = PrayerRequests.forGroup
- { SmallGroup = group
- Clock = ctx.Clock
- ListDate = None
- ActiveOnly = true
- PageNumber = 0
- }
+ { SmallGroup = group
+ Clock = ctx.Clock
+ ListDate = None
+ ActiveOnly = true
+ PageNumber = 0 }
let! reqCount = PrayerRequests.countByGroup group.Id
let! mbrCount = Members.countByGroup group.Id
let! admins = Users.listByGroupId group.Id
let model =
- { TotalActiveReqs = List.length reqs
- AllReqs = reqCount
- TotalMembers = mbrCount
- ActiveReqsByType = (
- reqs
- |> Seq.ofList
- |> Seq.map (fun req -> req.RequestType)
- |> Seq.distinct
- |> Seq.map (fun reqType ->
- reqType, reqs |> List.filter (fun r -> r.RequestType = reqType) |> List.length)
- |> Map.ofSeq)
- Admins = admins
- }
+ { TotalActiveReqs = List.length reqs
+ AllReqs = reqCount
+ TotalMembers = mbrCount
+ ActiveReqsByType = (
+ reqs
+ |> Seq.ofList
+ |> Seq.map (fun req -> req.RequestType)
+ |> Seq.distinct
+ |> Seq.map (fun reqType -> reqType, reqs |> List.filter (fun r -> r.RequestType = reqType) |> List.length)
+ |> Map.ofSeq)
+ Admins = admins }
return!
viewInfo ctx
|> Views.SmallGroup.overview model
@@ -183,15 +180,15 @@ open System.Threading.Tasks
// POST /small-group/save
let save : HttpHandler = requireAccess [ Admin ] >=> validateCsrf >=> fun next ctx -> task {
- match! ctx.TryBindFormAsync () with
+ match! ctx.TryBindFormAsync() with
| Ok model ->
let! tryGroup =
- if model.IsNew then Task.FromResult (Some { SmallGroup.empty with Id = (Guid.NewGuid >> SmallGroupId) () })
+ if model.IsNew then Task.FromResult(Some { SmallGroup.empty with Id = (Guid.NewGuid >> SmallGroupId) () })
else SmallGroups.tryById (idFromShort SmallGroupId model.SmallGroupId)
match tryGroup with
| Some group ->
do! SmallGroups.save (model.populateGroup group) model.IsNew
- let act = ctx.Strings[if model.IsNew then "Added" else "Updated"].Value.ToLower ()
+ let act = ctx.Strings[if model.IsNew then "Added" else "Updated"].Value.ToLower()
addHtmlInfo ctx ctx.Strings["Successfully {0} group “{1}”", act, model.Name]
return! redirectTo false "/small-groups" next ctx
| None -> return! fourOhFour ctx
@@ -200,12 +197,12 @@ let save : HttpHandler = requireAccess [ Admin ] >=> validateCsrf >=> fun next c
// POST /small-group/member/save
let saveMember : HttpHandler = requireAccess [ User ] >=> validateCsrf >=> fun next ctx -> task {
- match! ctx.TryBindFormAsync () with
+ match! ctx.TryBindFormAsync() with
| Ok model ->
let group = ctx.Session.CurrentGroup.Value
let! tryMbr =
if model.IsNew then
- Task.FromResult (Some { Member.empty with Id = (Guid.NewGuid >> MemberId) (); SmallGroupId = group.Id })
+ Task.FromResult(Some { Member.empty with Id = (Guid.NewGuid >> MemberId) (); SmallGroupId = group.Id })
else Members.tryById (idFromShort MemberId model.MemberId)
match tryMbr with
| Some mbr when mbr.SmallGroupId = group.Id ->
@@ -213,9 +210,8 @@ let saveMember : HttpHandler = requireAccess [ User ] >=> validateCsrf >=> fun n
{ mbr with
Name = model.Name
Email = model.Email
- Format = String.noneIfBlank model.Format |> Option.map EmailFormat.fromCode
- }
- let act = ctx.Strings[if model.IsNew then "Added" else "Updated"].Value.ToLower ()
+ Format = String.noneIfBlank model.Format |> Option.map EmailFormat.fromCode }
+ let act = ctx.Strings[if model.IsNew then "Added" else "Updated"].Value.ToLower()
addInfo ctx ctx.Strings["Successfully {0} group member", act]
return! redirectTo false "/small-group/members" next ctx
| Some _
@@ -225,7 +221,7 @@ let saveMember : HttpHandler = requireAccess [ User ] >=> validateCsrf >=> fun n
// POST /small-group/preferences/save
let savePreferences : HttpHandler = requireAccess [ User ] >=> validateCsrf >=> fun next ctx -> task {
- match! ctx.TryBindFormAsync () with
+ match! ctx.TryBindFormAsync() with
| Ok model ->
// Since the class is stored in the session, we'll use an intermediate instance to persist it; once that works,
// we can repopulate the session instance. That way, if the update fails, the page should still show the
@@ -249,7 +245,7 @@ open Microsoft.Extensions.Configuration
// POST /small-group/announcement/send
let sendAnnouncement : HttpHandler = requireAccess [ User ] >=> validateCsrf >=> fun next ctx -> task {
- match! ctx.TryBindFormAsync () with
+ match! ctx.TryBindFormAsync() with
| Ok model ->
let group = ctx.Session.CurrentGroup.Value
let pref = group.Preferences
@@ -271,15 +267,14 @@ let sendAnnouncement : HttpHandler = requireAccess [ User ] >=> validateCsrf >=>
}
use! client = Email.getConnection ()
do! Email.sendEmails
- { Client = client
- Recipients = recipients
- Group = group
- Subject = s["Announcement for {0} - {1:MMMM d, yyyy} {2}", group.Name, now.Date,
- (now.ToString ("h:mm tt", null)).ToLower ()].Value
- HtmlBody = htmlText
- PlainTextBody = plainText
- Strings = s
- }
+ { Client = client
+ Recipients = recipients
+ Group = group
+ Subject = s["Announcement for {0} - {1:MMMM d, yyyy} {2}", group.Name, now.Date,
+ now.ToString("h:mm tt", null).ToLower()].Value
+ HtmlBody = htmlText
+ PlainTextBody = plainText
+ Strings = s }
do! client.DisconnectAsync true
// Add to the request list if desired
match model.SendToClass, model.AddToRequestList with
@@ -296,12 +291,11 @@ let sendAnnouncement : HttpHandler = requireAccess [ User ] >=> validateCsrf >=>
RequestType = (Option.get >> PrayerRequestType.fromCode) model.RequestType
Text = requestText
EnteredDate = now.Date.AtStartOfDayInZone(zone).ToInstant()
- UpdatedDate = now.InZoneLeniently(zone).ToInstant()
- }
+ UpdatedDate = now.InZoneLeniently(zone).ToInstant() }
// Tell 'em what they've won, Johnny!
let toWhom =
if model.SendToClass = "N" then s["{0} users", s["PrayerTracker"]].Value
- else s["Group Members"].Value.ToLower ()
+ else s["Group Members"].Value.ToLower()
let andAdded = match model.AddToRequestList with Some x when x -> "and added it to the request list" | _ -> ""
addInfo ctx s["Successfully sent announcement to all {0} {1}", toWhom, s[andAdded]]
return!
diff --git a/src/PrayerTracker/User.fs b/src/PrayerTracker/User.fs
index f3828eb..7e16833 100644
--- a/src/PrayerTracker/User.fs
+++ b/src/PrayerTracker/User.fs
@@ -19,10 +19,10 @@ module Hashing =
open System.Text
/// Custom password hasher used to verify and upgrade old password hashes
- type PrayerTrackerPasswordHasher () =
- inherit PasswordHasher ()
+ type PrayerTrackerPasswordHasher() =
+ inherit PasswordHasher()
- override this.VerifyHashedPassword (user, hashedPassword, providedPassword) =
+ override this.VerifyHashedPassword(user, hashedPassword, providedPassword) =
if isNull hashedPassword then nullArg (nameof hashedPassword)
if isNull providedPassword then nullArg (nameof providedPassword)
@@ -43,7 +43,7 @@ module Hashing =
| 254uy ->
// v1 hashes - SHA-1
let v1Hash =
- use alg = SHA1.Create ()
+ use alg = SHA1.Create()
alg.ComputeHash (Encoding.ASCII.GetBytes providedPassword)
|> Seq.map (fun byt -> byt.ToString "x2")
|> String.concat ""
@@ -51,18 +51,18 @@ module Hashing =
PasswordVerificationResult.SuccessRehashNeeded
else
PasswordVerificationResult.Failed
- | _ -> base.VerifyHashedPassword (user, hashedPassword, providedPassword)
+ | _ -> base.VerifyHashedPassword(user, hashedPassword, providedPassword)
/// Retrieve a user from the database by password, upgrading password hashes if required
let private findUserByPassword model = task {
match! Users.tryByEmailAndGroup model.Email (idFromShort SmallGroupId model.SmallGroupId) with
| Some user ->
- let hasher = PrayerTrackerPasswordHasher ()
- match hasher.VerifyHashedPassword (user, user.PasswordHash, model.Password) with
+ let hasher = PrayerTrackerPasswordHasher()
+ match hasher.VerifyHashedPassword(user, user.PasswordHash, model.Password) with
| PasswordVerificationResult.Success -> return Some user
| PasswordVerificationResult.SuccessRehashNeeded ->
- let upgraded = { user with PasswordHash = hasher.HashPassword (user, model.Password) }
+ let upgraded = { user with PasswordHash = hasher.HashPassword(user, model.Password) }
do! Users.updatePassword upgraded
return Some upgraded
| _ -> return None
@@ -78,14 +78,14 @@ let sanitizeUrl providedUrl defaultUrl =
// POST /user/password/change
let changePassword : HttpHandler = requireAccess [ User ] >=> validateCsrf >=> fun next ctx -> task {
- match! ctx.TryBindFormAsync () with
+ match! ctx.TryBindFormAsync() with
| Ok model ->
let curUsr = ctx.Session.CurrentUser.Value
- let hasher = PrayerTrackerPasswordHasher ()
+ let hasher = PrayerTrackerPasswordHasher()
let! user = task {
match! Users.tryById curUsr.Id with
| Some usr ->
- if hasher.VerifyHashedPassword (usr, usr.PasswordHash, model.OldPassword)
+ if hasher.VerifyHashedPassword(usr, usr.PasswordHash, model.OldPassword)
= PasswordVerificationResult.Success then
return Some usr
else return None
@@ -93,7 +93,7 @@ let changePassword : HttpHandler = requireAccess [ User ] >=> validateCsrf >=> f
}
match user with
| Some usr when model.NewPassword = model.NewPasswordConfirm ->
- do! Users.updatePassword { usr with PasswordHash = hasher.HashPassword (usr, model.NewPassword) }
+ do! Users.updatePassword { usr with PasswordHash = hasher.HashPassword(usr, model.NewPassword) }
addInfo ctx ctx.Strings["Your password was changed successfully"]
return! redirectTo false "/" next ctx
| Some _ ->
@@ -124,7 +124,7 @@ open Microsoft.AspNetCore.Html
// POST /user/log-on
let doLogOn : HttpHandler = requireAccess [ AccessLevel.Public ] >=> validateCsrf >=> fun next ctx -> task {
- match! ctx.TryBindFormAsync () with
+ match! ctx.TryBindFormAsync() with
| Ok model ->
let s = ctx.Strings
match! findUserByPassword model with
@@ -133,14 +133,14 @@ let doLogOn : HttpHandler = requireAccess [ AccessLevel.Public ] >=> validateCsr
| Some group ->
ctx.Session.CurrentUser <- Some user
ctx.Session.CurrentGroup <- Some group
- let identity = ClaimsIdentity (
+ let identity = ClaimsIdentity(
seq {
- Claim (ClaimTypes.NameIdentifier, shortGuid user.Id.Value)
- Claim (ClaimTypes.GroupSid, shortGuid group.Id.Value)
+ Claim(ClaimTypes.NameIdentifier, shortGuid user.Id.Value)
+ Claim(ClaimTypes.GroupSid, shortGuid group.Id.Value)
}, CookieAuthenticationDefaults.AuthenticationScheme)
- do! ctx.SignInAsync (
+ do! ctx.SignInAsync(
identity.AuthenticationType, ClaimsPrincipal identity,
- AuthenticationProperties (
+ AuthenticationProperties(
IssuedUtc = DateTimeOffset.UtcNow,
IsPersistent = defaultArg model.RememberMe false))
do! Users.updateLastSeen user.Id ctx.Now
@@ -152,14 +152,12 @@ let doLogOn : HttpHandler = requireAccess [ AccessLevel.Public ] >=> validateCsr
Text = htmlLocString s["Invalid credentials - log on unsuccessful"]
Description =
let detail =
- [ "This is likely due to one of the following reasons:"
- "- The e-mail address “{0}” is invalid.
"
- "- The password entered does not match the password for the given e-mail address.
"
- "- You are not authorized to administer the selected group.
"
- ]
+ [ "This is likely due to one of the following reasons:"
+ "- The e-mail address “{0}” is invalid.
"
+ "- The password entered does not match the password for the given e-mail address.
"
+ "- You are not authorized to administer the selected group.
" ]
|> String.concat ""
- Some (HtmlString (s[detail, WebUtility.HtmlEncode model.Email].Value))
- }
+ Some (HtmlString(s[detail, WebUtility.HtmlEncode model.Email].Value)) }
|> addUserMessage ctx
return! redirectTo false "/user/log-on" next ctx
| Result.Error e -> return! bindError e next ctx
@@ -217,15 +215,15 @@ open System.Threading.Tasks
// POST /user/save
let save : HttpHandler = requireAccess [ Admin ] >=> validateCsrf >=> fun next ctx -> task {
- match! ctx.TryBindFormAsync () with
+ match! ctx.TryBindFormAsync() with
| Ok model ->
let! user =
- if model.IsNew then Task.FromResult (Some { User.empty with Id = (Guid.NewGuid >> UserId) () })
+ if model.IsNew then Task.FromResult(Some { User.empty with Id = (Guid.NewGuid >> UserId) () })
else Users.tryById (idFromShort UserId model.UserId)
match user with
| Some usr ->
- let hasher = PrayerTrackerPasswordHasher ()
- let updatedUser = model.PopulateUser usr (fun pw -> hasher.HashPassword (usr, pw))
+ let hasher = PrayerTrackerPasswordHasher()
+ let updatedUser = model.PopulateUser usr (fun pw -> hasher.HashPassword(usr, pw))
do! Users.save updatedUser
let s = ctx.Strings
if model.IsNew then
@@ -235,8 +233,7 @@ let save : HttpHandler = requireAccess [ Admin ] >=> validateCsrf >=> fun next c
Description =
h s["Please select at least one group for which this user ({0}) is authorized",
updatedUser.Name]
- |> Some
- }
+ |> Some }
|> addUserMessage ctx
return! redirectTo false $"/user/{shortGuid usr.Id.Value}/small-groups" next ctx
else
@@ -248,7 +245,7 @@ let save : HttpHandler = requireAccess [ Admin ] >=> validateCsrf >=> fun next c
// POST /user/small-groups/save
let saveGroups : HttpHandler = requireAccess [ Admin ] >=> validateCsrf >=> fun next ctx -> task {
- match! ctx.TryBindFormAsync () with
+ match! ctx.TryBindFormAsync() with
| Ok model ->
match Seq.length model.SmallGroups with
| 0 ->
diff --git a/src/PrayerTracker/wwwroot/css/help.css b/src/PrayerTracker/wwwroot/css/help.css
index b8501f9..f537ec4 100644
--- a/src/PrayerTracker/wwwroot/css/help.css
+++ b/src/PrayerTracker/wwwroot/css/help.css
@@ -5,6 +5,9 @@
background-color: white;
padding: 0 .25em;
}
+.pt-title-bar-home {
+ height: 2rem;
+}
.pt-title-bar-left {
color: white;
font-size: 1.25rem;
@@ -17,9 +20,24 @@
font-size: 1.1rem;
font-variant: small-caps;
margin-right: 1rem;
+ align-self: center;
}
h2 {
margin-top: 0;
padding-left: .5rem;
border-bottom: solid 1px #444;
}
+.pt-close-window, .pt-help-index {
+ font-size: 1.25rem;
+}
+.pt-help-index {
+ display: none;
+}
+@media screen and (min-width:451px) {
+ .pt-close-window {
+ display: none;
+ }
+ .pt-help-index {
+ display: block;
+ }
+}