r65823 - in /trunk/libapache-htgroup-perl: ChangeLog MANIFEST META.yml README debian/changelog lib/Apache/Htgroup.pm

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

Author: periapt-guest
Date: Tue Dec 14 08:18:43 2010
New Revision: 65823

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=65823
Log:
New upstream release

Added:
    trunk/libapache-htgroup-perl/META.yml
      - copied unchanged from r65822, branches/upstream/libapache-htgroup-perl/current/META.yml
Removed:
    trunk/libapache-htgroup-perl/ChangeLog
Modified:
    trunk/libapache-htgroup-perl/MANIFEST
    trunk/libapache-htgroup-perl/README
    trunk/libapache-htgroup-perl/debian/changelog
    trunk/libapache-htgroup-perl/lib/Apache/Htgroup.pm

Modified: trunk/libapache-htgroup-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libapache-htgroup-perl/MANIFEST?rev=65823&op=diff
==============================================================================
--- trunk/libapache-htgroup-perl/MANIFEST (original)
+++ trunk/libapache-htgroup-perl/MANIFEST Tue Dec 14 08:18:43 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)

Modified: trunk/libapache-htgroup-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libapache-htgroup-perl/README?rev=65823&op=diff
==============================================================================
--- trunk/libapache-htgroup-perl/README (original)
+++ trunk/libapache-htgroup-perl/README Tue Dec 14 08:18:43 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: trunk/libapache-htgroup-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libapache-htgroup-perl/debian/changelog?rev=65823&op=diff
==============================================================================
--- trunk/libapache-htgroup-perl/debian/changelog (original)
+++ trunk/libapache-htgroup-perl/debian/changelog Tue Dec 14 08:18:43 2010
@@ -1,3 +1,9 @@
+libapache-htgroup-perl (1.23-1) UNRELEASED; urgency=low
+
+  * New upstream release
+
+ -- Nicholas Bamber <nicholas at periapt.co.uk>  Tue, 14 Dec 2010 08:20:38 +0000
+
 libapache-htgroup-perl (1.22-1) unstable; urgency=low
 
   * Initial Release. (Closes: #594767)

Modified: trunk/libapache-htgroup-perl/lib/Apache/Htgroup.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libapache-htgroup-perl/lib/Apache/Htgroup.pm?rev=65823&op=diff
==============================================================================
--- trunk/libapache-htgroup-perl/lib/Apache/Htgroup.pm (original)
+++ trunk/libapache-htgroup-perl/lib/Apache/Htgroup.pm Tue Dec 14 08:18:43 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 {{{