| Kwiki-AdSense documentation | Contained in the Kwiki-AdSense distribution. |
Kwiki::AdSense - Google AdSense Plugin For Kwiki
Brian Ingerson <ingy@cpan.org>
Copyright (c) 2005. Brian Ingerson. All rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
See http://www.perl.com/perl/misc/Artistic.html
| Kwiki-AdSense documentation | Contained in the Kwiki-AdSense distribution. |
package Kwiki::AdSense; use Kwiki::Plugin -Base; use mixin 'Kwiki::Installer'; our $VERSION = '0.11'; const class_id => 'adsense'; const config_file => 'adsense.yaml'; sub register { my $registry = shift; $registry->add(preload => 'adsense'); $registry->add(widget => 'adsense', template => 'adsense.html', ); $registry->add(preference => $self->show_adsense); } sub show_adsense { my $p = $self->new_preference('show_adsense'); $p->query('Show Google AdSense Ads?'); $p->default(1); return $p; } __DATA__
__config/adsense.yaml__ adsense_client: pub-7894611526988241 adsense_width: 120 adsense_height: 600 adsense_format: 120x600_as adsense_channel: adsense_type: text adsense_color_border: 336699 adsense_color_bg: FFFFFF adsense_color_link: 0000FF adsense_color_url: 000000 adsense_color_text: 000000 __template/tt2/adsense.html__ [% IF hub.users.current.preferences.show_adsense.value %] <script type="text/javascript"><!-- google_ad_client = "[% adsense_client %]"; google_ad_width = [% adsense_width %]; google_ad_height = [% adsense_height %]; google_ad_format = "[% adsense_format %]"; google_ad_channel ="[% adsense_channel %]"; google_ad_type = "[% adsense_type %]"; google_color_border = "[% adsense_color_border %]"; google_color_bg = "[% adsense_color_bg %]"; google_color_link = "[% adsense_color_link %]"; google_color_url = "[% adsense_color_url %]"; google_color_text = "[% adsense_color_text %]"; //--></script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script> [% END %]