[Perl-unix-users] Unique identifiers in Sendmail::Milter 0.18

[Mark]

I am using Sendmail::Milter 0.18, on Perl 5.8.0, and I was wondering whether
the connection object $ctx has any properties which allow me to uniquely
identify it. For example:

sub connect_callback {
    my $ctx = shift;

It appears $ctx is hardly unique, and can therefore not be use as follows:

    my $hostname = shift;
    my $sockaddr_in = shift;
    my ($port, $iaddr);
    if (defined $sockaddr_in) {
       ($port, $iaddr) = sockaddr_in ($sockaddr_in);
        $connections{$ctx} = inet_ntoa ($iaddr);
    }
    return SMFIS_CONTINUE;
}

Since $ctx is not unique, the %connections hash becomes useless. So, does
$ctx have a unique property, per connection, which allows me to distinguish
it from others?

Much obliged,

- Mark

_______________________________________________
Perl-Unix-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs