PERL

The PERL coding has been developed to safely and efficiently provide MYDAS with the information necessary to choose the most appropriate advertisement at the time of the request.

use strict;
use URI::URL;
use CGI;
use LWP::Simple;
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Response;
use HTTP::Request::Common;

my $mm_placementid      = YOUR PLACEMENT ID FROM MM;
my $mm_adserver         = "ads.mp.mydas.mobi";
my $mm_default_response = ""; 

my $mm_ua = URI::URL->new($ENV{'HTTP_USER_AGENT'});
my $mm_ip = URI::URL->new($ENV{'REMOTE_ADDR'});
my $mm_id = URI::URL->new($ENV{'REMOTE_ADDR'});

if( URI::URL->new($ENV{'HTTP_X_UP_SUBNO'}) ne "" ) {
  my $mm_id = URI::URL->new($ENV{'HTTP_X_UP_SUBNO'});
}
elsif( URI::URL->new($ENV{'HTTP_XID'}) ne "" ) {
  my $mm_id = URI::URL->new($ENV{'HTTP_XID'});
}
elsif( URI::URL->new($ENV{'HTTP_CLIENTID'}) ne "" ) {
  my $mm_id = URI::URL->new($ENV{'HTTP_CLIENTID'});
}

my $mm_url = "http://$mm_adserver/getAd.php5?apid=$mm_placementid&auid=$mm_id&ua=$mm_ua&uip=$mm_ip";
my $ua = LWP::UserAgent->new();
$ua->timeout( 5 );
my $response = $ua->request( GET "$mm_url" );

if( $response->is_error() ) {
   print $mm_default_response;
}
else {
   print( $response->content() );
}