Message on homepage to warn about disabled account creation.

src/App/Page/Home.purs

@@ -42,17 +42,14 @@ initialState _ = unit
 render :: forall m. State -> H.ComponentHTML Action () m
 render _ = HH.div_
              [ Web.hero_danger
-                 -- "THIS IS A BETA RELEASE"
+                 [ HH.text "18 november 2025: Bots, bots everywhere!" ]
-                 -- "You can register, login and play a bit with the tool. Feel free to report errors and suggestions."
+                 [ Web.hr
-                 [ HH.text "MESSAGE DE MIGRATION" ]
+                 , Web.p "A few days ago, I implemented zone delegation for netlib.re. This feature is useful in a number of cases, but it is also exploited by hackers to hide their misdeeds."
-                 [ Web.p "En bref : le site a été refait à neuf, en anglais (une traduction arrivera… un jour), et les comptes ont été migrés."
+                 , Web.hr
-                 , Web.p "Les utilisateurs peuvent se connecter avec leurs identifiants habituels et leurs domaines sont toujours attribués, mais le contenu n'a pas été préservé (il faut re-configurer les zones)."
+                 , Web.p "Due to their abuse, I am temporarily disabling account creation on netlib.re and will be purging some of the accounts created since the introduction of delegation. My goal is to implement a countermeasure to these attacks in the near future. Only then will I reactivate account creation."
-                 , Web.p """
+                 , Web.hr
-                 Les comptes migrés sont conservés 6 mois, puis supprimés si aucune connexion n'est faite,
+                 , Web.p "Current accounts will continue to function without disruption."
-                 afin de purger un certain nombre de vieux comptes de robots.
+                 , Web.p "Thank you for your understanding."
-                 """
-                 , HH.p [ HP.classes [C.margin_top 3] ]
-                   [ Web.outside_link [C.button, C.is_info] url_linuxfr "Article linuxfr.org présentant la nouvelle version de netlibre" ]
                  ]
              , Web.section_small
                  [ Web.h1 "Welcome to netlib.re"
@@ -65,7 +62,6 @@ render _ = HH.div_
                  ]
              ]
   where
-    url_linuxfr = "https://linuxfr.org/news/netlibre-un-service-libre-et-un-nom-de-domaine-gratuit"
     title = Web.h4
     b x = Web.column_ [ Web.box x ]