ispman/tasks ModifyVirtualHost_task.pl,NONE,1.1 createHomeDirectory_task.pl,NONE,1.1 deleteHomeDirectory_task.pl,NONE,1.1 DeleteVirtualHost_task.pl,1.3,1.4

Update of /cvsroot/ispman/ispman/tasks
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17330

Modified Files:
	DeleteVirtualHost_task.pl 
Added Files:
	ModifyVirtualHost_task.pl createHomeDirectory_task.pl 
	deleteHomeDirectory_task.pl 
Log Message:
Enough tasks juggling for today

--- NEW FILE: deleteHomeDirectory_task.pl ---
sub deleteHomeDirectory_task {
   my $params=shift;

   # Lets do some checks here for sanity.

   # home Directory Exists?
   unless ($params->{"homeDirectory"}){
      print "Homedirectory not specified\n";
      return 0;
   }
   unless ( -d $params->{"homeDirectory"}){
      print "Homedirectory does not exists\n";
      return 0;
   }

   unless ($params->{"homeDirectory"}=~m!^/\w+\d*?/\w+\d*/!){
      print "Home directory too shallow. Too afraid to delete it\n";
      return 0;
   }

   unless ($params->{'uidNumber'} || $params->{'gidNumber'}){
      print "uidNumber and/or gidNumber missing.. Not continuing\n";
      return 0;
   }
   # Do a backup if you have to
   # push  @cmd, "cp -a $params->{"homeDirectory"} /some/backup/dir/";

   # Use this command
   #push @cmd, "find '$params->{"homeDirectory"}' -depth -uid $params->{'uidNumber'} -gid $params->{'gidNumber'} -type d -exec rm -rf {} \\;";

   # Or simply this one
   push @cmd, "rm -rf $params->{'homeDirectory'}";

}



Index: DeleteVirtualHost_task.pl
===================================================================
RCS file: /cvsroot/ispman/ispman/tasks/DeleteVirtualHost_task.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- DeleteVirtualHost_task.pl	30 Dec 2004 04:15:43 -0000	1.3
+++ DeleteVirtualHost_task.pl	30 Dec 2004 04:32:25 -0000	1.4
@@ -2,9 +2,19 @@
 sub DeleteVirtualHost_task {
    my $params=shift;
    
-   push @cmd, "perl $FindBin::Bin/ispman.deletevhost -d $params->{'domain'} $params->{'ispmanVhostName'}";
-   push @cmd, "/usr/sbin/apachectl restart";
-   
+   unless ($params->{'domain'}){
+      print "Domain not defined. Cannot continue\n";
+      return 0;
+   }
+   unless ($params->{'ispmanVhostName'}){
+      print "Vhostname not defined. Cannot continue\n";
+      return 0;
+   }
+
+
+   push @cmd, "perl $FindBin::Bin/ispman.delete_vhost $params->{'ispmanVhostName'} $params->{'domain'} ";
+   push @cmd, "perl $FindBin::Bin/ispman.make_vhosts_conf $params->{'domain'} ";
+   push @cmd, "perl $FindBin::Bin/ispman.reloadApache";
 
 
 }

--- NEW FILE: ModifyVirtualHost_task.pl ---
sub ModifyVirtualHost_task {
   my $params=shift;
   unless ($params->{'domain'}){
      print "Domain not defined. Cannot continue\n";
      return 0;
   }
   unless ($params->{'ispmanVhostName'}){
      print "Vhostname not defined. Cannot continue\n";
      return 0;
   }
   push @cmd, "perl $FindBin::Bin/ispman.modify_vhost $params->{'ispmanVhostName'} $params->{'domain'}";
   push @cmd, "perl $FindBin::Bin/ispman.make_vhosts_conf $params->{'domain'}";
   push @cmd, "perl $FindBin::Bin/ispman.reloadApache";



}

--- NEW FILE: createHomeDirectory_task.pl ---
sub createHomeDirectory_task {
	my $params=shift;

        push @cmd, "mkdir -p $params->{'homeDirectory'}";
        push @cmd, "mkdir -p $params->{'homeDirectory'}/public_html";
        push @cmd, "chown -R $params->{'uidNumber'}.$params->{'gidNumber'} $params->{'homeDirectory'}";
       
}




-------------------------------------------------------
The SF.Net email is sponsored by: Beat the post-holiday blues
Get a FREE limited edition SourceForge.net t-shirt from ThinkGeek.
It's fun and FREE -- well, almost....http://www.thinkgeek.com/sfshirt