| DB :: DFC. DB :: DFC´Â DOCOVERUMÀÇ DFC¿¡ ´ëÇÑ PERLÀÇ °´Ã¼ ÁöÇâ ÀÎÅÍÆäÀ̽ºÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
DB :: DFC. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~msroth/Db-DFC-0.4/DFC.pm
DB :: DFC. ű×
DB :: DFC. ¼³¸í
DB :: DFC´Â PERLÀÇ DFCÀÇ PERLÀÇ °´Ã¼ ÁöÇâ ÀÎÅÍÆäÀ̽ºÀÔ´Ï´Ù. DB :: DFC´Â DocumentumÀÇ DFC.Synopsis »ç¿ë DB :: DFC¿¡ ´ëÇÑ PERLÀÇ °´Ã¼ ÁöÇâ ÀÎÅÍÆäÀ̽ºÀÔ´Ï´Ù. $ dfc = db :: dfc-> new (); $ docbase = "docbase"; $ user = "»ç¿ëÀÚ"; $ password = "passwd"; $ domain = "domain"; $ file = $ 0; $ dfclient = dfclient-> new (); $ idfclient = $ dfclient-> getLocalClient (); $ idflogininfo = dflogininfo-> new (); $ idflogininfo-> setUser ($ »ç¿ëÀÚ); $ idflogininfo-> setPassword ($ password); $ idflogininfo-> setdomain ($ domain); $ idfsession = $ idfclient-> ´º½º ($ docbase, $ idflogininfo); $ pobj = $ idfsession-> newObject ( "dm_document"); $ doc = $ dfc-> casttoidfdocument ($ pobj); $ doc-> setObjectName ( "ÀÌ ÆÄÀÏ"); $ doc-> setContentType ( "crtext"); $ doc-> setfile ($ file); $ doc-> save (); "ndocument id :"¸¦ ÀμâÇϽʽÿÀ. $ doc-> getObjectID () -> tostring (). "created.n"; $ idfsession-> ¿¬°á ÇØÁ¦; ¿ä±¸ »çÇ× : ¡¤ Perl.
DB :: DFC. °ü·Ã ¼ÒÇÁÆ®¿þ¾î