/[pub]/test/html-webhacc/cc.cgi
Suika

Diff of /test/html-webhacc/cc.cgi

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

revision 1.27 by wakaba, Mon Nov 19 12:20:14 2007 UTC revision 1.29 by wakaba, Fri Nov 23 12:08:32 2007 UTC
# Line 928  sub load_text_catalog ($) { Line 928  sub load_text_catalog ($) {
928  sub get_text ($) {  sub get_text ($) {
929    my ($type, $level, $node) = @_;    my ($type, $level, $node) = @_;
930    $type = $level . ':' . $type if defined $level;    $type = $level . ':' . $type if defined $level;
931      $level = 'm' unless defined $level;
932    my @arg;    my @arg;
933    {    {
934      if (defined $Msg->{$type}) {      if (defined $Msg->{$type}) {
# Line 952  sub get_text ($) { Line 953  sub get_text ($) {
953            ? htescape ($node->owner_element->manakai_local_name)            ? htescape ($node->owner_element->manakai_local_name)
954            : ''            : ''
955        }ge;        }ge;
956        return ($type, $Msg->{$type}->[0], $msg);        return ($type, 'level-' . $level . ' ' . $Msg->{$type}->[0], $msg);
957      } elsif ($type =~ s/:([^:]*)$//) {      } elsif ($type =~ s/:([^:]*)$//) {
958        unshift @arg, $1;        unshift @arg, $1;
959        redo;        redo;
960      }      }
961    }    }
962    return ($type, '', htescape ($_[0]));    return ($type, 'level-'.$level, htescape ($_[0]));
963  } # get_text  } # get_text
964    
965  }  }
# Line 1014  EOH Line 1015  EOH
1015      $ua->protocols_allowed ([qw/http/]);      $ua->protocols_allowed ([qw/http/]);
1016      $ua->max_size (1000_000);      $ua->max_size (1000_000);
1017      my $req = HTTP::Request->new (GET => $request_uri);      my $req = HTTP::Request->new (GET => $request_uri);
1018        $req->header ('Accept-Encoding' => 'identity, *; q=0');
1019      my $res = $ua->request ($req);      my $res = $ua->request ($req);
1020      ## TODO: 401 sets |is_success| true.      ## TODO: 401 sets |is_success| true.
1021      if ($res->is_success or $http->get_parameter ('error-page')) {      if ($res->is_success or $http->get_parameter ('error-page')) {
Legend:
Removed from v.1.27  
changed lines
  Added in v.1.29
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24