| 29 |
return $_[0]->{nested}; |
return $_[0]->{nested}; |
| 30 |
} # nested |
} # nested |
| 31 |
|
|
| 32 |
|
sub generate_transfer_sections ($$) { |
| 33 |
|
my $self = shift; |
| 34 |
|
my $result = shift; |
| 35 |
|
|
| 36 |
|
$self->generate_http_header_section ($result); |
| 37 |
|
} # generate_transfer_sections |
| 38 |
|
|
| 39 |
|
sub generate_http_header_section ($$) { |
| 40 |
|
my ($self, $result) = @_; |
| 41 |
|
|
| 42 |
|
return unless defined $self->{header_status_code} or |
| 43 |
|
defined $self->{header_status_text} or |
| 44 |
|
@{$self->{header_field} or []}; |
| 45 |
|
|
| 46 |
|
my $out = $result->output; |
| 47 |
|
|
| 48 |
|
$out->start_section (id => 'source-header', title => 'HTTP Header'); |
| 49 |
|
$out->html (qq[<p><strong>Note</strong>: Due to the limitation of the |
| 50 |
|
network library in use, the content of this section might |
| 51 |
|
not be the real header.</p> |
| 52 |
|
|
| 53 |
|
<table><tbody> |
| 54 |
|
]); |
| 55 |
|
|
| 56 |
|
if (defined $self->{header_status_code}) { |
| 57 |
|
$out->html (qq[<tr><th scope="row">Status code</th>]); |
| 58 |
|
$out->start_tag ('td'); |
| 59 |
|
$out->code ($self->{header_status_code}); |
| 60 |
|
} |
| 61 |
|
if (defined $self->{header_status_text}) { |
| 62 |
|
$out->html (qq[<tr><th scope="row">Status text</th>]); |
| 63 |
|
$out->start_tag ('td'); |
| 64 |
|
$out->code ($self->{header_status_text}); |
| 65 |
|
} |
| 66 |
|
|
| 67 |
|
for (@{$self->{header_field}}) { |
| 68 |
|
$out->start_tag ('tr'); |
| 69 |
|
$out->start_tag ('th', scope => 'row'); |
| 70 |
|
$out->code ($_->[0]); |
| 71 |
|
$out->start_tag ('td'); |
| 72 |
|
$out->code ($_->[1]); |
| 73 |
|
} |
| 74 |
|
|
| 75 |
|
$out->end_tag ('table'); |
| 76 |
|
|
| 77 |
|
$out->end_section; |
| 78 |
|
} # generate_http_header_section |
| 79 |
|
|
| 80 |
|
package WebHACC::Input::Error; |
| 81 |
|
push our @ISA, 'WebHACC::Input'; |
| 82 |
|
|
| 83 |
|
sub generate_transfer_sections ($$) { |
| 84 |
|
my $self = shift; |
| 85 |
|
|
| 86 |
|
$self->SUPER::generate_transfer_sections (@_); |
| 87 |
|
|
| 88 |
|
my $result = shift; |
| 89 |
|
my $out = $result->output; |
| 90 |
|
|
| 91 |
|
$out->start_section (id => 'transfer-errors', title => 'Transfer Errors'); |
| 92 |
|
|
| 93 |
|
$out->start_tag ('dl'); |
| 94 |
|
$result->add_error (layer => 'transfer', |
| 95 |
|
level => 'u', |
| 96 |
|
type => 'resource retrieval error', |
| 97 |
|
url => $self->{request_uri}, |
| 98 |
|
text => $self->{error_status_text}); |
| 99 |
|
$out->end_tag ('dl'); |
| 100 |
|
|
| 101 |
|
$out->end_section; |
| 102 |
|
} # generate_transfer_sections |
| 103 |
|
|
| 104 |
1; |
1; |
Parent Directory
| 
Revision Log
| 
Patch