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; |
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}, |
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'); |