0byt3m1n1

Path: /data/11/0/19/129/997781/user/1027887/cgi-bin/ [ Home ]
File: libtcp.1.0.pl
#################################################################
#	PicoStreamer 2.0                                        	#
#	TCP networking library 1.0                                  #
#	Vinz486 (c) 2004	                                		#
#################################################################
$libtcp = 1;

# using socket
use Socket;

# set autoflush
$|=1;

# return this file ver
sub tcp_get_ver {
	
	my ($fid,$vma,$vmi) = split(/\./,__FILE__);
	
	return $vma.".".$vmi;
}

# tcp connect to
# [0] host, [1]
# return socket or "" on error
sub tcp_connect {

	&logger($T,"tcp_connect",$_[0],$_[1]);
	
	use IO::Socket;
	
	my $TSOCK = IO::Socket::INET->new(Proto => 'tcp', PeerAddr => $_[0], PeerPort => $_[1]) or return "";
	
	use IO::Handle;
	$TSOCK->autoflush();
	
	return $TSOCK;
}	

# close tcp socket
# [0] socket
sub tcp_close {
	
	&logger($T,"tcp_close",$_[0]);
	
	close($_[0]);
}

1;