ispman/lib/ISPMan DBMan.pm,1.8,1.9

Update of /cvsroot/ispman/ispman/lib/ISPMan
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv19854/lib/ISPMan

Modified Files:
	DBMan.pm 
Log Message:
added database sql action feature

Index: DBMan.pm
===================================================================
RCS file: /cvsroot/ispman/ispman/lib/ISPMan/DBMan.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- DBMan.pm	31 Dec 2008 17:25:28 -0000	1.8
+++ DBMan.pm	3 Jan 2009 12:21:05 -0000	1.9
@@ -93,8 +93,10 @@
 
     }
 
+    my $dbactions = $r->param_fetch("sqlActions");
+
     # create database
-    if ( $self->add_database( $domain, $dbhash ) ) {
+    if ( $self->add_database( $domain, $dbhash, $dbactions ) ) {
         print $self->refreshSignal($domain);
         print "Creation of the database ", $dbName, " scheduled.";
     }
@@ -151,6 +153,7 @@
     my $self   = shift;
     my $domain = shift;
     my $dbhash = shift;
+    my $dbactions = shift;
 
     my $dbName = $dbhash->{'ispmanDBName'};
     my $server = $dbhash->{'ispmanDBHost'};
@@ -178,7 +181,8 @@
     else {
         if ( $self->addNewEntryWithData( $dn, $dbhash ) ) {
             $self->addProcessToHost( $domain, $server, "AddDatabase", join "&",
-                map { "$_=" . ((ref $dbhash->{$_} eq "ARRAY")?join(",",@{$dbhash->{$_}}):$dbhash->{$_}) } keys %$dbhash );
+                (map { "$_=" . ((ref $dbhash->{$_} eq "ARRAY")?join(",",@{$dbhash->{$_}}):$dbhash->{$_}) } keys %$dbhash),
+                "actions=".join "\|",@$dbactions );
             return 1;
         }
     }


------------------------------------------------------------------------------