if (my $pid = fork) {
# parent
push( @logs, "$p-$aa.log" );
- if( $p =~ /config_server/ ) {
- push( @logs, paxos_log($a[1]) );
- }
if( $p =~ /lock_server/ ) {
push( @logs, paxos_log($a[1]) );
}
return spawn( "./lock_server", $master, $port );
}
-sub spawn_config {
- my $master = shift;
- my $port = shift;
- return spawn( "./config_server", $master, $port );
-}
-
sub check_views {
my $l = shift;
if ($command eq "ls") {
@pid = (@pid, spawn_ls($p[0],$p[$i]));
print "Start lock_server on $p[$i]\n";
- }elsif ($command eq "config_server"){
- @pid = (@pid, spawn_config($p[0],$p[$i]));
- print "Start config on $p[$i]\n";
}
sleep 1;