Add SQLite version 2021

.gitmodules

@@ -0,0 +1,3 @@
+[submodule "is-wordpress"]
+	path = is-wordpress
+	url = git@github.com:tanrax/is-wordpress.git

Makefile

@@ -9,6 +9,7 @@ prepare: ## Download and format csv with domains
 		unzip top-1m.csv.zip
 		rm top-1m.csv.zip
 		cat top-1m.csv | sed -n 's/$$/,nil/p' >> top-1m-temp.csv
+		mkdir -p resources
 		mv top-1m-temp.csv resources/top-1m.csv
 		rm top-1m.csv
 

README.md

@@ -1,7 +1,17 @@
+# Calculate WordPress usage worldwide
+
+The following script will analyze the list of the first million domains with the most visits to give you the percentage of use.
+
+Warning that it can take a long time: between 20 to 30 days.
+
+## Requirements
+
+To run it you'll need either 2Gb of RAM or a swap file of the same size.
+
 ## Install
 
 ``` sh
-sudo apt install clojure leiningen wget make
+sudo apt install clojure leiningen wget make curl bash unzip
 ```
 
 ## Prepare
@@ -13,7 +23,31 @@ make prepare
 ## Run
 
 ``` sh
-make run
+lein run
 ```
 
-OutOfMemoryError: Java heap space
+When all the CSV sites are analyzed, you can see the final figure by running the following script
+
+## Calculate percentage
+
+``` sh
+bash calculate-percentage.sh
+```
+
+## Historical
+
+### 2019
+
+19%
+
+### 2020
+
+29%
+
+## Article with conclusions (in Spanish)
+
+https://programadorwebvalencia.com/analizando-un-millon-de-paginas-para-saber-cuanto-se-usa-wordpress-2019/
+
+## Hacker News (comments)
+
+https://news.ycombinator.com/item?id=21428149

calculate-percentage.sh

@@ -0,0 +1,8 @@
+#!/bin/bash
+CSV="resources/top-1m.csv"
+NUM_WORDPRESS=$(cat $CSV | grep ,true$ | wc -l)
+NUM_NOT_WORDPRESS=$(cat $CSV | grep ,false$ | wc -l)
+NUM_TIMEOUT=$(cat $CSV | grep ,timeout$ | wc -l)
+TOTAL=$(cat $CSV | wc -l)
+
+echo "($NUM_WORDPRESS * 100) / ($TOTAL - $NUM_TIMEOUT)" | bc | awk '{print $1"%"}'

resources/top-1m-test.csv

@@ -1,4 +0,0 @@
-1,google.com,true
-2,youtube.com,false
-4,tmall.com,nil
-5,idecrea.es,nil

src/wordpress_used/core.clj

@@ -1,26 +1,13 @@
 (ns wordpress-used.core
   (:require
-   [clj-http.client :as client]
    [clojure.data.csv :as csv]
    [clojure.java.io :as io]
-   [clojure.java.shell :as shell]
-   ) (:gen-class))
+   [clojure.java.shell :as shell]) (:gen-class))
 
-(def headers {"User-Agent"                "Mozilla/5.0 (X11; Ubuntu; Linux x86_64; rv:69.0) Gecko/20100101 Firefox/69.0"
-              "Accept"                    "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
-              "Accept-Language"           "es,en-US;q=0.7,en;q=0.3"
-              "Accept-Encoding"           "gzip, deflate, br"
-              "DNT"                       "1"
-              "Connection"                "keep-alive"
-              "Upgrade-Insecure-Requests" "1"
-              "Pragma"                    "no-cache"
-              "Cache-Control"             "no-cache"
-              "TE"                        "Trailers"})
-(def http-config
-  {:headers              headers
-   :ignore-unknown-host? true
-   :connection-timeout   5000
-   :throw-exceptions     false})
+(defn wordpress?
+  "Check if a web page is generated with WordPress"
+  [url]
+  (= (clojure.string/trim-newline (:out (shell/sh "bash" "./is-wordpress/is-wordpress" url))) "true"))
 
 (defn read-csv-domains
   "Read CSV file with all domains"
@@ -28,29 +15,38 @@
   (with-open [reader (io/reader (io/resource url))]
     (doall (csv/read-csv reader))))
 
-(defn wordpress?
-  "Check if a web page is generated with WordPress"
-  [url]
-  (try
-    (let [response (client/get (str "http://" url "/") http-config)]
-      (every? identity [(re-find (re-pattern "meta.*generator.*WordPress") (:body response))]))
-    (catch Exception e
-      "timeout")))
+(defn get-chunk-list
+  "Cuts a list by the maximum number of fragments and returns the selected fragment."
+  [items-list chunk max-chunks]
+  (let [list-size   (count items-list)
+        chunk-size  (Math/ceil (/ list-size max-chunks))
+        chunk-start (int (* chunk chunk-size))
+        chunk-end   (int (+ (* chunk chunk-size) chunk-size))]
+    (subvec items-list chunk-start (if (>= chunk-end list-size) list-size chunk-end))))
+
+(defn analyse-list-chunk
+  "Analyse only the given list one chunck"
+  [items-list chunk max-chunks]
+  (doseq [domain-data (get-chunk-list items-list chunk max-chunks)] (let [line (get domain-data 0)
+                                                                          url  (get domain-data 1)]
+                                                                      ;; Show info
+                                                                      (prn (str line " " url))
+                                                                      ;; Edit domains-csv with check WordPress
+                                                                      (shell/sh "sed" "-i" (str line "s/nil/" (wordpress? url) "/g") (str "resources/" file-csv)))))
 
 (defn -main
   [& args]
   (let [;; Name of the file containing the CSV with the domains
-        file-csv          "top-1m.csv"
+        file-csv          (first args)
+        ;; Number of threads to be executed.
+        number-of-threads (second args)
         ;; Get domains from CSV
         domains-csv       (vec (read-csv-domains file-csv))
         ;; Filters leaving those that have not been checked
         domains-unchecked (vec (filter #(= (get % 2) "nil") domains-csv))]
     ;; List with domains with a boolean indicating if it is generate or not in WordPress
     (prn "Start")
-    (doseq [domain-data domains-unchecked] (let [line (get domain-data 0)
-                                                 url  (get domain-data 1)]
-                                             ;; Show info
-                                             (prn (str line " " url))
-                                             ;; Edit domains-csv with check WordPress
-                                             (shell/sh "sed" "-i" (str line "s/nil/" (wordpress? url) "/g") (str "resources/" file-csv))))
+    (dotimes [i number-of-threads] (.start (Thread. (fn []
+                                                      (analyse-list-chunk domains-uncheked i number-of-threads)))))
+
     (prn "Complete")))