disable --deep feature

htrgouvea · Apr 16, 2024 · 0c74da1 · 0c74da1
1 parent e585038
commit 0c74da1
Showing 1 changed file with 14 additions and 10 deletions.
diff --git a/lib/Spellbook/Recon/Extract_Links.pm b/lib/Spellbook/Recon/Extract_Links.pm
@@ -26,27 +26,31 @@ package Spellbook::Recon::Extract_Links {
                 $target = "https://$target";
             }
 
+            if ($target =~ /\/$/) { chop($target); }
+
             my $request = $mech -> get($target);
             my @links   = $mech -> links();
 
             for my $link (@links) {
                 my $url = $link -> url();
 
-                if (($url) && ($url !~ m/#/)) {
+                if (($url) && ($url !~ m/#/) && ($url !~ /^http(s)?:\/\//)) {
+                    if ($url !~ /^\//) { $url = "/" . $url; }
+
                     push @result, $url;
-
-                    if (($deep) && ($url !~ "^(http|https)://")) {
-                        try {
-                            push @result, Spellbook::Recon::Extract_Links -> new(["--target" => $target . $url]);
-                        }
 
-                        catch {
-                            # 
-                        };
-                    }
+                    # if ($deep) {
+                    #     try {
+                    #         push @result, Spellbook::Recon::Extract_Links -> new(["--target" => $target . $url]);
+                    #     }
+                    # }
                 }
             }
 
+            for my $item (@result) {
+                $item = $target . $item;
+            }
+
             return uniq @result;
         }