Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked

Re: Socket Traffic Cop

by Crackers2 (Parson)
on Apr 12, 2010 at 19:52 UTC ( #834349=note: print w/replies, xml ) Need Help??

in reply to Socket Traffic Cop

Assuming you're on linux, I'd recommend skipping perl and using iptables to take care of this.

iptables -A PREROUTING -i <interface> -s <sourceip> -p tcp -m tcp --dp +ort <port> -j REDIRECT --to-ports <newport>

There's also an option to specify a source network instead of a single IP.

Replies are listed 'Best First'.
Re^2: Socket Traffic Cop
by sans-clue (Beadle) on Apr 12, 2010 at 20:29 UTC
    Turns out to be solaris... they won't let me install POE. Could you give me any tips on how to install a localized (to my home dir) perl dist for solaris ? I see that many modules POE requires are not in the prod perl dist that I can't touch.
    I might be able to use a linux box to do this and route the solaris ports, thanks for the tip.

      Did you read the INSTALL file, and the platform specific readme file?

        YES. There is an update to IO that is required that I am not allowed to make. You can move on to other threads, click the hide tab on this one.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://834349]
[Corion]: Lady_Aleena: Quite good ;) I'm working four days now, instead of five, which helps my mood and my weekends tremendously
[Corion]: My Perl output hasn't recovered, but as $work is still somewhat stressful, I don't think this would be different with a five day workdweek
[Lady_Aleena]: Corion, that is a good thing (TM) 8)
[Corion]: And this evening, I'm actually dusting off some old module of mine and bringing it up to the last version of the library I'm wrapping
[Lady_Aleena]: Updating things can be fun, if there is a better way to do it.
[Corion]: Lady_Aleena: Mostly, it's just housekeeping, but it inspires me about things I could do with it, so that's good ;)
[Lady_Aleena]: By the way, I stopped by to let someone know I'm still alive, though I haven't found anything to write in perl for a while now.
[Lady_Aleena]: I need inspiration.

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (5)
As of 2017-09-24 18:15 GMT
Find Nodes?
    Voting Booth?
    During the recent solar eclipse, I:

    Results (274 votes). Check out past polls.