Author: pebender
Date: Mon Jul 20 10:20:30 2009
New Revision: 5196
Modified:
trunk/gar-minimyth/html/minimyth/document-changelog.txt
trunk/gar-minimyth/script/perl/perl-MiniMyth/checksums
trunk/gar-minimyth/script/perl/perl-MiniMyth/files/MiniMyth.pm
Log:
- Worked around lighttpd's lack of support for the Expect request-header,
so that the MiniMyth read-write configuration directory can be located
on a lighttpd web server.
Modified: trunk/gar-minimyth/html/minimyth/document-changelog.txt
==============================================================================
--- trunk/gar-minimyth/html/minimyth/document-changelog.txt (original)
+++ trunk/gar-minimyth/html/minimyth/document-changelog.txt Mon Jul 20
10:20:30 2009
@@ -1,7 +1,7 @@
MiniMyth Changelog
--------------------------------------------------------------------------------
-Changes since 68 (2009-07-19):
+Changes since 68 (2009-07-20):
Current MythTV versions
MythTV 0.20-softpad: version 0.20.2.softpad, release-0-20-fixes branch
svn 16082 and
@@ -33,6 +33,9 @@
Fixed bugs
- Fixed a bug in the generation of the minimyth.conf.mk included in the
image.
+ - Worked around lighttpd's lack of support for the Expect
request-header,
+ so that the MiniMyth read-write configuration directory can be
located
+ on a lighttpd web server.
Modified build system
- Added ability for software list files to depend on the version of
Modified: trunk/gar-minimyth/script/perl/perl-MiniMyth/checksums
==============================================================================
--- trunk/gar-minimyth/script/perl/perl-MiniMyth/checksums (original)
+++ trunk/gar-minimyth/script/perl/perl-MiniMyth/checksums Mon Jul 20
10:20:30 2009
@@ -1 +1 @@
-a3936bc796d27144d4c96e6032fb9f93 download/MiniMyth.pm
+30ee18bd2c5ca5b73546853df89d6acd download/MiniMyth.pm
Modified: trunk/gar-minimyth/script/perl/perl-MiniMyth/files/MiniMyth.pm
==============================================================================
--- trunk/gar-minimyth/script/perl/perl-MiniMyth/files/MiniMyth.pm
(original)
+++ trunk/gar-minimyth/script/perl/perl-MiniMyth/files/MiniMyth.pm Mon Jul
20 10:20:30 2009
@@ -12,7 +12,7 @@
use File::Path ();
use File::Spec ();
use Net::Telnet ();
-use WWW::Curl::Easy qw(CURLINFO_HTTP_CODE CURLOPT_FOLLOWLOCATION
CURLOPT_INFILE CURLOPT_INFILESIZE CURLOPT_PUT CURLOPT_UPLOAD CURLOPT_URL
CURLOPT_VERBOSE CURLOPT_WRITEDATA);
+use WWW::Curl::Easy qw(CURLINFO_HTTP_CODE CURLOPT_FOLLOWLOCATION
CURLOPT_HTTPHEADER CURLOPT_INFILE CURLOPT_INFILESIZE CURLOPT_UPLOAD
CURLOPT_URL CURLOPT_VERBOSE CURLOPT_WRITEDATA);
sub new
{
@@ -1399,7 +1399,9 @@
$curl->setopt(CURLOPT_INFILE, $IN_FILE);
$curl->setopt(CURLOPT_INFILESIZE,
$local_file_size);
$curl->setopt(CURLOPT_WRITEDATA, $OUT_FILE);
- $curl->setopt(CURLOPT_PUT, 1);
+ $curl->setopt(CURLOPT_UPLOAD, 1);
+ # lighttpd < 1.5 does not support the HTTP 1.1
Expect header.
+ $curl->setopt(CURLOPT_HTTPHEADER, [ q(Expect:) ]);
my $retcode = $curl->perform;
close($OUT_FILE);
if ($retcode == 0)
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google Groups
"minimyth-commits" group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/minimyth-commits?hl=en
-~----------~----~----~----~------~----~------~--~---
