[Openpec-devel] Profiling: howto

[Fanton F. <fa...@ks...>]

Ecco come ho effettuato il profiling di OpenPec.

Naturalmente e' stato necessario ritoccare il codice:
. [opec.pl] escluso Net::Server (il modulo che sovrintende il multi
process)
. [opec.pl] aggiunto e incapsulato un server TCP:

my $self =3D {};
bless($self,'Opec');

use IO::Socket;

$self->{server}->{peeraddr} =3D '127.0.0.1';
$self->{server}->{sockport} =3D 10024;
$self->{server}->{sockaddr} =3D '127.0.0.1';
my $listen_socket =3D IO::Socket::INET->new(
                                LocalPort =3D> 10024,
                                Type      =3D> SOCK_STREAM,
                                Reuse     =3D> 1,
                                Listen    =3D> 1 )   # or SOMAXCONN
    or die "Couldn't be a tcp server on port 10024: $@\n";

# in attesa di connessione
$self->{server}->{client} =3D $listen_socket->accept();

. [opec.pl] modificato opportunamente le chiamate $sock->NS_proto
. [Opec::IN::SMTP] reso $sock il socket di default:
select($sock);


Spero di non essermi dimenticato qualcosa.


flazan