r32737 - in /trunk/libdatetime-format-http-perl: ./ debian/ lib/DateTime/Format/ t/
ryan52-guest at users.alioth.debian.org
ryan52-guest at users.alioth.debian.org
Wed Apr 8 01:31:36 UTC 2009
Author: ryan52-guest
Date: Wed Apr 8 01:31:31 2009
New Revision: 32737
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=32737
Log:
New upstream release
Added:
trunk/libdatetime-format-http-perl/LICENSE
- copied unchanged from r32736, branches/upstream/libdatetime-format-http-perl/current/LICENSE
trunk/libdatetime-format-http-perl/SIGNATURE
- copied unchanged from r32736, branches/upstream/libdatetime-format-http-perl/current/SIGNATURE
trunk/libdatetime-format-http-perl/t/pod-coverage.t
- copied unchanged from r32736, branches/upstream/libdatetime-format-http-perl/current/t/pod-coverage.t
trunk/libdatetime-format-http-perl/t/pod.t
- copied unchanged from r32736, branches/upstream/libdatetime-format-http-perl/current/t/pod.t
Removed:
trunk/libdatetime-format-http-perl/AUTHORS
trunk/libdatetime-format-http-perl/Artistic
trunk/libdatetime-format-http-perl/COPYING
trunk/libdatetime-format-http-perl/INSTALL
trunk/libdatetime-format-http-perl/LICENCE
trunk/libdatetime-format-http-perl/MANIFEST.SKIP
trunk/libdatetime-format-http-perl/t/99pod.t
Modified:
trunk/libdatetime-format-http-perl/Build.PL
trunk/libdatetime-format-http-perl/Changes
trunk/libdatetime-format-http-perl/MANIFEST
trunk/libdatetime-format-http-perl/META.yml
trunk/libdatetime-format-http-perl/Makefile.PL
trunk/libdatetime-format-http-perl/README
trunk/libdatetime-format-http-perl/debian/changelog
trunk/libdatetime-format-http-perl/lib/DateTime/Format/HTTP.pm
trunk/libdatetime-format-http-perl/t/date.t
Modified: trunk/libdatetime-format-http-perl/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-http-perl/Build.PL?rev=32737&op=diff
==============================================================================
--- trunk/libdatetime-format-http-perl/Build.PL (original)
+++ trunk/libdatetime-format-http-perl/Build.PL Wed Apr 8 01:31:31 2009
@@ -3,11 +3,13 @@
use Module::Build;
Module::Build->new( module_name => 'DateTime::Format::HTTP',
- author => 'Dave Rolsky <autarch at urth.org>',
+ dist_author => 'Dave Rolsky <autarch at urth.org>',
license => 'perl',
- requires => { 'DateTime' => 0.17,
+ requires => { 'DateTime' => '0.17',
'HTTP::Date' => '1.44',
'Test::More' => '0.47',
},
- create_makefile_pl => 'passthrough',
+ sign => 1,
+ create_readme => 1,
+ create_makefile_pl => 'traditional',
)->create_build_script;
Modified: trunk/libdatetime-format-http-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-http-perl/Changes?rev=32737&op=diff
==============================================================================
--- trunk/libdatetime-format-http-perl/Changes (original)
+++ trunk/libdatetime-format-http-perl/Changes Wed Apr 8 01:31:31 2009
@@ -1,3 +1,14 @@
+0.38 2009-04-05
+
+- No code changes from previous versions.
+
+- Shut up the verbose diagnostic output from the tests.
+
+- Fixed various bugs in the Build.PL, and generally modernized the
+ distro tarball. Hopefully this will fix problems some cpan testers
+ were seeing.
+
+
0.37 2006-08-09
- No code changes from previous versions, but there is no SIGNATURE
Modified: trunk/libdatetime-format-http-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-http-perl/MANIFEST?rev=32737&op=diff
==============================================================================
--- trunk/libdatetime-format-http-perl/MANIFEST (original)
+++ trunk/libdatetime-format-http-perl/MANIFEST Wed Apr 8 01:31:31 2009
@@ -1,18 +1,15 @@
-Artistic
-AUTHORS
Build.PL
Changes
-COPYING
CREDITS
-INSTALL
lib/DateTime/Format/HTTP.pm
-LICENCE
+LICENSE
Makefile.PL
-MANIFEST
-MANIFEST.SKIP
+MANIFEST This list of files
META.yml
-README
-t/99pod.t
t/basic.t
t/date.t
+t/pod-coverage.t
+t/pod.t
t/time2str.t
+README
+SIGNATURE Added here by Module::Build
Modified: trunk/libdatetime-format-http-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-http-perl/META.yml?rev=32737&op=diff
==============================================================================
--- trunk/libdatetime-format-http-perl/META.yml (original)
+++ trunk/libdatetime-format-http-perl/META.yml Wed Apr 8 01:31:31 2009
@@ -1,15 +1,8 @@
---
name: DateTime-Format-HTTP
-version: !!perl/hash:Module::Build::Version
- original: 0.37
- version:
- - 0
- - 370
+version: 0.38
author:
- - |-
- Originally written by Iain Truskett <spoon at cpan.org>, who died on
- December 29, 2003.
- - Maintained by Dave Rolsky <autarch at urth.org>.
+ - 'Dave Rolsky <autarch at urth.org>'
abstract: Date conversion routines
license: perl
resources:
@@ -21,8 +14,8 @@
provides:
DateTime::Format::HTTP:
file: lib/DateTime/Format/HTTP.pm
- version: 0.37
-generated_by: Module::Build version 0.2804
+ version: 0.38
+generated_by: Module::Build version 0.32
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.2.html
version: 1.2
Modified: trunk/libdatetime-format-http-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-http-perl/Makefile.PL?rev=32737&op=diff
==============================================================================
--- trunk/libdatetime-format-http-perl/Makefile.PL (original)
+++ trunk/libdatetime-format-http-perl/Makefile.PL Wed Apr 8 01:31:31 2009
@@ -1,31 +1,15 @@
-# Note: this file was auto-generated by Module::Build::Compat version 0.03
-
- unless (eval "use Module::Build::Compat 0.02; 1" ) {
- print "This module requires Module::Build to install itself.\n";
-
- require ExtUtils::MakeMaker;
- my $yn = ExtUtils::MakeMaker::prompt
- (' Install Module::Build now from CPAN?', 'y');
-
- unless ($yn =~ /^y/i) {
- die " *** Cannot install without Module::Build. Exiting ...\n";
- }
-
- require Cwd;
- require File::Spec;
- require CPAN;
-
- # Save this 'cause CPAN will chdir all over the place.
- my $cwd = Cwd::cwd();
-
- CPAN::Shell->install('Module::Build::Compat');
- CPAN::Shell->expand("Module", "Module::Build::Compat")->uptodate
- or die "Couldn't install Module::Build, giving up.\n";
-
- chdir $cwd or die "Cannot chdir() back to $cwd: $!";
- }
- eval "use Module::Build::Compat 0.02; 1" or die $@;
-
- Module::Build::Compat->run_build_pl(args => \@ARGV);
- require Module::Build;
- Module::Build::Compat->write_makefile(build_class => 'Module::Build');
+# Note: this file was auto-generated by Module::Build::Compat version 0.32
+use ExtUtils::MakeMaker;
+WriteMakefile
+(
+ 'NAME' => 'DateTime::Format::HTTP',
+ 'VERSION_FROM' => 'lib/DateTime/Format/HTTP.pm',
+ 'PREREQ_PM' => {
+ 'DateTime' => '0.17',
+ 'HTTP::Date' => '1.44',
+ 'Test::More' => '0.47'
+ },
+ 'INSTALLDIRS' => 'site',
+ 'EXE_FILES' => []
+ )
+;
Modified: trunk/libdatetime-format-http-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-http-perl/README?rev=32737&op=diff
==============================================================================
--- trunk/libdatetime-format-http-perl/README (original)
+++ trunk/libdatetime-format-http-perl/README Wed Apr 8 01:31:31 2009
@@ -1,13 +1,137 @@
-DateTime::Format::HTTP
+NAME
+ DateTime::Format::HTTP - Date conversion routines
-date conversion routines
+SYNOPSIS
+ use DateTime::Format::HTTP;
-For installation details, see INSTALL.
+ my $class = 'DateTime::Format::HTTP';
+ $string = $class->format_datetime($dt); # Format as GMT ASCII time
+ $time = $class->parse_datetime($string); # convert ASCII date to machine time
-For usage, see the doco. Either use perldoc or view it
-on the web at:
- <http://search.cpan.org/author/SPOON/DateTime-Format-HTTP/>
+DESCRIPTION
+ This module provides functions that deal the date formats used by the
+ HTTP protocol (and then some more).
+METHODS
+ parse_datetime( $str [, $zone] )
-For a complete list of changes, see the Changes file.
+ The parse_datetime() function converts a string to machine time. It
+ throws an error if the format of $str is unrecognized, or the time is
+ outside the representable range. The time formats recognized are listed
+ below.
+ The function also takes an optional second argument that specifies the
+ default time zone to use when converting the date. This parameter is
+ ignored if the zone is found in the date string itself. If this
+ parameter is missing, and the date string format does not contain any
+ zone specification, then the floating time zone is used.
+
+ The zone should be one that is recognized by DateTime::TimeZone.
+
+ Actual parsing is done with the HTTP::Date module. At the time of
+ writing it supports the formats listed next. Consult that module's
+ documentation in case the list has been changed.
+
+ "Wed, 09 Feb 1994 22:23:32 GMT" -- HTTP format
+ "Thu Feb 3 17:03:55 GMT 1994" -- ctime(3) format
+ "Thu Feb 3 00:00:00 1994", -- ANSI C asctime() format
+ "Tuesday, 08-Feb-94 14:15:29 GMT" -- old rfc850 HTTP format
+ "Tuesday, 08-Feb-1994 14:15:29 GMT" -- broken rfc850 HTTP format
+
+ "03/Feb/1994:17:03:55 -0700" -- common logfile format
+ "09 Feb 1994 22:23:32 GMT" -- HTTP format (no weekday)
+ "08-Feb-94 14:15:29 GMT" -- rfc850 format (no weekday)
+ "08-Feb-1994 14:15:29 GMT" -- broken rfc850 format (no weekday)
+
+ "1994-02-03 14:15:29 -0100" -- ISO 8601 format
+ "1994-02-03 14:15:29" -- zone is optional
+ "1994-02-03" -- only date
+ "1994-02-03T14:15:29" -- Use T as separator
+ "19940203T141529Z" -- ISO 8601 compact format
+ "19940203" -- only date
+
+ "08-Feb-94" -- old rfc850 HTTP format (no weekday, no time)
+ "08-Feb-1994" -- broken rfc850 HTTP format (no weekday, no time)
+ "09 Feb 1994" -- proposed new HTTP format (no weekday, no time)
+ "03/Feb/1994" -- common logfile format (no time, no offset)
+
+ "Feb 3 1994" -- Unix 'ls -l' format
+ "Feb 3 17:03" -- Unix 'ls -l' format
+
+ "11-15-96 03:52PM" -- Windows 'dir' format
+
+ The parser ignores leading and trailing whitespace. It also allow the
+ seconds to be missing and the month to be numerical in most formats.
+
+ If the year is missing, then we assume that the date is the first
+ matching date *before* current month. If the year is given with only 2
+ digits, then parse_date() will select the century that makes the year
+ closest to the current date.
+
+ format_datetime()
+
+ The `format_datetime()' method converts a DateTime to a string. If the
+ function is called without an argument, it will use the current time.
+
+ The string returned is in the format preferred for the HTTP protocol.
+ This is a fixed length subset of the format defined by RFC 1123,
+ represented in Universal Time (GMT). An example of a time stamp in this
+ format is:
+
+ Sun, 06 Nov 1994 08:49:37 GMT
+
+ format_iso( [$time] )
+
+ Same as format_datetime(), but returns a "YYYY-MM-DD hh:mm:ss"-formatted
+ string representing time in the local time zone. It is strongly
+ recommended that you use `format_isoz' or `format_datetime' instead (as
+ these provide time zone indication).
+
+ format_isoz( [$dt] )
+
+ Same as format_iso(), but returns a "YYYY-MM-DD hh:mm:ssZ"-formatted
+ string representing Universal Time.
+
+THANKS
+ Gisle Aas (GAAS) for writing HTTP::Date.
+
+ Iain, for never quite finishing `HTTP::Date::XS'.
+
+SUPPORT
+ Support for this module is provided via the datetime at perl.org email
+ list. See http://lists.perl.org/ for more details.
+
+ Alternatively, log them via the CPAN RT system via the web or email:
+
+ http://rt.cpan.org/NoAuth/ReportBug.html?Queue=DateTime%3A%3AFormat%3A%3AHTTP
+ bug-datetime-format-http at rt.cpan.org
+
+ This makes it much easier for me to track things and thus means your
+ problem is less likely to be neglected.
+
+LICENCE AND COPYRIGHT
+ Copyright Iain Truskett, 2003. All rights reserved. Sections of the
+ documentation Gisle Aas, 1995-1999. Changes since version 0.35 copyright
+ David Rolsky, 2004.
+
+ This library is free software; you can redistribute it and/or modify it
+ under the same terms as Perl itself, either Perl version 5.000 or, at
+ your option, any later version of Perl 5 you may have available.
+
+ The full text of the licences can be found in the Artistic and COPYING
+ files included with this module, or in perlartistic and perlgpl as
+ supplied with Perl 5.8.1 and later.
+
+AUTHOR
+ Originally written by Iain Truskett <spoon at cpan.org>, who died on
+ December 29, 2003.
+
+ Maintained by Dave Rolsky <autarch at urth.org>.
+
+SEE ALSO
+ `datetime at perl.org' mailing list.
+
+ http://datetime.perl.org/
+
+ perl, DateTime, HTTP::Date, DateTime::TimeZone.
+
Modified: trunk/libdatetime-format-http-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-http-perl/debian/changelog?rev=32737&op=diff
==============================================================================
--- trunk/libdatetime-format-http-perl/debian/changelog (original)
+++ trunk/libdatetime-format-http-perl/debian/changelog Wed Apr 8 01:31:31 2009
@@ -1,3 +1,9 @@
+libdatetime-format-http-perl (0.38-1) UNRELEASED; urgency=low
+
+ * New upstream release
+
+ -- Ryan Niebur <ryanryan52 at gmail.com> Tue, 07 Apr 2009 18:31:22 -0700
+
libdatetime-format-http-perl (0.37-1) unstable; urgency=low
* Initial Release. (Closes: #519365)
Modified: trunk/libdatetime-format-http-perl/lib/DateTime/Format/HTTP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-http-perl/lib/DateTime/Format/HTTP.pm?rev=32737&op=diff
==============================================================================
--- trunk/libdatetime-format-http-perl/lib/DateTime/Format/HTTP.pm (original)
+++ trunk/libdatetime-format-http-perl/lib/DateTime/Format/HTTP.pm Wed Apr 8 01:31:31 2009
@@ -3,7 +3,7 @@
use warnings;
use vars qw( $VERSION );
-$VERSION = '0.37';
+$VERSION = '0.38';
use DateTime;
use HTTP::Date qw();
Modified: trunk/libdatetime-format-http-perl/t/date.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-http-perl/t/date.t?rev=32737&op=diff
==============================================================================
--- trunk/libdatetime-format-http-perl/t/date.t (original)
+++ trunk/libdatetime-format-http-perl/t/date.t Wed Apr 8 01:31:31 2009
@@ -8,15 +8,6 @@
$class = 'DateTime::Format::HTTP';
use_ok $class;
}
-
-diag <<EOF;
-
- Don't worry about the large number of error messages.
- That's the module doing its job.
-
- Worry about actual test failures.
-
-EOF
require Time::Local if $^O eq "MacOS";
my $offset = ($^O eq "MacOS") ? Time::Local::timegm(0,0,0,1,0,70) : 0;
@@ -106,38 +97,22 @@
is( $t->epoch, $time ); #, "str2time ls -l: '$str' => $t ($time)\n");
}
-# try some garbage.
for (undef, '', 'Garbage',
'Mandag 16. September 1996',
-# 'Thu Feb 3 00:00:00 CET 1994',
-# 'Thu, 03 Feb 1994 00:00:00 CET',
-# 'Wednesday, 31-Dec-69 23:59:59 GMT',
-
'1980-00-01',
'1980-13-01',
'1980-01-00',
'1980-01-32',
'1980-01-01 25:00:00',
'1980-01-01 00:61:00',
- #'1980-01-01 00:00:61',
)
{
- my $bad = 0;
- eval {
- if (defined $class->parse_datetime($_)) {
- diag "str2time($_) is not undefined\n";
- $bad++;
- }
- };
- diag $@ if $@;
- ok( !$bad, defined $_ ? "'$_'" : "undef" );
+ my $desc = defined $_ ? "'$_'" : "undef";
+ $desc .= ' does not parse';
+
+ my $ok = ! defined eval { $class->parse_datetime($_) };
+ ok( $ok, $desc );
}
-
-diag "Testing AM/PM gruff...\n";
-
-# Test the str2iso routines
-
-diag "Testing time2iso functions\n";
my $conv = sub {
my $str = shift;
@@ -179,10 +154,9 @@
$a = $class->format_iso( );
$b = $class->format_iso( DateTime->from_epoch( epoch => 500000 ) );
-diag "LOCAL $a $b\n";
+
my $az = $class->format_isoz( );
my $bz = $class->format_isoz( DateTime->from_epoch( epoch => 500000 ) );
-diag "GMT $az $bz\n";
for ($a, $b) {
like( $_ => qr/^\d{4}-\d\d-\d\d \d\d:\d\d:\d\d$/, "time2iso($_)" );
@@ -190,17 +164,3 @@
for ($az, $bz) {
like( $_ => qr/^\d{4}-\d\d-\d\d \d\d:\d\d:\d\dZ$/, "time2isoz($_)" );
}
-
-## Test the parse_date interface
-#
-#my @d = parse_date("Jan 1 2001");
-#
-#ok(!( defined(pop(@d)) || "@d" ne "2001 1 1 0 0 0" ), "Parse to list");
-#
-## This test will break around year 2070
-#ok( parse_date("03-Feb-20") eq "2020-02-03 00:00:00", "Parse to scalar, >y2k" );
-#
-## This test will break around year 2048
-#ok( parse_date("03-Feb-98") eq "1998-02-03 00:00:00", "Parse to scalar" );
-
-diag "DateTime::Format::HTTP $DateTime::Format::HTTP::VERSION\n";
More information about the Pkg-perl-cvs-commits
mailing list