update network/dns.pl and .github/CODE_OF_CONDUCT.md

htrgouvea · Jun 16, 2018 · 588fe70 · 588fe70
1 parent cd8d1a6
commit 588fe70
Show file tree

Hide file tree

Showing 2 changed files with 25 additions and 16 deletions.
diff --git a/CODE_OF_CONDUCT.md → .github/CODE_OF_CONDUCT.md b/CODE_OF_CONDUCT.md → .github/CODE_OF_CONDUCT.md
diff --git a/network/dns.pl b/network/dns.pl
@@ -10,22 +10,31 @@
 use Net::DNS;
 use IO::Select;
 
-my $timout = 5;
-my $res     = new Net::DNS::Resolver;
-my $bgsock  = $res -> bgsend ("heitorgouvea.me");
-my $sel     = IO::Select -> new ($bgsock);
-my @ready   = $sel -> can_read ();
-
-if (@ready) {
-	foreach my $sock (@ready) {
-		if ($sock == $bgsock) {
-			my $packet = $res -> bgread ($bgsock);
-
-			$packet -> print;
-	    $bgsock = undef;
-		}
+sub main {
+	my $target = $ARGV[0];
+
+	if ($target) {
+		my $timout = 5;
+		my $res     = new Net::DNS::Resolver;
+		my $bgsock  = $res -> bgsend ($target);
+		my $sel     = IO::Select -> new ($bgsock);
+		my @ready   = $sel -> can_read ();
+
+		if (@ready) {
+			foreach my $sock (@ready) {
+				if ($sock == $bgsock) {
+					my $packet = $res -> bgread ($bgsock);
 
-		$sel -> remove($sock);
-	  $sock = undef;
+					$packet -> print;
+					$bgsock = undef;
+				}
+
+				$sel -> remove($sock);
+				$sock = undef;
+			}
+		}
 	}
 }
+
+main();
+exit;