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

chore(avs): add more avs development test data

Browse Source
This commit is contained in:
Steffen Jost 2024-06-21 11:45:11 +02:00
parent 8721bdb3f3
commit 7ad7fe609c
4 changed files with 20 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/Utils/Avs.hs
View File

@ -112,7 +112,23 @@ mkAvsQuery _ _ _ = AvsQuery
]
fakeStatus _ = AvsResponseStatus mempty
fakeContact :: AvsQueryContact -> AvsResponseContact
fakeContact (AvsQueryContact (Set.toList -> ((AvsObjPersonId api):_))) = AvsResponseContact $ Set.singleton $ AvsDataContact api (AvsPersonInfo "123123123" "Heribert" "Sumpfmeier" (-1) Nothing Nothing (Just "jost@tcs.ifi.lmu.de") Nothing) (AvsFirmInfo "Fraport AG" 7 "Fraport" Nothing Nothing Nothing Nothing Nothing Nothing Nothing)
fakeContact (AvsQueryContact (Set.toList -> ((AvsObjPersonId api):_)))
| api == AvsPersonId 12345678 = AvsResponseContact $ Set.singleton jost
| api == AvsPersonId 2 = AvsResponseContact $ Set.singleton vaupel
| api == AvsPersonId 4 = AvsResponseContact $ Set.singleton barth
| api == AvsPersonId 12345678 = AvsResponseContact $ Set.singleton heribert
| api == AvsPersonId 604387 = AvsResponseContact $ Set.singleton heribert
| api == AvsPersonId 604591 = AvsResponseContact $ Set.singleton heribert
| otherwise = AvsResponseContact mempty
where
heribert = AvsDataContact api (AvsPersonInfo "123123123" "Heribert" "Sumpfmeier" (-1) Nothing (Just "sumpfi@tcs.ifi.lmu.de") Nothing (Just $ AvsInternalPersonalNo "57138"))
(AvsFirmInfo "Fraport AG" 7 "Fraport" Nothing Nothing Nothing Nothing Nothing Nothing Nothing)
jost = AvsDataContact api (AvsPersonInfo "12345678" "Steffen" "Jost" 0 Nothing (Just "s.jost@fraport.de") (Just "069-69071706") Nothing)
(AvsFirmInfo "Fraport AG" 7 "Fraport" Nothing Nothing Nothing Nothing Nothing Nothing Nothing)
vaupel = AvsDataContact api (AvsPersonInfo "2" "Sarah" "Vaupel" 1 Nothing (Just "sarah.vaupel@uniworx.de") (Just "069-69071706") Nothing)
(AvsFirmInfo "UniWorX GmbH" 9 "UniWorX" (Just "81929") (Just "München") (Just "Germany") (Just "Somestr. 111") (Just "uniworx@uniworx.de") Nothing Nothing)
barth = AvsDataContact api (AvsPersonInfo "4" "Stephan" "Barth" 2 Nothing (Just "stephan.barth@uniworx.de") (Just "069-69071706") Nothing)
(AvsFirmInfo "UniWorX GmbH" 9 "UniWorX" Nothing Nothing Nothing Nothing Nothing (Just "sarah.vaupel@uniworx.de") Nothing)
fakeContact _ = AvsResponseContact mempty
#else
mkAvsQuery baseUrl basicAuth cliEnv = AvsQuery

2
templates/letter/din5008with_pin.latex.license
View File

@ -1,3 +1,3 @@
SPDX-FileCopyrightText: 2023 Steffen Jost <S.Jost@Fraport.de>
SPDX-FileCopyrightText: 2023-24 Steffen Jost <S.Jost@Fraport.de>
SPDX-License-Identifier: LicenseRef-Fraport-Corporate-Design

2
templates/letter/fraport_f_expiry.md.license
View File

@ -1,3 +1,3 @@
SPDX-FileCopyrightText: 2023 Steffen Jost <S.Jost@Fraport.de>
SPDX-FileCopyrightText: 2023-24 Steffen Jost <S.Jost@Fraport.de>
SPDX-License-Identifier: LicenseRef-Fraport-Corporate-Design

2
templates/letter/fraport_licence_expiry.md.license
View File

@ -1,3 +1,3 @@
SPDX-FileCopyrightText: 2024 Steffen Jost <jost@tcs.ifi.lmu.de>
SPDX-FileCopyrightText: 2024 Steffen Jost <s.jost@fraport.de>
SPDX-License-Identifier: AGPL-3.0-or-later