From cc5a442e31964c8233d3b2357327a62d0cd1c93d Mon Sep 17 00:00:00 2001 From: Mylloon Date: Tue, 4 Jul 2023 13:13:02 +0200 Subject: [PATCH] yay! --- bin/main.ml | 18 +----------------- 1 file changed, 1 insertion(+), 17 deletions(-) diff --git a/bin/main.ml b/bin/main.ml index 6772f9e..5f50693 100644 --- a/bin/main.ml +++ b/bin/main.ml @@ -1,19 +1,3 @@ open Dnstoy -let print = function - | Some value -> print_endline (Utils.get_bytecode value) - | None -> print_endline "No IP found" -;; - -let () = - let response = Network.send_request "8.8.8.8" "www.mylloon.fr" Types.DNSType.a in - print_endline (Utils.get_bytecode response); - let dns_packet = Response.parse_dns_packet response in - print_endline (Debug.dns_packet dns_packet); - print (Network.lookup_domain "example.com"); - print (Network.lookup_domain "recurse.com"); - print (Network.lookup_domain "www.metafilter.com"); - List.iter - (fun e -> print_endline (Debug.dns_record e)) - (Network.send "8.8.8.8" "example.com" 16).answers -;; +let () = print_endline (Network.resolve "www.mylloon.fr" Types.DNSType.a)