modules/adsense.pl

   1 # Copyright (C) 2005 Bart van Kuik <bart@vankuik.nl>
   2 # Copyright (C) 2010 Bertrand Habib <hbbb05@gmail.com>
   3 #
   4 # This program is free software: you can redistribute it and/or modify
   5 # it under the terms of the GNU General Public License as published by
   6 # the Free Software Foundation, either version 3 of the License, or
   7 # (at your option) any later version.
   8 #
   9 # This program is distributed in the hope that it will be useful,
  10 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  11 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12 # GNU General Public License for more details.
  13 #
  14 # You should have received a copy of the GNU General Public License
  15 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
  16
  17 $ModulesDescription .= '<p><a href="http://git.savannah.gnu.org/cgit/oddmuse.git/tree/modules/adsense.pl">adsense.pl</a>, see <a href="http://www.oddmuse.org/cgi-bin/oddmuse/AdSense_Module">AdSense Module</a></p>';
  18
  19 use vars qw($AdSensePageName $AdSensePlace);
  20
  21 push (@MyInitVariables, \&AdSenseInit);
  22
  23 sub AdSenseInit {
  24   $AdSensePageName = "AdSense" unless $AdSensePageName;
  25   $AdSensePlace = "top" unless $AdSensePlace;
  26   if ($AdSensePlace eq 'bottom') {  # Process adsense after all modules have been loaded
  27     push (@MyFooters, \&GetAdSense);
  28   } elsif ($AdSensePlace eq 'top')  {
  29    *AdSenseOldGetHtmlHeader = *GetHtmlHeader;
  30    *GetHtmlHeader = *AdSenseNewGetHtmlHeader;
  31   }
  32 }
  33
  34 sub AdSenseNewGetHtmlHeader {
  35   my $result = AdSenseOldGetHtmlHeader(@_);
  36   $result .= GetAdSense();
  37   return $result;
  38 }
  39
  40 sub GetAdSense {
  41   return GetPageContent($AdSensePageName) if GetParam('action', 'browse') eq 'browse';
  42 }
  43