Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

pmproxy

by nashdj (Friar)
on Dec 04, 2000 at 17:09 UTC ( #44780=CUFP: print w/ replies, xml ) Need Help??

Updated - see pmproxy2

Well after a discussion in the chatterbox about customising themes by CSS. I'm not sure exactly who but someone raised the idea of creating a proxy to simply insert a css tag, so I figured why not give it a go, I might even learn something (I did). (Though, its not like there is anything much to this)

The following is the result, it has:

  • No Error Control:
  • No Cookie Support
  • No POST Support
  • But... It does the job I wrote it for

I dont know if I will do any more to it or not, depends on how much I can come to liking my own CSS themes. Feel free to run off and improove it beyond what I could possibly do in a decade :)

To run: Just stick the script and your "style.css" file somewhere together, exec it, and you're off and proxying from port 82.

- nashdj

use strict; use LWP::Simple; use HTTP::Daemon; use HTTP::Status; open(CSS,"style.css") || die "CSS Error: $!"; my $css = join("",<CSS>); close(CSS); &serve; #well it was going to be bigger than this originally you see sub serve { my $d=HTTP::Daemon->new(LocalAddr=>'localhost', LocalPort=>'82', Reuse => '1') || die "Cant Spawn: $!"; my $c; while(1) { $c =$d->accept; my $r = $c->get_request(); my $url = $r->uri->as_string; my $content; if ($url !~ /style.css$/i) { $url =~ s|^(http://).+?/(.*)$|$1www.perlmonks.org/$2|i; $content = get $url; $content =~ s|<BODY|<link rel=stylesheet type="text/css" href="/ +style.css">\n<BODY|i; } else { $content = $css; } my $response = HTTP::Response->new(); $response->content($content); $c->send_response($response); $c->close; } }
-- I was trying to post this in snippits, but my browser didnt seem to be doing anything :)

Comment on pmproxy
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: CUFP [id://44780]
Approved by root
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (8)
As of 2014-11-23 12:39 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (131 votes), past polls