view release on metacpan or  search on metacpan

ddc-tee.perl  view on Meta::CPAN

  my ($pid,$pidfile) = @_;
  return if (!defined($pidfile));
  open(my $fh, ">$pidfile")
    or die("$prog: open failed for $pidfile: $!");
  print $fh $pid, "\n";
  close($fh)
    or die("$prog: close failed for $pidfile: $!");
}

##======================================================================
## callbacks


## undef = cb_client($cli_sock)
sub cb_client {
  my $csock = shift;
  my $cli   = DDC::Client->new( sock=>$csock, encoding=>undef );
  my $req   = $cli->readData();

  ##-- spawn clients
  for (my $bi=1; $bi <= $#b_clients; ++$bi) {