Hello community,
here is the log from the commit of package perl-Net-Http-Server
checked in at Wed Sep 24 01:41:15 CEST 2008.
--------
New Changes file:
--- /dev/null 2008-04-22 03:09:48.000000000 +0200
+++ /mounts/work_src_done/STABLE/perl-Net-Http-Server/perl-Net-Http-Server.changes 2008-09-15 14:36:13.000000000 +0200
@@ -0,0 +1,11 @@
+-------------------------------------------------------------------
+Mon Sep 15 14:35:00 CEST 2008 - mmaier@suse.de
+
+- added two patches
+- http://rt.cpan.org/Public/Bug/Display.html?id=39220
+- http://rt.cpan.org/Public/Bug/Display.html?id=24361
+
+-------------------------------------------------------------------
+Tue Sep 9 11:45:50 CEST 2008 - mmaier@suse.de
+
+- initial package version 1.1.1
New:
----
escaped_characters.patch
handlewidechar.patch
perl-Net-Http-Server-1.1.1.tar.bz2
perl-Net-Http-Server.changes
perl-Net-Http-Server.spec
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Net-Http-Server.spec ++++++
#
# spec file for package perl-Net-Http-Server (Version 1.1.1)
#
# Copyright (c) 2008 SUSE LINUX Products GmbH, Nuernberg, Germany.
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
# upon. The license for this file, and modifications and additions to the
# file, is the same license as for the pristine package itself (unless the
# license for the pristine package is not an Open Source License, in which
# case the license is the MIT License). An "Open Source License" is a
# license that conforms to the Open Source Definition (Version 1.9)
# published by the Open Source Initiative.
# Please submit bugfixes or comments via http://bugs.opensuse.org/
#
Name: perl-Net-Http-Server
Summary: A simple perl Http Server
Version: 1.1.1
Release: 2
Group: Development/Libraries/Perl
License: LGPL v2.0 or later; Perl License, LGPLv2.1 or later
BuildRequires: perl perl-URI
Requires: perl = %{perl_version} perl-URI
Url: http://search.cpan.org/~reatmon/Net-HTTPServer-1.1.1/
Source: %{name}-%{version}.tar.bz2
Patch0: handlewidechar.patch
Patch1: escaped_characters.patch
BuildRoot: %{_tmppath}/%{name}-%{version}-build
%description
Net::HTTPServer basically turns a CGI script into a stand alone server.
Useful for temporary services, mobile/local servers, or embedding an
HTTP server into another program.
Authors:
--------
Ryan Eatmon
%prep
%setup -q
%patch0 -p1
%patch1 -p1
%build
perl Makefile.PL
make
make test
%install
%perl_make_install
%perl_process_packlist
%clean
rm -rf $RPM_BUILD_ROOT
%files
%defattr(-,root,root)
%doc README CHANGES MANIFEST
%doc %{_mandir}/man?/*
%dir %{perl_vendorlib}/Net
%dir %{perl_vendorlib}/Net/HTTPServer
%{perl_vendorlib}/Net/*
%{perl_vendorarch}/auto/Net
/var/adm/perl-modules/%{name}
%changelog
* Mon Sep 15 2008 mmaier@suse.de
- added two patches
- http://rt.cpan.org/Public/Bug/Display.html?id=39220
- http://rt.cpan.org/Public/Bug/Display.html?id=24361
* Tue Sep 09 2008 mmaier@suse.de
- initial package version 1.1.1
++++++ escaped_characters.patch ++++++
diff -Naur perl-Net-Http-Server-1.1.1.orig//lib/Net/HTTPServer/Request.pm perl-Net-Http-Server-1.1.1/lib/Net/HTTPServer/Request.pm
--- perl-Net-Http-Server-1.1.1.orig//lib/Net/HTTPServer/Request.pm 2005-01-25 18:13:38.000000000 +0100
+++ perl-Net-Http-Server-1.1.1/lib/Net/HTTPServer/Request.pm 2008-09-15 13:56:28.000000000 +0200
@@ -340,7 +340,7 @@
#-------------------------------------------------------------------------
# What did they ask for?
#-------------------------------------------------------------------------
- $self->{PATH} = $self->_chroot($uri->path());
+ $self->{PATH} = $self->_chroot(uri_unescape($uri->path()));
my ($headers,$body) = ($self->{REQUEST} =~ /^(.+?)\015?\012\015?\012(.*?)$/s);
++++++ handlewidechar.patch ++++++
diff -Naur perl-Net-Http-Server-1.1.1.orig//lib/Net/HTTPServer/Response.pm perl-Net-Http-Server-1.1.1/lib/Net/HTTPServer/Response.pm
--- perl-Net-Http-Server-1.1.1.orig//lib/Net/HTTPServer/Response.pm 2005-01-06 04:58:16.000000000 +0100
+++ perl-Net-Http-Server-1.1.1/lib/Net/HTTPServer/Response.pm 2008-09-15 13:39:05.000000000 +0200
@@ -73,6 +73,10 @@
Returns the current value of the response body. Sets the content of
the response if a value is specified.
+Body() always returns the value as a utf8::encode()ed string.
+As a parameter it accepts both, perl unicode wide character strings
+or utf8 encoded byte strings.
+
=head2 Clear()
Reset the body to "".
@@ -194,7 +198,12 @@
my $self = shift;
my $body = shift;
- return $self->{BODY} unless defined($body);
+ unless (defined $body)
+ {
+ utf8::encode $self->{BODY} if utf8::is_utf8 $self->{BODY};
+ return $self->{BODY};
+ }
+
$self->{BODY} = $body;
}
@@ -401,7 +410,7 @@
chomp($header);
$header .= "\r\n\r\n";
- return ($header,$self->{BODY});
+ return ($header,$self->Body());
}
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Remember to have fun...
---------------------------------------------------------------------
To unsubscribe, e-mail: opensuse-commit+unsubscribe@opensuse.org
For additional commands, e-mail: opensuse-commit+help@opensuse.org
