write service config...

mxstartup2mxvipcfg

@@ -55,6 +55,8 @@ LINE: foreach(@lines) {
 
   next LINE unless(defined $match);
 
+  save_config_mxservice($name, $user, $script);
+
   my @ips = split /\s*[,; ]\s*/,$ip;
   my $pip = parse_ips(@ips);
   print_ips_cfg($pip);
@@ -150,6 +152,26 @@ sub parse_ips {
 
 ##############################################################################
 
+sub save_config_mxservice {
+    my ($service, $user, $script) = @_;
+
+    my $config = "$rundir/mxservice.$name.cfg";
+
+    if( -e $config) {
+        printf "skipping creation of $config: File already exists\n";
+        return;
+    }
+
+    printf "mxservice::$name creating service-config: $config\n";
+
+    open SCRIPT, ">", "$config" or die "can't open $config: $!";
+    print SCRIPT qq(MX_SRV_USER="$user"\n);
+    print SCRIPT qq(MX_SRV_SCRIPT="$script"\n);
+    close SCRIPT or die "can't close $script: $!";
+}
+
+##############################################################################
+
 sub print_ips_cfg {
   my $H = shift;