Skip Menu |
 
rt.cpan.org will be shut down on March 1st, 2021.

This queue is for tickets about the CGI-Ajax CPAN distribution.

Report information
The Basics
Id: 28429
Status: new
Priority: 0/
Queue: CGI-Ajax

People
Owner: Nobody in particular
Requestors: RENEEB [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: Wishlist
Broken in: 0.701
Fixed in: (no value)



Subject: Double Content-Type when using CGI::Ajax in a CGI::Application-App (with patch)
Download (untitled) / with headers
text/plain 281b
It would be nice to deactivate the header information. When you use CGI::Ajax within a CGI::Application app, you have to use a RegEx to filter the header information. The attached file contains a patch that adds a "skip_header" method to Ajax.pm The other file is a testscript...
Subject: Ajax.diff
Download Ajax.diff
text/x-diff 1k
11c11 < js_encode_function cgi_header_extra); --- > js_encode_function cgi_header_extra skip_header); 15c15 < $VERSION = .701; --- > $VERSION = .702; 33d32 < 57a57,67 > When you use CGI::Ajax within Applications that send their own header information, > you can skip the header: > > my $pjx = new CGI::Ajax( > 'exported_func' => \&perl_func, > 'skip_header' => 1, > ); > $pjx->skip_header(1); > > print $pjx->build_html( $cgi, \&Show_HTML); > 488a499 > return '' if $self->skip_header; 530c541 < if ( !defined $html ) { --- > if ( !defined $html and $self->skip_header == 0 ) { 552c563 < if ( !defined $html ) { --- > if ( !defined $html and $self->skip_header == 0 ) { 649a661,666 > > if( $function_name eq 'skip_header' ){ > $self->skip_header( $code ); > next; > } > 1094c1111 < if ( !defined $rv ) { --- > if ( !defined $rv and $self->skip_header == 0 ) {
Subject: ajax_patch.pl
Download ajax_patch.pl
text/x-perl 537b
#!/usr/bin/perl use strict; use warnings; Test->new->run; package Test; use strict; use warnings; use CGI::Ajax; use base qw(CGI::Application); sub setup{ my ($self) = @_; $self->run_modes( AUTOLOAD => \&test, ); } sub test{ my ($self) = @_; my $ajx = CGI::Ajax->new( test => \&hallo, skip_header => 1, ); # alternativly $ajx->skip_header(1); my $html = do{ local $/; <DATA> }; return $ajx->build_html( $self->query, $html ); } __DATA__ <html> <head> </head> </html>


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.