buzzerstar - development - MobileDetect - lib - SOURCE CODE

# Copyright: 	2014 by Sebastian Enger 
# Email: 		sebastian.enger at gmail - com
# Web: 			Buzz News on http://www.buzzerstar.com/
# Licence: 		Perl
# All rights released.
package MobileDetect;
#
# MobileDetect.pm - Perl detection for mobile phone and tablet devices
#
# Thanks to:
#   https://github.com/serbanghita/Mobile-Detect/blob/master/Mobile_Detect.php
#	https://github.com/serbanghita/Mobile-Detect/blob/master/Mobile_Detect.json
#
use 5.006;
use strict;
no strict "subs";
use warnings FATAL => 'all';
no warnings qw/misc/;
use JSON;
use LWP::Protocol::https;
use LWP::UserAgent;
use Storable;

our $VERSION 					= '1.21';
use constant JSON_REMOTE_FILE 	=> 'https://raw.githubusercontent.com/serbanghita/Mobile-Detect/master/Mobile_Detect.json';
use constant JSON_LOCAL_FILE 	=> '/var/tmp/Mobile_Detect.json';
use constant HASH_LOCAL_FILE 	=> '/var/tmp/Mobile_Detect.db';

our @EXPORT = qw(is_phone is_tablet is_mobile_os is_mobile_ua detect_phone detect_tablet detect_mobile_os detect_mobile_ua);

sub new {
	my($class, %args) = @_;
	my $self 		= bless({}, $class);
	my $json 		= JSON->new();
	my $filestamp	= 0;
	my $filesize	= 0; 
	my %hashfile;
	my $hash;
	
	if (-e HASH_LOCAL_FILE && -f HASH_LOCAL_FILE){
		$filestamp	= -M HASH_LOCAL_FILE;
		$filestamp	= int($filestamp);
		$filesize	= -s HASH_LOCAL_FILE; 
	}
		 	
	# if we have a filestamp a file that has been created 31 days before
	# AND we have a filesize of the file of lower than 1000 bytes we have to download and parse the json file
	if ( $filestamp > 31 && $filesize < 1000 ){ 
	#	print "just downloading json content and fix it to hash content\n";
		

... [truncated, 256 more lines] ...