| 14 |
@@@script:Latn |
@@@script:Latn |
| 15 |
@@Mail[list]: [email protected] |
@@Mail[list]: [email protected] |
| 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; |
| 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'); |