Mobile::WURFL - List capabilities of mobile handsets using WURFL data

Mobile-WURFL documentation Contained in the Mobile-WURFL distribution.

Index

Code Index:

NAME

Top

Mobile::WURFL - List capabilities of mobile handsets using WURFL data

SYNOPSIS

Top

  #!/usr/bin/perl

  use Mobile::WURFL;

  my $wurfl = Mobile::WURFL->new({ bdb => $bdb_dir });
  my $handset = $wurfl->search('Nokia6610');
  printf "can handle gif? %s\n", $handset->gif ? 'yes':'no', "\n";

DESCRIPTION

Top

Beware: this is ALPHA software, not production ready!!!

The WURFL is an XML configuration file which contains information about capabilities and features of several wireless devices. WURFL means Wireless Universal Resource File and was created by Luca Passani and others. The official project site is:

  http://wurfl.sourceforge.net/

Mobile::WURFL provides a way to extract desired information from a WURFL configuration file. Refer to Mobile::WURFL::Resource for methods to retrieve, parse and store a WURFL file.

A Mobile::WURFL object can be used to retrive capabilities of mobile handsets; Mobile::WURFL provides the following methods:

new

Accepts option in a hash reference; available options are:

wurfl_bdb

sets the directory containing BerkeleyDB databases of handsets capabilities.

search

Accepts a user agent string as argument and returns a Mobile::WURFL::Device.

SEE ALSO

Top

Mobile::WURFL::Resource, Mobile::WURFL::Device

AUTHOR

Top

Valerio VALDEZ Paolini, <valdez@cpan.org>

COPYRIGHT AND LICENSE

Top

Copyright (C) 2005 by Valerio VALDEZ Paolini

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.4 or, at your option, any later version of Perl 5 you may have available.

Mobile-WURFL documentation Contained in the Mobile-WURFL distribution. 
package Mobile::WURFL;

use strict;
use warnings;
use Carp;

use BerkeleyDB ;
use Storable qw/freeze thaw/;

use Mobile::WURFL::Device;

use base 'Mobile::WURFL::Base';

our $VERSION = '0.02';


sub init {
  my $self = shift;
  
  $self->SUPER::init;

  my $metaname = 'dbase/wurfl.db';
  my $meta_db = BerkeleyDB::Btree->new(
    -Filename => $metaname,
    -Flags => DB_RDONLY
  ) or confess "Cannot open file $metaname: $!: $BerkeleyDB::Error\n";
  $self->meta_db( $meta_db );
  
  my $mapname = 'dbase/wurfl_map.db';
  my $map_db = BerkeleyDB::Btree->new(
    -Filename => $mapname,
    -Flags => DB_RDONLY
  ) or confess "Cannot open file $mapname: $!: $BerkeleyDB::Error\n";
  $self->map_db( $map_db );
  
  my $dbname = 'dbase/wurfl_data.db';
  my $data_db = BerkeleyDB::Btree->new(
    -Filename => $dbname,
    -Flags => DB_RDONLY
  ) or confess "Cannot open file $dbname: $!: $BerkeleyDB::Error\n";
  $self->data_db( $data_db );

  return $self;
}

sub meta_db {
  $_[0]->{'meta_db'} = $_[1] if @_ > 1;
  return $_[0]->{'meta_db'};
}

sub map_db {
  $_[0]->{'map_db'} = $_[1] if @_ > 1;
  return $_[0]->{'map_db'};
}

sub data_db {
  $_[0]->{'data_db'} = $_[1] if @_ > 1;
  return $_[0]->{'data_db'};
}

sub search {
  my $self = shift;
  my $uas = shift;
  
  my $device_id;
  my $found;
  
  while (not $found) {
    my $rc = $self->map_db->db_get("-$uas", $device_id);
    if ($rc == 0) {
      $found++;
    } else {
      chop $uas;
    }
  }
  
  my $buffer;
  $self->data_db->db_get($device_id, $buffer);
  my $s = thaw( $buffer );
  
  return Mobile::WURFL::Device->new({ device_data => $s });
}


1;
__END__
# Below is stub documentation for your module. You'd better edit it!