PerlTransHandler question
[prev]
[thread]
[next]
[Date index for 2005/03/09]
This is a multi-part message in MIME format.
------=_NextPart_000_0134_01C52403.0087F8A0
Content-Type: text/plain;
charset="US-ASCII"
Content-Transfer-Encoding: 7bit
Hi, I have been having a few problems with dial-up users downloading
large pictures from my mod_perl enabled webserver, also I see spikes in
cpu usage which also suggests to me that the server is doing a lot of
work serving up the large images. What I would like to do is set up an
image cluster, to allow mod_perl to basically only execute code within
the page, release and let another server worry about serving up images.
What I have done so far is altered my PerlTransHandler with the code
below
if($host ne 'dev.webserver.com' && $host ne
'images.webserver.com'){
if($new_uri =~
m/\.(jpg|gif|css|pdf|bmp|js|eps)$/i){
#now redirect the image
$r->header_out(Location=>"http://images.webserver.com$new_uri";);
return REDIRECT;
}
}
So far this working on my development environment, but what I am really
wondering about is if this will actually take the load off mod_perl?
(it's a little hard for me to tell without significant traffic) Will the
mod_perl server execute the page and release the connection and not care
how long the images server is taking? If anyone has a better solution or
an idea I would love to hear it.
Thanks
Shawn
------=_NextPart_000_0134_01C52403.0087F8A0
Content-Type: text/html;
charset="US-ASCII"
Content-Transfer-Encoding: quoted-printable
<html xmlns:o=3D"urn:schemas-microsoft-com:office:office" =
xmlns:w=3D"urn:schemas-microsoft-com:office:word" =
xmlns=3D"http://www.w3.org/TR/REC-html40">;
<head>
<META HTTP-EQUIV=3D"Content-Type" CONTENT=3D"text/html; =
charset=3Dus-ascii">
<meta name=3DProgId content=3DWord.Document>
<meta name=3DGenerator content=3D"Microsoft Word 10">
<meta name=3DOriginator content=3D"Microsoft Word 10">
<link rel=3DFile-List href=3D"cid:filelist.xml@xxxxxxxx.xxxxxxxx">
<!--[if gte mso 9]><xml>
<o:OfficeDocumentSettings>
<o:DoNotRelyOnCSS/>
</o:OfficeDocumentSettings>
</xml><![endif]--><!--[if gte mso 9]><xml>
<w:WordDocument>
<w:SpellingState>Clean</w:SpellingState>
<w:GrammarState>Clean</w:GrammarState>
<w:DocumentKind>DocumentEmail</w:DocumentKind>
<w:EnvelopeVis/>
<w:BrowserLevel>MicrosoftInternetExplorer4</w:BrowserLevel>
</w:WordDocument>
</xml><![endif]-->
<style>
<!--
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{mso-style-parent:"";
margin:0in;
margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:12.0pt;
font-family:"Times New Roman";
mso-fareast-font-family:"Times New Roman";}
a:link, span.MsoHyperlink
{color:blue;
text-decoration:underline;
text-underline:single;}
a:visited, span.MsoHyperlinkFollowed
{color:purple;
text-decoration:underline;
text-underline:single;}
span.EmailStyle17
{mso-style-type:personal-compose;
mso-style-noshow:yes;
mso-ansi-font-size:10.0pt;
mso-bidi-font-size:10.0pt;
font-family:Arial;
mso-ascii-font-family:Arial;
mso-hansi-font-family:Arial;
mso-bidi-font-family:Arial;
color:windowtext;}
span.SpellE
{mso-style-name:"";
mso-spl-e:yes;}
span.GramE
{mso-style-name:"";
mso-gram-e:yes;}
@page Section1
{size:8.5in 11.0in;
margin:1.0in 1.25in 1.0in 1.25in;
mso-header-margin:.5in;
mso-footer-margin:.5in;
mso-paper-source:0;}
div.Section1
{page:Section1;}
-->
</style>
<!--[if gte mso 10]>
<style>
/* Style Definitions */=20
table.MsoNormalTable
{mso-style-name:"Table Normal";
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-parent:"";
mso-padding-alt:0in 5.4pt 0in 5.4pt;
mso-para-margin:0in;
mso-para-margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:10.0pt;
font-family:"Times New Roman";}
</style>
<![endif]-->
</head>
<body lang=3DEN-US link=3Dblue vlink=3Dpurple =
style=3D'tab-interval:.5in'>
<div class=3DSection1>
<p class=3DMsoNormal><font size=3D2 face=3DArial><span =
style=3D'font-size:10.0pt;
font-family:Arial'>Hi, I have been having a few problems with dial-up =
users
downloading large pictures from my mod_perl enabled webserver, also I =
see
spikes in cpu usage which also suggests to me that the server is doing a =
lot of
work serving up the large images. What I would like to do is set up an =
image
cluster, to allow mod_perl to basically only execute code within the =
page,
release and let another server worry about serving up images. What I =
have done
so far is altered my PerlTransHandler with the code =
below<o:p></o:p></span></font></p>
<p class=3DMsoNormal><font size=3D2 face=3DArial><span =
style=3D'font-size:10.0pt;
font-family:Arial'><o:p> </o:p></span></font></p>
<p class=3DMsoNormal><font size=3D2 face=3DArial><span =
style=3D'font-size:10.0pt;
font-family:Arial'><span =
style=3D'mso-tab-count:1'>  =
; </span>if($host
ne 'dev.webserver.com' && $host ne =
'images.webserver.com'){<o:p></o:p></span></font></p>
<p class=3DMsoNormal><font size=3D2 face=3DArial><span =
style=3D'font-size:10.0pt;
font-family:Arial'><span =
style=3D'mso-tab-count:2'>  =
; =
</span>if($new_uri
=3D~ m/\.(jpg|gif|css|pdf|bmp|js|eps)$/i){<o:p></o:p></span></font></p>
<p class=3DMsoNormal><font size=3D2 face=3DArial><span =
style=3D'font-size:10.0pt;
font-family:Arial'><span =
style=3D'mso-tab-count:3'>  =
; =
&=
nbsp; </span>#now
redirect the image<o:p></o:p></span></font></p>
<p class=3DMsoNormal><font size=3D2 face=3DArial><span =
style=3D'font-size:10.0pt;
font-family:Arial'><span =
style=3D'mso-tab-count:3'>  =
; =
&=
nbsp; </span>$r-><span
class=3DSpellE>header_<span class=3DGramE>out</span></span><span =
class=3DGramE>(</span>Location=3D>"http://<span
class=3DSpellE>images.webserver.com$new_uri</span>");<o:p></o:p></sp=
an></font></p>
<p class=3DMsoNormal><font size=3D2 face=3DArial><span =
style=3D'font-size:10.0pt;
font-family:Arial'><span =
style=3D'mso-tab-count:3'>  =
; =
&=
nbsp; </span><span
class=3DGramE>return</span> REDIRECT;<o:p></o:p></span></font></p>
<p class=3DMsoNormal><font size=3D2 face=3DArial><span =
style=3D'font-size:10.0pt;
font-family:Arial'><span =
style=3D'mso-tab-count:2'>  =
; =
</span>}<o:p></o:p></span></font></p>
<p class=3DMsoNormal><font size=3D2 face=3DArial><span =
style=3D'font-size:10.0pt;
font-family:Arial'><span =
style=3D'mso-tab-count:1'>  =
; </span>}<o:p></o:p></span></font></p>
<p class=3DMsoNormal><font size=3D2 face=3DArial><span =
style=3D'font-size:10.0pt;
font-family:Arial'><o:p> </o:p></span></font></p>
<p class=3DMsoNormal><font size=3D2 face=3DArial><span =
style=3D'font-size:10.0pt;
font-family:Arial'><o:p> </o:p></span></font></p>
<p class=3DMsoNormal><font size=3D2 face=3DArial><span =
style=3D'font-size:10.0pt;
font-family:Arial'>So far this working on my development environment, =
but what
I am really wondering about is if this will actually take the load off =
<span
class=3DSpellE>mod_perl</span>? (<span class=3DGramE>it’s</span> a =
little
hard for me to tell without significant traffic) Will the <span =
class=3DSpellE>mod_perl</span>
server execute the page and release the connection and not care how long =
the
images server is taking? If anyone has a better solution or an idea I =
would love
to hear it.<o:p></o:p></span></font></p>
<p class=3DMsoNormal><font size=3D2 face=3DArial><span =
style=3D'font-size:10.0pt;
font-family:Arial'><o:p> </o:p></span></font></p>
<p class=3DMsoNormal><font size=3D2 face=3DArial><span =
style=3D'font-size:10.0pt;
font-family:Arial'>Thanks<o:p></o:p></span></font></p>
<p class=3DMsoNormal><font size=3D2 face=3DArial><span =
style=3D'font-size:10.0pt;
font-family:Arial'>Shawn<o:p></o:p></span></font></p>
</div>
</body>
</html>
------=_NextPart_000_0134_01C52403.0087F8A0--
 |
PerlTransHandler question
shawn 00:19 on 09 Mar 2005
|
