Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling

internet proxy

by blueberryCoffee (Scribe)
on Jun 28, 2007 at 21:40 UTC ( #623989=perlquestion: print w/replies, xml ) Need Help??

blueberryCoffee has asked for the wisdom of the Perl Monks concerning the following question:

Hello all,

Does anyone know if there is a internet proxy written in perl that will allow me to slow down access? Something I can made IE and firefox route through. My boss wants to make certain sites load very slow so employees get mad at the connection rather than him (for outright blocking). Kinda funny - so long as my connection does not use it.


Replies are listed 'Best First'.
Re: internet proxy
by Joost (Canon) on Jun 28, 2007 at 22:53 UTC
    A reply falls below the community's threshold of quality. You may see it by logging in.
Re: internet proxy
by monarch (Priest) on Jun 29, 2007 at 11:49 UTC
    After you've implemented your selectively slow proxy with HTTP::Proxy you will want to think about how to force all users to use your proxy.

    This will come down to your default gateway selectively re-routing all internet traffic to port 80 to your proxy. Consider linux and iptables.

    Actually, if you want to get smart, you could instead configure iptables to drop every nth packet to particular destinations; this would cause clients' TCP steams to severely slow down (but not altogether break). Performing selective packet drops like this will have an effect on even those attempting to bypass your custom proxy using HTTPS or SSH :)

Re: internet proxy
by sgt (Deacon) on Jun 29, 2007 at 13:10 UTC

    some time ago I needed a small proxy written in Perl and Sam Tregar pointed me to aproxy. aproxy is small and easy to use or tweak; in your case adding a bit of throttling to experiment with should not be too difficult. Net::FTP::Throttle or Data::Throttler could be promising. download

    cheers --stephan update: corrected typo

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: perlquestion [id://623989]
Approved by GrandFather
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (8)
As of 2023-01-31 09:58 GMT
Find Nodes?
    Voting Booth?

    No recent polls found