/ [runasimi] / trunk / cgi-bin / dict.cgi.in
To checkout: svn checkout http://svn.gnu.org.ua/sources/runasimi/trunk/cgi-bin/dict.cgi.in
Puszcza

Diff of /trunk/cgi-bin/dict.cgi.in

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 32 by gray, Tue Jun 17 21:01:28 2008 UTC revision 33 by gray, Fri Jun 20 08:40:55 2008 UTC
# Line 612  Line 612 
612     (else     (else
613      "es")))      "es")))
614            
615    (define (sql-error-handler err descr)
616      (format #t "<h1 class=\"error\">~A</h1>\n"
617              "no se puede conectar al diccionário")
618      (with-output-to-port
619          (current-error-port)
620        (lambda ()
621          (display err)
622          (display ": ")
623          (display descr))))  
624    
625    (define (dict-connect)
626      (let ((conn (sql-connect
627                   sql-iface sql-host sql-port sql-database
628                   sql-username sql-password)))
629        (sql-query conn "SET NAMES utf8")
630        conn))
631    
632  (define (dict-search)  (define (dict-search)
633    (let ((keyval (if (cgi:value "IDENT")    (let ((keyval (if (cgi:value "IDENT")
634                      (decode-string (cgi:value "IDENT"))                      (decode-string (cgi:value "IDENT"))
# Line 619  Line 636 
636                          (translate-input (cgi:value "key"))                          (translate-input (cgi:value "key"))
637                          #f))))                          #f))))
638      (if keyval      (if keyval
639          (let ((conn (sql-connect          (sql-catch-failure
640                       sql-iface sql-host sql-port sql-database           (let ((conn (dict-connect)))
                      sql-username sql-password)))  
           
641            (display "<hr />")            (display "<hr />")
           (if (not conn)  
               (display "<h1>ERROR: no se puede conectar al diccionário</h1>\n")  
642                (let* ((num 0)                (let* ((num 0)
643                       (src (get-source-language))                       (src (get-source-language))
644                       (dst (get-dest-language))                       (dst (get-dest-language))
# Line 680  Line 693 
693                  (if (= num 0)                  (if (= num 0)
694                      (display                      (display
695                       "Disculpa, no se ha encontrado la palabra en el diccionário\n"))                       "Disculpa, no se ha encontrado la palabra en el diccionário\n"))
696                  (sql-connect-close conn)))               (sql-connect-close conn))))
697            (display "<hr />")))))          (display "<hr />"))))
698    
699    
700  (define (dict-html)  (define (dict-html)

Legend:
Removed from v.32  
changed lines
  Added in v.33

Send suggestions and bug reports to Sergey Poznyakoff
ViewVC Help
Powered by ViewVC 1.1.20