From c1712a0f2146e24467067bd901a47772610a7e87 Mon Sep 17 00:00:00 2001
From: Andinus <andinus@nand.sh>
Date: Thu, 4 Mar 2021 18:20:15 +0530
Subject: Remove WWW dependency

---
 META6.json                    |  3 ---
 lib/Octans/Puzzle/Get.rakumod | 42 ++++--------------------------------------
 2 files changed, 4 insertions(+), 41 deletions(-)

diff --git a/META6.json b/META6.json
index ca48954..491ece2 100644
--- a/META6.json
+++ b/META6.json
@@ -14,9 +14,6 @@
         "Octans::RangeSearch" : "lib/Octans/RangeSearch.rakumod",
         "Octans::WordSearch" : "lib/Octans/WordSearch.rakumod"
     },
-    "depends" : [
-        "WWW:ver<1.005006+>:auth<github:raku-community-modules>"
-    ],
     "build-depends" : [ ],
     "test-depends" : [ ],
     "resources" : [
diff --git a/lib/Octans/Puzzle/Get.rakumod b/lib/Octans/Puzzle/Get.rakumod
index f4094b2..df11652 100644
--- a/lib/Octans/Puzzle/Get.rakumod
+++ b/lib/Octans/Puzzle/Get.rakumod
@@ -1,39 +1,5 @@
-use WWW;
-use Octans::Puzzle;
-
-# get-puzzle returns Puzzle.new() given input path.
-sub get-puzzle(
-    Str $path
-) is export {
-    my @grids;
-
-    # $url will hold the url that we'll call to get the toot data.
-    my Str $url;
-
-    # User can pass 2 types of links, either it will be the one
-    # when they view it from their local instance or the one they
-    # get from Algot's profile. We set $url from it.
-    if $path.match("web/statuses") -> $match {
-        $url = $match.replace-with("api/v1/statuses");
-    } else {
-        $url = "https://mastodon.art/api/v1/statuses/" ~ $path.split("/")[*-1];
-    }
-
-    # grids capture grids of a row.
-    my token grids { \S \*? }
-    # rows capture rows of the puzzle.
-    my token rows { <grids> ** 2..* % \h }
-
-    # jget just get's the url & decodes the json. We access the
-    # description field of 1st media attachment.
-    if (jget($url)<media_attachments>[0]<description> ~~
-        / \n\n <rows>+ % \n /
-       ) -> $match {
-        for 0 .. $match<rows>.end -> $y {
-            for 0 .. $match<rows>[$y]<grids>.end -> $x {
-                @grids[$y][$x] = $match<rows>[$y]<grids>[$x].lc;
-            }
-        }
-    }
-    return Puzzle.new(grids => @grids);
+sub get-puzzle(Any) is export {
+    note "Cannot fetch the puzzle.";
+    note "This version is built without WWW support.";
+    exit 1;
 }
-- 
cgit 1.4.1-2-gfad0