MAC vendor lookup: Difference between revisions
Content added Content deleted
mNo edit summary |
(Ada version) |
||
Line 8: | Line 8: | ||
A MAC address that does not return a valid result should return the String "N/A". A error related to the network connectivity or the API should return a null result. |
A MAC address that does not return a valid result should return the String "N/A". A error related to the network connectivity or the API should return a null result. |
||
=={{header|Ada}}== |
|||
{{libheader|AWS}} |
|||
<lang Ada>with Ada.Text_IO; |
|||
with AWS.Client; |
|||
with AWS.Response; |
|||
with AWS.Messages; |
|||
procedure MAC_Vendor is |
|||
procedure Lookup (MAC : in String) is |
|||
use AWS.Response; |
|||
use AWS.Messages; |
|||
URL : constant String := "http://api.macvendors.com/" & MAC; |
|||
Page : constant Data := AWS.Client.Get (URL); |
|||
use Ada.Text_IO; |
|||
begin |
|||
Put (MAC); |
|||
Set_Col (20); |
|||
case AWS.Response.Status_Code (Page) is |
|||
when S200 => Put_Line (Message_Body (Page)); |
|||
when S404 => Put_Line ("N/A"); |
|||
when others => Put_Line ("Error"); |
|||
end case; |
|||
end Lookup; |
|||
begin |
|||
-- Have to throttle traffic to site |
|||
Lookup ("88:53:2E:67:07:BE"); delay 1.500; |
|||
Lookup ("D4:F4:6F:C9:EF:8D"); delay 1.500; |
|||
Lookup ("FC:FB:FB:01:FA:21"); delay 1.500; |
|||
Lookup ("4c:72:b9:56:fe:bc"); delay 1.500; |
|||
Lookup ("00-14-22-01-23-45"); delay 1.500; |
|||
Lookup ("23-45-67"); delay 1.500; |
|||
Lookup ("foobar"); |
|||
end MAC_Vendor;</lang> |
|||
{{out}} |
|||
<pre>88:53:2E:67:07:BE Intel Corporate |
|||
D4:F4:6F:C9:EF:8D Apple, Inc. |
|||
FC:FB:FB:01:FA:21 Cisco Systems, Inc |
|||
4c:72:b9:56:fe:bc PEGATRON CORPORATION |
|||
00-14-22-01-23-45 Dell Inc. |
|||
23-45-67 N/A |
|||
foobar N/A</pre> |
|||
=={{header|AutoHotkey}}== |
=={{header|AutoHotkey}}== |