]> git.vanrenterghem.biz Git - git.ikiwiki.info.git/commitdiff
Merge branch 'master' of ssh://git.ikiwiki.info/srv/git/ikiwiki.info
authorJoey Hess <joey@kodama.kitenet.net>
Tue, 8 Jul 2008 22:12:33 +0000 (18:12 -0400)
committerJoey Hess <joey@kodama.kitenet.net>
Tue, 8 Jul 2008 22:12:33 +0000 (18:12 -0400)
Conflicts:

doc/bugs/attachment:_failed_to_get_filehandle.mdwn

IkiWiki/Plugin/attachment.pm
debian/changelog
debian/examples [new file with mode: 0644]
doc/bugs/attachment:_failed_to_get_filehandle.mdwn

index f49fe63f770aef606ad8208bac4377a9e8c360e4..ef6d79a9c52a1db7006d223730a1636c6ab71bf6 100644 (file)
@@ -21,6 +21,8 @@ sub formbuilder_setup (@) { #{{{
        my $q=$params{cgi};
 
        if (defined $form->field("do") && $form->field("do") eq "edit") {
+               # Add attachment field, set type to multipart.
+               $form->enctype(&CGI::MULTIPART);
                $form->field(name => 'attachment', type => 'file');
                # These buttons are not put in the usual place, so
                # are not added to the normal formbuilder button list.
@@ -87,9 +89,17 @@ sub formbuilder (@) { #{{{
                # This is an (apparently undocumented) way to get the name
                # of the temp file that CGI writes the upload to.
                my $tempfile=$q->tmpFileName($filename);
-               
                if (! defined $tempfile || ! length $tempfile) {
-                       error("failed to determine tempfile name");
+                       # perl 5.8 needs an alternative, awful method
+                       if ($q =~ /HASH/ && exists $q->{'.tmpfiles'}) {
+                               foreach my $key (keys(%{$q->{'.tmpfiles'}})) {
+                                       $tempfile=$q->tmpFileName(\$key);
+                                       last if defined $tempfile && length $tempfile;
+                               }
+                       }
+                       if (! defined $tempfile || ! length $tempfile) {
+                               error("CGI::tmpFileName failed to return the uploaded file name");
+                       }
                }
 
                $filename=IkiWiki::titlepage(
@@ -143,7 +153,7 @@ sub formbuilder (@) { #{{{
                                        # even that doesn't always work,
                                        # fall back to opening the tempfile
                                        $fh=undef;
-                                       open($fh, "<", $tempfile) || error("failed to open $tempfile: $!");
+                                       open($fh, "<", $tempfile) || error("failed to open \"$tempfile\": $!");
                                }
                        }
                        binmode($fh);
index 66ccc5b6082685055c6b9b04966fdae2f91e9f71..725b9c1bc4b37d6a2019c2427ed1659946fd29a3 100644 (file)
@@ -6,6 +6,8 @@ ikiwiki (2.53) UNRELEASED; urgency=low
     that currently has no attachments.
   * Fix a bug with links to pages whose names contained colons.
   * attachment: Support old versions of CGI.pm that lack an upload method.
+  * Include ikiwiki.setup in examples in the debian package.
+  * attachment: Support perl 5.8's buggy version of CGI.pm.
 
  -- Joey Hess <joeyh@debian.org>  Mon, 07 Jul 2008 01:52:48 -0400
 
diff --git a/debian/examples b/debian/examples
new file mode 100644 (file)
index 0000000..d94312e
--- /dev/null
@@ -0,0 +1 @@
+doc/ikiwiki.setup
index 8bb9aadb9220a4168ec4b62ac2409d87987945e0..e2a9b483d4cab6b363e1e4f6e3ec8e85cf32898b 100644 (file)
@@ -102,4 +102,8 @@ Is it Ikiwiki bug or my attachment plugin is misconfigured? --[[PaweÅ‚|ptecza]]
 > I've reproduced the bug, and it does seem to be a bug with the perl in
 > debian stable/ubuntu hardy. Trying to figure it out --[[Joey]]
 
+> This was amazingly disgusting, see commit message for the full horror of
+> the details. I think it's [[done]] -- at least it works on debian stable
+> now. --[[Joey]]
+
 >> Thank you very much for your effort, Joey! :) --[[PaweÅ‚|ptecza]]