Apache2-ApacheMobileFilter
view release on metacpan or search on metacpan
lib/Apache2/AMFDetectRightFilterMemcached.pm view on Meta::CPAN
if ($ENV{AMFMobileHome}) {
&loadConfigFile("$ENV{AMFMobileHome}/DetectRightAMF.xml");
} else {
$CommonLib->printLog("AMFMobileHome not exist. Please set the variable AMFMobileHome into httpd.conf");
ModPerl::Util::exit();
}
sub loadConfigFile {
my ($fileDetectRight) = @_;
my $null="";
my $null2="";
my $null3="";
my $val;
my $capability;
my $r_id;
my $dummy;
#The filter
$CommonLib->printLog("Start read configuration from httpd.conf");
if ($ENV{DetectRightNetDownload}) {
if ($ENV{DetectRightNetDownload} eq 'true' || $ENV{DetectRightNetDownload} eq 'false') {
$DetectRightnetdownload=$ENV{DetectRightNetDownload};
$CommonLib->printLog("DetectRightNetDownload is: $DetectRightnetdownload");
} else {
$CommonLib->printLog("Error DetectRightNetDownload parmeter must set to true or false");
ModPerl::Util::exit();
}
}
if ($ENV{DownloadDetectRightURL}) {
$downloadDetectRighturl=$ENV{DownloadDetectRightURL};
$CommonLib->printLog("DownloadDetectRightURL is: $downloadDetectRighturl");
}
if ($ENV{CapabilityList}) {
my @dummycapability = split(/,/, $ENV{CapabilityList});
foreach $dummy (@dummycapability) {
if ($dummy eq "all") {
$listall="true";
}
$Capability{$dummy}=$dummy;
$CommonLib->printLog("CapabilityList is: $dummy");
}
} else {
$listall="true";
$CommonLib->printLog('CapabilityList not setted so the default value is "all"');
}
if ($ENV{AMFMobileKeys}) {
my @dummyMobileKeys = split(/,/, $ENV{AMFMobileKeys});
foreach $dummy (@dummyMobileKeys) {
$MobileArray{$dummy}='mobile';
}
$CommonLib->printLog("AMFMobileKeys is: $ENV{AMFMobileKeys}");
}
if ($ENV{AMFProductionMode}) {
$cookiecachesystem=$ENV{AMFProductionMode};
$CommonLib->printLog("AMFProductionMode is: $cookiecachesystem");
} else {
$CommonLib->printLog("AMFProductionMode (the CookieCacheSystem is deprecated) is not setted the default value is $cookiecachesystem");
}
if ($ENV{PersonalDetectRightFileName}) {
$personalDetectRighturl=$ENV{AMFMobileHome}."/".$ENV{PersonalDetectRightFileName};
$CommonLib->printLog("PersonalDetectRightFileName is: $ENV{PersonalDetectRightFileName}");
}
if ($ENV{RestMode}) {
$restmode=$ENV{RestMode};
$CommonLib->printLog("RestMode is: $restmode");
}
if ($ENV{AMFDeepParse}) {
$deepSearch=$ENV{AMFDeepParse};
$CommonLib->printLog("AMFDeepParse is: $deepSearch");
} else {
$CommonLib->printLog("AMFDeepParse is not setted the default value is 3");
}
if ($ENV{FullBrowserMobileAccessKey}) {
$mobilenable="$ENV{FullBrowserMobileAccessKey}";
$CommonLib->printLog("FullBrowserMobileAccessKey is: $ENV{FullBrowserMobileAccessKey}");
$CommonLib->printLog("For access the device to fullbrowser set the link: <url>?$mobilenable=true");
}
$CommonLib->printLog("Finish loading parameter");
$CommonLib->printLog("---------------------------------------------------------------------------");
if ($DetectRightnetdownload eq "true") {
$CommonLib->printLog("Start process downloading DetectRightAMF.xml from $downloadDetectRighturl");
$CommonLib->printLog ("Test the URL");
my ($content_type, $document_length, $modified_time, $expires, $server) = head($downloadDetectRighturl);
if ($content_type eq "") {
$CommonLib->printLog("Couldn't get $downloadDetectRighturl.");
ModPerl::Util::exit();
} else {
$CommonLib->printLog("The URL is correct");
$CommonLib->printLog("The size of document wurf file: $document_length bytes");
}
if ($content_type eq 'application/zip') {
$CommonLib->printLog("The file is a zip file.");
$CommonLib->printLog ("Start downloading");
my @dummypairs = split(/\//, $downloadDetectRighturl);
my ($ext_zip) = $downloadDetectRighturl =~ /\.(\w+)$/;
my $filezip=$dummypairs[-1];
my $tmp_dir=$ENV{AMFMobileHome};
$filezip="$tmp_dir/$filezip";
my $status = getstore ($downloadDetectRighturl,$filezip);
my $output="$tmp_dir/tmp_DetectRightAMF.xml";
unzip $filezip => $output
or die "unzip failed: $UnzipError\n";
#
# call parseDetectRightFile
#
callparseDetectRightFile($output);
} else {
$CommonLib->printLog("The file is a xml file.");
my $content = get ($downloadDetectRighturl);
$content =~ s/\n//g;
$content =~ s/>/>\n/g;
my @rows = split(/\n/, $content);
lib/Apache2/AMFDetectRightFilterMemcached.pm view on Meta::CPAN
($uagent,$version)=$CommonLib->androidDetection($uagent);
}
if (index($record,'id') > 0 ) {
$id=substr($record,index($record,'id') + 4,index($record,'"',index($record,'id')+ 5)- index($record,'id') - 4);
}
if (index($record,'fall_back') > 0 ) {
$fb=substr($record,index($record,'fall_back') + 11,index($record,'"',index($record,'fall_back')+ 12)- index($record,'fall_back') - 11);
}
if (($fb) && ($id)) {
$Array_fb{"$id"}=$fb;
}
if (($uagent) && ($id)) {
my %ParseUA=$CommonLib->GetMultipleUa($uagent,$deepSearch);
my $pair;
my $arrUaLen = scalar %ParseUA;
my $contaUA=0;
my $Array_fullua_id=$uagent;
foreach $pair (reverse sort { $a <=> $b } keys %ParseUA) {
my $dummy=$ParseUA{$pair};
if ($Array_id{$dummy}) {} else {
$Array_id{$dummy}=$id;
}
$contaUA=$contaUA-1;
}
}
}
if ($record =~ /\<capability/o) {
($null,$name,$null2,$value,$null3,$fb)=split(/\"/, $record);
if ($listall eq "true") {
$Capability{$name}=$name;
}
if (($id) && ($Capability{$name}) && ($name) && ($value)) {
$Array_DDRcapability{"$val|$name"}=$value;
}
}
if ($record =~ /\/ver>/o) {
$DetectRightVersion=substr($record,index($record,'<ver>') + 5,index($record,"</ver>") - 9);
}
return $id;
}
sub handler {
my $f = shift;
my $capability2;
my $variabile="";
my $user_agent=lc($f->headers_in->{'User-Agent'}|| '');
my $x_user_agent=$f->headers_in->{'X-Device-User-Agent'}|| '';
my $x_operamini_phone_ua=$f->headers_in->{'X-OperaMini-Phone-Ua'}|| '';
my $x_operamini_ua=$f->headers_in->{'X-OperaMini-Ua'}|| '';
my $query_string=$f->args;
my $docroot = $f->document_root();
my $id="";
my $location="none";
my $width_toSearch;
my $type_redirect="internal";
my $return_value;
my $dummy="";
my $variabile2="";
my %ArrayCapFound;
my $controlCookie;
my $query_img="";
$ArrayCapFound{is_transcoder}='false';
$ArrayCapFound{'device_claims_web_support'}='none';
$ArrayCapFound{'is_wireless_device'}='none';
my %ArrayQuery;
my $var;
my $mobile=0;
my $version="";
my $realPCbrowser='none';
if ($user_agent eq "") {
$user_agent="no useragent found";
}
if ($x_user_agent) {
$user_agent=lc($x_user_agent);
}
if ($x_operamini_phone_ua) {
$user_agent=lc($x_operamini_phone_ua);
}
my $cookie = $f->headers_in->{Cookie} || '';
$id=$CommonLib->readCookie($cookie);
my $amfFull=$CommonLib->readCookie_fullB($cookie);
if ($query_string) {
my @vars = split(/&/, $query_string);
foreach $var (sort @vars){
if ($var) {
my ($v,$i) = split(/=/, $var);
$v =~ tr/+/ /;
$v =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
if ($i) {
$i =~ tr/+/ /;
$i =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$i =~ s/<!--(.|\n)*-->//g;
$ArrayQuery{$v}=$i;
}
}
}
if (($ArrayQuery{amf}) && $restmode eq 'true') {
$user_agent=lc($ArrayQuery{amf});
}
if ($ArrayQuery{$mobilenable}) {
$f->err_headers_out->set('Set-Cookie' => "amfFull=false; path=/;");
$amfFull='ok';
}
}
$user_agent=lc($user_agent);
if ($user_agent =~ m/blackberry/i) {
$user_agent=substr($user_agent,index($user_agent,'blackberry'));
$mobile=1;
}
if ($user_agent =~ m/up.link/i ) {
$user_agent=substr($user_agent,0,index($user_agent,'up.link') - 1);
$mobile=1;
}
($user_agent,$version)=$CommonLib->androidDetection($user_agent);
if ($id eq ""){
if ($user_agent) {
if ($mobile==0) {
foreach my $pair (%MobileArray) {
if ($user_agent =~ m/$pair/i) {
$mobile=1;
}
}
if ($mobile==0) {
$user_agent=$CommonLib->botDetection($user_agent);
$realPCbrowser=IdentifyPCUAMethod($user_agent);
if ($realPCbrowser ne "none") {
$id="generic_web_browser";
$mobile=-1;
}
}
}
if (!$id) {$id="";};
if ($id eq "") {
$id=IdentifyUAMethod($user_agent);
}
if ($id eq "") {
$id='generic_web_browser';
} else {
#this check the correct version of Android
if ($version) {
if ($version ne 'nc') {
my $lengthId=length($version);
my $count=0;
while($count<$lengthId) {
my $idToCheck=$id."_sub".substr($version,0,length($version)-$count);
if ($Array_fb{$idToCheck}) {
$id=$idToCheck;
$count=$lengthId;
}
$count++;
}
}
}
}
}
}
if ($id ne "") {
#
# device detected
#
if ($realPCbrowser ne 'none') {
$id=$realPCbrowser;
}
my $var=$memd->get("DR_$id");
if ($var) {
my @pairs = split(/&/, $var);
my $param_tofound;
my $string_tofound;
foreach $param_tofound (@pairs) {
($string_tofound,$dummy)=split(/=/, $param_tofound);
$ArrayCapFound{$string_tofound}=$dummy;
my $upper2=uc($string_tofound);
$f->subprocess_env("AMF_$upper2" => $ArrayCapFound{$string_tofound});
$f->pnotes("$string_tofound" => $ArrayCapFound{$string_tofound});
}
$id=$ArrayCapFound{id};
} else {
if ($mobile == -1) {
%ArrayCapFound=FallBack('generic_web_browser');
} else {
%ArrayCapFound=FallBack($id);
}
if ($realPCbrowser ne 'none') {
$id=$realPCbrowser;
$ArrayCapFound{'is_wireless_device'}='false';
$ArrayCapFound{'device_claims_web_support'}='true';
}
foreach $capability2 (sort keys %ArrayCapFound) {
$variabile2="$variabile2$capability2=$ArrayCapFound{$capability2}&";
my $upper=uc($capability2);
$f->subprocess_env("AMF_$upper" => $ArrayCapFound{$capability2});
$f->pnotes("$capability2" => $ArrayCapFound{$capability2});
}
$variabile2="id=$id&$variabile2";
$f->subprocess_env("AMF_ID" => $id);
$f->pnotes('id' => $id);
$memd->set("DR_$id",$variabile2);
}
if ($cookiecachesystem eq "true") {
$f->err_headers_out->set('Set-Cookie' => "amfID=$id; path=/;");
}
}
my $amf_device_ismobile = 'true';
if ($ArrayCapFound{'device_claims_web_support'} eq 'true' && $ArrayCapFound{'is_wireless_device'} eq 'false') {
$amf_device_ismobile = 'false';
}
if ($amfFull ne "") {
$f->subprocess_env("AMF_FORCE_TO_DESKTOP" => 'true');
$f->pnotes("amf_force_to_desktop" => 'true');
}
if ($ArrayCapFound{'is_tablet'}) {
$f->subprocess_env("AMF_DEVICE_IS_TABLET" => lc($ArrayCapFound{'is_tablet'}));
}
$f->pnotes("amf_device_ismobile" => $amf_device_ismobile);
$f->subprocess_env("AMF_DEVICE_IS_MOBILE" => $amf_device_ismobile);
$f->subprocess_env("AMF_VER" => $VERSION);
$f->subprocess_env("AMF_DETECT_RIGHT_VER" => $DetectRightVersion);
$f->headers_out->set("AMF-Ver"=> $VERSION);
if ($x_operamini_ua) {
$f->subprocess_env("AMF_MOBILE_BROWSER" => $x_operamini_ua);
$f->pnotes("mobile_browser" => $x_operamini_ua);
$f->subprocess_env("AMF_IS_TRANCODER" => 'true');
$f->pnotes("is_transcoder" => 'true');
}
return Apache2::Const::DECLINED;
}
1;
=head1 NAME
Apache2::AMFDetectRightFilterMemcached - The module detects the mobile device and passes the DetectRight capabilities on to the other web application as environment variables
=head1 AMF PROJECT SITE
http://www.apachemobilefilter.org
=head1 DOCUMENTATION
http://wiki.apachemobilefilter.org
Perl Module Documentation: http://wiki.apachemobilefilter.org/index.php/AMFDetectRightFilter
=head1 AUTHOR
Idel Fuschini (idel.fuschini [at] gmail [dot] com)
=head1 COPYRIGHT
You may distribute under the terms of either the GNU General Public
License or the Artistic License, as specified in the Perl README file.
=cut
( run in 0.431 second using v1.01-cache-2.11-cpan-c966e8aa7e8 )