generate-report ( -- html )

Vocabulary

spider.report

Inputs

None

Outputs

html

an object

Definition

USING: kernel namespaces urls xml.data xml.syntax.private ;

IN: spider.report

: generate-report ( -- html )
    url get dup report-broken-pages report-network-failures
    report-timings 5 nenum T{ xml-chunk
        { seq
            V{
                ""
                T{ tag { name ~name~ } { children ~vector~ } }
                "\n    URL: "
                T{ tag
                    { name ~name~ }
                    { attrs ~attrs~ }
                    { children ~vector~ }
                }
                "\n\n    "
                T{ tag { name ~name~ } { children ~vector~ } }
                "\n    "
                T{ interpolated { var 2 } }
                "\n\n    "
                T{ tag { name ~name~ } { children ~vector~ } }
                "\n    "
                T{ interpolated { var 3 } }
                "\n\n    "
                T{ tag { name ~name~ } { children ~vector~ } }
                "\n    "
                T{ interpolated { var 4 } }
                ""
            }
        }
    } interpolate-xml ;