IkiWiki/Plugin/googlecalendar.pm

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