Connect to an Amazon RDS instance over SSL.

amazon_rds_connection.rkt

(require db openssl)

; connect to a Amazon RDS MySQL instance using SSL

(define sslcontext 
  (let ([ctx (ssl-make-client-context 'tls)])                                                                               
  (ssl-load-verify-root-certificates! ctx "./rds-combined-ca-bundle.pem")
  (ssl-set-verify! ctx #t)                                                                                                  (ssl-set-ciphers! ctx "DEFAULT:!aNULL:!eNULL:!LOW:!EXPORT:!SSLv2")
  (ssl-seal-context! ctx)
  ctx))

(define mysqldb (mysql-connect 
  #:server "example.host.rds.amazonaws.com"
  #:port 3306
  #:database "database_name"
  #:user "username"
  #:password "password"
  #:ssl 'yes
  #:ssl-context sslcontext))