-
Notifications
You must be signed in to change notification settings - Fork 0
/
testws.hs
28 lines (27 loc) · 1.31 KB
/
testws.hs
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
import IP2ProxyWebService
import Data.Maybe
main :: IO ()
main = do
let apikey = "YOUR_API_KEY"
let apipackage = "PX11"
let usessl = True
let ip = "37.252.228.50"
wsconfig <- openWS apikey apipackage usessl
result <- lookUp wsconfig ip
putStrLn $ "response: " ++ (response result)
putStrLn $ "countryCode: " ++ (fromMaybe ("-") $ (countryCode result))
putStrLn $ "countryName: " ++ (fromMaybe ("-") $ (countryName result))
putStrLn $ "regionName: " ++ (fromMaybe ("-") $ (regionName result))
putStrLn $ "cityName: " ++ (fromMaybe ("-") $ (cityName result))
putStrLn $ "isp: " ++ (fromMaybe ("-") $ (isp result))
putStrLn $ "domain: " ++ (fromMaybe ("-") $ (domain result))
putStrLn $ "usageType: " ++ (fromMaybe ("-") $ (usageType result))
putStrLn $ "asn: " ++ (fromMaybe ("-") $ (asn result))
putStrLn $ "as: " ++ (fromMaybe ("-") $ (as result))
putStrLn $ "lastSeen: " ++ (fromMaybe ("-") $ (lastSeen result))
putStrLn $ "proxyType: " ++ (fromMaybe ("-") $ (proxyType result))
putStrLn $ "threat: " ++ (fromMaybe ("-") $ (threat result))
putStrLn $ "isProxy: " ++ (fromMaybe ("-") $ (isProxy result))
putStrLn $ "provider: " ++ (fromMaybe ("-") $ (provider result))
result <- getCredit wsconfig
putStrLn $ "Credit Balance: " ++ (response result)