Cámara :: aplicación Marco de aplicación de la base de datos web
Descargar ahora

Cámara :: aplicación Clasificación y resumen

Cámara :: aplicación Etiquetas

web base de datos Módulo perl perla Aplicación de la base de datos marco web

Cámara :: aplicación Descripción

Marco de aplicación de la base de datos web CAM :: APP es un marco de la aplicación de la base de datos web.SynopsisYou, puede instanciar directamente este módulo, o crear una subclase, creando métodos anulados según sea necesario. Uso de LIRCT: Use CAM :: APP; Requerir "config.pm"; # configuración editada por el usuario Hash My $ App = Cam :: App-> New (config-> nuevo (), cgi-> nuevo ()); $ app-> autenticar () o $ app-> error ("error de inicio de sesión"); MY $ TMPL = $ App-> Plantilla ("Message.TMPL"); My $ ANS = $ App-> GetCGI () -> Param ('Ans'); Si (! $ ANS) {$ tmpl-> AddParams (MSG => "¿Cuál es su color favorito?"); } Elsif ($ ANS EQ "azul") {$ tmpl-> AddParams (MSG => "Muy bueno"); } else {$ tmpl-> AddParams (MSG => "AIIEEEEEEE!"); } $ tmpl-> Imprimir (); Subclase: (luego use igual que arriba, reemplazar la leva :: Aplicación con MY :: APP) MY :: APP; Usa CAM :: APP; @Isa = QW (CAM :: APP); Sub init {My $ Self = Shift; My $ BASICIR = "..."; $ yo -> {config} -> {cgidir} = "."; $ yo -> {config} -> {basadoir} = $ basadoir; $ yo-> {config} -> {htmldir} = "$ basadoir / html"; $ yo -> {config} -> {templatedir} = "$ basadoir / tmpls"; $ yo -> {config} -> {libdir} = "$ basadoir / lib"; $ yo -> {config} -> {sqldir} = "$ basadosir / lib / sql"; $ yo -> {config} -> {error_template} = "error_tmpl.html"; $ Self-> Adddb ("Aplicación", "Live", "DBI: MySQL: Base de datos = aplicación", "yo", "MyPASS"); $ Self-> Adddb ("Aplicación", "Dev", "DBI: MySQL: Base de datos = APPDEV", "ME", "MYPASS"); Devuelve $ Self-> Super :: init (); } Sub autenticar {My $ Self = Shift; retorno (($ auto-> getcgi () -> param ('passwd') || "") EQ "Secret"); } Sub SelectDB {My ($ Self, $ params) = @_; My $ KEY = $ Self -> {config} -> {myurl} = ~ m, ^ http: //dev.foo.com/ ,? "dev": "Vive"; Devolver @ {$ params -> {$ Tecla}}; } CAM :: APP es un marco para aplicaciones basadas en la base de bases de datos. Este paquete se abstrae mucho de la tediosa interacción con el estado de configuración de la aplicación. Es bastante genérico, y está diseñado para ser subclasificado con funciones más específicas que anulan su comportamiento. Requisitos: · Perl

Cámara :: aplicación Software relacionado