r61107 - in /trunk/libhttp-browserdetect-perl: ./ debian/ lib/HTTP/ t/

ansgar-guest at users.alioth.debian.org ansgar-guest at users.alioth.debian.org
Tue Aug 3 03:59:24 UTC 2010


Author: ansgar-guest
Date: Tue Aug  3 03:59:01 2010
New Revision: 61107

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=61107
Log:
* New upstream release.
* debian/copyright: Refer to /usr/share/common-licenses/GPL-1.
* Add build-dep on libmodule-build-perl (>= 0.360100).
* Bump Standards-Version to 3.9.1.

Added:
    trunk/libhttp-browserdetect-perl/INSTALL
      - copied unchanged from r61106, branches/upstream/libhttp-browserdetect-perl/current/INSTALL
    trunk/libhttp-browserdetect-perl/LICENSE
      - copied unchanged from r61106, branches/upstream/libhttp-browserdetect-perl/current/LICENSE
    trunk/libhttp-browserdetect-perl/TODO
      - copied unchanged from r61106, branches/upstream/libhttp-browserdetect-perl/current/TODO
    trunk/libhttp-browserdetect-perl/dist.ini
      - copied unchanged from r61106, branches/upstream/libhttp-browserdetect-perl/current/dist.ini
    trunk/libhttp-browserdetect-perl/t/author-critic.t
      - copied unchanged from r61106, branches/upstream/libhttp-browserdetect-perl/current/t/author-critic.t
    trunk/libhttp-browserdetect-perl/t/release-pod-coverage.t
      - copied unchanged from r61106, branches/upstream/libhttp-browserdetect-perl/current/t/release-pod-coverage.t
    trunk/libhttp-browserdetect-perl/t/release-pod-syntax.t
      - copied unchanged from r61106, branches/upstream/libhttp-browserdetect-perl/current/t/release-pod-syntax.t
Modified:
    trunk/libhttp-browserdetect-perl/Build.PL
    trunk/libhttp-browserdetect-perl/Changes
    trunk/libhttp-browserdetect-perl/MANIFEST
    trunk/libhttp-browserdetect-perl/META.yml
    trunk/libhttp-browserdetect-perl/Makefile.PL
    trunk/libhttp-browserdetect-perl/README
    trunk/libhttp-browserdetect-perl/debian/changelog
    trunk/libhttp-browserdetect-perl/debian/control
    trunk/libhttp-browserdetect-perl/debian/copyright
    trunk/libhttp-browserdetect-perl/lib/HTTP/BrowserDetect.pm
    trunk/libhttp-browserdetect-perl/t/useragents.yaml

Modified: trunk/libhttp-browserdetect-perl/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhttp-browserdetect-perl/Build.PL?rev=61107&op=diff
==============================================================================
--- trunk/libhttp-browserdetect-perl/Build.PL (original)
+++ trunk/libhttp-browserdetect-perl/Build.PL Tue Aug  3 03:59:01 2010
@@ -1,21 +1,41 @@
+
 use strict;
 use warnings;
-use Module::Build;
 
-my $builder = Module::Build->new(
-    module_name         => 'HTTP::BrowserDetect',
-    license             => 'perl',
-    dist_author         => q{Olaf Alders <olaf at wundercounter.com>},
-    dist_version_from   => 'lib/HTTP/BrowserDetect.pm',
-    build_requires => {
-        'Data::Dump'    => 0,
-        'Exporter'      => 0,
-        'FindBin'       => 0,
-        'Test::More'    => 0,
-        'YAML::Tiny'    => 0,
-    },
-    add_to_cleanup      => [ 'HTTP-BrowserDetect-*' ],
-    create_makefile_pl => 'traditional',
+use Module::Build 0.3601;
+
+
+my %module_build_args = (
+  'build_requires' => {
+    'Data::Dump' => '0',
+    'English' => '0',
+    'FindBin' => '0',
+    'Module::Build' => '0.3601',
+    'Test::More' => '0',
+    'YAML::Tiny' => '0'
+  },
+  'configure_requires' => {
+    'ExtUtils::MakeMaker' => '6.31',
+    'Module::Build' => '0.3601'
+  },
+  'dist_abstract' => 'Determine Web browser, version, and platform from an HTTP user agent string',
+  'dist_author' => [
+    'Olaf Alders <olaf at wundercounter.com> (current maintainer)'
+  ],
+  'dist_name' => 'HTTP-BrowserDetect',
+  'dist_version' => '1.12',
+  'license' => 'perl',
+  'module_name' => 'HTTP::BrowserDetect',
+  'recommends' => {},
+  'recursive_test_files' => 1,
+  'requires' => {
+    'Exporter' => '0',
+    'vars' => '0'
+  },
+  'script_files' => []
 );
 
-$builder->create_build_script();
+
+my $build = Module::Build->new(%module_build_args);
+
+$build->create_build_script;

Modified: trunk/libhttp-browserdetect-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhttp-browserdetect-perl/Changes?rev=61107&op=diff
==============================================================================
--- trunk/libhttp-browserdetect-perl/Changes (original)
+++ trunk/libhttp-browserdetect-perl/Changes Tue Aug  3 03:59:01 2010
@@ -1,5 +1,11 @@
 Revision history for Perl extension HTTP::BrowserDetect.
 
+1.12 2010-08-01
+    - Added msn and msnmobile (Luke Saunders: f5c87a17b8fa2b09e294)
+    - Added googlemobile (Luke Saunders: ec28d49d7218b43788b9)
+    - SymbOS and Opera Mobi added to mobile detection (RT #59817)
+    - Distribution is now managed with Dist::Zilla
+    
 1.11 2010-06-03
     - Added ps3 and psp (commit 85a619c9a977c0a8e403) (Alexey Surikov)
 

Modified: trunk/libhttp-browserdetect-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhttp-browserdetect-perl/MANIFEST?rev=61107&op=diff
==============================================================================
--- trunk/libhttp-browserdetect-perl/MANIFEST (original)
+++ trunk/libhttp-browserdetect-perl/MANIFEST Tue Aug  3 03:59:01 2010
@@ -1,9 +1,16 @@
-Build.PL
-Changes
-lib/HTTP/BrowserDetect.pm
-MANIFEST
-README
-t/01-detect.t
+Build.PL
+Changes
+INSTALL
+LICENSE
+MANIFEST
+META.yml
+Makefile.PL
+README
+TODO
+dist.ini
+lib/HTTP/BrowserDetect.pm
+t/01-detect.t
+t/author-critic.t
+t/release-pod-coverage.t
+t/release-pod-syntax.t
 t/useragents.yaml
-Makefile.PL
-META.yml

Modified: trunk/libhttp-browserdetect-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhttp-browserdetect-perl/META.yml?rev=61107&op=diff
==============================================================================
--- trunk/libhttp-browserdetect-perl/META.yml (original)
+++ trunk/libhttp-browserdetect-perl/META.yml Tue Aug  3 03:59:01 2010
@@ -1,25 +1,28 @@
 ---
 abstract: 'Determine Web browser, version, and platform from an HTTP user agent string'
 author:
-  - 'Olaf Alders <olaf at wundercounter.com>'
+  - 'Olaf Alders <olaf at wundercounter.com> (current maintainer)'
 build_requires:
   Data::Dump: 0
-  Exporter: 0
+  English: 0
   FindBin: 0
+  Module::Build: 0.3601
   Test::More: 0
   YAML::Tiny: 0
 configure_requires:
-  Module::Build: 0.36
-generated_by: 'Module::Build version 0.3603'
+  ExtUtils::MakeMaker: 6.31
+  Module::Build: 0.3601
+dynamic_config: 0
+generated_by: 'Dist::Zilla version 4.101900, CPAN::Meta::Converter version 2.101670'
 license: perl
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.4.html
   version: 1.4
 name: HTTP-BrowserDetect
-provides:
-  HTTP::BrowserDetect:
-    file: lib/HTTP/BrowserDetect.pm
-    version: 1.11
+requires:
+  Exporter: 0
+  vars: 0
 resources:
-  license: http://dev.perl.org/licenses/
-version: 1.11
+  bugtracker: http://rt.cpan.org/NoAuth/Bugs.html?Dist=HTTP-BrowserDetect
+  repository: http://github.com/oalders/http-browserdetect
+version: 1.12

Modified: trunk/libhttp-browserdetect-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhttp-browserdetect-perl/Makefile.PL?rev=61107&op=diff
==============================================================================
--- trunk/libhttp-browserdetect-perl/Makefile.PL (original)
+++ trunk/libhttp-browserdetect-perl/Makefile.PL Tue Aug  3 03:59:01 2010
@@ -1,18 +1,60 @@
-# Note: this file was auto-generated by Module::Build::Compat version 0.3603
-use ExtUtils::MakeMaker;
-WriteMakefile
-(
-          'NAME' => 'HTTP::BrowserDetect',
-          'VERSION_FROM' => 'lib/HTTP/BrowserDetect.pm',
-          'PREREQ_PM' => {
-                           'Data::Dump' => 0,
-                           'Exporter' => 0,
-                           'FindBin' => 0,
-                           'Test::More' => 0,
-                           'YAML::Tiny' => 0
-                         },
-          'INSTALLDIRS' => 'site',
-          'EXE_FILES' => [],
-          'PL_FILES' => {}
-        )
-;
+
+use strict;
+use warnings;
+
+
+
+use ExtUtils::MakeMaker 6.31;
+
+
+
+my %WriteMakefileArgs = (
+  'ABSTRACT' => 'Determine Web browser, version, and platform from an HTTP user agent string',
+  'AUTHOR' => 'Olaf Alders <olaf at wundercounter.com> (current maintainer)',
+  'BUILD_REQUIRES' => {
+    'Data::Dump' => '0',
+    'English' => '0',
+    'FindBin' => '0',
+    'Module::Build' => '0.3601',
+    'Test::More' => '0',
+    'YAML::Tiny' => '0'
+  },
+  'CONFIGURE_REQUIRES' => {
+    'ExtUtils::MakeMaker' => '6.31',
+    'Module::Build' => '0.3601'
+  },
+  'DISTNAME' => 'HTTP-BrowserDetect',
+  'EXE_FILES' => [],
+  'LICENSE' => 'perl',
+  'NAME' => 'HTTP::BrowserDetect',
+  'PREREQ_PM' => {
+    'Exporter' => '0',
+    'vars' => '0'
+  },
+  'VERSION' => '1.12',
+  'test' => {
+    'TESTS' => 't/*.t'
+  }
+);
+
+
+unless ( eval { ExtUtils::MakeMaker->VERSION(6.56) } ) {
+  my $br = delete $WriteMakefileArgs{BUILD_REQUIRES};
+  my $pp = $WriteMakefileArgs{PREREQ_PM};
+  for my $mod ( keys %$br ) {
+    if ( exists $pp->{$mod} ) {
+      $pp->{$mod} = $br->{$mod} if $br->{$mod} > $pp->{$mod};
+    }
+    else {
+      $pp->{$mod} = $br->{$mod};
+    }
+  }
+}
+
+delete $WriteMakefileArgs{CONFIGURE_REQUIRES}
+  unless eval { ExtUtils::MakeMaker->VERSION(6.52) };
+
+WriteMakefile(%WriteMakefileArgs);
+
+
+

Modified: trunk/libhttp-browserdetect-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhttp-browserdetect-perl/README?rev=61107&op=diff
==============================================================================
--- trunk/libhttp-browserdetect-perl/README (original)
+++ trunk/libhttp-browserdetect-perl/README Tue Aug  3 03:59:01 2010
@@ -3,17 +3,17 @@
     an HTTP user agent string
 
 VERSION
-    Version 1.07
+    version 1.12
 
 SYNOPSIS
         use HTTP::BrowserDetect;
 
-        my $browser = new HTTP::BrowserDetect($user_agent_string);
+        my $browser = HTTP::BrowserDetect->new($user_agent_string);
 
         # Detect operating system
         if ($browser->windows) {
           if ($browser->winnt) ...
-          if ($brorwser->win95) ...
+          if ($browser->win95) ...
         }
         print $browser->mac;
 
@@ -73,15 +73,27 @@
     log file, perhaps) without creating a new HTTP::BrowserDetect object
     each time.
 
+  country()
+    Returns the country string as it may be found in the user agent string.
+    This will be in the form of an upper case 2 character code. ie: US, DE,
+    etc
+
   language()
     Returns the language string as it is found in the user agent string.
     This will be in the form of an upper case 2 character code. ie: EN, DE,
     etc
 
-  country()
-    Returns the country string as it may be found in the user agent string.
-    This will be in the form of an upper case 2 character code. ie: US, DE,
-    etc
+  device()
+    Returns the method name of the actual hardware, if it can be detected.
+    Currently returns one of: blackberry, iphone, ipod or ipad Returns UNDEF
+    if no hardware can be detected
+
+  device_name()
+    Returns a human formatted version of the hardware device name. These
+    names are subject to change and are really meant for display purposes.
+    You should use the device() method in your logic. Returns one of:
+    BlackBerry, iPhone, iPod or iPad. Returns UNDEF if no hardware can be
+    detected.
 
 Detecting Browser Version
     Please note that that the version(), major() and minor() methods have
@@ -145,7 +157,7 @@
   engine_string()
     Returns one of the following:
 
-    Gecko, KHTML, MSIE
+    Gecko, KHTML, MSIE, NetFront
 
     Returns undef if no string can be found.
 
@@ -188,6 +200,8 @@
 
   vms()
   amiga()
+  ps3gameos()
+  pspgameos()
     It may not be possibile to detect Win98 in Netscape 4.x and earlier. On
     Opera 3.0, the userAgent string includes "Windows 95/NT4" on all Win32,
     so you can't distinguish between Win95 and WinNT.
@@ -197,7 +211,7 @@
     solely for compatibility with the HTTP::Headers::UserAgent module.
 
       Win95, Win98, WinNT, Win2K, WinXP, Win2K3, WinVista, Win7, Mac, Mac OS X,
-      Win3x, OS2, Unix, Linux
+      Win3x, OS2, Unix, Linux, Playstation 3 GameOS, Playstation Portable GameOS
 
 Detecting Browser Vendor
     The following methods are available, each returning a true or false
@@ -209,7 +223,7 @@
    mozilla
    firefox
    safari
-   crhome
+   chrome
    ie ie3 ie4 ie4up ie5 ie55 ie6 ie7 ie8
    neoplanet neoplanet2
    mosaic
@@ -225,6 +239,7 @@
    java
    curl
    realplayer
+   netfront
     Netscape 6, even though its called six, in the userAgent string has
     version number 5. The nav6 and nav6up methods correctly handle this
     quirk. The firefox text correctly detects the older-named versions of
@@ -257,8 +272,11 @@
    iopener
    iphone
    ipod
+   ipad
    palm
    wap
+   psp
+   ps3
   mobile()
     Returns true if the browser appears to belong to a handheld device.
 
@@ -281,8 +299,10 @@
    linkexchange
    slurp
    google
+   googlemobile
+   msn (same as bing)
    puf
-AUTHOR
+CREDITS
     Lee Semel, lee at semel.net (Original Author)
 
     Peter Walsham (co-maintainer)
@@ -321,6 +341,12 @@
     Marc Sebastian Pelzer
 
     Alexey Surikov
+
+    Maros Kollar
+
+    Jay Rifkin
+
+    Luke Saunders
 
 TO DO
     The _engine() method currently only handles Gecko. It needs to be
@@ -373,13 +399,17 @@
     The biggest limitation at this point is the test suite, which really
     needs to have many more UserAgent strings to test against.
 
-    Patches are certainly welcome, with many thanks to the many
+    Patches are certainly welcome, with many thanks for the excellent
     contributions which have already been received. The preferred method of
     patching would be to fork the GitHub repo and then send me a pull
     requests, but plain old patch files are also welcome.
 
-LICENSE AND COPYRIGHT
-    Copyright 1999-2010 Lee Semel. All rights reserved. This program is free
-    software; you can redistribute it and/or modify it under the same terms
-    as Perl itself.
-
+AUTHOR
+    Olaf Alders <olaf at wundercounter.com> (current maintainer)
+
+COPYRIGHT AND LICENSE
+    This software is copyright (c) 2010 by Lee Semel.
+
+    This is free software; you can redistribute it and/or modify it under
+    the same terms as the Perl 5 programming language system itself.
+

Modified: trunk/libhttp-browserdetect-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhttp-browserdetect-perl/debian/changelog?rev=61107&op=diff
==============================================================================
--- trunk/libhttp-browserdetect-perl/debian/changelog (original)
+++ trunk/libhttp-browserdetect-perl/debian/changelog Tue Aug  3 03:59:01 2010
@@ -1,3 +1,12 @@
+libhttp-browserdetect-perl (1.12-1) unstable; urgency=low
+
+  * New upstream release.
+  * debian/copyright: Refer to /usr/share/common-licenses/GPL-1.
+  * Add build-dep on libmodule-build-perl (>= 0.360100).
+  * Bump Standards-Version to 3.9.1.
+
+ -- Ansgar Burchardt <ansgar at 43-1.org>  Tue, 03 Aug 2010 12:58:47 +0900
+
 libhttp-browserdetect-perl (1.11-1) unstable; urgency=low
 
   * New upstream release.

Modified: trunk/libhttp-browserdetect-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhttp-browserdetect-perl/debian/control?rev=61107&op=diff
==============================================================================
--- trunk/libhttp-browserdetect-perl/debian/control (original)
+++ trunk/libhttp-browserdetect-perl/debian/control Tue Aug  3 03:59:01 2010
@@ -2,11 +2,12 @@
 Section: perl
 Priority: optional
 Build-Depends: debhelper (>= 7.3.7~)
-Build-Depends-Indep: perl, libyaml-tiny-perl, libdata-dump-perl
+Build-Depends-Indep: perl, libyaml-tiny-perl, libdata-dump-perl,
+ libmodule-build-perl (>= 0.360100)
 Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
 Uploaders: gregor herrmann <gregoa at debian.org>, Jonathan Yu <jawnsy at cpan.org>,
  Ansgar Burchardt <ansgar at 43-1.org>
-Standards-Version: 3.8.4
+Standards-Version: 3.9.1
 Homepage: http://search.cpan.org/dist/HTTP-BrowserDetect/
 Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libhttp-browserdetect-perl/
 Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libhttp-browserdetect-perl/

Modified: trunk/libhttp-browserdetect-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhttp-browserdetect-perl/debian/copyright?rev=61107&op=diff
==============================================================================
--- trunk/libhttp-browserdetect-perl/debian/copyright (original)
+++ trunk/libhttp-browserdetect-perl/debian/copyright Tue Aug  3 03:59:01 2010
@@ -18,7 +18,7 @@
  it under the terms of the Artistic License, which comes with Perl.
  .
  On Debian GNU/Linux systems, the complete text of the Artistic License
- can be found in `/usr/share/common-licenses/Artistic'
+ can be found in `/usr/share/common-licenses/Artistic'.
 
 License: GPL-1+
  This program is free software; you can redistribute it and/or modify
@@ -26,5 +26,5 @@
  the Free Software Foundation; either version 1, or (at your option)
  any later version.
  .
- On Debian GNU/Linux systems, the complete text of the GNU General
- Public License can be found in `/usr/share/common-licenses/GPL'
+ On Debian GNU/Linux systems, the complete text of version 1 of the GNU
+ General Public License can be found in `/usr/share/common-licenses/GPL-1'.

Modified: trunk/libhttp-browserdetect-perl/lib/HTTP/BrowserDetect.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhttp-browserdetect-perl/lib/HTTP/BrowserDetect.pm?rev=61107&op=diff
==============================================================================
--- trunk/libhttp-browserdetect-perl/lib/HTTP/BrowserDetect.pm (original)
+++ trunk/libhttp-browserdetect-perl/lib/HTTP/BrowserDetect.pm Tue Aug  3 03:59:01 2010
@@ -1,13 +1,15 @@
+use strict;
 package HTTP::BrowserDetect;
-
-use strict;
-use vars qw($VERSION @ISA @EXPORT @EXPORT_OK @ALL_TESTS);
+BEGIN {
+  $HTTP::BrowserDetect::VERSION = '1.12';
+}
+
+use vars qw(@ISA @EXPORT @EXPORT_OK @ALL_TESTS);
 require Exporter;
 
 @ISA       = qw(Exporter);
 @EXPORT    = qw();
 @EXPORT_OK = qw();
-$VERSION   = '1.11';
 
 # Operating Systems
 push @ALL_TESTS, qw(
@@ -66,7 +68,8 @@
     lwp         webcrawler  linkexchange
     slurp       webtv       staroffice
     lotusnotes  konqueror   icab
-    google      java
+    google      java        googlemobile
+    msn         msnmobile
 );
 
 # Properties
@@ -145,6 +148,7 @@
             ( [^\s]* )              # Beta version string is up to next space
         }x
     );
+    
 
     # Firefox version
     if ($ua =~ m{
@@ -167,9 +171,9 @@
     if ($ua =~ m{
                 compatible;
                 \s*
-                \w*                 # Browser name
+                \w*
                 [\s|\/]
-                [A-Za-z]*           # Eat any letters before the major version
+                [A-Za-z\-\/]*       # Eat any letters before the major version
                 ( [^.]* )           # Major version number is everything before first dot
                 \.                  # The first dot
                 ( [\d]* )           # Minor version nnumber is digits after first dot
@@ -182,6 +186,7 @@
         $major = $1;
         $minor = $2;
         $beta  = $3;
+
     }
 
     $major = 0 if !$major;
@@ -350,6 +355,9 @@
         = ( index( $ua, "libwww-perl" ) != -1 || index( $ua, "lwp-" ) != -1 );
     $tests->{YAHOO}  = ( index( $ua, "yahoo" ) != -1 );
     $tests->{GOOGLE} = ( index( $ua, "googlebot" ) != -1 );
+    $tests->{GOOGLEMOBILE} = ( index( $ua, "googlebot-mobile" ) != -1 );
+    $tests->{MSN} = ( (index( $ua, "msnbot" ) != -1 || index( $ua, "bingbot" )) != -1 );
+    $tests->{MSNMOBILE} = ( (index( $ua, "msnbot-mobile" ) != -1 || index( $ua, "bingbot-mobile" )) != -1 );
     $tests->{JAVA}
         = ( index( $ua, "java" ) != -1 || index( $ua, "jdk" ) != -1 );
     $tests->{ALTAVISTA}    = ( index( $ua, "altavista" ) != -1 );
@@ -372,6 +380,9 @@
                 || $tests->{LINKEXCHANGE}
                 || $tests->{SLURP}
                 || $tests->{GOOGLE}
+                || $tests->{GOOGLEMOBILE}
+                || $tests->{MSN}
+                || $tests->{MSNMOBILE}
         )
             || index( $ua, "bot" ) != -1
             || index( $ua, "spider" ) != -1
@@ -456,6 +467,8 @@
             || index( $ua, "samsung" ) != -1
             || index( $ua, "zetor" ) != -1
             || index( $ua, "android" ) != -1
+            || index( $ua, "symbos" ) != -1
+            || index( $ua, "opera mobi" ) != -1
             || $tests->{PSP}
     );
 
@@ -987,7 +1000,9 @@
 
 1;
 
-__END__
+
+
+=pod
 
 =head1 NAME
 
@@ -995,13 +1010,13 @@
 
 =head1 VERSION
 
-Version 1.11
+version 1.12
 
 =head1 SYNOPSIS
 
     use HTTP::BrowserDetect;
 
-    my $browser = new HTTP::BrowserDetect($user_agent_string);
+    my $browser = HTTP::BrowserDetect->new($user_agent_string);
 
     # Detect operating system
     if ($browser->windows) {
@@ -1024,8 +1039,6 @@
 
     # Process a different user agent string
     $browser->user_agent($another_user_agent_string);
-
-
 
 =head1 DESCRIPTION
 
@@ -1108,7 +1121,6 @@
 numbers returned by public_version(), public_major() and public_minor() will
 be what you are looking for.
 
-
 =head2 public_version()
 
 Returns the browser version as a floating-point number.
@@ -1158,7 +1170,6 @@
 returns true if equal to the beta version. If the beta starts with a dot, it
 is thrown away.
 
-
 =head1 Detecting Rendering Engine
 
 =head2 engine_string()
@@ -1288,7 +1299,6 @@
 text correctly detects the older-named versions of the browser (Phoenix,
 Firebird)
 
-
 =head2 browser_string()
 
 Returns undef on failure.  Otherwise returns one of the following:
@@ -1368,10 +1378,13 @@
 
 =head3 google
 
+=head3 googlemobile
+
+=head3 msn (same as bing)
+
 =head3 puf
 
-
-=head1 AUTHOR
+=head1 CREDITS
 
 Lee Semel, lee at semel.net (Original Author)
 
@@ -1416,6 +1429,8 @@
 Maros Kollar
 
 Jay Rifkin
+
+Luke Saunders
 
 =head1 TO DO
 
@@ -1443,7 +1458,6 @@
 
     perldoc HTTP::BrowserDetect
 
-
 You can also look for information at:
 
 =over 4
@@ -1475,15 +1489,26 @@
 The biggest limitation at this point is the test suite, which really needs to
 have many more UserAgent strings to test against.
 
-Patches are certainly welcome, with many thanks to the many contributions
-which have already been received. The preferred method of patching would be to
-fork the GitHub repo and then send me a pull requests, but plain old patch
-files are also welcome.
-
-=head1 LICENSE AND COPYRIGHT
-
-Copyright 1999-2010 Lee Semel. All rights reserved. This program is free
-software; you can redistribute it and/or modify it under the same terms as
-Perl itself.
+Patches are certainly welcome, with many thanks for the excellent
+contributions which have already been received. The preferred method of
+patching would be to fork the GitHub repo and then send me a pull requests,
+but plain old patch files are also welcome.
+
+=head1 AUTHOR
+
+Olaf Alders <olaf at wundercounter.com> (current maintainer)
+
+=head1 COPYRIGHT AND LICENSE
+
+This software is copyright (c) 2010 by Lee Semel.
+
+This is free software; you can redistribute it and/or modify it under
+the same terms as the Perl 5 programming language system itself.
 
 =cut
+
+
+__END__
+
+# ABSTRACT: Determine Web browser, version, and platform from an HTTP user agent string
+

Modified: trunk/libhttp-browserdetect-perl/t/useragents.yaml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhttp-browserdetect-perl/t/useragents.yaml?rev=61107&op=diff
==============================================================================
--- trunk/libhttp-browserdetect-perl/t/useragents.yaml (original)
+++ trunk/libhttp-browserdetect-perl/t/useragents.yaml Tue Aug  3 03:59:01 2010
@@ -1387,3 +1387,73 @@
   - netscape
 engine_string: NetFront
 device_name: Sony PlayStation 3
+---
+browser_string: ~
+match:
+  - googlemobile
+  - google
+  - robot
+no_match: ~
+os: ~
+other: ~
+useragent: 'ua=DoCoMo/2.0 N905i(c100;TB;W24H16) (compatible; Googlebot-Mobile/2.1; +http://www.google.com/bot.html)'
+language: ~
+country: ~
+public_version: 2.1
+public_major: 2 
+public_minor: .1 
+version: 2.1
+major: 2 
+minor: .1 
+---
+browser_string: ~
+match:
+  - msn
+  - robot
+no_match: ~
+os: ~
+other: ~
+useragent: 'msnbot/2.0b (+http://search.msn.com/msnbot.htm)'
+language: ~
+country: ~
+public_version: 2.0
+public_major: 2
+public_minor: 0
+version: 2.0
+major: 2
+minor: 0
+---
+browser_string: ~
+match:
+  - msn
+  - msnmobile
+  - robot
+no_match: ~
+os: ~
+other: ~
+useragent: 'T-mobile Dash Mozilla/4.0 (compatible; MSIE 4.01; Windows CE; Smartphone; 320x240;) msnbot-mobile/1.1 (+http://search.msn.com/msnbot.htm)'
+language: ~
+country: ~
+public_version: 4.01
+public_major: 4 
+public_minor: .01
+version: 4.01
+major: 4 
+minor: .01
+---
+browser_string: ~
+match:
+  - opera 
+  - mobile
+no_match: ~
+os: ~
+other: ~
+useragent: 'Opera/9.80 (S60; SymbOS; Opera Mobi/320; U; sv) Presto/2.4.15 Version/10.00'
+language: ~
+country: ~
+public_version: 9.80
+public_major: 9.80 
+public_minor: .0
+version: 9.80 
+major: 9 
+minor: .8




More information about the Pkg-perl-cvs-commits mailing list