Re: Where was that success story?

[Eric Hammond]

Fulko Hew wrote:
  Fulko Hew wrote:
   Can someone forward me a URL to the perl/mod-perl success story
   (from about 6 months ago) that was about some people that went
   in and re-wrote someones web application and made it run
   incredably faster in a very short time [...]

I'm part of a small group which recently did something like this,
replacing a major NT/IIS/ASP web site with Linux/Apache/mod_perl/Mason
in 3 months.

No public story has been written about it, but I would reply to 
private questions about the experience.  To summarize, it went 
very smoothly and was a great success (and no part of it has been
thrown out for any competing technology).

--
Eric Hammond
[EMAIL PROTECTED]

Apache::MP3 requires PerlSetupEnv on, patch to convert to Apache::Request

[Eric Hammond]

Lincoln:

After a day of adding debug statements into Apache::MP3 and CGI.pm
I finally tracked down why my streaming was not working.  I had
listened to http://perl.apache.org/guide/performance.html#PerlSetupEnv_Off
which caused $ENV{QUERY_STRING} to not be set which broke CGI.pm.

To save others the agony, you might want to add a note to the Apache::MP3
docs that it requires PerlSetupEnv on

Alternatively, you might consider rewriting Apache::MP3 to use 
Apache::Request instead of CGI.pm (though I understand you may have 
a fondness for the latter).

I've included a patch to convert Apache::MP3 to use Apache::Request
for parameters.  More work would be required to convert the other uses 
of CGI.pm, but if you'd like, I'd be willing to tackle that, too, as 
it would be nice to not require the large size of CGI.pm.

Thanks
--
Eric Hammond
[EMAIL PROTECTED]

--- Apache/MP3.pm.orig  Sat Mar  2 18:00:37 2002
+++ Apache/MP3.pm   Sun Mar  3 10:14:23 2002
@@ -67,7 +67,7 @@
 
 sub new {
   my $class = shift;
-  unshift @_,'r' if @_ == 1;
+  @_ = ('r' = Apache::Request-new(shift)) if @_ == 1;
   return bless { @_ },$class;
 }
 
@@ -82,35 +82,35 @@
 if -d $r-filename;  # should be $r-finfo, but STILL problems with this
 
   #simple download of file
-  return $self-download_file($r-filename) unless param;
+  return $self-download_file($r-filename) unless $r-param;
 
   # this is called to stream a file
-  return $self-stream if param('stream');
+  return $self-stream if $r-param('stream');
 
   # this is called to generate a playlist on the current directory
   return $self-send_playlist($self-find_mp3s)
-if param('Play All');
+if $r-param('Play All');
 
   # this is called to generate a playlist on the current directory
   # and everything beneath
   return $self-send_playlist($self-find_mp3s('recursive')) 
-if param('Play All Recursive') ;
+if $r-param('Play All Recursive') ;
 
   # this is called to generate a shuffled playlist of current directory
   return $self-send_playlist($self-find_mp3s,'shuffle')
-if param('Shuffle');
+if $r-param('Shuffle');
 
   # this is called to generate a shuffled playlist of current directory
   return $self-send_playlist($self-find_mp3s,'shuffle')
-if param('Shuffle All');
+if $r-param('Shuffle All');
 
   # this is called to generate a shuffled playlist of current directory
   # and everything beneath
   return $self-send_playlist($self-find_mp3s('recursive'),'shuffle')
-if param('Shuffle All Recursive');
+if $r-param('Shuffle All Recursive');
 
   # this is called to generate a playlist for one file
-  if (param('play')) {
+  if ($r-param('play')) {
 my $dot3 = '.m3u|.pls';
 my($basename) = $r-uri =~ m!([^/]+?)($dot3)?$!;
 $basename = quotemeta($basename);
@@ -137,8 +137,8 @@
   }
 
   # this is called to generate a playlist for selected files
-  if (param('Play Selected')) {
-return HTTP_NO_CONTENT unless my @files = param('file');
+  if ($r-param('Play Selected')) {
+return HTTP_NO_CONTENT unless my @files = $r-param('file');
 my $uri = dirname($r-uri);
 $self-send_playlist([map { $uri/$_ } @files]);
 return OK;