| blib/lib/Apache/ASP/Share/CORE/MailErrors.inc | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| statement | 10 | 13 | 76.9 |
| branch | n/a | ||
| condition | 4 | 8 | 50.0 |
| subroutine | 1 | 1 | 100.0 |
| pod | n/a | ||
| total | 15 | 22 | 68.1 |
| line | stmt | bran | cond | sub | pod | time | code |
|---|---|---|---|---|---|---|---|
| 1 | 1 | 1 | 5 | ||||
| 2 | <%; | ||||||
| 3 | 1 | 3 | my %args = @_; | ||||
| 4 | |||||||
| 5 | 1 | 8 | my $Form = $Request->Form; | ||||
| 6 | 1 | 5 | my $Query = $Request->QueryString; | ||||
| 7 | 1 | 5 | my $Env = $Request->ServerVariables; | ||||
| 8 | |||||||
| 9 | 0 | 0 | my $http_out = join(" \n ", |
||||
| 10 | 1 | 23 | map { "$_= ".$Server->HTMLEncode(substr($Env->{$_}, 0, 100)) } | ||||
| 11 | sort grep(/^HTTP_/, keys %$Env) | ||||||
| 12 | ); | ||||||
| 13 | 0 | 0 | my $query_out = join(" \n ", |
||||
| 14 | 1 | 15 | map { "$_= ".$Server->HTMLEncode(substr($Query->{$_}, 0, 100)) } | ||||
| 15 | sort keys %$Query | ||||||
| 16 | ); | ||||||
| 17 | 0 | 0 | my $form_out = join(" \n ", |
||||
| 18 | 1 | 3 | map { "$_= ".$Server->HTMLEncode(substr($Form->{$_}, 0, 100)) } | ||||
| 19 | sort keys %$Form | ||||||
| 20 | ); | ||||||
| 21 | |||||||
| 22 | 1 | 50 | 4 | my %client_data = ( GLOBAL => $Server->Config('Global') || '.', | |||
| 50 | |||||||
| 50 | |||||||
| 50 | |||||||
| 23 | FILE => $Server->File, | ||||||
| 24 | REMOTE_ADDR => $Env->{REMOTE_ADDR}, | ||||||
| 25 | REMOTE_USER => $Env->{REMOTE_USER}, | ||||||
| 26 | HTTP_HEADERS => $http_out || '', | ||||||
| 27 | QUERY => $query_out || '', | ||||||
| 28 | FORM => $form_out || '', | ||||||
| 29 | ); | ||||||
| 30 | |||||||
| 31 | 1 | 15 | $Response->Include('Share::CORE/MailErrorsHTML.inc', %args, %client_data); | ||||
| 32 | %> |