Thanos Chatziathanassiou > Mobile-Ads > Mobile::Ads::Adsgr

Download:
Mobile-Ads-0.0.2.tar.gz

Dependencies

Annotate this POD

View/Report Bugs
Module Version: 0.1.0   Source  

NAME ^

Mobile::Ads::Adsgr - module to serve ads.gr ads

Version 0.1.0

SYNOPSIS ^

 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',
                                });

DESCRIPTION ^

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)

new Mobile::Ads::Adsgr ^

[$parent]

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.

Parameters/Properties

site

=> Ads.gr site code, delivered by them. Something in the form off ``site_name'' (ie ``wapamama'')

remote

=> Remote User Agent ($ENV{'HTTP_USER_AGENT'}). In fact $ENV{'HTTP_USER_AGENT'} will be used if not supplied.

address

=> $ENV{'REMOTE_ADDR'}. All things about HTTP_USER_AGENT also apply here.

text

=> Should we fail to retrieve a real ad, this is the text of the ad displayed instead

link

=> Same with text, but for the ad's link.

Methods

get_adsgr_ad

=> 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.

Revision History ^

 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... :)

BUGS ^

Thoughtlessly crafted to avoid having the same piece of code in several places. Could use lots of enhancements.

DISCLAIMER ^

This module borrowed its OO interface from Mail::Sender.pm Version : 0.8.00 which is available on CPAN.

AUTHOR ^

Thanos Chatziathanassiou <tchatzi@arx.net> http://www.arx.net

COPYRIGHT ^

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.

syntax highlighting: