All the Perl that's Practical to Extract and Report
use Perl Log In
brian_d_foy (44)
Journal of brian_d_foy (44)
Fixing stupid web server mishacks.
The folks at www.marketplace.org use PHP to generate a thing that is supposed to tell RealPlayer which Akamai server to talk to (isn't Akamai supposed to do that transparently?).
The PHP puts in some extra line breaks though, and my RealPlayer barfs on it. So, out comes the Perl. I write a CGI wrapper to get the PHP output, create some SMIL content, and throw that back at my browser.
#!/usr/local/bin/perl
use LWP::Simple qw(get);
my $data = get( "http://marketplace.publicradio.org/play/current_mp.php" );
$data =~ s/^\s*|\s*$//g;
print <<"HERE";
Content-type: application/smil
Content-dispostion: filename=marketplace.smil
X-Docs: http://service.real.com/help/library/guides/production8/htmfiles/smil.htm#33551
<smil>
<head>
<meta name="title" content="Marketplace"/>
</head>
<body>
<audio src="$data"/>
</body>
</smil>
HERE
Now the major disappointment sets in. Firefox apparently ignore the content type and tries to save the file. I have to resort to the old Internet Explorer kludge of adding
Still, it works, and that's all I need.
--Larry Wall in stab.c from the perl source code
Content-disposition (Score:2)
Content-disposition: attachment;filename=marketplace.smil
Re:Content-disposition (Score:2)