/[pub]/suikawiki/script/misc/plugins/SuikaWiki10.wp2
Suika

Diff of /suikawiki/script/misc/plugins/SuikaWiki10.wp2

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

revision 1.1 by wakaba, Sun Oct 5 11:24:52 2003 UTC revision 1.2 by wakaba, Sat Oct 18 07:08:34 2003 UTC
# Line 1  Line 1 
1  #?SuikaWikiConfig/2.0  #?SuikaWikiConfig/2.0
2    
3  Plugin:  Plugin:
4    @Name: SuikaWiki10    @Name: SuikaWiki20
5    @FullName: SuikaWiki 1.0 Interface Emulation    @FullName: SuikaWiki 2.0 Interface Emulation
6    @Description:    @Description:
7       This module provides tranditional interface compatible with       This module provides tranditional interface compatible with
8       SuikaWiki 1.0.       SuikaWiki 1.0.
# Line 17  ViewDefinition: Line 17  ViewDefinition:
17    @Mode: #default    @Mode: #default
18    @Condition:    @Condition:
19      @@output: http-cgi      @@output: http-cgi
20        @@http-method[list]:
21          GET
22          HEAD
23    @Description: fallback mode    @Description: fallback mode
24    @method:    @method:
25      @@@:      @@@:
# Line 57  ViewDefinition: Line 60  ViewDefinition:
60    $self->main_pre ($opt, $opt2); ## TODO: or die    $self->main_pre ($opt, $opt2); ## TODO: or die
61        
62    my $media = $prop->{media};    my $media = $prop->{media};
63    if (index ($self->{view}->{wiki}->{var}->{client}->{user_agent_name},    if ($prop->{xmedia} &&
64               'Gecko') > -1) {  ## TODO: conneg        (index ($self->{view}->{wiki}->{var}->{client}->{user_agent_name},
65                 'Gecko') > -1)) {  ## TODO: conneg
66      $media = $prop->{xmedia};      $media = $prop->{xmedia};
67      $o->{media} = $media;      $o->{media} = $media;
68    }    }
# Line 94  ViewDefinition: Line 98  ViewDefinition:
98    my $s = $fmt->replace ($view_def->as_string => $o, {formatter => $fmt});    my $s = $fmt->replace ($view_def->as_string => $o, {formatter => $fmt});
99        
100    $output->append_to_body ($s);    $output->append_to_body ($s);
101    print $output->output (output => 'http-cgi');    $output->output (output => 'http-cgi');
102        
103    $self->main_post ($opt, $opt2); ## TODO: or die    $self->main_post ($opt, $opt2); ## TODO: or die
104      @@Name: main      @@Name: main
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
[email protected]
 ViewVC Help
Powered by ViewVC 1.1.24