/[pub]/suikawiki/script/misc/plugins/link/iw-wikiengine.wp2
Suika

Diff of /suikawiki/script/misc/plugins/link/iw-wikiengine.wp2

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

revision 1.1 by wakaba, Sun Feb 1 12:09:44 2004 UTC revision 1.3 by wakaba, Sat Feb 14 10:52:13 2004 UTC
# Line 14  Plugin: Line 14  Plugin:
14        @@@script:Latn        @@@script:Latn
15      @@Mail[list]: w@suika.fam.cx      @@Mail[list]: w@suika.fam.cx
16    @Date.RCS: $Date$    @Date.RCS: $Date$
17    @RequiredModule[list]: URI    @RequiredModule[list]:
18        main
19        URI
20    @RequiredPlugin[list]: InterWikiCore    @RequiredPlugin[list]: InterWikiCore
21    @Use:    @Use:
22      require URI;      require URI;
# Line 88  FormattingRule: Line 90  FormattingRule:
90                                  (version => $p->{version}+0,                                  (version => $p->{version}+0,
91                                   wiki_uri => $p->{base} ? URI->new ($p->{base})                                   wiki_uri => $p->{base} ? URI->new ($p->{base})
92                                                          : undef,                                                          : undef,
93                                   page => [split m#//#, $p->{page}],                                   page => $o->{wiki}->name ($p->{page}),
94                                   mode => $p->{mode},                                   mode => $p->{mode},
95                                   up_to_date => $p->{up_to_date},                                   up_to_date => $p->{up_to_date},
96  #                                 with_lm => $p->{with_lm},  #                                 with_lm => $p->{with_lm},
# Line 200  FormattingRule: Line 202  FormattingRule:
202          }          }
203          $p->{-result}->query_form (%query);          $p->{-result}->query_form (%query);
204      }      }
205    
206    FormattingRule:
207      @Category[list]: iwc--urireference
208      @Name: iwwe--YukiWikiDBNS-base16-encode
209      @Description:
210        @@@:
211          String encoded in base 16 encoding, with YukiWikiDBNS namespacing
212          rule and suffixes.
213        @@lang: en
214      @Parameter:
215        @@Name: charset
216        @@Type: charset
217        @@Default: "euc-jp"
218        @@Description:
219          @@@@: Charset in which string to be encoded before base 16 applied
220          @@@lang: en
221      @Parameter:
222        @@Name: content
223        @@Type: CDATA
224        @@Default: #REQUIRED
225        @@Description:
226          @@@@: String to be encoded
227          @@@lang: en
228      @Parameter:
229        @@Name: filesystem-namespace-delimiter
230        @@Type: CDATA
231        @@Default: "/"
232        @@Description:
233          @@@@: String with which namespace components to be delimited in result
234          @@@lang: en
235      @Parameter:
236        @@Name: filesystem-namespace-suffix
237        @@Type: CDATA
238        @@Default: ".ns"
239        @@Description:
240          @@@@: String to be suffixed to namespace component in result
241          @@@lang: en
242      @Parameter:
243        @@Name: wiki-namespace-delimiter
244        @@Type: CDATA
245        @@Default: "//"
246        @@Description:
247          @@@@:
248            String by which namespace component in source ("content" parameter)
249            delimited
250          @@@lang: en
251      @Post:
252        my $c = &main::code_convert (\$p->{content}, $p->{charset} || 'euc-jp');
253        $c =~ s/(.)/sprintf '%02X', ord $1/ges;
254        $p->{wiki_namespace_delimiter} ||= $o->{wiki}->{config}->{name}->{space}
255                                             ->{separator};
256        $p->{wiki_namespace_delimiter} =~ s/(.)/sprintf '%02X', ord $1/ges;
257        $p->{filesystem_namespace_delimiter} ||= '/';
258        $p->{filesystem_namespace_suffix} ||= '.ns';
259        $c =~ s{$p->{wiki_namespace_delimiter}}
260               {$p->{filesystem_namespace_suffix}$p->{filesystem_namespace_delimiter}}g;
261        $p->{-result} .= $c . ($p->{filesystem_file_suffix} || '.txt');

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3

admin@suikawiki.org
ViewVC Help
Powered by ViewVC 1.1.24