Win32::ProcFarm::Port - manages access to the TCP port for ProcFarm system

Win32-ProcFarm documentation Contained in the Win32-ProcFarm distribution.

Index

Code Index:

NAME

Top

Win32::ProcFarm::Port - manages access to the TCP port for ProcFarm system

SYNOPSIS

Top

	use Win32::ProcFarm::Port;

	$port_obj = Win32::ProcFarm::Port->new(9000, 1);

	print $port_obj->get_port_num;

	$socket = $port_obj->get_next_connection;

DESCRIPTION

Top

Installation instructions

This installs with MakeMaker as part of Win32::ProcFarm.

To install via MakeMaker, it's the usual procedure - download from CPAN, extract, type "perl Makefile.PL", "nmake" then "nmake install". Don't do an "nmake test" because the I haven't written a test suite yet.

METHODS

Top

new

The new method creates a new Win32::ProcFarm::Port object (fancy that!). It takes two parameters - the first is the port number to listen on, and the second is the number of listeners to create - this will specify the number of "hold lines" for the port object.

get_port_num

This returns the port number passed in the new method.

get_listeners

This returns the number of listeners created in the new method.

get_next_connection

This accepts an inbound connection and returns the socket object. If the inbound connection is not from 127.0.0.1, the method calls die as this indicates an attempt to hack the system by an external host.

Win32-ProcFarm documentation Contained in the Win32-ProcFarm distribution. 
#############################################################################
#
# Win32::ProcFarm::Port - manages access to the TCP port for ProcFarm system
#
# Author: Toby Everett
# Revision: 2.15
# Last Change: Namespace change
#############################################################################
# Copyright 1999, 2000, 2001 Toby Everett.  All rights reserved.
#
# This file is distributed under the Artistic License. See
# http://www.ActiveState.com/corporate/artistic_license.htm or
# the license that comes with your perl distribution.
#
# For comments, questions, bugs or general interest, feel free to
# contact Toby Everett at teverett@alascom.att.com
#############################################################################


use IO::Socket;

package Win32::ProcFarm::Port;

use strict;
use vars qw($VERSION @ISA);

$VERSION = '2.15';


sub new {
	my $class = shift;
	my($port_num, $count) = @_;

	my $self = {
		'port_num' => $port_num,
		'port' => undef,
		'listeners' => $count,
	};

	$self->{port} = IO::Socket::INET->new(LocalPort => $self->{port_num}, Proto => 'tcp',
			Listen => $count, Reuse => 1) or die "Could not connect: $!";

	bless $self, $class;
	return $self;
}


sub get_port_num {
	my $self = shift;
	return $self->{port_num};
}


sub get_listeners {
	my $self = shift;
	return $self->{listeners};
}


sub get_next_connection {
	my $self = shift;

	my $socket = $self->{port}->accept();
	$socket->peerhost eq "127.0.0.1" or
			die "Attempt to connect from illegal address: ".$socket->peerhost."\n";
	return $socket;
}

1;