1234567891011121314151617181920212223242526272829303132333435363738394041424344454647 |
- # Copyright (C) 2005 Bart van Kuik <bart@vankuik.nl>
- # Copyright (C) 2010 Bertrand Habib <hbbb05@gmail.com>
- #
- # This program is free software: you can redistribute it and/or modify
- # it under the terms of the GNU General Public License as published by
- # the Free Software Foundation, either version 3 of the License, or
- # (at your option) any later version.
- #
- # This program is distributed in the hope that it will be useful,
- # but WITHOUT ANY WARRANTY; without even the implied warranty of
- # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- # GNU General Public License for more details.
- #
- # You should have received a copy of the GNU General Public License
- # along with this program. If not, see <http://www.gnu.org/licenses/>.
- use strict;
- use v5.10;
- AddModuleDescription('adsense.pl', 'AdSense Module');
- our (@MyInitVariables, @MyFooters);
- our ($AdSensePageName, $AdSensePlace);
- push (@MyInitVariables, \&AdSenseInit);
- sub AdSenseInit {
- $AdSensePageName = "AdSense" unless $AdSensePageName;
- $AdSensePlace = "top" unless $AdSensePlace;
- if ($AdSensePlace eq 'bottom') { # Process adsense after all modules have been loaded
- push (@MyFooters, \&GetAdSense);
- } elsif ($AdSensePlace eq 'top') {
- *AdSenseOldGetHtmlHeader = \&GetHtmlHeader;
- *GetHtmlHeader = \&AdSenseNewGetHtmlHeader;
- }
- }
- sub AdSenseNewGetHtmlHeader {
- my $result = AdSenseOldGetHtmlHeader(@_);
- $result .= GetAdSense();
- return $result;
- }
- sub GetAdSense {
- return GetPageContent($AdSensePageName) if GetParam('action', 'browse') eq 'browse';
- }
|