Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

pmproxy

by nashdj (Friar)
on Dec 04, 2000 at 17:09 UTC ( [id://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 :)

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
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?Last hourOther CB clients
Other Users?
Others having a coffee break in the Monastery: (3)
As of 2025-02-07 05:38 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Which URL do you most often use to access this site?












    Results (94 votes). Check out past polls.