initial importSTART

8 files changed, 363 insertions, 0 deletions

diff --git a/Changes b/Changes
new file mode 100644
index 0000000..ec39bbf
--- /dev/null
+++ b/Changes
@@ -0,0 +1,11 @@
+Revision history for Perl extension HTTP::Headers::UserAgent.
+
+3.00  unreleased
+	- depriciated; rewrite as wrapper around HTTP::BrowserDetect
+
+2.00  Thu Aug  5 17:14:18 1999
+	- free reimplementation by Ivan Kohler, name/API used with permission
+
+1.00  Wed Sep 30 1998
+	- original (non-free) HTTP::Headers::UserAgent by John Neystadt
+
diff --git a/MANIFEST b/MANIFEST
new file mode 100644
index 0000000..c8d796a
--- /dev/null
+++ b/MANIFEST
@@ -0,0 +1,7 @@
+Changes
+UserAgent.pm
+MANIFEST
+MANIFEST.SKIP
+Makefile.PL
+test.pl
+README
diff --git a/MANIFEST.SKIP b/MANIFEST.SKIP
new file mode 100644
index 0000000..ae335e7
--- /dev/null
+++ b/MANIFEST.SKIP
@@ -0,0 +1 @@
+CVS/
diff --git a/Makefile.PL b/Makefile.PL
new file mode 100644
index 0000000..03d8acc
--- /dev/null
+++ b/Makefile.PL
@@ -0,0 +1,10 @@
+use ExtUtils::MakeMaker;
+# See lib/ExtUtils/MakeMaker.pm for details of how to influence
+# the contents of the Makefile that is written.
+WriteMakefile(
+    'NAME'	=> 'HTTP::Headers::UserAgent',
+    'VERSION_FROM' => 'UserAgent.pm', # finds $VERSION
+    'PREREQ_PM' => {
+                     'HTTP::BrowserDetect' => 0,
+                   },
+);
diff --git a/README b/README
new file mode 100644
index 0000000..1feed94
--- /dev/null
+++ b/README
@@ -0,0 +1,29 @@
+HTTP::Headers::UserAgent v3.00
+
+  Copyright (c) 2001 Ivan Kohler.  All rights reserved.
+  This program is free software; you can redistribute it and/or modify it
+  under the same terms as Perl itself.
+
+This is a class that deals with the HTTP User-Agent header.  It will parse
+the header, and (hopefully) report the correct platform, operating system,
+browser, and browser version.
+
+This is version 3.00 of the HTTP::Headers::UserAgent class.  It is now
+depriciated, and the code is a wrapper around the more well-maintained
+HTTP::BrowserDetect module.  You are advised to switch to HTTP::BrowserDetect.
+While the interface provides backward-compatibility with version 1.00, it is
+not based on the 1.00 code.
+
+To install:
+  perl Makefile.PL
+  make
+  make test # nothing substantial yet
+  make install
+
+Documentation will then be available via `man HTTP::Headers::UserAgent' or
+`perldoc HTTP::Headers::UserAgent'.
+
+Homepage: <http://www.sisd.com/useragent>
+
+Ivan Kohler
+20 4,16 * * * saytime
diff --git a/UserAgent.pm b/UserAgent.pm
new file mode 100644
index 0000000..bdda2e3
--- /dev/null
+++ b/UserAgent.pm
@@ -0,0 +1,247 @@
+package HTTP::Headers::UserAgent;
+
+use strict;
+use Exporter;
+use HTTP::BrowserDetect;
+
+use vars qw( $VERSION @EXPORT_OK $fh %old );
+
+$VERSION = '3.00';
+
+@EXPORT_OK = qw( GetPlatform );
+
+%old = (
+  irix    => 'UNIX',
+  macos   => 'MAC',
+  osf1    => 'UNIX',
+  linux   => 'Linux',
+  solaris => 'UNIX',
+  sunos   => 'UNIX',
+  bsdi    => 'UNIX',
+  win16   => 'Win3x',
+  win95   => 'Win95',
+  win98   => 'Win98',
+  winnt   => 'WINNT',
+  win32   => undef,
+  os2     => 'OS2',
+  unknown => undef,
+);
+
+=head1 NAME
+
+HTTP::Headers::UserAgent - Class encapsulating the HTTP User-Agent header
+
+=head1 SYNOPSIS
+
+  use HTTP::Headers::UserAgent;
+
+  HTTP::Headers::UserAgent->DumpFile( $fh );
+
+  $user_agent = new HTTP::Headers::UserAgent $ENV{HTTP_USER_AGENT};
+
+  $user-agent->string( $ENV{HTTP_USER_AGENT} );
+
+  $string = $user_agent->string;
+
+  $platform = $user_agent->platform;
+
+  $os = $user_agent->os;
+
+  ( $browser, $version ) = $user_agent->browser;
+
+  #backwards-compatibility with HTTP::Headers::UserAgent 1.00
+  $old_platform = HTTP::Headers::UserAgent::GetPlatform $ENV{HTTP_USER_AGENT};
+
+=head1 DESCRIPTION
+
+The HTTP::Headers::UserAgent class represents User-Agent HTTP headers.
+
+This is version 3.00 of the HTTP::Headers::UserAgent class.  It is now
+B<depriciated>, and the code is a wrapper around the more well-maintained
+HTTP::BrowserDetect module.  You are advised to switch to HTTP::BrowswerDetect.
+While the interface provides backward-compatibility with version 1.00, it is
+not based on the 1.00 code.
+
+=head1 METHODS
+
+=over 4
+
+=item DumpFile
+
+No-op compatibility method.
+
+=cut
+
+sub DumpFile {
+  shift;
+}
+
+=item new HTTP_USER_AGENT
+
+Creates a new HTTP::Headers::UserAgent object.  Takes the HTTP_USER_AGENT
+string as a parameter.
+
+=cut
+
+sub new {
+  my $proto = shift;
+  my $class = ref($proto) || $proto;
+  my $self = { 'bd' => new HTTP::BrowserDetect(shift) };
+  bless( $self, $class);
+}
+
+
+=item string [ HTTP_USER_AGENT ]
+
+If a parameter is given, sets the user-agent string.
+
+Returns the user-agent as an unprocessed string.
+
+=cut
+
+sub string {
+  my $self = shift;
+  $self->{'bd'}->user_agent(@_);
+}
+
+=item platform
+
+Tries to guess the platform.  Returns ia32, ppc, alpha, hppa, mips, sparc, or
+unknown.
+
+  ia32   Intel archetecure, 32-bit (x86)
+  ppc    PowerPC
+  alpha  DEC (now Compaq) Alpha
+  hppa   HP
+  mips   SGI MIPS
+  sparc  Sun Sparc
+
+This is the only function which is not yet implemented as a wrapper around
+an equivalent function in HTTP::BrowserDetect.
+
+=cut
+
+sub platform {
+  my $self = shift;
+  for ( $self->{'bd'}{'user_agent'} ) {
+    /Win/             && return "ia32";
+    /Mac/             && return "ppc";
+    /Linux.*86/       && return "ia32";
+    /Linux.*alpha/    && return "alpha";
+    /OSF/             && return "alpha";
+    /HP-UX/           && return "hppa";
+    /IRIX/            && return "mips";
+    /(SunOS|Solaris)/ && return "sparc";
+  }
+  print $fh $self->string if $fh;
+  "unknown";
+}
+
+=item os
+
+Tries to guess the operating system.  Returns irix, win16, win95, win98, 
+winnt, win32 (Windows 95/98/NT/?), macos, osf1, linux, solaris, sunos, bsdi,
+os2, or unknown.
+
+This is now a wrapper around HTTP::BrowserDetect methods.  Using
+HTTP::BrowserDetect natively offers a better interface to OS detection and is
+recommended.
+
+=cut
+
+sub os {
+  my $self = shift;
+  my $os = '';
+  foreach my $possible ( qw(
+    win31 win95 win98 winnt win2k winme win32 win3x win16 windows
+    mac68k macppc mac
+    os2
+    sun4 sun5 suni86 sun irix
+    linux
+    dec bsd
+  ) ) {
+    $os ||= $possible if $self->{'bd'}->$possible;
+  }
+  $os = 'macos' if $os =~ /^mac/;
+  $os = 'osf1' if $os =~ /^dec/;
+  $os = 'solaris' if $os =~ /^sun(5$|i86$|$)/;
+  $os = 'sunos' if $os eq 'sun4';
+  $os = 'bsdi' if $os eq 'bsd';
+  $os || 'unknown';
+}
+
+=item browser
+
+Returns a list consisting of the browser name and version.  Possible browser
+names are:
+
+Netscape, IE, Opera, Lynx, WebTV, AOL Browser, or Unknown
+
+This is now a wrapper around HTTP::BrowserDetect::browser_string
+
+=cut
+
+sub browser {
+  my $self = shift;
+  my $browser = $self->{'bd'}->browser_string();
+  $browser = 'Unknown' unless defined $browser;
+  $browser = 'IE' if $browser eq 'MSIE';
+  $browser;
+}
+
+=back
+
+=head1 BACKWARDS COMPATIBILITY
+
+For backwards compatibility with HTTP::Headers::UserAgent 1.00, a GetPlatform
+subroutine is provided.
+
+=over 4
+
+=item GetPlatform HTTP_USER_AGENT
+
+Returns Win95, Win98, WinNT, UNIX, MAC, Win3x, OS2, Linux, or undef.
+
+In some cases ( `Win32', `Windows CE' ) where HTTP::Headers::UserAgent 1.00
+would have returned `Win95', will return undef instead.
+
+Will return `UNIX' for some cases where HTTP::Headers::UserAgent would have
+returned undef.
+
+=cut
+
+sub GetPlatform {
+  my $string = shift;
+  my $object = new HTTP::Headers::UserAgent $string;
+  $old{ $object->os };
+}
+
+=back
+
+=head1 AUTHOR
+
+Ivan Kohler <ivan-useragent@420.am>
+
+Portions of this software were originally taken from the Bugzilla Bug
+Tracking system <http://www.mozilla.org/bugs/>, and are reused here with
+permission of the original author, Terry Weissman <terry@mozilla.org>.
+
+=head1 COPYRIGHT
+
+Copyright (c) 2001 Ivan Kohler.  All rights reserved.
+This program is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+=head1 BUGS
+
+Really you should just switch over to the more well-maintained
+HTTP::BrowserDetect, which this module is now just a wrapper around.
+
+=head1 SEE ALSO
+
+perl(1), L<HTTP::Headers>, L<HTTP::BrowserDetect>
+
+=cut
+
+1;
+
diff --git a/index.html b/index.html
new file mode 100644
index 0000000..df2424f
--- /dev/null
+++ b/index.html
@@ -0,0 +1,38 @@
+<HTML><HEAD><TITLE>HTTP::Headers::UserAgent - parse User-Agent headers</TITLE></HEAD>
+<BODY>
+<PRE>
+HTTP::Headers::UserAgent v2.00
+
+Copyright (c) 1999 <a href="http://www.iqualify.com/">iQualify, Inc.</a>
+All Rights reserved.
+This program is free software; you can redistribute it and/or modify it under
+the same terms as Perl itself.
+
+Portions of this software were originally taken from the <a href="http://www.mozilla.org/bugs/">Bugzilla Bug
+Tracking system</a>, and are reused here with permission of the original
+author, Terry Weissman &lt;<a href="mailto:terry@mozilla.org">terry@mozilla.org</a>&gt;.
+
+This is a class that deals with the HTTP User-Agent header.  It will parse
+the header, and (hopefully) report the correct platform, operating system,
+browser, and browser version.
+
+This is version 2.00 of the HTTP::Headers::UserAgent class.  While the
+interface provides backward-compatibility with version 1.00, it is not based
+on the 1.00 code.
+
+<a href="HTTP-Headers-UserAgent-2.00.tar.gz">Download HTTP-Headers-UserAgent v2.00</a>
+
+<a href="UserAgent.html">Documentation</a>
+
+To install:
+	perl Makefile.PL
+	make
+	make test # nothing substantial yet
+	make install
+
+Documentation will then be available via `man HTTP::Headers::UserAgent' or
+`perldoc HTTP::Headers::UserAgent'.
+
+Ivan Kohler <ivan@sisd.com>
+20 4,16 * * * saytime
+</body></html>
diff --git a/test.pl b/test.pl
new file mode 100644
index 0000000..72fcac3
--- /dev/null
+++ b/test.pl
@@ -0,0 +1,20 @@
+# Before `make install' is performed this script should be runnable with
+# `make test'. After `make install' it should work as `perl test.pl'
+
+######################### We start with some black magic to print on failure.
+
+# Change 1..1 below to 1..last_test_to_print .
+# (It may become useful if the test is moved to ./t subdirectory.)
+
+BEGIN { $| = 1; print "1..1\n"; }
+END {print "not ok 1\n" unless $loaded;}
+use HTTP::Headers::UserAgent;
+$loaded = 1;
+print "ok 1\n";
+
+######################### End of black magic.
+
+# Insert your test code below (better if it prints "ok 13"
+# (correspondingly "not ok 13") depending on the success of chunk 13
+# of the test code):
+