httpd :: groupadmin.

httpd :: GroupAdminÀº HTTP ¼­¹ö ±×·ì µ¥ÀÌÅͺ£À̽º °ü¸®¸¦À§ÇÑ Perl ¸ðµâÀÔ´Ï´Ù.
Áö±Ý ´Ù¿î·Îµå

httpd :: groupadmin. ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • Doug MacEachern
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~gozer/mod_perl-1.30/lib/Apache/Status.pm

httpd :: groupadmin. ű×


httpd :: groupadmin. ¼³¸í

httpd :: groupAdminÀº HTTP ¼­¹ö ±×·ì µ¥ÀÌÅͺ£À̽º °ü¸®¸¦À§ÇÑ Perl ¸ðµâÀÔ´Ï´Ù. httpd :: groupAdminÀº HTTP ¼­¹ö ±×·ì µ¥ÀÌÅͺ£À̽º °ü¸®¸¦À§ÇÑ Perl ¸ðµâÀÔ´Ï´Ù. Synopsis´Â httpd :: groupAdmin ()À» »ç¿ëÇÕ´Ï´Ù.ÀÌ ¼ÒÇÁÆ®¿þ¾î´Â »ç¿ëÀÚ ¹× ±×·ì µ¥ÀÌÅͺ£À̽ºÀÇ HTTP ¼­¹ö ±¸Çö Àü¹ÝÀÇ ºÒÀÏÄ¡¸¦ ¼û±â´Â ÀÏ¹Ý ÀÎÅÍÆäÀ̽º¸¦ Á¦°øÇϱâÀ§ÇÑ °ÍÀÔ´Ï´Ù .methodsnew () ¿©±â¼­ ¼­¹ö¿¡ ´ëÇØ ´Ù¸¥ °ÍÀ» ¾Ë¾Æ³»´Â °÷ÀÔ´Ï´Ù. @dbm = (dbtype => 'dbm', db => '.htgroup', server => 'apache'); $ group = »õ httpd :: groupAdmin @dbm; ÀÌ·¸°ÔÇϸé Apache ¼­¹ö°¡ ÀÌÇØÇÏ´Â Çü½ÄÀ¸·Î µ¥ÀÌÅͺ£À̽º°¡ '.htgroup'À̶ó´Â DBM ÆÄÀÏ ÀÎ ¿ÀºêÁ§Æ®°¡ »ý¼ºµË´Ï´Ù. @Text = (dbtype => 'text', db => '.htgroup', server => 'ncsa')); $ group = »õ httpd :: groupAdmin @text; ÀÌ°ÍÀº µ¥ÀÌÅͺ£À̽º°¡ '.htgroup'À̶ó´Â À̸§ÀÌ '.htgroup'À̶ó´Â À̸§ÀÇ ÀÏ¹Ý ÅؽºÆ® ÆÄÀÏ ÀÎ °´Ã¼°¡ »ý¼ºÀÚ ¼Ó¼ºÀÇ ¸ñ·ÏÀ» Çü½ÄÀ¸·Î ¸¸µì´Ï´Ù. Âü°í : ¼Ó¼º À̸§Àº ´ë / ¼Ò¹®ÀÚÀÔ´Ï´Ù. insensitivename - group namedbtype - 'dbm', 'text'¶Ç´Â 'sql'Áß Çϳª ÀÎ µ¥ÀÌÅͺ£À̽º À¯Çü (default dbm ¹× text databases for dbm ¹× text µ¥ÀÌÅͺ£À̽ºÀÇ ±âº»°ªÀº '.htpAsswd'ÀÔ´Ï´Ù) - HTTP ¼­¹ö À̸§ (±âº»°ªÀº NCSA, Apache ¹× Amsilly Affery)°ú ÇÔ²² ÀÛµ¿ÇÏ´Â ÀÏ¹Ý Å¬·¡½ºÀÔ´Ï´Ù. Âü°í : ÇöÀç »ç¿ë °¡´ÉÇÑ Áö¿øÀ» È®ÀÎÇÏ·Á¸é 'Perl T / Support.t Matrix'¸¦ ½ÇÇàÇÏ¿© »ó´ë DB ÆÄÀÏ ÀÌÀÌ °ªÀ¸·Î ÇØ°áµË´Ï´Ù ( ±âº»°ªÀº '.') Àá±Ý - ºÎ¿ï, ÅؽºÆ® Àá±Ý ÅؽºÆ® ¹× DBM ÆÄÀÏ (±âº»°ªÀº true) debug - boolean, dbmff ÆÄÀÏ·Î µð¹ö±× ÆÄÀÏÀ» ÄѽʽÿÀ : dbmf - dbm ÆÄÀÏ ±¸ÇöÀº »ç¿ëÇÒ DBM ÆÄÀÏ ±¸Çö (±âº»°ªÀº 'ndbm') Ç÷¡±× - Ç÷¡±×¸¦ Àаí, ¾²±â ¹× ÀÛ¼ºÇϽʽÿÀ. ³× °¡Áö ¸ðµå°¡ ÀÖ½À´Ï´Ù : rwc - Àбâ, ¾²±â ¹× ¸¸µé±â¸¦À§ÇÑ ±âº», ¿­±â. rw - µ¶¼­ ¹× ¾²±â¸¦ À§ÇØ ¿­·Á ÀÖ½À´Ï´Ù. R - µ¶¼­¸¸À» À§ÇØ ¿­·Á ÀÖ½À´Ï´Ù. W - ±Û¾²±â¸¦À§ÇÑ ¿­±â .mode - ÆÄÀÏ »ý¼º ¸ðµå, ±âº»°ªÀº '0644'DBI : Tim BunceÀÇ DBI ÀÎÅÍÆäÀ̽º¸¦ ÅëÇØ SQL Server¿Í »ó´ãÇÕ´Ï´Ù. ÀÚ¼¼ÇÑ ³»¿ëÀº http://www.hermetica.com/technologia/dbi/host - ¼­¹ö hostnameport - ¼­¹ö portuser - µ¥ÀÌÅͺ£À̽º ·Î±×ÀÎ nameAuth - database login passworddriver - dbi for dbi (±âº»°ªÀº 'msql') ³«°Ý °¡´É - Çʵ尡ÀÖ´Â Å×À̺í À̸§ belownamefield - À̸§ÀÇ Çʵå (±âº»°ªÀº '»ç¿ëÀÚ'ÀÔ´Ï´Ù) groupfield - ±×·ìÀÇ Çʵå - ¿©±â¿¡¼­ ¿©±â¿¡¼­ ¸ðµç °Í¿¡ ´ëÇØ µ¿ÀÏÇÏ°Ô º¸ÀÔ´Ï´Ù. '($ username ) $ groupNameÀ» ±×·ìÈ­Çϰųª 'name'¼Ó¼ºÀÌ µ¥ÀÌÅͺ£À̽º¿¡ $ usernameÀÌ Á¸ÀçÇÏ´Â °æ¿ì 'name'¼Ó¼ºÀÌ ¼³Á¤µÈ °æ¿ì $ usernameÀ» ±×·ì Ãß°¡ÇϽʽÿÀ. ȯ¿µÇÕ´Ï´Ù! n "; } »èÁ¦ ($ username ) group $ groupName ¶Ç´Â 'name'¼Ó¼ºÀÌ ¼³Á¤µÈµçÁö »ç¿ëÀÚ $ usernameÀ» »èÁ¦ÇÕ´Ï´Ù. if ($ group-> delete ( 'dougm')) {print "±×°¡ ±×·ì¿¡¼­ °¬´Ù"; } Á¸Àç ($ groupName, ) $ groupNameÀÌ µ¥ÀÌÅͺ£À̽º¿¡¼­ ($ group-> ( 'À¥ Çìµå')) {die "¿À ¾Æ¹«¸®!" } if ($ group->, $ username) {# $ usernameÀº $ groupName} ¸ñ·Ï ()ÀÇ ±¸¼º¿øÀÌ ±×·ì À̸§ ¸ñ·ÏÀ» ¹ÝȯÇϰųª '$ name' @ groups = $ group-> list; @users = $ group-> list ( 'web-heads'); httpd :: userAdmin °´Ã¼¸¦ ¸¸µå´Â ªÀº Àý´Ü. ÇØ´çµÇ´Â ¸ðµç ¼Ó¼ºÀº »ó¼ÓµÇÁö¸¸ overridride. $ user = $ group-> user (httpd :: useradmin) º¯È¯ (@Attributes) µ¥ÀÌÅͺ£À̽º¸¦ º¯È¯ÇϽʽÿÀ. #not yeTRemove ($ groupName) databaseName ($ groupname)¿¡¼­ $ groupname ±×·ìÀ» º¯°æÇϽʽÿÀ. 'name'¼Ó¼ºÀÇ °ª. $ group-> name ( 'bew-ediw-dlrow'); µð¹ö±× ($ boolean) µð¹ö±ëÀ» ÄѰųª ¿ÀÇÁ ·Ï () = Ç׸ñ Àá±Ý ÇØÁ¦ ()ÀÌ ¹æ¹ýÀº Àá±Ý ¸ÞÄ¿´ÏÁò. $ group = »õ httpd :: groupAdmin (locking => 0); ÀÚµ¿ Àá±Ý $ group-> Àá±Ý ²¨Áü; ¿ÀºêÁ§Æ®ÀÇ µ¥ÀÌÅͺ£À̽º $ groupt-> add ($ username, $ passwd); #write µ¥ÀÌÅͺ£À̽º°¡ Àá±Ý $ group-> Àá±Ý ÇØÁ¦; lockdb ($ dbname)¸¦ ¸±¸®½ºÇϽʽÿÀ. ´Ù¸¥ µ¥ÀÌÅͺ£À̽º¸¦ ¼±ÅÃÇϽʽÿÀ. $ olddb = $ group-> db ($ newdb); Àμâ "ÀÌÁ¦ '$ Olddb'n'À¸·Î ¿Ï·áµÈ '$ NewDB'¸¦ ÀÐ°í ¾²´Â '$ NewDB'¸¦ ÀÐ°í ¾²´Â °ÍÀÔ´Ï´Ù. Ç÷¡±× () Àбâ, ¾²±â, Flags.CommitCommit º¯°æ »çÇ× (ÅؽºÆ® ÆÄÀÏÀÇ °æ¿ì). ¿ä±¸ »çÇ× : ¡¤ Perl.


httpd :: groupadmin. °ü·Ã ¼ÒÇÁÆ®¿þ¾î

ÇعÎ

LIBBLINGE ÆÐÅ°Áö¿¡´Â GTK ¿ë ¸Å·ÂÀûÀÎ »ç¿ëÀÚ ÀÎÅÍÆäÀ̽º À§Á¬ÀÌ µé¾î ÀÖ½À´Ï´Ù. ...

42

´Ù¿î·Îµå