website lookup scripts

PASTE YOUR WEB SITE LOOKUP SCRIPTS

Here's mine for urban dictionary

(require (lib "url.ss" "net"))

(define (http-get url)
  (let loop ((data "") (port (get-pure-port (string->url url))))
    (let ((ln (read-line port)))
      (if (not (eof-object? ln))
          (loop (string-append data ln) port)
          (begin
            (close-input-port port)
            data)))))

(define (get-definition data)
  (regexp-match (regexp "<div class=\"def_p\">[ \\n]+<p>(.*?)</p>[ \\]+<p style=\"font-style: italic\">(.*?)</p>") data))

(define (strip-definition definition)
  (let* ((br-stripped (regexp-replace* (regexp "<br />\r") definition " "))
         (a-stripped (regexp-replace* (regexp "<a href=\".*?\">(.*?)</a>") br-stripped "\\1"))
         (quot-trans (regexp-replace* (regexp "&quot;") a-stripped "\"")))
    quot-trans))

(define (html-definition term)
  (let ((http-data (http-get (string-append "http://www.urbandictionary.com/define.php?term=";
                                            (regexp-replace* " " term "+")))))
    (get-definition http-data)))

(define (limit term definition)
  (define (lowest a b) (if (< a b) a b))
  (let ((limit 256))
    (string-append (substring definition 0 (lowest (string-length definition) limit))
                   (if (> (string-length definition) limit)
                       (string-append "... [snip] more: http://www.urbandictionary.com/define.php?term="; term)
                       ""))))
 
(define (udict term)
  (let ((definition (html-definition term)))
    (if (not (eq? definition #f))
        (limit term (strip-definition (string-append (cadr definition) " Example: " (caddr definition))))
        "")))

Examples:

> (display (udict "horrorshow"))
Part of the 'Nadsat' vocabulary used by Alex in Anothony Burgess' Novel 'A Clockwork Orange', Horrorshow was derived by Burgess from the russian word 'Khorosho' meaning well or good.  Example: real horrorshow (very good)

> (display (udict "in-out in-out"))
english slang term for sex, publicized in the movie clockwork orange Example: ...so me and the other droogs were gettin ready for some of the 'ol in-out, in-out

> (display (udict "4chan"))
you have just entered the very heart, soul, and life force of the internet. this is a place beyond sanity, wild and untamed. there is nothing new here. "new" content on 4chan is not found; it is created from old material. every interesting, offensive, shoc... [snip] more: http://www.urbandictionary.com/define.php?term=4chan

Etc.

PHP Bash.org Quote Retrieval

function getBash() {
    $address = "http://www.bash.org/?random";;
    $txt = file_get_contents($address);
    if (strpos($txt, "does not exist")) {
        echo "Quote not found";
    }
    $start = '<p class="qt">';
    $end = '</p>';
    $quotes = $this->finds($start, $end, $txt);
    $start = 'title="Permanent link to this quote."><b>';
    $end = '</b>';
    $num = $this->finds($start, $end, $txt);
    $start = 'class="qa">+</a>(';
    $end = ')<a href';
    $score = $this->finds($start, $end, $txt);
    $quotes = $num.' - Score '.$score.'{{}}}{}}{}{{{}}}'.$quotes;
    $quotes = str_replace("<br />", "{{}}}{}}{}{{{}}}", $quotes);
    echo $quotes;
    $quotes = htmlspecialchars_decode($quotes);
    $quotes = explode("{{}}}{}}{}{{{}}}", $quotes);
    foreach ($quotes as $quote) {
    echo TTrim($quote);
}

function TTrim($text) {
    return str_replace("\n", "", str_replace("\r", "", trim($text)));
}

>>3
Forgot this function

    function finds($start, $end, $txt) {
        $spos = strpos($txt, $start);
        $epos = strpos($txt, $end, $spos);
        $sn = $spos + strlen($start);
        $en = $epos;
        $len = $en - $sn;
        $quote = substr($txt, $sn, $len);
        return $quote;
    }