Perl network daemon for testing firewalls, etc

admin — Wed, 16 Feb 2011 19:28:25 +0000

#!/usr/bin/perl -w
# server.pl
#--------------------

use strict;
use Socket;

# use port 7890 as default
my $port = shift || 7890;
my $proto = getprotobyname('tcp');

# create a socket, make it reusable
socket(SOCKET, PF_INET, SOCK_STREAM, $proto)
or die "Can't open socket $!\n";
setsockopt(SOCKET, SOL_SOCKET, SO_REUSEADDR, 1)
or die "Can't set socket option to SO_REUSEADDR $!\n";

# bind to a port, then listen
bind( SOCKET, pack( 'Sn4x8', AF_INET, $port, "\0\0\0\0" ))
or die "Can't bind to port $port! \n";
listen(SOCKET, 5) or die "listen: $!";
print "SERVER started on port $port\n";

# accepting a connection
my $client_addr;
while ($client_addr = accept(NET_SOCKET, SOCKET)) {
# send them a message, close connection
print NEW_SOCKET "Smile from the server";
close NEW_SOCKET;
}

Something hanging up smtp connections to 141.146.57.56

admin — Thu, 06 Nov 2008 11:39:43 +0000

iptables -A OUTPUT -p tcp -s 0/0 -d 141.146.57.56 –dport 25 -j REJECT –reject-with tcp-reset

Parm Patram » iptables

Perl network daemon for testing firewalls, etc

Something hanging up smtp connections to 141.146.57.56