ispman/lib/ISPMan/ApacheMan Acls.pm,1.2,1.3

Update of /cvsroot/ispman/ispman/lib/ISPMan/ApacheMan
In directory sc8-pr-cvs1:/tmp/cvs-serv16569

Modified Files:
	Acls.pm 
Log Message:
adding function AclExists
Renaming addAcl to add_acl. This is a library function called by other UI scripts or CLI scripts. According to the naming concvention, lower level functions are named in lower case such ad add_user, while functions called from CGI are named in mix cases such as addUser.


Index: Acls.pm
===================================================================
RCS file: /cvsroot/ispman/ispman/lib/ISPMan/ApacheMan/Acls.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- Acls.pm	1 Jul 2002 11:01:28 -0000	1.2
+++ Acls.pm	13 Jan 2004 14:21:38 -0000	1.3
@@ -1,4 +1,8 @@
 package ISPMan::ApacheMan::Acls;
+
+
+
+exit
 
 use strict;
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK $Config);
@@ -8,9 +12,11 @@
 @ISA = qw(ISPMan Exporter AutoLoader);
 @EXPORT = qw(
 getAclsBranchDN
-getAclDN
+getAclDN
+AclExists
 getAcls
-addAcl
+addAcl
+add_acl
 updateAcl
 deleteAcl
 
@@ -35,6 +41,12 @@
 	return $dn;
 }
 
+sub AclExists {
+	my $self=shift;
+	my ($domain, $vhost, $url)=@_;
+	my $dn=$self->getAclDN($domain, $vhost, $url);
+	return $self->entryExists($dn);
+}
 
 
 sub getAcls {
@@ -47,8 +59,11 @@
 }
 
 
+sub addACL {
+	goto("add_acl");
+}
 
-sub addAcl {
+sub add_acl {
    my $self=shift;
    my $r=shift;
    my $branch=$self->getAclsBranchDN($r->param("ispmanDomain"), $r->param("ispmanVhostName"));
@@ -58,6 +73,8 @@
    $self->addVhostProcess($r->param("ispmanDomain"), $r->param("ispmanVhostName"), "ModifyVirtualHost", $r->param("ispmanVhostName"));
 }
 
+
+
 
 sub updateAcl {
    my $self=shift;




-------------------------------------------------------
This SF.net email is sponsored by: Perforce Software.
Perforce is the Fast Software Configuration Management System offering
advanced branching capabilities and atomic changes on 50+ platforms.
Free Eval! http://www.perforce.com/perforce/loadprog.html