Add view counter, likes/dislikes, rating, and HTML parser

shard.yml

@@ -11,6 +11,8 @@ targets:
 dependencies:
   kemal:
      github: kemalcr/kemal
+  pg:
+    github: will/crystal-pg
 
 crystal: 0.23.1
 

src/visor.cr

@@ -1,25 +1,56 @@
+require "http/client"
+require "json"
 require "kemal"
+require "pg"
 require "xml"
-require "http/client"
-require "base64"
 
 macro templated(filename)
   render "views/#{{{filename}}}.ecr", "views/layout.ecr"
 end
 
-context = OpenSSL::SSL::Context::Client.insecure
+# pg = DB.open("postgres://kemal@visor/dev")
-client = HTTP::Client.new("www.youtube.com", 443, context)
+
+alias Type = String | Hash(String, Type)
+
+def object_to_hash(value)
+  object = {} of String => Type
+  items = value.split("&")
+  items.each do |item|
+    key, value = item.split("=")
+    value = URI.unescape(value)
+    object[key] = parse_uri(value)
+  end
+  return object
+end
 
-def params_to_hash(params)
+def array_to_hash(value)
-  pairs = params.split("&")
+  array = {} of String => Type
-  hash = Hash(String, String).new
+  items = value.split(",")
-  pairs.each do |pair|
+  count = 0
-    key, value = pair.split("=")
+  items.each do |item|
-    hash[key] = URI.unescape(value)
+    array[count.to_s] = parse_uri(item)
+    count += 1
   end
-  return hash
+  return array
 end
 
+def parse_uri(value)
+  if value.starts_with?("http") || value.starts_with?("[")
+    return value
+  else
+    if value.includes?(",")
+      return array_to_hash(value)
+    elsif value.includes?("&")
+      return object_to_hash(value)
+    else
+      return value
+    end
+  end
+end
+
+context = OpenSSL::SSL::Context::Client.insecure
+client = HTTP::Client.new("www.youtube.com", 443, context)
+
 get "/" do |env|
   templated "index"
 end
@@ -27,42 +58,37 @@ end
 get "/watch/:video_id" do |env|
   video_id = env.params.url["video_id"]
 
-  if File.exists?("video_info/#{video_id}")
-    video_info = JSON.parse(File.open("video_info/#{video_id}"))
-  else
   video_info_encoded = HTTP::Client.get("https://www.youtube.com/get_video_info?video_id=#{video_id}&el=info&ps=default&eurl=&gl=US&hl=en", nil, nil, tls = context).body
-    video_info = params_to_hash(video_info_encoded)
+  video_info = object_to_hash(video_info_encoded)
+  body = client.get("/watch?v=#{video_id}").body
+  doc = XML.parse(body)
 
-    File.write("video_info/#{video_id}", video_info.to_json)
+  likes = doc.xpath_node(%q(//button[@title="I like this"]/span))
+  if likes
+    likes = likes.content
+  else
+    likes = "n/a"
   end
   
-  fmt_stream_map = video_info["url_encoded_fmt_stream_map"].to_s.split(",")
+  dislikes = doc.xpath_node(%q(//button[@title="I dislike this"]/span))
-  fmt_stream = Array(Hash(String, String)).new
+  if dislikes
-  fmt_stream_map.each do |fmt|
+    dislikes.content
-    fmt_stream << params_to_hash(fmt.to_s)
+  else
+    dislikes = "n/a"
   end
-  fmt_stream.reverse!
+
+  File.write("video_info/#{video_id}", video_info.to_json)
   templated "watch"
 end
 
-get "/listen/:video_id" do |env|
+# get "/listen/:video_id" do |env|
-  video_id = env.params.url["video_id"]
+#   video_id = env.params.url["video_id"]
-
-  if File.exists?("video_info/#{video_id}")
-    video_info = JSON.parse(File.open("video_info/#{video_id}"))
-  else
-    video_info_encoded = HTTP::Client.get("https://www.youtube.com/get_video_info?video_id=#{video_id}&el=info&ps=default&eurl=&gl=US&hl=en", nil, nil, tls = context).body
-    video_info = params_to_hash(video_info_encoded)
-
-    File.write("video_info/#{video_id}", video_info.to_json)
-  end
 
-  adaptive_fmt = Array(Hash(String, String)).new
+#   video_info_encoded = HTTP::Client.get("https://www.youtube.com/get_video_info?video_id=#{video_id}&el=info&ps=default&eurl=&gl=US&hl=en", nil, nil, tls = context).body
-  video_info["adaptive_fmts"].to_s.split(",") do |fmt|
+#   video_info = object_to_hash(video_info_encoded)
-    adaptive_fmt << params_to_hash(video_info["adaptive_fmts"].to_s)
+#   File.write("video_info/#{video_id}", video_info.to_json)
-  end
+#   templated "listen"
-  templated "listen"
+# end
-end
 
 public_folder "assets"
 

views/listen.ecr

@@ -1,16 +1,19 @@
-<h1><%= URI.unescape(video_info["title"].to_s,true) %></h1>
+<% title = URI.unescape(video_info["title"].as(String), true) %>
-<video style="width: 100%" poster="<%= video_info["iurlmq"] %>" controls>
+<h1><%= title %></h1>
-<% adaptive_fmt.each do |fmt| %>
+<video style="width: 100%" poster="<%= video_info["iurlhq720"] %>" controls>
-    <% fmt_type = fmt["type"].to_s.split(";")[0] %>
+<% video_info["adaptive_fmts"].as(Hash).each do |key, value| %>
-    <% if fmt_type.starts_with?("audio") %> 
+    <% url = value["url"] %>
-    <source src="<%= fmt["url"] %>" type="<%= fmt_type %>">
+    <% type = value["type"].to_s.split(";")[0] %>
+    <% if type.starts_with?("audio") %>
+        <source src="<%= url %>" type="<%= type %>">
     <% end %>
 <% end %>
 </video>
-
-
 <div class="pure-g">
 <div class="pure-u-1 pure-u-md-1-5"></div>
 <div class="pure-u-1 pure-u-md-3-5"></div>
-<div class="pure-u-1 pure-u-md-1-5"></div>
+<div class="pure-u-1 pure-u-md-1-5">
+    <p>Views : <%= video_info["view_count"] %></p>
+    <p>Rating : <%= video_info["avg_rating"] %></p>
+</div>
 </div>

views/watch.ecr

@@ -1,15 +1,20 @@
-<h1><%= URI.unescape(video_info["title"].to_s,true) %></h1>
+<% title = URI.unescape(video_info["title"].as(String), true) %>
-<video style="width: 100%" poster="<%= video_info["iurlmq"] %>" controls>
+<h1><%= title %></h1>
-    <% fmt_stream.each do |fmt| %>
+<video style="width: 100%" poster="<%= video_info["iurl"] %>" controls>
-        <source src="<%= fmt["url"] %>" type="<%= fmt["type"].to_s.split(";")[0] %>">
+<% video_info["url_encoded_fmt_stream_map"].as(Hash).each do |key, value| %>
-    <% end %>
+    <% url = value["url"] %>
+    <% type = value["type"]["0"].to_s.split(";")[0] %>
+    <source src="<%= url %>" type="<%= type %>">
+<% end %>
 </video>
 <div class="pure-g">
-<div class="pure-u-1 pure-u-md-1-5"></div>
+    <div class="pure-u-1 pure-u-md-1-5">
-<div class="pure-u-1 pure-u-md-3-5">
+        <p>Likes: <%= likes %></p>
-<% fmt_stream.each do |fmt| %>
+        <p>Dislikes: <%= dislikes %></p>
-<p><%= fmt["quality"] %></p>
+    </div>
-<% end %>
+    <div class="pure-u-1 pure-u-md-3-5"></div>
-</div>
+    <div class="pure-u-1 pure-u-md-1-5">
-<div class="pure-u-1 pure-u-md-1-5"></div>
+        <p>Views : <%= video_info["view_count"] %></p>
+        <p>Rating : <%= video_info["avg_rating"] %></p>
+    </div>
 </div>