fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix(avs): match mobile number better between LDAP and AVS

Browse Source
This commit is contained in:
Steffen Jost 2024-06-25 17:36:33 +02:00
parent e4fa1ddd68
commit f108c6cfec
3 changed files with 49 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/Model/Types/Avs.hs
View File

@ -31,7 +31,7 @@ import Data.Aeson
import Data.Aeson.Types as Aeson import Data.Aeson.Types as Aeson
import Utils.Postal (validPostAddressText) import Utils.Postal (validPostAddressText)
import Utils.Mail (pickValidEmail) import Utils.Mail (pickValidEmail, canonicalPhone)
{- {-
@ -557,14 +557,14 @@ _avsInfoDisplayName = lens g s
instance FromJSON AvsPersonInfo where instance FromJSON AvsPersonInfo where
parseJSON = withObject "AvsPersonInfo" $ \o -> AvsPersonInfo parseJSON = withObject "AvsPersonInfo" $ \o -> AvsPersonInfo
<$> o .: "PersonsNo" -- NOTE: PersonsNo, not PersonNo as elsewhere <$> o .: "PersonsNo" -- NOTE: PersonsNo, not PersonNo as elsewhere
<*> o .: "FirstName" <*> o .: "FirstName"
<*> o .: "LastName" <*> o .: "LastName"
<*> o .: "RampLicence" <*> o .: "RampLicence"
<*> o .:? "DateOfBirth" <*> o .:? "DateOfBirth"
<*> o .:?! "PersonEMail" <*> o .:?! "PersonEMail"
<*> o .:?! "PersonMobilePhoneNo" <*> (o .:?! "PersonMobilePhoneNo" <&> fmap canonicalPhone)
<*> o .:?! "InternalPersonalNo" <*> o .:?! "InternalPersonalNo"
instance ToJSON AvsPersonInfo where instance ToJSON AvsPersonInfo where

32
src/Utils/Mail.hs
View File

@ -62,3 +62,35 @@ pickValidUserEmail' x y
| validEmail' x = Just x | validEmail' x = Just x
| validEmail' y = Just y | validEmail' y = Just y
| otherwise = Nothing | otherwise = Nothing
--------------------
-- Telephone Utils
-- | normalize phone numbers
canonicalPhone :: Text -> Text
canonicalPhone pn
| Just pn01 <- Text.stripPrefix "01" pn
= german_mobile pn01
| Just pn01 <- Text.stripPrefix "+491" pn
= german_mobile pn01
| Just pn00 <- Text.stripPrefix "00" pn
= Text.cons '+' $ Text.map repl_nondigit pn00
| Just ('0', pn0) <- Text.uncons pn
, Just (snr, _ ) <- Text.uncons pn0
, snr /= '0'
, Char.isDigit snr
= "+49 " <> Text.map repl_nondigit pn0
| otherwise
= Text.map repl_nondigit pn
where
german_mobile :: Text -> Text
german_mobile wpx =
let (area,endnr) = Text.splitAt 2 $ Text.filter Char.isDigit wpx
in "+49 1" <> area <> Text.cons ' ' endnr
repl_nondigit :: Char -> Char
repl_nondigit c
| Char.isDigit c = c
| c == '+' = '+'
| otherwise = ' '