| OpenPlugin :: ¿¹¿Ü OpenPluginÀÇ ¿¹¿Ü¸¦À§ÇÑ ±âº» Ŭ·¡½º |
Áö±Ý ´Ù¿î·Îµå |
OpenPlugin :: ¿¹¿Ü ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Eric Andreychek and Chris Winters
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~eric/OpenPlugin-0.11/OpenPlugin/Datasource/Template.pm
OpenPlugin :: ¿¹¿Ü ű×
OpenPlugin :: ¿¹¿Ü ¼³¸í
OpenPluginÀÇ ¿¹¿Ü¸¦À§ÇÑ ±âº» Ŭ·¡½º OpenPlugin :: ¿¹¿Ü´Â OpenPlugin¿¡¼ ¿¹¿Ü¸¦À§ÇÑ ±âº» Perl Ŭ·¡½ºÀÔ´Ï´Ù. Synopsis # ´øÁö±â $ OP-> ¿¹¿Ü -> ´øÁö±â ( "¿¹¿Ü°¡ ¹ß»ýÇß½À´Ï´Ù"); # ¿¹¿Ü¸¦ ´øÁö°í ·Î±× Ç÷¯±×ÀÎ $ OP-> ¿¹¿Ü -> log_throw ( "¿¹¿Ü°¡ ¹ß»ýÇß½À´Ï´Ù")¸¦ »ç¿ëÇÏ¿© ¸Þ½ÃÁö¸¦ ±â·ÏÇϽʽÿÀ. # ¿¹¿Ü¸¦ ÀâÀ¸½Ê½Ã¿À. creation_location () eval {$ OP-> ¼¼¼Ç -> ÀúÀå ($ ¼¼¼Ç)}À¸·Î ´õ ¸¹Àº Á¤º¸¸¦ ¾òÀ¸½Ê½Ã¿À. if ($ @) {print "¿À·ù : $ @", $ @ -> creation_location, " ";} # ¶Ç´Â ½ºÅà ÃßÀû eval {$ OP-> ¼¼¼Ç -> ÀúÀå ($ session)}; ($ @) {print"¿À·ù : $ @ ","½ºÅà ÃßÀû : ", $ @ -> ÃßÀû -> as_string " ½ºÅÃÀÌ ¸¶Áö¸·À¸·Î @Errors = $ OP-> ¿¹¿Ü -> get_stackÀ» »èÁ¦ ÇÑ ÀÌ·¡·Î ¸ðµç ¿¹¿Ü¸¦ °¡Á® ¿ÀÁö ¾Ê´Â ÇÏÀ§ Ŭ·¡½º¿¡¼ ¿À¹ö¶óÀ̵尡¾ø´Â °Í; "; @ @Errors (@Errors) {print"¿À·ù : ", $ e-> creation_location" ";} # ¿ÀÇ Ç÷¯±×¸¦ »ç¿ëÇÏ´Â ¸ðµâÀÇ °³¹ßÀڷμ MY $ RV = EVAL {$ DBH-> DO ($ SQL)}; if ($ @) {$ @ -> ´øÁö±â ("¿À·ù! ") #
<$ do ($ sql)}; if ($) @) {$ op-> ¿¹¿Ü ( 'dbi') -> throw ($ @, {sql => $ sql, action => 'do'}) # ¿¹¿Ü¸¦ ÀâÀ¸½Ê½Ã¿À. rv = eval {$ OP-> ¼¼¼Ç -> fetch ($ session_id)}; if ($ @) {if ($ @) {$ OP-> DataSource-> Disconnect ( 'database_dataSource'); $ OP-> DataSource -> Disconnect ( 'LDAP_DataSource'); $ OP-> ¿¹¿Ü -> ´øÁö±â ($ ¿¹¿Ü);}ÀÌ Å¬·¡½º´Â OpenPluginÀÇ ¸ðµç ¿¹¿ÜÀÇ ±âº»ÀÔ´Ï´Ù. ¿¹¿Ü´Â ÀϹÝÀûÀ¸·Î »óȲÀÌ ¾Æ´Ñ ÀÏÁ¾ÀÇ ¿À·ù »óŸ¦ ³ªÅ¸³»´Â µ¥ ÀϹÝÀûÀ¸·Î »ç¿ëµË´Ï´Ù. ÀϹÝÀûÀ¸·Î ¹ß»ýÇÒ ¼ö ÀÖ½À´Ï´Ù. ¿¹¸¦ µé¾î, µ¥ÀÌÅÍ ÀúÀå¼Ò¿¡¾ø´Â ·¹Äڵ带 °¡Á® ¿À·Á°íÇÏ´Â °æ¿ì ¿¹¿Ü¸¦ throwÇÏÁö ¾Ê½À´Ï´Ù. ±×·¯³ª q°¡ ¿¹¿Ü¸¦ ´øÁú °ÍÀÔ´Ï´Ù. uery°¡ µ¥ÀÌÅͺ£À̽º ½ºÅ°¸¶°¡ º¯°æµÇ¾ú°í SQL ¹®ÀÌ Á¦°Å µÈ Çʵ带 ÂüÁ¶Ç߱⠶§¹®¿¡ ½ÇÆÐÇß½À´Ï´Ù. ¿ä±¸ »çÇ× : ¡¤ Perl.
OpenPlugin :: ¿¹¿Ü °ü·Ã ¼ÒÇÁÆ®¿þ¾î