fetchpull.w

@@ -774,6 +774,22 @@ KSK@...;40;32;realtime;true
       loop : cdr stats
   when target-filename : close-port port
 
+;; the following is just for fun. Not ready for production. You have been warned :-)
+;; use text without quotes in tags via ,(> any text )
+define : ->string x
+       cond
+         : symbol? x
+           symbol->string x
+         : number? x
+           format #f "~a" x
+         : unspecified? x
+           . ""
+         else
+           format #f "~A" x
+define-syntax-rule : > . args
+  string-join
+    map ->string : quasiquote args
+    . " "
 
 define : website-content port
   define title "Fetch-Pull-Stats re-woven"
@@ -783,6 +799,7 @@ define : website-content port
            head : meta : @ (charset "utf-8")
                   title ,title
            body : h1 ,title
+             p "These are the fetch-pull statistics. They provide an estimate of lifetimes of real files in Freenet and a somewhat early warning when network quality should degrade. Details are explained below the diagrams."
              p : img : @ (src "fetchpull-get-realtime.png") (alt "fetch-pull realtime download graph")
              p : img : @ (src "fetchpull-get-small.png") (alt "fetch-pull small download graph")
              p : img : @ (src "fetchpull-get-bulk.png") (alt "fetch-pull bulk download graph")
@@ -804,22 +821,28 @@ Details are available in fetchpull.w (see sources)"
              p "Realtime is a raw KSK without any redirect. Size 80 bytes, Uploaded and downloaded in realtime mode without compression, using all tricks to reduce latency. This is the fake chat-message: What you would use for interactive status updates and such."
              p "Small is a KSK splitfile (a KSK that has the links to about 7 CHKs, needs 3-4). Size 128kiB uncompressed, around 80kiB compressed, Uploaded and downloaded in bulk mode."
              p "Bulk is a KSK which forwards to a CHK splitfile that has around 40 blocks, needs about 20 to download. Size 1MiB uncompressed, around 650kiB compressed, uploaded and downloaded in bulk mode."
+             p "This page is generated by running " : code "./fetchpull.w --site fetchpullstats"
+                 ;; the following is just for fun. Not ready for production. You have been warned :-)
+                 . " " ,(> and then ,(string-append "uploaded" " " "with") freesitemgr (from pyFreenet ,{1 + 2}) as freesite.)
+                 br
+                 . "Feel free to create your own version."
              h2 "Sources"
-             p "created with " 
-                 a : @ (href "fetchpull.w") (title "link to exact file which generated this site")
-                   . "fetchpull.w"
-             p "from project "
-                 a : @ (href "https://bitbucket.org/ArneBab/freenet-guile") (title "link to project")
-                   . "guile-fcp"
-             p "plotted with "
-                 a : @ (href "fetchpull-plot.gnuplot") (title "plotting script for gnuplot")
-                   . "fetchpull-plot.gnuplot"
-             p "using data from "
-                 a : @ (href "fetchpull-stats-get.csv") (title "download stats")
-                   . "fetchpull-stats-get.csv"
-                 . " and "
-                 a : @ (href "fetchpull-stats-put.csv") (title "upload stats")
-                   . "fetchpull-stats-put.csv"
+             ul
+               li "created with " 
+                   a : @ (href "fetchpull.w") (title "link to exact file which generated this site")
+                     . "fetchpull.w"
+               li "from project "
+                   a : @ (href "https://bitbucket.org/ArneBab/freenet-guile") (title "link to project")
+                     . "guile-fcp"
+               li "plotted with "
+                   a : @ (href "fetchpull-plot.gnuplot") (title "plotting script for gnuplot")
+                     . "fetchpull-plot.gnuplot"
+               li "using data from "
+                   a : @ (href "fetchpull-stats-get.csv") (title "download stats")
+                     . "fetchpull-stats-get.csv"
+                   . " and "
+                   a : @ (href "fetchpull-stats-put.csv") (title "upload stats")
+                     . "fetchpull-stats-put.csv"
              p
                  a : @ (href "/?newbookmark=USK@lwR9sLnZD3QHveZa1FB0dAHgeck~dFNBg368mY09wSU,0Vq~4FXSUj1-op3QdzqjZsIvrNMYWlnSdUwCl-Z1fYA,AQACAAE/fetchpullstats/8/&desc=fetchpullstats&hasAnActivelink=true")
                    . "bookmark this freesite"