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