#--------------------------------
#¢£Dtidirect;
#--------------------------------
package Dtidirect;
#$VERSION = 1.00;
#use vars qw($VERSION);

sub new{
	my $class = shift;
	my ( $af_id, $b_id, $url ) = @_ ;
	my $self = {"af_id" => $af_id ,
	"b_id" => $b_id ,
	"url" => $url };
	bless $self, $class;
	return $self;
}


sub dataprint{
	$self = shift ;
	print "$self->{af_id}\n" ;
	print "$self->{b_id}\n" ;
	print "$self->{url}\n" ;
}

sub hoge{
    $self = shift ;
	%site = (
		"6" => "http://www.caribbeancom.com/",
		"7" => "http://www.eroxjapanz.com/",
		"8" => "http://2345.tv/",
		"18" => "http://sample.1pondo.tv/",
		"21" => "http://www.x-gallery.tv/",
		"40" => "http://www.hgmo.com/00/",
		"44" => "http://www2.xxxjg.com/",
		"47" => "http://www.j-pee.com/",
		"55" => "http://www.eroika.com/",
		"56" => "http://x-ray.tonight2.com/",
		"86" => "http://www.uraya.tv/",
		"90" => "http://www.yumegumi.net/",
		"92" => "http://www.uramovie.com/",
		"122" => "http://yumegumi.net/netcomic/",
		"123" => "http://www.yumegumi.net/bunko/",
		"134" => "http://sample.japabeauty.tv/",
		"138" => "http://www.55eros.com/",
		"139" => "http://www.girls21plus.com/",
		"143" => "http://www.sumusume.com/",
		"154" => "http://www.califcom.com/",
		"168" => "http://www.creamlemon.com/",
		"171" => "http://www.video-virgin.net/",
		"182" => "http://www.gokurakuten.com/jp/",
		"248" => "http://www.p-tomato.com/",
		"259" => "http://www.akibahonpo.com/",
		"260" => "http://www.maniacmax1.com/",
		"262" => "http://www.h4610.com/",
		"286" => "http://www.h0930.com/",
		"263" => "http://www.aquarium.tv/",
		"265" => "http://www.asian-angel.tv/jp/",
		"281" => "http://www.jpnanpa.com/",
		"287" => "http://www.movie-girls.tv/",
		"290" => "http://www.caribbeancompr.com/",
		"292" => "http://www.10musume.com/",
		"298" => "http://www.jpe-encore.com/",
		"317" => "http://www.mesubuta.net/"
	);

	if($self->{url}){
		foreach $key ( keys %site ) {
		    $value = $site{ $key };
		    my $url = $self->{url};
			if ($url =~ m/$value/) {
			    #print "$key --> $value <br>";
			    $baseurl = 'http://click.dtiserv2.com/Direct/'.$self->{b_id}.'-'.$key.'-'.$self->{af_id}.'/';
			    $printurl = $url;
			    $printurl =~ s/$value/$baseurl/;
			    print "$printurl<br>";
			}
		}
	}
}