Mobile::Ads::Adsgr - module to serve ads.gr ads
Version 0.1.0
use Mobile::Ads::Adsgr; $ad = new Mobile::Ads::Adsgr ($text,$link,$image) = $ad->get_adsgr_ad({ site => 'Ads.gr site code', remote => $ENV{'HTTP_USER_AGENT'}, address => $ENV{'REMOTE_ADDR'}, text => 'default ad text', link => 'default ad link', });
Mobile::Ads::Adsgr provides an object oriented interface to serve advertisements from Ads.gr in mobile sites. ads.gr was written by me, so it is quite safe to assume it works, despite sloppy writing on this module (all the Mobile::Ads family to be exact)
Mobile::Ads::Adsgr
To reuse Mobile::Ads in multiple (subsequent) ad requests, you can pass a Mobile::Ads reference here. Instead of creating a new Mobile::Ads object, we will use the one you pass instead. This might save a little LWP::UserAgent creation/destruction time.
Mobile::Ads
LWP::UserAgent
=> Ads.gr site code, delivered by them. Something in the form off ``site_name'' (ie ``wapamama'')
=> Remote User Agent ($ENV{'HTTP_USER_AGENT'}). In fact $ENV{'HTTP_USER_AGENT'} will be used if not supplied.
=> $ENV{'REMOTE_ADDR'}. All things about HTTP_USER_AGENT also apply here.
=> Should we fail to retrieve a real ad, this is the text of the ad displayed instead
=> Same with text, but for the ad's link.
=> Does the actual fetching of the ad for the site given. Refer to new for details Returns a list ($text_for_ad,$link_for_ad,$ad_image) value.
0.0.1 Initial Release 0.0.2 Fixed stupid typo 0.0.3 Didn't preserve default values on failure 0.0.4 $ua timeout set to 20 sec 0.0.5 All ua stuff put in Mobile::Ads 0.0.6 Aliased get_ad to get_adsgr_ad 0.0.7 Option to reuse parent Mobile::Ads instead of creating anew 0.0.8/0.0.9 Skipped those to have same verion number in all modules 0.1.0 One could also use a reference to the parent... :)
Thoughtlessly crafted to avoid having the same piece of code in several places. Could use lots of enhancements.
This module borrowed its OO interface from Mail::Sender.pm Version : 0.8.00 which is available on CPAN.
Thanos Chatziathanassiou <tchatzi@arx.net> http://www.arx.net
Copyright (c) 2008 arx.net - Thanos Chatziathanassiou . All rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
1 POD Error
The following errors were encountered while parsing the POD:
You forgot a '=back' before '=head2'
To install Mobile::Ads, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Mobile::Ads
CPAN shell
perl -MCPAN -e shell install Mobile::Ads
For more information on module installation, please visit the detailed CPAN module installation guide.