Apache2::AMFWURFLFilter - The module detects the mobile device and passes the WURFL capabilities on to the other web application as environment variables
Index
Code Index:
NAME
Apache2::AMFWURFLFilter - The module detects the mobile device and passes the WURFL capabilities on to the other web application as environment variables
DESCRIPTION
Module for device detection, the cache is based on file system
SEE ALSO
For more details: http://www.idelfuschini.it/apache-mobile-filter-v2x.html
Demo page of the filter: http://www.apachemobilefilter.org
AUTHOR
Idel Fuschini (idel.fuschini [at] gmail [dot] com)
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.
#file:Apache2/AMFWURFLFilter.pm;
#--------------------------------
#
# Created by Idel Fuschini
# Date: 01/08/10
# Site: http://www.idelfuschini.it
# Mail: idel.fuschini@gmail.com
package Apache2::AMFWURFLFilter;
use strict;
use warnings;
use Apache2::AMFCommonLib ();
use Apache2::RequestRec ();
use Apache2::RequestUtil ();
use Apache2::SubRequest ();
use Apache2::Log;
use Apache2::Filter ();
use APR::Table ();
use LWP::Simple;
use Apache2::Const -compile => qw(OK REDIRECT DECLINED);
use IO::Uncompress::Unzip qw(unzip $UnzipError) ;
use constant BUFF_LEN => 1024;
use Cache::FileBackend;
#
# Define the global environment
#
use vars qw($VERSION);
$VERSION= "3.25";
my $CommonLib = new Apache2::AMFCommonLib ();
my %Capability;
my %Array_fb;
my %Array_id;
my %Array_fullua_id;
my %Array_DDRcapability;
my %PatchArray_id;
my %MobileArray;
my %PCArray;
$MobileArray{'android'}='mobile';
$MobileArray{'bolt'}='mobile';
$MobileArray{'brew'}='mobile';
$MobileArray{'docomo'}='mobile';
$MobileArray{'foma'}='mobile';
$MobileArray{'hiptop'}='mobile';
$MobileArray{'htc'}='mobile';
$MobileArray{'ipod'}='mobile';
$MobileArray{'kddi'}='mobile';
$MobileArray{'kindle'}='mobile';
$MobileArray{'lge'}='mobile';
$MobileArray{'maemo'}='mobile';
$MobileArray{'midp'}='mobile';
$MobileArray{'mobile'}='mobile';
$MobileArray{'netfront'}='mobile';
$MobileArray{'nintendo'}='mobile';
$MobileArray{'nokia'}='mobile';
$MobileArray{'novarra'}='mobile';
$MobileArray{'palm'}='mobile';
$MobileArray{'phone'}='mobile';
$MobileArray{'playstation'}='mobile';
$MobileArray{'samsung'}='mobile';
$MobileArray{'sanyo'}='mobile';
$MobileArray{'softbank'}='mobile';
$MobileArray{'sony'}='mobile';
$MobileArray{'symbian'}='mobile';
$MobileArray{'tablet'}='mobile';
$MobileArray{'webos'}='mobile';
$MobileArray{'windows ce'}='mobile';
$MobileArray{'wireless'}='mobile';
$MobileArray{'xv6875.1'}='mobile';
$PCArray{'msie'}='msie';
$PCArray{'msie 5'}='msie_5';
$PCArray{'msie 6'}='msie_6';
$PCArray{'msie 7'}='msie_7';
$PCArray{'msie 8'}='msie_8';
$PCArray{'chrome'}='google_chrome';
$PCArray{'chrome/0'}='google_chrome_0';
$PCArray{'chrome/1'}='google_chrome_1';
$PCArray{'chrome/2'}='google_chrome_2';
my $mobileversionurl="none";
my $fullbrowserurl="none";
my $redirecttranscoder="true";
my $redirecttranscoderurl="none";
my $resizeimagedirectory="none";
my $wurflnetdownload="false";
my $downloadwurflurl="false";
my $loadwebpatch="false";
my $patchwurflnetdownload="false";
my $patchwurflurl="";
my $listall="false";
my $cookiecachesystem="false";
my $WURFLVersion="unknown";
my $WURFLPatchVersion="unknown";
my $personalwurflurl='unknown';
my $cachedirectorystore="/tmp";
my $capabilitylist="none";
my $restmode='false';
$CommonLib->printLog("---------------------------------------------------------------------------");
$CommonLib->printLog("------- APACHE MOBILE FILTER V$VERSION -------");
$CommonLib->printLog("---------------------------------------------------------------------------");
$CommonLib->printLog("AMFWURFLFilter module Version $VERSION");
if ($ENV{ResizeImageDirectory}) {
$Capability{'max_image_width'}="max_image_width";
$Capability{'max_image_height'}="max_image_width";
$resizeimagedirectory=$ENV{ResizeImageDirectory};
}
if (($ENV{FullBrowserUrl}) || ($ENV{MobileVersionUrl})) {
$Capability{'device_claims_web_support'}="device_claims_web_support";
$Capability{'is_wireless_device'}="is_wireless_device";
$fullbrowserurl=$ENV{FullBrowserUrl}
}
if ($ENV{RedirectTranscoderUrl}) {
$Capability{'is_transcoder'}="is_transcoder";
$redirecttranscoderurl=$ENV{RedirectTranscoderUrl};
}
#
# Check if AMFMobileHome and CacheDirectoryStore is setting in apache httpd.conf file for example:
# PerlSetEnv AMFMobileHome <apache_directory>/MobileFilter
#
if ($ENV{CacheDirectoryStore}) {
$cachedirectorystore=$ENV{CacheDirectoryStore};
$CommonLib->printLog("CacheDirectoryStore is: $cachedirectorystore");
} else {
$CommonLib->printLog("CacheDirectoryStore not exist. Please set the variable CacheDirectoryStore into httpd.conf, (the directory must be writeable)");
ModPerl::Util::exit();
}
#
# Define the cache system directory
#
my $cacheSystem = new Cache::FileBackend( $cachedirectorystore, 3, 000 );
$cacheSystem->store( 'wurfl-id', 'device_not_found', "id=device_not_found&device=false&device_claims_web_support=true&is_wireless_device=false");
if ($cacheSystem->restore('wurfl-conf','ver')) {
} else {
$CommonLib->printLog('Create new wurf-con store');
$cacheSystem->store('wurfl-conf', 'ver', 'null');
$cacheSystem->store('wurfl-conf', 'caplist', 'null');
$cacheSystem->store('wurfl-conf', 'listall', 'null');
$cacheSystem->store('wurfl-conf', 'RedirectTranscoderUrl','null');
$cacheSystem->store('wurfl-conf', 'MobileVersionUrl','null');
$cacheSystem->store('wurfl-conf', 'FullBrowserUrl','null');
$cacheSystem->store('wurfl-conf', 'ResizeImageDirectory','null');
}
if ($ENV{AMFMobileHome}) {
&loadConfigFile("$ENV{AMFMobileHome}/wurfl.xml");
} else {
$CommonLib->printLog("AMFMobileHome not exist. Please set the variable AMFMobileHome into httpd.conf");
ModPerl::Util::exit();
}
sub loadConfigFile {
my ($fileWurfl) = @_;
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{WurflNetDownload}) {
if ($ENV{WurflNetDownload} eq 'true' || $ENV{WurflNetDownload} eq 'false') {
$wurflnetdownload=$ENV{WurflNetDownload};
$CommonLib->printLog("WurflNetDownload is: $wurflnetdownload");
} else {
$CommonLib->printLog("Error WurflNetDownload parmeter must set to true or false");
ModPerl::Util::exit();
}
}
if ($ENV{DownloadWurflURL}) {
$downloadwurflurl=$ENV{DownloadWurflURL};
$CommonLib->printLog("DownloadWurflURL is: $downloadwurflurl");
}
if ($ENV{CapabilityList}) {
my @dummycapability = split(/,/, $ENV{CapabilityList});
$capabilitylist=$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{LoadWebPatch}) {
$loadwebpatch=$ENV{LoadWebPatch};
$CommonLib->printLog("LoadWebPatch is: $loadwebpatch");
}
if ($ENV{PatchWurflNetDownload}) {
if ($ENV{PatchWurflNetDownload} eq 'true' || $ENV{PatchWurflNetDownload} eq 'false') {
$patchwurflnetdownload=$ENV{PatchWurflNetDownload};
$CommonLib->printLog("PatchWurflNetDownload is: $patchwurflnetdownload");
} else {
$CommonLib->printLog("Error PatchWurflNetDownload parmeter must set to true or false");
ModPerl::Util::exit();
}
}
if ($ENV{PatchWurflUrl}) {
$patchwurflurl=$ENV{PatchWurflUrl};
$CommonLib->printLog("PatchWurflUrl is: $patchwurflurl");
}
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{PersonalWurflFileName}) {
$personalwurflurl=$ENV{AMFMobileHome}."/".$ENV{PersonalWurflFileName};
$CommonLib->printLog("PersonalWurflFileName is: $ENV{PersonalWurflFileName}");
}
if ($ENV{RestMode}) {
$restmode=$ENV{RestMode};
$CommonLib->printLog("RestMode is: $restmode");
}
$CommonLib->printLog("Finish loading parameter");
$CommonLib->printLog("---------------------------------------------------------------------------");
if ($wurflnetdownload eq "true") {
$CommonLib->printLog("Start process downloading WURFL.xml from $downloadwurflurl");
$CommonLib->printLog ("Test the URL");
my ($content_type, $document_length, $modified_time, $expires, $server) = head($downloadwurflurl);
if ($content_type eq "") {
$CommonLib->printLog("Couldn't get $downloadwurflurl.");
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(/\//, $downloadwurflurl);
my ($ext_zip) = $downloadwurflurl =~ /\.(\w+)$/;
my $filezip=$dummypairs[-1];
my $tmp_dir=$ENV{AMFMobileHome};
$filezip="$tmp_dir/$filezip";
my $status = getstore ($downloadwurflurl,$filezip);
my $output="$tmp_dir/tmp_wurfl.xml";
unzip $filezip => $output
or die "unzip failed: $UnzipError\n";
#
# call parseWURFLFile
#
callparseWURFLFile($output);
} else {
$CommonLib->printLog("The file is a xml file.");
my $content = get ($downloadwurflurl);
$content =~ s/\n//g;
$content =~ s/>/>\n/g;
my @rows = split(/\n/, $content);
my $row;
my $count=0;
foreach $row (@rows){
$r_id=parseWURFLFile($row,$r_id);
}
}
$CommonLib->printLog("Finish downloading WURFL from $downloadwurflurl");
} else {
if (-e "$fileWurfl") {
$CommonLib->printLog("Start loading WURFL.xml");
if (open (IN,"$fileWurfl")) {
my $filesize= -s $fileWurfl;
my $string_file;
read (IN,$string_file,$filesize);
close IN;
$string_file =~ s/\n//g;
$string_file =~ s/>/>\n/g;
my @arrayFile=split(/\n/, $string_file);
foreach my $line (@arrayFile) {
$r_id=parseWURFLFile($line,$r_id);
}
} else {
$CommonLib->printLog("Error open file:$fileWurfl");
ModPerl::Util::exit();
}
} else {
$CommonLib->printLog("File $fileWurfl not found");
ModPerl::Util::exit();
}
}
close IN;
#
# Start for web_patch_wurfl (full browser)
#
if ($loadwebpatch eq 'true') {
if ($patchwurflnetdownload eq "true") {
$CommonLib->printLog("Start downloading patch WURFL from $patchwurflurl");
my ($content_type, $document_length, $modified_time, $expires, $server) = head($patchwurflurl);
if ($content_type eq "") {
$CommonLib->printLog("Couldn't get $patchwurflurl.");
ModPerl::Util::exit();
} else {
$CommonLib->printLog("The URL for download patch WURFL is correct");
$CommonLib->printLog("The size of document is: $document_length bytes");
}
my $content = get ($patchwurflurl);
$CommonLib->printLog("Finish downloading patch WURFL.xml");
if ($content eq "") {
$CommonLib->printLog("Couldn't get patch $patchwurflurl.");
ModPerl::Util::exit();
}
$content =~ s/\n//g;
$content =~ s/>/>\n/g;
my @rows = split(/\n/, $content);
my $row;
my $count=0;
foreach $row (@rows){
$r_id=parsePatchFile($row,$r_id);
}
} else {
my $filePatch="$ENV{AMFMobileHome}/web_browsers_patch.xml";
if (-e "$filePatch") {
$CommonLib->printLog("Start loading Web Patch File of WURFL");
if (open (IN,"$filePatch")) {
my $filesize= -s $filePatch;
my $string_file;
read (IN,$string_file,$filesize);
close IN;
$string_file =~ s/\n//g;
$string_file =~ s/>/>\n/g;
my @arrayFile=split(/\n/, $string_file);
foreach my $line (@arrayFile) {
$r_id=parsePatchFile($line,$r_id);
}
} else {
$CommonLib->printLog("Error open file:$filePatch");
ModPerl::Util::exit();
}
} else {
$CommonLib->printLog("File patch $filePatch not found");
ModPerl::Util::exit();
}
}
}
close IN;
my $arrLen = scalar %Array_fb;
($arrLen,$dummy)= split(/\//, $arrLen);
if ($arrLen == 0) {
$CommonLib->printLog("Error the file probably is not a wurfl file, control the url or path");
$CommonLib->printLog("Control also if the file is compress file, and DownloadZipFile parameter is seted false");
ModPerl::Util::exit();
}
$CommonLib->printLog("WURFL version: $WURFLVersion");
if ($WURFLVersion ne 'unknown'){
$CommonLib->printLog("Patch File version: $WURFLPatchVersion");
}
if ($cacheSystem->restore('wurfl-conf', 'amfver') ne $VERSION||$cacheSystem->restore('wurfl-conf', 'ResizeImageDirectory') ne $resizeimagedirectory||$cacheSystem->restore('wurfl-conf', 'DownloadWurflURL') ne $downloadwurflurl||$cacheSystem->restore('wurfl-conf', 'FullBrowserUrl') ne $fullbrowserurl||$cacheSystem->restore('wurfl-conf', 'RedirectTranscoderUrl') ne $redirecttranscoderurl || $cacheSystem->restore('wurfl-conf', 'ver') ne $WURFLVersion || $cacheSystem->restore('wurfl-conf', 'caplist') ne $capabilitylist||$cacheSystem->restore('wurfl-conf', 'listall') ne $listall) {
$CommonLib->printLog("********************************************************************************************************");
$CommonLib->printLog("* This is a new version of WURFL or you change some parameter value or it's a new version of AMF, now the old cache must be deleted *");
$CommonLib->printLog("********************************************************************************************************");
$cacheSystem->store('wurfl-conf', 'ver', $WURFLVersion);
$cacheSystem->store('wurfl-conf', 'amfver', $VERSION);
$cacheSystem->store('wurfl-conf', 'caplist', $capabilitylist);
$cacheSystem->store('wurfl-conf', 'listall', $listall);
$cacheSystem->store('wurfl-conf', 'RedirectTranscoderUrl', $redirecttranscoderurl);
$cacheSystem->store('wurfl-conf', 'FullBrowserUrl', $fullbrowserurl);
$cacheSystem->store('wurfl-conf', 'DownloadWurflURL', $downloadwurflurl);
$cacheSystem->store('wurfl-conf', 'ResizeImageDirectory', $resizeimagedirectory);
$cacheSystem->delete_namespace( 'WURFL-id' );
$cacheSystem->delete_namespace( 'WURFL-ua' );
}
$CommonLib->printLog("This version of WURFL has $arrLen UserAgent");
$CommonLib->printLog("End loading WURFL.xml");
if ($personalwurflurl ne 'unknown') {
$CommonLib->printLog("---------------------------------------------------------------------------");
if (-e "$personalwurflurl") {
$CommonLib->printLog("Start loading $ENV{PersonalWurflFileName}");
if (open (IN,"$personalwurflurl")) {
my $filesize= -s $personalwurflurl;
my $string_file;
read (IN,$string_file,$filesize);
close IN;
$string_file =~ s/\n//g;
$string_file =~ s/>/>\n/g;
my @arrayFile=split(/\n/, $string_file);
foreach my $line (@arrayFile) {
#print "$line\n";
$r_id=parseWURFLFile($line,$r_id);
}
} else {
$CommonLib->printLog("Error open file:$personalwurflurl");
ModPerl::Util::exit();
}
$CommonLib->printLog("END loading $ENV{PersonalWurflFileName}");
close IN;
} else {
$CommonLib->printLog("File $personalwurflurl not found");
ModPerl::Util::exit();
}
}
}
sub callparseWURFLFile {
my ($output) = @_;
my $r_id;
if (open (IN,"$output")) {
my $filesize= -s $output;
my $string_file;
read (IN,$string_file,$filesize);
close IN;
$string_file =~ s/\n//g;
$string_file =~ s/>/>\n/g;
my @arrayFile=split(/\n/, $string_file);
foreach my $line (@arrayFile) {
$r_id=parseWURFLFile($line,$r_id);
}
} else {
$CommonLib->printLog("Error open file:$output");
ModPerl::Util::exit();
}
}
sub parseWURFLFile {
my ($record,$val) = @_;
my $null="";
my $null2="";
my $null3="";
my $ua="";
my $fb="";
my $value="";
my $id;
my $name="";
my $version="";
if ($val) {
$id="$val";
}
if ($record =~ /\<device/o) {
if (index($record,'user_agent') > -1 ) {
$ua=lc(substr($record,index($record,'user_agent') + 12,index($record,'"',index($record,'user_agent')+ 13)- index($record,'user_agent') - 12));
if (index($ua,'blackberry') >-1 ) {
$ua=substr($ua,index($ua,'blackberry'));
}
($ua,$version)=$CommonLib->androidDetection($ua);
}
if (index($record,'id') > -1 ) {
$id=substr($record,index($record,'id') + 4,index($record,'"',index($record,'id')+ 5)- index($record,'id') - 4);
}
if (index($record,'fall_back') > -1 ) {
$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 (($ua) && ($id)) {
my %ParseUA=$CommonLib->GetMultipleUa($ua);
my $pair;
my $arrUaLen = scalar %ParseUA;
my $contaUA=0;
my $Array_fullua_id=$ua;
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) {
$WURFLVersion=substr($record,index($record,'<ver>') + 5,index($record,'</ver>') - 9);
}
return $id;
}
sub parsePatchFile {
my ($record,$val) = @_;
my $null="";
my $null2="";
my $null3="";
my $ua="";
my $fb="";
my $value="";
my $id;
my $name="";
if ($val) {
$id="$val";
}
if ($record =~ /\<device/o) {
if (index($record,'user_agent') > -1 ) {
$ua=lc(substr($record,index($record,'user_agent') + 12,index($record,'"',index($record,'user_agent')+ 13)- index($record,'user_agent') - 12));
}
if (index($record,'id') > -1 ) {
$id=substr($record,index($record,'id') + 4,index($record,'"',index($record,'id')+ 5)- index($record,'id') - 4);
}
if (index($record,'fall_back') > -1 ) {
$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 (($ua) && ($id)) {
$PatchArray_id{$ua}=$id;
$Array_id{$ua}=$id;
}
}
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 =~ /\/last_updated>/o) {
$WURFLPatchVersion=substr($record,0,index($record,"</last_updated>"));
}
return $id;
}
sub FallBack {
my ($idToFind) = @_;
my $dummy_id;
my $dummy;
my $dummy2;
my $LOOP;
my %ArrayCapFoundToPass;
my $capability;
foreach $capability (sort keys %Capability) {
$dummy_id=$idToFind;
$LOOP=0;
while ($LOOP<2) {
$dummy="$dummy_id|$capability";
if ($Array_DDRcapability{$dummy}) {
$LOOP=2;
$dummy2="$dummy_id|$capability";
$ArrayCapFoundToPass{$capability}=$Array_DDRcapability{$dummy2};
} else {
if ($Array_fb{$dummy_id}) {
$dummy_id=$Array_fb{$dummy_id};
} else {
$dummy_id="root";
}
if ($dummy_id eq "root" || $dummy_id eq "generic") {
$LOOP++;
}
}
}
}
return %ArrayCapFoundToPass;
}
sub IdentifyUAMethod {
my ($UserAgent) = @_;
my $ind=0;
my %ArrayPM;
my $pair;
my $pair2;
my $id_find="";
my $dummy;
my $ua_toMatch;
my $near_toFind=100;
my $near_toMatch;
my %ArrayUAType=$CommonLib->GetMultipleUa(lc($UserAgent));
foreach $pair (reverse sort { $a <=> $b } keys %ArrayUAType)
{
my $dummy=$ArrayUAType{$pair};
if ($Array_id{$dummy}) {
if ($id_find) {
my $dummy2="";
} else {
$id_find=$Array_id{$dummy};
}
}
}
return $id_find;
}
sub IdentifyPCUAMethod {
my ($UserAgent) = @_;
my $ind=0;
my $id_find="";
my $pair;
my $length=0;
foreach $pair (sort %PCArray) {
if ($UserAgent =~ m/$pair/) {
$id_find=$PCArray{$pair};
}
}
if ($id_find) {}else{$id_find="";};
if ($id_find eq "") {
foreach $pair (%PatchArray_id)
{
my $value=index($UserAgent,$pair);
if (index($UserAgent,$pair) > -1) {
if ($PatchArray_id{$pair}) {
$id_find=$PatchArray_id{$pair};
}
}
}
}
return $id_find;
}
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';
my %ArrayQuery;
my $var;
my $mobile=0;
my $version="";
if ($user_agent eq "") {
$user_agent="no usergnet found";
}
if ($x_user_agent) {
$user_agent=lc($x_user_agent);
}
if ($x_operamini_phone_ua) {
$user_agent=lc($x_operamini_phone_ua);
}
if (($query_string) && $restmode eq 'true') {
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}) {
$user_agent=lc($ArrayQuery{amf});
}
}
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;
}
my $cookie = $f->headers_in->{Cookie} || '';
$id=$CommonLib->readCookie($cookie);
$user_agent=lc($user_agent);
($user_agent,$version)=$CommonLib->androidDetection($user_agent);
if ($cacheSystem->restore( 'wurfl-ua', $user_agent )) {
#
# cookie is not empty so I try to read in memory cache on my httpd cache
#
$id=$cacheSystem->restore( 'wurfl-ua', $user_agent );
if ($cacheSystem->restore( 'wurfl-id', $id )) {
#
# I'm here only for old device
#
my @pairs = split(/&/, $cacheSystem->restore( 'wurfl-id', $id ));
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 ($id eq "") {
if ($user_agent) {
my $pair;
my $lcuser_agent=lc($user_agent);
if ($mobile==0) {
foreach $pair (%MobileArray) {
if ($user_agent =~ m/$pair/i) {
$mobile=1;
}
}
if ($mobile==0) {
$f->log->warn("$user_agent");
$user_agent=$CommonLib->botDetection($user_agent);
$f->log->warn("$user_agent");
$id=IdentifyPCUAMethod($user_agent);
}
}
if ($id) {}else{$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 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++;
}
}
}
$cacheSystem->store( 'wurfl-ua', $user_agent, $id);
}
}
if ($id ne "") {
#
# device detected
#
if ($cacheSystem->restore( 'wurfl-id', $id )) {
#
# I'm here only for old device looking in cache
#
my @pairs = split(/&/, $cacheSystem->restore( 'wurfl-id', $id ));
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 {
%ArrayCapFound=FallBack($id);
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);
$cacheSystem->store( 'wurfl-id', $id, $variabile2 );
$cacheSystem->store( 'wurfl-ua', $user_agent, $id);
}
if ($cookiecachesystem eq "true") {
$f->err_headers_out->set('Set-Cookie' => "amf=$id; path=/;");
}
}
}
$f->subprocess_env("AMF_VER" => $VERSION);
$f->subprocess_env("AMF_WURFLVER" => $WURFLVersion);
$f->subprocess_env("AMF_PATCHFILEVER" => $WURFLPatchVersion);
$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;
__END__