r65821 - in /branches/upstream/libapache-htgroup-perl/current: ChangeLog MANIFEST META.yml README lib/Apache/Htgroup.pm

[periapt-guest at users.alioth.debian.org]

Author: periapt-guest
Date: Tue Dec 14 08:16:19 2010
New Revision: 65821

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=65821
Log:
[svn-upgrade] new version libapache-htgroup-perl (1.23)

Added:
    branches/upstream/libapache-htgroup-perl/current/META.yml
Removed:
    branches/upstream/libapache-htgroup-perl/current/ChangeLog
Modified:
    branches/upstream/libapache-htgroup-perl/current/MANIFEST
    branches/upstream/libapache-htgroup-perl/current/README
    branches/upstream/libapache-htgroup-perl/current/lib/Apache/Htgroup.pm

Modified: branches/upstream/libapache-htgroup-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libapache-htgroup-perl/current/MANIFEST?rev=65821&op=diff
==============================================================================
--- branches/upstream/libapache-htgroup-perl/current/MANIFEST (original)
+++ branches/upstream/libapache-htgroup-perl/current/MANIFEST Tue Dec 14 08:16:19 2010
@@ -3,7 +3,6 @@
 lib/Apache/Htgroup.pm
 Makefile.PL
 LICENSE
-ChangeLog
 
 t/00load.t
 t/01basic.t
@@ -11,3 +10,4 @@
 t/03add.t
 t/test.acl
 
+META.yml                                 Module meta-data (added by MakeMaker)

Added: branches/upstream/libapache-htgroup-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libapache-htgroup-perl/current/META.yml?rev=65821&op=file
==============================================================================
--- branches/upstream/libapache-htgroup-perl/current/META.yml (added)
+++ branches/upstream/libapache-htgroup-perl/current/META.yml Tue Dec 14 08:16:19 2010
@@ -1,0 +1,21 @@
+--- #YAML:1.0
+name:               Apache-Htgroup
+version:            1.23
+abstract:           Manage Apache htgroup files
+author:
+    - Rich Bowen (rbowen at rcbowen.com)
+license:            unknown
+distribution_type:  module
+configure_requires:
+    ExtUtils::MakeMaker:  0
+build_requires:
+    ExtUtils::MakeMaker:  0
+requires:  {}
+no_index:
+    directory:
+        - t
+        - inc
+generated_by:       ExtUtils::MakeMaker version 6.56
+meta-spec:
+    url:      http://module-build.sourceforge.net/META-spec-v1.4.html
+    version:  1.4

Modified: branches/upstream/libapache-htgroup-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libapache-htgroup-perl/current/README?rev=65821&op=diff
==============================================================================
--- branches/upstream/libapache-htgroup-perl/current/README (original)
+++ branches/upstream/libapache-htgroup-perl/current/README Tue Dec 14 08:16:19 2010
@@ -7,6 +7,7 @@
       &do_something if $htgroup->ismember($user, $group);
       $htgroup->adduser($user, $group);
       $htgroup->deleteuser($user, $group);
+      $htgroup->deletegroup( $group );
       $htgroup->save;
 
 DESCRIPTION
@@ -18,17 +19,14 @@
     does.
 
   METHODS
-
     The following methods are provided by this module.
 
   load
-
         $htgroup = Apache::Htgroup->load($path_to_groupfile);
 
     Returns an Apache::Htgroup object.
 
   new
-
         $htgroup = Apache::Htgroup->new();
         $htgroup = Apache::Htgroup->new( $path_to_groupfile );
 
@@ -37,19 +35,16 @@
     create a group file in memory, and save it later.
 
   adduser
-
         $htgroup->adduser( $username, $group );
 
     Adds the specified user to the specified group.
 
   deleteuser
-
         $htgroup->deleteuser($user, $group);
 
     Removes the specified user from the group.
 
   groups
-
         $groups = $htgroup->groups;
 
     Returns a (reference to a) hash of the groups. The key is the name of
@@ -64,14 +59,18 @@
     structure.
 
   reload
-
          $self->reload;
 
     If you have not already called save(), you can call reload() and get
     back to the state of the object as it was loaded from the original file.
 
+  deletegroup
+        $self->deletegroup( 'GroupName' );
+
+    Removes a group from the htgroup file. You will need to call save
+    afterward to commit this change back to the file.
+
   save
-
         $htgroup->save;
         $htgroup->save($file);
 
@@ -80,7 +79,6 @@
     location.
 
   ismember
-
         $foo = $htgroup->ismember($user, $group);
 
     Returns true if the username is in the group, false otherwise

Modified: branches/upstream/libapache-htgroup-perl/current/lib/Apache/Htgroup.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libapache-htgroup-perl/current/lib/Apache/Htgroup.pm?rev=65821&op=diff
==============================================================================
--- branches/upstream/libapache-htgroup-perl/current/lib/Apache/Htgroup.pm (original)
+++ branches/upstream/libapache-htgroup-perl/current/lib/Apache/Htgroup.pm Tue Dec 14 08:16:19 2010
@@ -1,4 +1,3 @@
-#$Header: /home/cvs/apache-htgroup/lib/Apache/Htgroup.pm,v 1.22 2002/01/27 16:04:34 rbowen Exp $
 package Apache::Htgroup;
 
 =head1 NAME
@@ -12,6 +11,7 @@
   &do_something if $htgroup->ismember($user, $group);
   $htgroup->adduser($user, $group);
   $htgroup->deleteuser($user, $group);
+  $htgroup->deletegroup( $group );
   $htgroup->save;
 
 =head1 DESCRIPTION
@@ -31,7 +31,7 @@
 
 use strict;
 use vars qw($VERSION);
-$VERSION = (qw($Revision: 1.22 $))[1];
+$VERSION = (qw($Revision: 1.23 $))[1];
 
 # sub new, load {{{
 
@@ -179,6 +179,26 @@
       } else {
         $self->{groups} = {};
     }
+} # }}}
+
+# sub deletegroup {{{
+
+=head2 deletegroup
+
+    $self->deletegroup( 'GroupName' );
+
+Removes a group from the htgroup file. You will need to call save 
+afterward to commit this change back to the file.
+
+=cut
+
+sub deletegroup {
+   my $self = shift;
+   my ( $group ) = @_;
+   if ( exists $self->{groups}->{$group} ) {
+       delete $self->{groups}->{$group};
+   }
+   return (1);
 } # }}}
 
 # sub save {{{