add plugin safe/rebuild info (part 1 of 2)
[ikiwiki.git] / IkiWiki / Plugin / googlecalendar.pm
1 #!/usr/bin/perl
2 package IkiWiki::Plugin::googlecalendar;
3
4 use warnings;
5 use strict;
6 use IkiWiki 2.00;
7
8 sub import { #{{{
9         hook(type => "getsetup", id => "googlecalendar",
10                 call => \&getsetup);
11         hook(type => "preprocess", id => "googlecalendar",
12                 call => \&preprocess);
13         hook(type => "format", id => "googlecalendar",
14                 call => \&format);
15 } # }}}
16
17 sub getsetup () { #{{{
18         return
19                 plugin => {
20                         safe => 1,
21                         rebuild => undef,
22                 },
23 } #}}}
24
25 sub preprocess (@) { #{{{
26         my %params=@_;
27
28         # Parse the html, looking for the url to embed for the calendar.
29         # Avoid XSS attacks..
30         my ($url)=$params{html}=~m#iframe\s+src="http://www\.google\.com/calendar/embed\?([^"<>]+)"#;
31         if (! defined $url || ! length $url) {
32                 error gettext("failed to find url in html")
33         }
34         my ($height)=$params{html}=~m#height="(\d+)"#;
35         my ($width)=$params{html}=~m#width="(\d+)"#;
36
37         return "<div class=\"googlecalendar\" src=\"$url\" height=\"$height\" width=\"$width\"></div>";
38 } # }}}
39
40 sub format (@) { #{{{
41         my %params=@_;
42
43         $params{content}=~s/<div class=\"googlecalendar" src="([^"]+)" height="([^"]+)" width="([^"]+)"><\/div>/gencal($1,$2,$3)/eg;
44
45         return $params{content};
46 } # }}}
47
48 sub gencal ($$$) { #{{{
49         my $url=shift;
50         my $height=shift;
51         my $width=shift;
52         return qq{<iframe src="http://www.google.com/calendar/embed?$url" style=" border-width:0 " width="$width" frameborder="0" height="$height"></iframe>};
53 } #}}}
54
55 1