• AMARC
  
• Membresía
  
• El mundo de AMARC
  
• Oficinas & Consejos
  
• Publicationes
  
• Actividades
  
• ¡Contáctenos!

#!/usr/bin/guile -s !# (use-modules (dbi dbi)) (use-modules (ice-9 format)) (use-modules (amarc hash-dash)) (define (get d l) (display d) (if (null? l) #f (let ((ll (assoc d l))) (if (pair? ll) (let ((y (cdr ll))) (if (equal? "#f" y) #f y)) #f)))) (load "../MZ/libamarc9.scm") (define *DB* (dbi-open "mysql" "amarc:amarc:amarc:tcp:localhost:3306")) (define *getdata* (false-if-exception (map (lambda (y) (cons (car y)(cadr y))) (map (lambda(x) (map string->symbol (string-split x #\=))) (string-split (url:decode (getenv "QUERY_STRING")) #\&))))) (define *lang* (symbol->string (or (get 'lang *getdata*) 'EN))) (display "Content-type: text/html")(newline)(newline) (define *dirname* "/home/members/public/live-radios/images/") (define *dir* (opendir *dirname*)) (define *radios-list* (let ((L '())) (do ((entry (readdir *dir*) (readdir *dir*))) ((eof-object? entry)) (if (not (file-is-directory? (string-append *dirname* entry))) (set! L (cons (basename entry ".gif") L)))) (closedir *dir*) (list->vector L))) (define *RID* (or (get 'id *getdata*) (vector-ref *radios-list* (random (vector-length *radios-list*) (seed->random-state (getpid)))))) (dbi-query *DB* (format #f "select stream_url from members where id='~a'" *RID*)) (define *URL* (cdar (dbi-get_row *DB*))) (format #t #- -# (trans "listennow" *lang* *DB*) *URL* *RID* (trans "browseonlineradios" *lang* *DB*) )