misc/plugins/TextRotate.wps

Name:
        TextRotate
FullName:
        Rotation (Juliuce encryption) of string
URI:
        IW:SuikaWiki:ROT13
Initialize:
        sub ten25 ($) {
            my $s = shift;
            my $tr_f = q{あいうえおかきくけこさしすせそたちつてとなにぬねの}
                      .q{はひふへほまみむめもやゝゆ～よらりるれろわゐんゑを}
                      .q{アイウエオカキクケコサシスセソタチツテトナニヌネノ}
                      .q{ハヒフヘホマミムメモヤヽユーヨラリルレロワヰンヱヲ};
            my $tr_t = q{はひふへほまみむめもやゝゆ～よらりるれろわゐんゑを}
                      .q{あいうえおかきくけこさしすせそたちつてとなにぬねの}
                      .q{ハヒフヘホマミムメモヤヽユーヨラリルレロワヰンヱヲ}
                      .q{アイウエオカキクケコサシスセソタチツテトナニヌネノ};
            Jcode->new (\$s, 'euc')->tr ($tr_f => $tr_t);
            $s;
        }
        sub rot13 ($) {
            my $s = shift;
            $s =~ tr/A-Za-z/N-ZA-Mn-za-m/;
            $s;
        }

{
Name:
        wikiform_template/rot
FullName:
        Rot 13 and ten 25
Format:
        $r = $p->{text} || $o->{argv}->{'wikiform__'.$p->{source}};
        $r = rot13 ($r) unless $p->{rot13} && !$p->{rot13};
        $r = ten25 ($r) unless $p->{ten25} && !$p->{ten25};
}

1	Name:
2	TextRotate
3	FullName:
4	Rotation (Juliuce encryption) of string
5	URI:
6	IW:SuikaWiki:ROT13
7	Initialize:
8	sub ten25 ($) {
9	my $s = shift;
10	my $tr_f = q{あいうえおかきくけこさしすせそたちつてとなにぬねの}
11	.q{はひふへほまみむめもやゝゆ～よらりるれろわゐんゑを}
12	.q{アイウエオカキクケコサシスセソタチツテトナニヌネノ}
13	.q{ハヒフヘホマミムメモヤヽユーヨラリルレロワヰンヱヲ};
14	my $tr_t = q{はひふへほまみむめもやゝゆ～よらりるれろわゐんゑを}
15	.q{あいうえおかきくけこさしすせそたちつてとなにぬねの}
16	.q{ハヒフヘホマミムメモヤヽユーヨラリルレロワヰンヱヲ}
17	.q{アイウエオカキクケコサシスセソタチツテトナニヌネノ};
18	Jcode->new (\$s, 'euc')->tr ($tr_f => $tr_t);
19	$s;
20	}
21	sub rot13 ($) {
22	my $s = shift;
23	$s =~ tr/A-Za-z/N-ZA-Mn-za-m/;
24	$s;
25	}
26
27	{
28	Name:
29	wikiform_template/rot
30	FullName:
31	Rot 13 and ten 25
32	Format:
33	$r = $p->{text} \|\| $o->{argv}->{'wikiform__'.$p->{source}};
34	$r = rot13 ($r) unless $p->{rot13} && !$p->{rot13};
35	$r = ten25 ($r) unless $p->{ten25} && !$p->{ten25};
36	}
37