]> sipb.mit.edu Git - ikiwiki.git/blob - IkiWiki/Plugin/img.pm
* Add preview parameter to preprocesser calls, use this rather than the
[ikiwiki.git] / IkiWiki / Plugin / img.pm
1 #!/usr/bin/perl
2 # Ikiwiki enhanced image handling plugin
3 # Christian Mock cm@tahina.priv.at 20061002
4 package IkiWiki::Plugin::img;
5
6 use warnings;
7 use strict;
8 use IkiWiki;
9
10 my %imgdefaults;
11
12 sub import { #{{{
13         hook(type => "preprocess", id => "img", call => \&preprocess);
14 } #}}}
15
16 sub preprocess (@) { #{{{
17         my ($image) = $_[0] =~ /$config{wiki_file_regexp}/; # untaint
18         my %params=@_;
19
20         if (! exists $imgdefaults{$params{page}}) {
21                 $imgdefaults{$params{page}} = {};
22         }
23         my $size = $params{size} || $imgdefaults{$params{page}}->{size} || 'full';
24         my $alt = $params{alt} || $imgdefaults{$params{page}}->{alt} || '';
25
26         if ($image eq 'defaults') {
27                 $imgdefaults{$params{page}} = {
28                         size => $size,
29                         alt => $alt,
30                 };
31                 return '';
32         }
33
34         add_depends($params{page}, $image);
35         my $file = bestlink($params{page}, $image) || return "[[img $image not found]]";
36
37         my $dir = IkiWiki::dirname($file);
38         my $base = IkiWiki::basename($file);
39
40         eval q{use Image::Magick};
41         error($@) if $@;
42         my $im = Image::Magick->new;
43         my $imglink;
44         my $r;
45
46         if ($size ne 'full') {
47                 my ($w, $h) = ($size =~ /^(\d+)x(\d+)$/);
48                 return "[[img bad size \"$size\"]]" unless (defined $w && defined $h);
49
50                 my $outfile = "$config{destdir}/$dir/${w}x${h}-$base";
51                 $imglink = "$dir/${w}x${h}-$base";
52
53                 if (-e $outfile && (-M srcfile($file) >= -M $outfile)) {
54                         $r = $im->Read($outfile);
55                         return "[[img failed to read $outfile: $r]]" if $r;
56                 }
57                 else {
58                         $r = $im->Read(srcfile($file));
59                         return "[[img failed to read $file: $r]]" if $r;
60
61                         $r = $im->Resize(geometry => "${w}x${h}");
62                         return "[[img failed to resize: $r]]" if $r;
63
64                         # don't actually write file in preview mode
65                         if (! $params{preview}) {
66                                 will_render($params{page}, $imglink);
67                                 my @blob = $im->ImageToBlob();
68                                 writefile($imglink, $config{destdir}, $blob[0], 1);
69                         }
70                         else {
71                                 $imglink = $file;
72                         }
73                 }
74         }
75         else {
76                 $r = $im->Read(srcfile($file));
77                 return "[[img failed to read $file: $r]]" if $r;
78                 $imglink = $file;
79         }
80
81         add_depends($imglink, $params{page});
82
83         my ($fileurl, $imgurl);
84         if (! $params{preview}) {
85                 $fileurl=IkiWiki::abs2rel($file, IkiWiki::dirname($params{destpage}));
86                 $imgurl=IkiWiki::abs2rel($imglink, IkiWiki::dirname($params{destpage}));
87         }
88         else {
89                 $fileurl="$config{url}/$file";
90                 $imgurl="$config{url}/$imglink";
91         }
92
93         return '<a href="'.$fileurl.'"><img src="'.$imgurl.
94                 '" alt="'.$alt.'" width="'.$im->Get("width").
95                 '" height="'.$im->Get("height").'" /></a>';
96 } #}}}
97
98 1