Subversion Repositories DevTools

Rev

Rev 7389 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7389 Rev 7396
Line 180... Line 180...
180
        #   Child process at this point
180
        #   Child process at this point
181
        #
181
        #
182
#        setsid or $logger->err("Can't start a new session: $!");
182
#        setsid or $logger->err("Can't start a new session: $!");
183
        $logger->logmsg("Started $target");
183
        $logger->logmsg("Started $target");
184
 
184
 
-
 
185
        #
-
 
186
        #   Determine the daemon to run
-
 
187
        #       Based on the name of the config file
-
 
188
        #       There are a few special daemons
185
        my $daemon = ( $target =~ m~/tarZip~) ? "$rootDir/blatTarZip.pl" : "$rootDir/blatDaemon.pl";
189
        my $daemon = "$rootDir/blatDaemon.pl";
-
 
190
        if ($target =~ m~/tarZip~ ) {
-
 
191
                $daemon = "$rootDir/blatTarZip.pl"
-
 
192
        } elsif ($target =~ m~/s3Sync~) {
-
 
193
            $daemon = "$rootDir/blatS3Sync.pl"
-
 
194
        }
-
 
195
 
186
        exec 'perl',$daemon, $target or $logger->err ("Can't exec $daemon");
196
        exec 'perl',$daemon, $target or $logger->err ("Can't exec $daemon");
187
    }
197
    }
188
 
198
 
189
    #
199
    #
190
    #   What a bit and try again
200
    #   What a bit and try again