#!/usr/bin/env gsi-script (define (string-index where what) (letrec ((helper (lambda (index) (if (> (+ index (string-length what)) (string-length where)) #f (if (string=? (substring where index (+ index (string-length what))) what) index (helper (+ index 1))))))) (helper 0))) (define (string-replace where what with) (let ((ind (string-index where what))) (if ind (string-append (substring where 0 ind) with (string-replace (substring where (+ ind (string-length what)) (string-length where)) what with)) where))) (define (string-split what with) (let process ((splits '()) (str what)) (let ((ind (string-index str with))) (if ind (process (cons (substring str 0 ind) splits) (substring str (+ ind (string-length with)) (string-length str))) (reverse (cons str splits)))))) (display "HTTP/1.0 200 OK\n\n") (display "\n") (display "\n") (display "
\n") (display "\n") (display "When | Who | What |
---|---|---|
" (string-append (car (string-split when "+")) " @ " (cadr (string-split when "+"))) " | " (string-append "" who "") " | " (string-append "" what "") " |
The cyberreport has been generated automatically with this script.
") (display "