update p5-CGI-Application to 4.61
from maintainer Ian McWilliam
This commit is contained in:
bluhm
parent
33718e7146
commit
1440722d64
@ -1,11 +1,10 @@
|
||||
# $OpenBSD: Makefile,v 1.13 2016/03/20 19:57:13 naddy Exp $
|
||||
# $OpenBSD: Makefile,v 1.14 2018/05/23 19:01:39 bluhm Exp $
|
||||
|
||||
COMMENT = MVC web framework for perl
|
||||
|
||||
MODULES = cpan
|
||||
PKG_ARCH = *
|
||||
DISTNAME = CGI-Application-4.50
|
||||
REVISION = 1
|
||||
DISTNAME = CGI-Application-4.61
|
||||
CATEGORIES = www
|
||||
HOMEPAGE = http://www.cgi-app.org/
|
||||
|
||||
@ -17,7 +16,9 @@ PERMIT_PACKAGE_CDROM = Yes
|
||||
CONFIGURE_STYLE = modbuild
|
||||
|
||||
RUN_DEPENDS = devel/p5-Class-ISA \
|
||||
www/p5-CGI-PSGI \
|
||||
devel/p5-Module-Build \
|
||||
www/p5-CGI>=4.21 \
|
||||
www/p5-CGI-PSGI>=0.09 \
|
||||
www/p5-HTML-Template
|
||||
|
||||
.include <bsd.port.mk>
|
||||
|
||||
@ -1,2 +1,2 @@
|
||||
SHA256 (CGI-Application-4.50.tar.gz) = dN59U4BguJinRZRN1uEUuzp6WdZ0mgpec3Sf+J1DHB0=
|
||||
SIZE (CGI-Application-4.50.tar.gz) = 76005
|
||||
SHA256 (CGI-Application-4.61.tar.gz) = RjrGqWnA96nFRgNO2pY6Y9EdNEdEET+v3QV9hrUiK4k=
|
||||
SIZE (CGI-Application-4.61.tar.gz) = 77687
|
||||
|
||||
@ -1,52 +0,0 @@
|
||||
$OpenBSD: patch-lib_CGI_Application_pm,v 1.1 2014/07/23 20:06:13 naddy Exp $
|
||||
# CVE-2013-7329
|
||||
# https://github.com/markstos/CGI--Application/pull/15
|
||||
--- lib/CGI/Application.pm.orig Fri Jun 17 03:05:14 2011
|
||||
+++ lib/CGI/Application.pm Thu Jun 5 12:29:53 2014
|
||||
@@ -359,6 +359,27 @@ sub dump_html {
|
||||
}
|
||||
|
||||
|
||||
+sub no_runmodes {
|
||||
+
|
||||
+ my $self = shift;
|
||||
+ my $query = $self->query();
|
||||
+
|
||||
+ # If no runmodes specified by app return error message
|
||||
+ my $current_runmode = $self->get_current_runmode();
|
||||
+ my $query_params = $query->Dump;
|
||||
+
|
||||
+ my $output = qq{
|
||||
+ <h2>Error - No runmodes specified.</h2>
|
||||
+ <p>Runmode called: $current_runmode"</p>
|
||||
+ <p>Query paramaters:</p> $query_params
|
||||
+ <p>Your application has not specified any runmodes.</p>
|
||||
+ <p>Please read the <a href="http://search.cpan.org/~markstos/CGI-Appli
|
||||
+ cation/">CGI::Application</a> documentation.</p>
|
||||
+ };
|
||||
+ return $output;
|
||||
+}
|
||||
+
|
||||
+
|
||||
sub header_add {
|
||||
my $self = shift;
|
||||
return $self->_header_props_update(\@_,add=>1);
|
||||
@@ -513,7 +534,7 @@ sub run_modes {
|
||||
my (@data) = (@_);
|
||||
|
||||
# First use? Create new __RUN_MODES!
|
||||
- $self->{__RUN_MODES} = { 'start' => 'dump_html' } unless (exists($self->{__RUN_MODES}));
|
||||
+ $self->{__RUN_MODES} = { 'start' => 'no_runmodes' } unless (exists($self->{__RUN_MODES}));
|
||||
|
||||
my $rr_m = $self->{__RUN_MODES};
|
||||
|
||||
@@ -1653,7 +1674,8 @@ Useful for outputting to STDERR.
|
||||
The dump_html() method is a debugging function which will return
|
||||
a chunk of text which contains all the environment and web form
|
||||
data of the request, formatted nicely for human readability via
|
||||
-a web browser. Useful for outputting to a browser.
|
||||
+a web browser. Useful for outputting to a browser. Please consider
|
||||
+the security implications of using this in production code.
|
||||
|
||||
=head3 error_mode()
|
||||
|
||||
@ -1,51 +0,0 @@
|
||||
$OpenBSD: patch-t_basic_t,v 1.1 2014/07/23 20:06:13 naddy Exp $
|
||||
# CVE-2013-7329
|
||||
# https://github.com/markstos/CGI--Application/pull/15
|
||||
--- t/basic.t.orig Fri Jun 17 03:05:14 2011
|
||||
+++ t/basic.t Thu Jun 5 12:35:32 2014
|
||||
@@ -1,6 +1,6 @@
|
||||
|
||||
use strict;
|
||||
-use Test::More tests => 110;
|
||||
+use Test::More tests => 112;
|
||||
|
||||
BEGIN{use_ok('CGI::Application');}
|
||||
|
||||
@@ -28,7 +28,7 @@ sub response_like {
|
||||
}
|
||||
|
||||
# Instantiate CGI::Application
|
||||
-# run() CGI::Application object. Expect header + output dump_html()
|
||||
+# run() CGI::Application object. Expect header + output no_runmodes()
|
||||
{
|
||||
my $app = CGI::Application->new();
|
||||
isa_ok($app, 'CGI::Application');
|
||||
@@ -39,9 +39,27 @@ sub response_like {
|
||||
response_like(
|
||||
$app,
|
||||
qr{^Content-Type: text/html},
|
||||
- qr/Query Environment:/,
|
||||
+ qr/Error - No runmodes specified./,
|
||||
'base class response',
|
||||
);
|
||||
+}
|
||||
+
|
||||
+# Instantiate CGI::Application
|
||||
+# run() CGI::Application sub-class.
|
||||
+# Expect header + output dump_html()
|
||||
+{
|
||||
+
|
||||
+ my $app = TestApp->new();
|
||||
+ $app->query(CGI->new({'test_rm' => 'dump_htm'}));
|
||||
+
|
||||
+ response_like(
|
||||
+ $app,
|
||||
+ qr{^Content-Type: text/html},
|
||||
+ qr/Query Environment:/,
|
||||
+ 'dump_html class response'
|
||||
+
|
||||
+ );
|
||||
+
|
||||
}
|
||||
|
||||
# Instantiate CGI::Application sub-class.
|
||||
@ -1,13 +0,0 @@
|
||||
$OpenBSD: patch-t_lib_TestApp_pm,v 1.1 2014/07/23 20:06:13 naddy Exp $
|
||||
# CVE-2013-7329
|
||||
# https://github.com/markstos/CGI--Application/pull/15
|
||||
--- t/lib/TestApp.pm.orig Fri Jun 17 03:05:14 2011
|
||||
+++ t/lib/TestApp.pm Thu Jun 5 12:26:56 2014
|
||||
@@ -27,6 +27,7 @@ sub setup {
|
||||
'header_props_before_header_add' => \&header_props_before_header_add,
|
||||
'header_add_after_header_props' => \&header_add_after_header_props,
|
||||
|
||||
+ 'dump_htm' => 'dump_html',
|
||||
'dump_txt' => 'dump',
|
||||
'eval_test' => 'eval_test',
|
||||
);
|
||||
@ -1,14 +0,0 @@
|
||||
$OpenBSD: patch-t_load_tmpl_hook_t,v 1.1 2014/07/23 20:06:13 naddy Exp $
|
||||
# CVE-2013-7329
|
||||
# https://github.com/markstos/CGI--Application/pull/15
|
||||
--- t/load_tmpl_hook.t.orig Fri Jun 17 03:05:14 2011
|
||||
+++ t/load_tmpl_hook.t Thu Jun 5 12:26:56 2014
|
||||
@@ -8,7 +8,7 @@ $ENV{CGI_APP_RETURN_ONLY} = 1;
|
||||
my $app = CGI::Application->new();
|
||||
my $out = $app->run;
|
||||
|
||||
-like($out, qr/start/, "normal app output contains start");
|
||||
+like($out, qr/Error - No runmodes specified/, "normal app output contains start");
|
||||
unlike($out, qr/load_tmpl_hook/, "normal app output doesn't contain load_tmpl_hook");
|
||||
|
||||
{
|
||||
@ -1,5 +1,4 @@
|
||||
@comment $OpenBSD: PLIST,v 1.1.1.1 2006/11/13 15:20:26 espie Exp $
|
||||
${P5SITE}/CGI/
|
||||
@comment $OpenBSD: PLIST,v 1.2 2018/05/23 19:01:39 bluhm Exp $
|
||||
${P5SITE}/CGI/Application/
|
||||
${P5SITE}/CGI/Application.pm
|
||||
${P5SITE}/CGI/Application/Mailform.pm
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user