adsense.pl 1.5 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647
  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. use strict;
  17. use v5.10;
  18. AddModuleDescription('adsense.pl', 'AdSense Module');
  19. our (@MyInitVariables, @MyFooters);
  20. our ($AdSensePageName, $AdSensePlace);
  21. push (@MyInitVariables, \&AdSenseInit);
  22. sub AdSenseInit {
  23. $AdSensePageName = "AdSense" unless $AdSensePageName;
  24. $AdSensePlace = "top" unless $AdSensePlace;
  25. if ($AdSensePlace eq 'bottom') { # Process adsense after all modules have been loaded
  26. push (@MyFooters, \&GetAdSense);
  27. } elsif ($AdSensePlace eq 'top') {
  28. *AdSenseOldGetHtmlHeader = \&GetHtmlHeader;
  29. *GetHtmlHeader = \&AdSenseNewGetHtmlHeader;
  30. }
  31. }
  32. sub AdSenseNewGetHtmlHeader {
  33. my $result = AdSenseOldGetHtmlHeader(@_);
  34. $result .= GetAdSense();
  35. return $result;
  36. }
  37. sub GetAdSense {
  38. return GetPageContent($AdSensePageName) if GetParam('action', 'browse') eq 'browse';
  39. }