كام :: التطبيق إطار تطبيق قاعدة بيانات الويب
التحميل الان

كام :: التطبيق الترتيب والملخص

كام :: التطبيق العلامات

ويب قاعدة البيانات الوحدة النمطية بيرل بيرل تطبيق قاعدة البيانات إطار الويب

كام :: التطبيق وصف

إطار تطبيق قاعدة بيانات الويب كام تتطلب "config.pm"؛ # تحرير المستخدم تعريض التجزئة بلدي $ التطبيق = كام :: التطبيق-> جديد (config-> جديد ()، cgi-> جديد ())؛ $ app-> مصادقة () أو $ app-> خطأ ("فشل تسجيل الدخول")؛ بلدي $ tmpl = $ app-> قالب ("message.tmpl")؛ بلدي $ ans = $ app-> getcgi () -> param ('ans')؛ إذا (! $ ans) {$ tmpl-> addparams (msg => "ما هو لونك المفضل؟")؛ } Elsif ($ Ans EQ "Blue") {$ tmpl-> addparams (msg => "جيد جدا.")؛ } آخر {$ tmpl-> addparams (msg => "aiieeeeee!")؛ } $ tmpl-> print ()؛ subclass: (ثم استخدم تماما مثل أعلاه، استبدال cam :: التطبيق مع my :: التطبيق) package my :: التطبيق؛ استخدام كام :: التطبيق؛ @ ISA = QW (CAM :: APP)؛ Sub INIT {بلدي $ $ = التحول؛ بلدي $ usted = ".."؛ $ الذاتي -> {config} -> {cgidir} = "."؛ الذات $ الذاتي -> {config} -> {htmldir} = "$ ustir / html"؛ $ الذاتي -> {config} -> {templeatedir} = "$ ustir / tmpls"؛ $ الذاتي -> {config} -> {libdir} = "$ ustire / lib"؛ $ الذاتي -> {config} -> {sqldir} = "$ ustir / lib / sql"؛ $ الذاتي -> {config} -> {error_template} = "error_tmpl.html"؛ $ الذاتي> AddDB ("التطبيق"، "LIVE"، "DBI: MySQL: قاعدة بيانات = التطبيق"، "لي"، "mypass")؛ $ الذاتي> AddDB ("التطبيق"، "DEV"، "DBI: MySQL: قاعدة بيانات = AppDev"، "ME"، "mypass")؛ عودة $ الذاتي> سوبر :: init ()؛ } Sub Authenticate {My $ Self = Shift؛ العودة (($ الذاتي> getcgi () -> param ('passwd') || ") EQ" سر ")؛ } Sub SelectDB {بلدي ($ الذاتي، Params $) = @؛ مفتاحي $ = $ الذاتي -> {config} -> {myurl} = ~ m، ^ http: //dev.foo.com/،؟ "ديف": "العيش"؛ return @ {$ params -> {$ key}}؛ } CAM :: التطبيق عبارة عن إطار للتطبيقات المستندة إلى الويب وتطبيقات قاعدة البيانات. هذه الحزمة ملخصة بعيدا الكثير من التفاعل الشظية مع حالة تكوين التطبيق. إنه عام جدا، وهو مصمم لتصفية مهام أكثر تحديدا في سلوكه. متطلبات: perl.

كام :: التطبيق برامج ذات صلة