buzzerstar - development - MobileDetect - SOURCE CODE

#!/usr/bin/perl

use MobileDetect;

my $obj 	= MobileDetect->new(); 
my $check 	= "Mozilla/5.0 (Linux; U; Android 4.1.2; nl-nl; SAMSUNG GT-I8190/I8190XXAME1 Build/JZO54K) AppleWebKit/534.30 (KHTML, like Gecko) Version/4.0 Mobile Safari/534.30"; # Samsung Galaxy S3 Mini

print "is_phone: 			".$obj->is_phone($check); print "\n";
print "detect_phone: 		".$obj->detect_phone($check); print "\n";
print "is_tablet: 			".$obj->is_tablet($check);print "\n";
print "detect_tablet: 		".$obj->detect_tablet($check);print "\n";

print "is_mobile_os: 		".$obj->is_mobile_os($check);print "\n";
print "detect_mobile_os:	".$obj->detect_mobile_os($check);print "\n";
print "is_mobile_ua: 		".$obj->is_mobile_ua($check);print "\n";
print "detect_mobile_ua:	".$obj->detect_mobile_ua($check)."\n";

exit;

# 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] ...