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

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

Modified Files:
	Acls.pm 
Log Message:
adding some UI functions for ACLs

Index: Acls.pm
===================================================================
RCS file: /cvsroot/ispman/ispman/lib/ISPMan/ApacheMan/Acls.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- Acls.pm	13 Jan 2004 14:21:38 -0000	1.3
+++ Acls.pm	13 Jan 2004 14:37:08 -0000	1.4
@@ -62,6 +62,22 @@
 sub addACL {
 	goto("add_acl");
 }
+
+sub addVhostAcl {
+	my $self=shift;
+    my $r=shift;
+	if ($self->AclExists($r->param('newIspmanVhostAclLocation')) {
+      $r->param("errors", "An ACL for this location already exists.");
+   } else {
+      $r->param("ispmanVhostAclLocation", $r->param("newIspmanVhostAclLocation"));
+      $r->param("ispmanVhostAclAllowUser", $r->param("newIspmanVhostAclAllowUser"));
+      $self->add_acl($r);
+   }
+   $r->param("mode", "editVhost");
+   $r->param("section", "acls");
+   $self->editVhost($r);
+	
+}
 
 sub add_acl {
    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