/[suikacvs]/test/html-webhacc/WebHACC/Language/CacheManifest.pm
Suika

Diff of /test/html-webhacc/WebHACC/Language/CacheManifest.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by wakaba, Thu Aug 14 07:19:44 2008 UTC revision 1.7 by wakaba, Sat Aug 16 07:42:20 2008 UTC
# Line 15  sub generate_syntax_error_section ($) { Line 15  sub generate_syntax_error_section ($) {
15    
16    my $out = $self->output;    my $out = $self->output;
17    
18      $self->result->layer_uncertain ('charset');
19    
20    $out->start_section (role => 'parse-errors');    $out->start_section (role => 'parse-errors');
21    $out->start_error_list (role => 'parse-errors');    $out->start_error_list (role => 'parse-errors');
22      $self->result->layer_applicable ('syntax');
23    
24    my $input = $self->input;    my $input = $self->input;
25    my $result = $self->result;    my $result = $self->result;
26    
27      $self->result->layer_uncertain ('encode') unless $input->{is_char_string};
28    
29    my $m = $input->{is_char_string} ? 'parse_char_string' : 'parse_byte_string';    my $m = $input->{is_char_string} ? 'parse_char_string' : 'parse_byte_string';
30    $self->{structure} = Whatpm::CacheManifest->$m    $self->{structure} = Whatpm::CacheManifest->$m
31        ($input->{s}, $input->{uri}, $input->{base_uri}, sub {        ($input->{s}, $input->url, $input->{base_uri}, sub {
32          $result->add_error (@_, layer => 'syntax', index_has_link => 1);          $result->add_error (@_, layer => 'syntax', index_has_link => 1);
33        });        });
34                
# Line 39  sub generate_structure_dump_section ($) Line 44  sub generate_structure_dump_section ($)
44    
45    $out->start_section (role => 'structure');    $out->start_section (role => 'structure');
46    
47    $out->html (qq[<dl><dt>Explicit entries</dt>]);    $out->start_tag ('dl');
48    my $i = 0;    my $i = 0;
   for my $uri (@{$manifest->[0]}) {  
     $out->start_tag ('dd', id => 'index-' . $i++);  
     $out->url ($uri);  
   }  
49    
50    $out->html (qq[<dt>Fallback entries</dt><dd>    $out->start_tag ('dt');
51        <table><thead><tr><th scope=row>Oppotunistic Caching Namespace</th>    $out->nl_text ('Explicit entries');
52        <th scope=row>Fallback Entry</tr><tbody>]);    if (@{$manifest->[0]}) {
53    for my $uri (sort {$a cmp $b} keys %{$manifest->[1]}) {      for my $uri (@{$manifest->[0]}) {
54      $out->start_tag ('tr');        $out->start_tag ('dd', id => 'index-' . $i++);
55          $out->url ($uri);
56      $out->start_tag ('td', id => 'index-' . $i++);      }
57      $out->url ($uri);    } else {
58        $out->start_tag ('dd', class => 'no-entry');
59        $out->nl_text ('No entry');
60      }
61    
62      $out->start_tag ('td', id => 'index-' . $i++);    $out->start_tag ('dt');
63      $out->url ($manifest->[1]->{$uri});    $out->nl_text ('Fallback entries');
64      if (keys %{$manifest->[1]}) {
65        $out->start_tag ('dd', class => 'manifest-fallbacks');
66        for my $uri (sort {$a cmp $b} keys %{$manifest->[1]}) {
67          $out->start_tag ('p', id => 'index-' . $i++);
68          $out->nl_text ('Opportunistic caching namespace');
69          $out->text (': ');
70          $out->url ($uri);
71          
72          $out->start_tag ('p', id => 'index-' . $i++);
73          $out->nl_text ('Fallback entry');
74          $out->text (': ');
75          $out->url ($manifest->[1]->{$uri});
76        }
77      } else {
78        $out->start_tag ('dd', class => 'no-entry');
79        $out->nl_text ('No entry');
80    }    }
81    
82    $out->html (qq[</table><dt>Online whitelist</dt>]);    $out->start_tag ('dt');
83    for my $uri (@{$manifest->[2]}) {    $out->nl_text ('Online whitelist');
84      $out->start_tag ('dd', id => 'index-' . $i++);    if (@{$manifest->[2]}) {
85      $out->url ($uri);      for my $uri (@{$manifest->[2]}) {
86          $out->start_tag ('dd', id => 'index-' . $i++);
87          $out->url ($uri);
88        }
89      } else {
90        $out->start_tag ('dd', class => 'no-entry');
91        $out->nl_text ('No entry');
92    }    }
93    
94      $out->end_tag ('dl');
95    
96    $out->end_section;    $out->end_section;
97  } # generate_structure_dump_section  } # generate_structure_dump_section
98    
# Line 75  sub generate_structure_error_section ($) Line 103  sub generate_structure_error_section ($)
103    
104    $out->start_section (role => 'structure-errors');    $out->start_section (role => 'structure-errors');
105    $out->start_error_list (role => 'structure-errors');    $out->start_error_list (role => 'structure-errors');
106      $self->result->layer_applicable ('structure');
107    
108    my $result = $self->result;    my $result = $self->result;
109    
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.7
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24